Dim i As Integer
Dim char As String, testo As String
Dim l As Integer
Dim morse As String
Private Sub cmdcanc_Click()
Txttesto.Text = ""
Txtmorse.Text = ""
Txttesto.SetFocus
End Sub
Private Sub cmdtrad_Click()
morse = ""
testo = ""
l = Len(Txttesto.Text)
testo = LCase(Txttesto.Text)
For i = 1 To l
char = Mid(testo, i, 1)
Select Case char
Case "a"
morse = morse & ".-" & " "
Case "b"
morse = morse & "-..." & " "
Case "c"
morse = morse & "-.-." & " "
Case "d"
morse = morse & "-.." & " "
Case "e"
morse = morse & "." & " "
Case "f"
morse = morse & "..-." & " "
Case "g"
morse = morse & "--." & " "
Case "h"
morse = morse & "...." & " "
Case "i"
morse = morse & ".." & " "
Case "j"
morse = morse & ".---" & " "
Case "k"
morse = morse & "-.-" & " "
Case "l"
morse = morse & ".-.." & " "
Case "m"
morse = morse & "--" & " "
Case "n"
morse = morse & "-." & " "
Case "o"
morse = morse & "---" & " "
Case "p"
morse = morse & ".--." & " "
Case "q"
morse = morse & "--.-" & " "
Case "r"
morse = morse & ".-." & " "
Case "s"
morse = morse & "..." & " "
Case "t"
morse = morse & "-" & " "
Case "u"
morse = morse & "..-" & " "
Case "v"
morse = morse & "...-" & " "
Case "w"
morse = morse & ".--" & " "
Case "x"
morse = morse & "-..-" & " "
Case "y"
morse = morse & "-.--" & " "
Case "z"
morse = morse & "--.." & " "
End Select
Next i
Txtmorse.Text = morse
End Sub
Private Sub Txttesto_Change()
Txttesto.Text = LCase(Txttesto.Text)
If Txttesto.Text <> "" Then
cmdtrad.Enabled = True
Else
cmdtrad.Enabled = False
End If
End Sub