Soyez le premier à donner votre avis sur cette source.
Vue 9 809 fois - Téléchargée 457 fois
EXEMPLE EXEMPLE EXEMPLE Private Sub Command1_Click() Dim I Dim sel Dim mor For I = 1 To Len(Text1) sel = Mid$(LCase(Text1), I, 1) If sel = "a" Then mor = "._ " If sel = "b" Then mor = "_... " If sel = "c" Then mor = "_._. " If sel = "d" Then mor = "_.. " If sel = "e" Then mor = ". " If sel = "f" Then mor = ".._. " If sel = "g" Then mor = "_ _. " If sel = "h" Then mor = ".... " If sel = "i" Then mor = ".. " If sel = "j" Then mor = "._ _ _ " If sel = "k" Then mor = "_._ " If sel = "l" Then mor = "._.. " If sel = "m" Then mor = "_ _ " If sel = "n" Then mor = "_. " If sel = "o" Then mor = "_ _ _ " If sel = "p" Then mor = "._ _. " If sel = "q" Then mor = "_ _._ " If sel = "r" Then mor = "._. " If sel = "s" Then mor = "... " If sel = "t" Then mor = "_ " If sel = "u" Then mor = ".._ " If sel = "v" Then mor = "..._ " If sel = "w" Then mor = "._ _ " If sel = "x" Then mor = "_.._ " If sel = "y" Then mor = "_._ _ " If sel = "z" Then mor = "_ _.. " If sel = "0" Then mor = "_ _ _ _ _ " If sel = "1" Then mor = "._ _ _ _ " If sel = "2" Then mor = ".._ _ _ " If sel = "3" Then mor = "..._ _ " If sel = "4" Then mor = "...._ " If sel = "5" Then mor = "..... " If sel = "6" Then mor = "_.... " If sel = "7" Then mor = "_ _... " If sel = "8" Then mor = "_ _ _.. " If sel = "9" Then mor = "_ _ _ _. " If sel = "." Then mor = "._._._ " If sel = " " Then mor = " " Text2 = Text2 + mor Next End Sub EXEMPLE EXEMPLE EXEMPLE
continu a fair des tits truk comme ca ^^
tu pourrai fair un traducteur francais anglais si tu veut :)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.