Telegrafen-Alphabet

Hier also die nun komplette VisualBasic-Funktion.:

Function Telegraph (phrase as String)
dim i as  Integer
dim m as String
dim neu as String
 
for i=1 to Len (phrase)
   m= mid(phrase, i, 1)
   Select Case m
    Case "0" 
      neu= neu & ":null:" 
    Case "1" 
      neu= neu & ":eins:" 
    Case "2" 
      neu= neu & ":zwei:" 
    Case "3" 
      neu= neu & ":drei:" 
    Case "4" 
      neu= neu & ":vier:" 
    Case "5" 
      neu= neu & ":fuenf:" 
    Case "6" 
      neu= neu & ":sechs:" 
    Case "7" 
      neu= neu & ":sieben:" 
    Case "8" 
      neu= neu & ":acht:" 
    Case "9" 
      neu= neu & ":neun:" 
    Case "a" 
      neu= neu & ":anton:" 
    Case "A" 
      neu= neu & ":Anton:" 
    Case "ä" 
      neu= neu & ":ärger:" 
    Case "Ä" 
      neu= neu & ":Ärger:" 
    Case "b" 
      neu= neu & ":berta:" 
    Case "B" 
      neu= neu & ":Berta:" 
    Case "c" 
      neu= neu & ":cäsar:" 
    Case "C" 
      neu= neu & ":Cäsar:" 
    Case "ch" 
      neu= neu & ":charlotte:" 
    Case "Ch" 
      neu= neu & ":Charlotte:" 
    Case "d" 
      neu= neu & ":dora:" 
    Case "D" 
      neu= neu & ":Dora:" 
    Case "e" 
      neu= neu & ":emil:" 
    Case "E" 
      neu= neu & ":Emil:" 
    Case "?" 
      neu= neu & ":eszett:" 
    Case "?" 
      neu= neu & ":Eszett:" 
    Case "f" 
      neu= neu & ":friedrich:" 
    Case "F" 
      neu= neu & ":Friedrich:" 
    Case "g" 
      neu= neu & ":gustav:" 
    Case "G" 
      neu= neu & ":Gustav:" 
    Case "h" 
      neu= neu & ":heinrich:" 
    Case "H" 
      neu= neu & ":Heinrich:" 
    Case "i" 
      neu= neu & ":ida:" 
    Case "I" 
      neu= neu & ":Ida:" 
    Case "j" 
      neu= neu & ":julius:" 
    Case "J" 
      neu= neu & ":Julius:" 
    Case "k" 
      neu= neu & ":kaufmann:" 
    Case "K" 
      neu= neu & ":Kaufmann:" 
    Case "l" 
      neu= neu & ":ludwig:" 
    Case "L" 
      neu= neu & ":Ludwig:" 
    Case "m" 
      neu= neu & ":martha:" 
    Case "M" 
      neu= neu & ":Martha:" 
    Case "n" 
      neu= neu & ":nordpol:" 
    Case "N" 
      neu= neu & ":Nordpol:" 
    Case "ö" 
      neu= neu & ":ökonom:" 
    Case "Ö" 
      neu= neu & ":Ökonom:" 
    Case "o" 
      neu= neu & ":otto:" 
    Case "O" 
      neu= neu & ":Otto:" 
    Case "p" 
      neu= neu & ":paula:" 
    Case "P" 
      neu= neu & ":Paula:" 
    Case "q" 
      neu= neu & ":quelle:" 
    Case "Q" 
      neu= neu & ":Quelle:" 
    Case "r" 
      neu= neu & ":richard:" 
    Case "R" 
      neu= neu & ":Richard:" 
    Case "sch" 
      neu= neu & ":schule:" 
    Case "Sch" 
      neu= neu & ":Schule:" 
    Case "s" 
      neu= neu & ":siegfried:" 
    Case "S" 
      neu= neu & ":Siegfried:" 
    Case "t" 
      neu= neu & ":theodor:" 
    Case "T" 
      neu= neu & ":Theodor:" 
    Case "ü" 
      neu= neu & ":übermut:" 
    Case "Ü" 
      neu= neu & ":Übermut:" 
    Case "u" 
      neu= neu & ":ulrich:" 
    Case "U" 
      neu= neu & ":Ulrich:" 
    Case "v" 
      neu= neu & ":viktor:" 
    Case "V" 
      neu= neu & ":Viktor:" 
    Case "w" 
      neu= neu & ":wilhelm:" 
    Case "W" 
      neu= neu & ":Wilhelm:" 
    Case "x" 
      neu= neu & ":xanthippe:" 
    Case "X" 
      neu= neu & ":Xanthippe:" 
    Case "y" 
      neu= neu & ":ypsilon:" 
    Case "Y" 
      neu= neu & ":Ypsilon:" 
    Case "Z" 
      neu= neu & ":Zeppelin:" 
    Case "z" 
      neu= neu & ":zeppelin:" 
    Case Else
      neu= neu & ":" & mid(phrase, i, 1) & ":" 
  End Select
Next
Telegraph = neu
End Function

Seiten: 1 2

Gelesen: 175 · heute: 4 · zuletzt: Fri 23.August 2019

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.