Von |
matikinfor |
Am |
23. April 2008 um 17:52:41 |
Frage |
Ich bin gerade am Programmieren eines Morsecodierers und habe ein Problem.
Text2 ist mein ausgabefeld (da sollen morsezeichen rein) text1 ist meine eingabe hold ist ein Teilstring encode(hold) verweist auf eine Prozedur, in der ich den Buchstaben Morsezeichen zuteile.Private Sub Decode_Click() 'Kodierung In Morse On Error Resume Next text2.Text = "" FullText = "" TextNum = Len(text1.Text) For i = 0 To TextNum Temp = Left(text1.Text, Len(text1.Text) - Len(Right(text1.Text, Len(text1.Text) - (i + 1)))) Hold = Right(Temp, Len(Temp) - i) Temp2 = encode(Hold) FullText = FullText & Temp2 & " " Next i text2.Text = FullText End Sub Mein Problem ist, dass wenn ich das Resume on Error Next entferne das Programm einen fehler meldet und bei Debug auf
Temp = Left(text1.Text, Len(text1.Text) - Len(Right(text1.Text, Len(text1.Text) - (i + 1))))
verweist.
Könnt Ihr mir sagen was ich tun muss, damit das programm ohne On Error Resume Next funktioniert.
|
|