Goblin
11.02.2006, 18:41
Private Sub Form_Load()
Timer1.Interval = Text2.Text
i = 1
Com.CommPort = 1
Com.Settings = "4800,N,8,1"
Com.PortOpen = True
Com.RThreshold = 1
Com.InputLen = 1
End Sub
Private Sub Timer1_Timer()
out = Mid(a, i, i + 15)
Com.Output = out & Chr(13) & Chr(10)
i = i + 1
If i > Len(a) - 15 Then i = 1
End Sub
bei "Com.Output = out & Chr(13) & Chr(10)" (a ist ein string) liegts: er sendet meinen string problemlos auf mein lcd, vorher kommt jedoch ein zeichen (auf meinem lcd sinds 3 senkrechte striche nebeneinanander). ein zeichen was ich ihm nicht in auftrag gegeben hab aber er sendet es egal was ich schicke immer vorher. was macht das zeichen, woher kommt es und wie krieg ich es weg?
Timer1.Interval = Text2.Text
i = 1
Com.CommPort = 1
Com.Settings = "4800,N,8,1"
Com.PortOpen = True
Com.RThreshold = 1
Com.InputLen = 1
End Sub
Private Sub Timer1_Timer()
out = Mid(a, i, i + 15)
Com.Output = out & Chr(13) & Chr(10)
i = i + 1
If i > Len(a) - 15 Then i = 1
End Sub
bei "Com.Output = out & Chr(13) & Chr(10)" (a ist ein string) liegts: er sendet meinen string problemlos auf mein lcd, vorher kommt jedoch ein zeichen (auf meinem lcd sinds 3 senkrechte striche nebeneinanander). ein zeichen was ich ihm nicht in auftrag gegeben hab aber er sendet es egal was ich schicke immer vorher. was macht das zeichen, woher kommt es und wie krieg ich es weg?