Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic Petit concours pour l'été...

Petit concours pour l'été...

5 réponses
Avatar
Jean-marc
Hello à tous,

Petit concours pour l'été...

Sauriez vous deviner, SANS la compiler/exécuter, ce que
fait cette petite fonction fraichement écrite par mes
soins:

Private Function a2r(ByVal v As String) As String
Dim i As Integer
Const t As String = "FU@JSIA"
Const p As Integer = 3

For i = Len(v) - 1 To 0 Step -1
If Val(Mid$(v, Len(v) - i, 1)) <= p Then
a2r = a2r & String$(Val(Mid$(v, Len(v) - i, 1)), _
Chr$(Asc(Mid$(t, i + 1, 1)) + p))
ElseIf Val(Mid$(v, Len(v) - i, 1)) < (2 * p) Then
a2r = a2r & String$(5 - Val(Mid$(v, Len(v) - i, 1)), _
Chr$(Asc(Mid$(t, i + 1, 1)) + p)) & _
Chr$(Asc(Mid$(t, i + 1 + 4, 1)) + p)
ElseIf Val(Mid$(v, Len(v) - i, 1)) < (3 * p) Then
a2r = a2r & Chr$(Asc(Mid$(t, i + 1 + 4, 1)) + p) & _
String$(Val(Mid$(v, Len(v) - i, 1)) - 5, _
Chr$(Asc(Mid$(t, i + 1, 1)) + p))
Else
a2r = a2r & Chr$(Asc(Mid$(t, i + 1, 1)) + p) & _
Chr$(Asc(Mid$(t, i + 2, 1)) + p)
End If
Next i
End Function


Pas de prix à gagner, à part ma considération éternelle :--))

Si le/les gagnant(s) sont sur BXL, j'offre un verre :-)

Amusez vous bien :-)

--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr




--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jean-marc
Jean-marc wrote:
Hello à tous,

Petit concours pour l'été...

Sauriez vous deviner, SANS la compiler/exécuter, ce que
fait cette petite fonction fraichement écrite par mes
soins ...



Allez, c'est peut être un peu compliqué comme ça. Vous
pouvez aussi essayer de deviner en l'exécutant et en faisant
des tests.

Indices:
- C'est une fonction de conversion
- Elle a une vrai utilité


Bonne journée !

--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Avatar
Fred
Dans : news:487f0608$0$2855$,
Jean-marc écrivait :
Jean-marc wrote:
Hello à tous,

Petit concours pour l'été...

Sauriez vous deviner, SANS la compiler/exécuter, ce que
fait cette petite fonction fraichement écrite par mes
soins ...



Allez, c'est peut être un peu compliqué comme ça. Vous
pouvez aussi essayer de deviner en l'exécutant et en faisant
des tests.

Indices:
- C'est une fonction de conversion
- Elle a une vrai utilité


Bonne journée !



Allez, à vue de nez, et en ajoutant 3 aux codes des caractères de
je dirais que cela fait une conversion en chiffres romains ? ;-)


--
Fred

Avatar
Vincent Guichard
Jean-marc a écrit :
Hello à tous,

Petit concours pour l'été...



Je réponds en MP pour ne pas gâcher le plaisir aux autres participant s ;D

Vincent Guichard
Avatar
Jean-marc
Fred wrote:
Dans : news:487f0608$0$2855$,



Allez, à vue de nez, et en ajoutant 3 aux codes des caractères de
je dirais que cela fait une conversion en chiffres romains ?
;-)



B R A V O ! !

Nous avons un gagnant :-)

C'est en effet le but de cette fonction :
Elle prend en entrée une chaine de caractère entre
"0" et "3999" et effectue la conversion en chiffres
romains.

Par exemple :

? a2r("1969")
MCMLXIX

Bravo à toi. Si tu passes en Belgique, tu peux venir retirer
ton prix :-))

Des volontaires pour présenter d'autres "jeux de l'été" ?

Bonne journée !

--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Avatar
Jean-marc
Vincent Guichard wrote:
Jean-marc a écrit :
Hello à tous,

Petit concours pour l'été...



Je réponds en MP pour ne pas gâcher le plaisir aux autres
participants ;D
Vincent Guichard



Hello,

Réponse envoyée en MP :-)

Nous avons donc un second gagnant, avec une excellente analyse !

--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;