" : morsCodF = morsCodF + " v"Ĭase " -.-" : morsCodF = morsCodF + " x"Ĭase " -.-" : morsCodF = morsCodF + " y"Ĭase " -." : morsCodF = morsCodF + " z" " : morsCodF = morsCodF + " p"Ĭase " -.-" : morsCodF = morsCodF + " q"Ĭase ". St = "Preklad dle funkce " + Chr(10) + veta + Chr(10)įunction morsCodF(morsC As String) As StringĬase " -." : morsCodF = morsCodF + " b"Ĭase " -.-." : morsCodF = morsCodF + " c"Ĭase ". 'morsCod = InputBox("Enter the morse code.") Split the string morsCod with "/" as separator Public Class Form1ĭim veta As String, morsCod As String, st As String " : morsCodF = morsCodF + " w"Ĭase " -.-/" : morsCodF = morsCodF + " x"Ĭase " -.-/" : morsCodF = morsCodF + " y"Ĭase " -./" : morsCodF = morsCodF + " z"Ĭode should translate whole word or sentence, but instead is translating only part of the text. /" : morsCodF = morsCodF + " p"Ĭase " -.-/" : morsCodF = morsCodF + " q"Ĭase ". /" : morsCodF = morsCodF + " l"Ĭase " -/" : morsCodF = morsCodF + " o"Ĭase ". " : morsCodF = morsCodF + " j"Ĭase " -.-/" : morsCodF = morsCodF + " k"Ĭase ". /" : morsCodF = morsCodF + " f"Ĭase " -./" : morsCodF = morsCodF + " g"Ĭase ". / -/ (morsC.Length)Ĭase " -./" : morsCodF = morsCodF + " b"Ĭase " -.-./" : morsCodF = morsCodF + " c"Ĭase " -./" : morsCodF = morsCodF + " d"Ĭase ".
I believe the problem is with "oddel" which should indicated how many letters should be cut in Mid(morsC, i, oddel), while selecting the case.Ĭode should be able to translate this >…./. Using below code, some of the letters in the text stays untranslated. I am trying to translate Morse code into text in VB.net.
0 kommentar(er)
