décoder le morse Résolu

Question

j ai un txt1 ou se trouve des . et des - avec comme séparation des / pour le morse 
et je voudrai en appuyant sur cmd1 que sa affiche la lettre dans txt2 
donc .-/=a
si vous saviez me faire juste pour le a je ferais le reste je vais pas vous donnez trop de travail ;) 
sa serais gentil de m aidez

econs · Accepted Answer

Salut,

Exécute déjà ceci, çà devrait faire une bonne partie du boulot. Tu peux même écrire des mots, sous réserve de séparer les "lettres" par des "/"








Dim tablo() As String
Dim k As Long

tablo = Split(Text1.Text,"/")
sPhrase = ""

For k = LBound(tablo) To UBound(tablo)
    Select Case tablo(k)
        Case ".-" : sLettre = "a"
        Case "-..." : sLettre = "b"
        Case "-.-." : sLettre = "c"
        Case "-.." : sLettre = "d"
        '    La suite ici
    End Select
sPhrase = sPhrase & sLettre
Next k

MsgBox sPhrase



Manu

cs_thefox07 · Answer

merci cela fonctione parfaitement ;)

cs_nissrina19 · Answer

salut je suis debutante en vbnet j'ai trouvé des difficulté pour passer du code morse au text mais le contraire c'etait facile.est ce que vspouvez m'expliquer svp

Décoder le morse

3 réponses

Votre réponse

Discussions similaires