Traducteur de morse avec choix des couleurs

Soyez le premier à donner votre avis sur cette source.

Vue 9 589 fois - Téléchargée 374 fois

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler Commenter la réponse de MouLeT
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 :)
Signaler Commenter la réponse de meitev12
meitev12
Messages postés
2
Date d'inscription
vendredi 19 mai 2006
Statut
Membre
Dernière intervention
19 mai 2006
 -
avec plaisir
Signaler Commenter la réponse de meitev12
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
S'inscrire maintenant

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.

Du même auteur (cs_Rochon)