Get string morse code : String « Data Type « VB.Net Tutorial

1. VB.Net Tutorial
2. Data Type
3. String

Public Class Tester
    Public Shared Sub Main
        Dim source As String = "Hello world!"
        Dim characters As String = _
            "~ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789.,:?'-/"""
        Dim morse() As String = { _
            "?", ".-", "-...", "-.-.", "-..", ".", "..-.", "--.", "....", _
            "..", ".---", "-.-", ".-..", "--", "-.", "---", ".--.", _
            "--.-", ".-.", "...", "-", "..-", "...-", ".--", "-..-", _
            "-.--", "--..", "-----", ".----", "..---", "...--", _
            "....-", ".....", "-....", "--...", "---..", "----.", _
            ".-.-.-", "--..--", "---...", "..--..", ".----.", _
            "-....-", "-..-.", ".-..-."}

        Dim counter As Integer
        Dim position As Integer

        For counter = 0 To source.Length - 1
            position = characters.IndexOf(Char.ToUpper( _
               source.Chars(counter)))
            If (position < 0) Then position = 0
            Console.Write (source.Substring(counter, 1) & "   ")
            Console.WriteLine(morse(position))
        Next counter

    End Sub


End Class

H   ....
e   .
l   .-..
l   .-..
o   ---
    ?
w   .--
o   ---
r   .-.
l   .-..
d   -..
!   ?