Museum

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

About the Author

Uwe

Uwe beschäftigt sich seit vielen Jahren mit Linux und Webdesign, seit 2006 benutzt er WordPress zum schreiben eines 'Tagebuchs'. Tätig ist Uwe als Webmaster und Netzwerkadministrator, er arbeitet und lebt seit 2001 in Oberhausen. In seiner Freizeit ist er viel mit dem Mountainbike und dem Fotoapparat unterwegs.

Schreibe einen Kommentar

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