Hola, lo que pasa es que he hecho un codigo, el cual quiero que me convierta de Codigo Morse a Texto. Perp esto nop lo consigo, lo unico que me muestra es una serie de "E" y "T2, y lo que quiero es que me muestre el texto que debe ser, miren el codigo es
Código:
Public Class Form3
Private Sub ConvertirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConvertirToolStripMenuItem.Click
Dim x As String
Dim b As String
For j = 1 To Len(TextBox1.Text)
x = Mid(TextBox1.Text, j, 1)
TextBox2.Text = TextBox2.Text.ToUpper
Select Case x
Case ".-" : b = b & "A"
Case "-..." : b = b & "B"
Case "-.-." : b = b & "C"
Case "-.." : b = b & "D"
Case "." : b = b & "E"
Case "..-." : b = b & "F"
Case "--." : b = b & "G"
Case "...." : b = b & "H"
Case ".." : b = b & "I"
Case ".---" : b = b & "J"
Case "-.-" : b = b & "K"
Case ".-.." : b = b & "L"
Case "--" : b = b & "M"
Case "-." : b = b & "N"
Case "---" : b = b & "O"
Case ".--." : b = b & "P"
Case "--.-" : b = b & "Q"
Case ".-." : b = b & "R"
Case "..." : b = b & "S"
Case "-" : b = b & "T"
Case "..-" : b = b & "U"
Case "...-" : b = b & "V"
Case ".--" : b = b & "W"
Case "-..-" : b = b & "X"
Case "-.--" : b = b & "Y "
Case "--.." : b = b & "Z"
Case "-----" : b = b & "0"
Case ".----" : b = b & "1"
Case "..---" : b = b & "2"
Case "...--" : b = b & "3"
Case "....-" : b = b & "4"
Case "....." : b = b & "5"
Case "-...." : b = b & "6"
Case "--..." : b = b & "7"
Case "---.." : b = b & "8"
Case "----." : b = b & "9"
Case ".-.-.-" : b = b & "."
Case "--..--" : b = b & ","
Case "..--.." : b = b & "?"
Case "-...-" : b = b & "="
Case "-....-" : b = b & "-"
Case "-..-." : b = b & "/"
Case "..--.-" : b = b & "_"
Case ".----." : b = b & "'"
Case "-.-.--" : b = b & "!"
Case "---..." : b = b & ":"
Case "-.-.-." : b = b & ";"
End Select
Next
TextBox2.Text = b
End Sub
End Class
Ok, gracias...
Espero y me puedan ayudar con esto