Visual Basic - Clave morse

Life is soft - evento anual de software empresarial
   
Vista:

Clave morse

Publicado por Nery (9 intervenciones) el 16/10/2009 02:21:06
buenos dias señores...acudo a ustedes por ayuda...soy un programador junior(beta :D) y nescesito ayuda para crear un traductor español - morse.. alguien puede hacerlo con detalles
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Clave morse

Publicado por juan carlos (518 intervenciones) el 16/10/2009 02:35:21
dame tu mail y te lo mando
mi mail es
mega.juca@hotmail.es
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Clave morse

Publicado por nery (9 intervenciones) el 16/10/2009 02:46:00
mi correo es nery_94espinola@hotmail.com
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Clave morse

Publicado por Christian (666 intervenciones) el 16/10/2009 02:48:35
algo asi? era facil media pila ehhh

Dim x As String
Dim b As String

For j = 1 To Len(Text1.Text)
x = Mid(Text1.Text, j, 1)

Select Case UCase(x)
Case Is = "A": b = b & "|" & ".-"
Case Is = "B": b = b & "|" & "-..."
Case Is = "C": b = b & "|" & "-.-."
Case Is = "D": b = b & "|" & "-.."
Case Is = "E": b = b & "|" & "."
Case Is = "F": b = b & "|" & "..-."
Case Is = "G": b = b & "|" & "--."
Case Is = "H": b = b & "|" & "...."
Case Is = "I": b = b & "|" & ".."
Case Is = "J": b = b & "|" & ".---"
Case Is = "K": b = b & "|" & "-.-"
Case Is = "L": b = b & "|" & ".-.."
Case Is = "M": b = b & "|" & "--"
Case Is = "N": b = b & "|" & "-."
Case Is = "O": b = b & "|" & "---"
Case Is = "P": b = b & "|" & ".--."
Case Is = "Q": b = b & "|" & "--.-"
Case Is = "R": b = b & "|" & ".-."
Case Is = "S": b = b & "|" & "..."
Case Is = "T": b = b & "|" & "-"
Case Is = "U": b = b & "|" & "..-"
Case Is = "V": b = b & "|" & "...-"
Case Is = "W": b = b & "|" & ".--"
Case Is = "X": b = b & "|" & "-..-"
Case Is = "Y": b = b & "|" & "-.--"
Case Is = "Z": b = b & "|" & "--.."
Case Is = "0": b = b & "|" & "-----"
Case Is = "1": b = b & "|" & ".----"
Case Is = "2": b = b & "|" & "..---"
Case Is = "3": b = b & "|" & "...--"
Case Is = "4": b = b & "|" & "....-"
Case Is = "5": b = b & "|" & "....."
Case Is = "6": b = b & "|" & "-...."
Case Is = "7": b = b & "|" & "--..."
Case Is = "8": b = b & "|" & "---.."
Case Is = "9": b = b & "|" & "----."
Case Is = ".": b = b & "|" & ".-.-.-"
Case Is = ",": b = b & "|" & "--..--"
Case Is = "?": b = b & "|" & "..--.."
Case Is = "=": b = b & "|" & "-...-"
Case Is = "-": b = b & "|" & "-....-"
Case Is = "/": b = b & "|" & "-..-."
Case Is = "_": b = b & "|" & "..--.-"
Case Is = "'": b = b & "|" & ".----."
Case Is = "!": b = b & "|" & "-.-.--"
Case Is = ":": b = b & "|" & "---..."
Case Is = ";": b = b & "|" & "-.-.-."

End Select


Next
Text2.Text = b
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Clave morse

Publicado por Eru (1 intervención) el 18/10/2009 21:40:51
Nery! sabia que estabas desesperado jaja! holiii.....yo te ayudo si quieres....llamame
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar