Traducteur de morse avec choix des couleurs

Soyez le premier à donner votre avis sur cette source.

Vue 9 656 fois - Téléchargée 389 fois

Description

TRADUIT du texte en morse
interface graphique vite fait
il y a pas tout dans le code
mais par contre il y a tout dans le zip

Source / Exemple :


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

Conclusion :


AUTREMENT TOUT EST DANS LE ZIP

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

meitev12
Messages postés
2
Date d'inscription
vendredi 19 mai 2006
Statut
Membre
Dernière intervention
19 mai 2006
-
j'en serai très ravi
meitev12
Messages postés
2
Date d'inscription
vendredi 19 mai 2006
Statut
Membre
Dernière intervention
19 mai 2006
-
avec plaisir
MouLeT
Messages postés
90
Date d'inscription
samedi 11 octobre 2003
Statut
Membre
Dernière intervention
27 juillet 2009
-
Pas mal mais bon c'est pas vraiment difficil a fair :)
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.