A voir également:
- Morse code decoder
- IRC : [code morse] encode/decode sans $replace - CodeS SourceS - Guide
- Javascript : Codeur - decodeur : coder et decoder facilement des textes(en ascii et en morse) - Code - Guide
- Décoder plusieurs lettres en morse ✓ - Forum - Visual Basic 6
- Code morse en c - Guide
- Code césar décoder python - Guide
3 réponses
econs
- Messages postés
- 4030
- Date d'inscription
- mardi 13 mai 2003
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2008
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
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