31 lines
1.2 KiB
VB.net
31 lines
1.2 KiB
VB.net
Module Module1
|
|
|
|
Sub Main()
|
|
Dim word = "sos"
|
|
Dim codes As New Dictionary(Of String, String) From {
|
|
{"a", ".- "}, {"b", "-... "}, {"c", "-.-. "}, {"d", "-.. "},
|
|
{"e", ". "}, {"f", "..-. "}, {"g", "--. "}, {"h", ".... "},
|
|
{"i", ".. "}, {"j", ".--- "}, {"k", "-.- "}, {"l", ".-.. "},
|
|
{"m", "-- "}, {"n", "-. "}, {"o", "--- "}, {"p", ".--. "},
|
|
{"q", "--.- "}, {"r", ".-. "}, {"s", "... "}, {"t", "- "},
|
|
{"u", "..- "}, {"v", "...- "}, {"w", ".-- "}, {"x", "-..- "},
|
|
{"y", "-.-- "}, {"z", "--.. "}, {"0", "-----"}, {"1", ".----"},
|
|
{"2", "..---"}, {"3", "...--"}, {"4", "....-"}, {"5", "....."},
|
|
{"6", "-...."}, {"7", "--..."}, {"8", "---.."}, {"9", "----."}
|
|
}
|
|
|
|
For Each c In word.ToCharArray
|
|
Dim rslt = codes(c).Trim
|
|
For Each c2 In rslt.ToCharArray
|
|
If c2 = "." Then
|
|
Console.Beep(1000, 250)
|
|
Else
|
|
Console.Beep(1000, 750)
|
|
End If
|
|
System.Threading.Thread.Sleep(50)
|
|
Next
|
|
Next
|
|
End Sub
|
|
|
|
End Module
|