Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

nettalk:scripting:morsecode [2006/02/01 21:08]
192.168.0.50
nettalk:scripting:morsecode [2006/02/01 21:08] (aktuell)
192.168.0.50
Zeile 1: Zeile 1:
 +====== Morsecode ======
  
 +Der Text muss mit AltGr+M gesendet werden damit er konvertiert wird
 +
 +<code vb>
 +#​NewScriptBegin Morsecode
 +
 +Function Translate(Text)
 +  StrOut=""​
 +  i=1
 +  do until i > len(Text)
 +    a=0
 +    C=AscW(mid(Text,​i,​1))
 +    if mid(Text,​i,​2)="​je"​ and a=0 Then
 +      C=1077
 +      a=2
 +    End if
 +    if mid(Text,​i,​4)="'​sch"​ and a=0 Then
 +      C=1078
 +      a=4
 +    End if
 +    if mid(Text,​i,​2)="​ch"​ and a=0 Then
 +      C=1093
 +      a=2
 +    end if
 +    if mid(Text,​i,​4)="​tsch"​ and a=0 Then
 +      C=1095
 +      a=4
 +    end if
 +    if mid(Text,​i,​4)="​scht"​ and a=0 Then
 +      C=1097
 +      a=4
 +    end if
 +    if mid(Text,​i,​3)="​sch"​ and a=0 Then
 +      C=1096
 +      a=3
 +    End if
 +    if mid(Text,​i,​2)="​ie"​ and a=0 Then
 +      C=1099
 +      a=2
 +    End if
 +    if mid(Text,​i,​2)="​je"​ and a=0 Then
 +      C=1101
 +      a=2
 +    End if
 +    if mid(Text,​i,​2)="​ju"​ and a=0 Then
 +      C=1102
 +      a=2
 +    End if
 +    if mid(Text,​i,​2)="​ja"​ and a=0 Then
 +      C=1103
 +      a=2
 +    End if
 +    if mid(Text,​i,​2)="​jo"​ and a=0 Then
 +      C=1105
 +      a=2
 +    End if
 +    if a=0 Then
 +      a=1
 +      tch=mid(Text,​i,​1)
 +      if tch="​a"​ Then C=1072
 +      if tch="​b"​ Then C=1073
 +      if tch="​w"​ Then C=1074
 +      if tch="​v"​ Then C=1074
 +      if tch="​g"​ Then C=1075
 +      if tch="​d"​ Then C=1076
 +      if tch="​s"​ Then C=1079
 +      if tch="​i"​ Then C=1080
 +      if tch="​j"​ Then C=1081
 +      if tch="​k"​ Then C=1082
 +      if tch="​l"​ Then C=1083
 +      if tch="​m"​ Then C=1084
 +      if tch="​n"​ Then C=1085
 +      if tch="​o"​ Then C=1086
 +      if tch="​p"​ Then C=1087
 +      if tch="​r"​ Then C=1088
 +      if tch="​ß"​ Then C=1089
 +      if tch="​t"​ Then C=1090
 +      if tch="​u"​ Then C=1091
 +      if tch="​f"​ Then C=1092
 +      if tch="​z"​ Then C=1094
 +      if tch="'"​ Then C=1100
 +      if tch="​e"​ Then C=1077
 +    End if
 +    i=i+a
 +    StrOut=StrOut & C
 +  loop
 +  Translate=StrOut
 +End Function
 +
 +Sub KeyShortcut(KeyCode,​ Shift)
 +  if Shift=6 and KeyCode=Asc("​M"​) Then
 +    Send Translate(TextBox),​ FrontFrameID
 +    TextBox=""​
 +    skipevent
 +  End if
 +End Sub
 +</​code>​

Eigene Werkzeuge