Problem mit VB

[nexdh]

hi,
ich hab 3 LEDs an den COM angeschlossen die mit DTR ; RTS ; TXD angesteuert werden.
Wenn ich command1 drücke beginnt das Programm.
Wechselt auch von ROT zu GRÜN nach 20 sec. ohne Probleme,
aber nach 150 sec. GRÜN (insgesamte Laufzeit: 170 sec.) geht die GRÜNE LED aus und nix passiert weiter.
Aber es soll nach 200 sec. auf GELB wechseln.

Woran liegt es?

Timer.Intervall ist auf 1000 gestellt (also 1 sec.)

Dim Zeit As Integer

Private Sub Form_Unload(Cancel As Integer)
  CLOSECOM
End Sub

Private Sub Command1_Click()
  OPENCOM ("COM1,1200,N,8,1")
  TXD 0
  RTS 0
  DTR 0
  Timer1.Enabled = True
  Zeit = 0
  End Sub

Private Sub Command2_Click()
  Timer1.Enabled = False
  CLOSECOM
End Sub

Private Sub Timer1_Timer()
  Zeit = Zeit + 1
  If Zeit = 1 Then rot
  If Zeit = 20 Then grün
  If Zeit = 200 Then gelb
  If Zeit = 240 Then Zeit = 0
End Sub

Sub rot()
DTR 1
RTS 0
TXD 0
End Sub

Sub gelb()
DTR 0
RTS 1
TXD 0
End Sub

Sub grün()
DTR 0
RTS 0
TXD 1
End Sub

Thx nex

 

[wincnc]

Versuch mal das

Private Sub Timer1_Timer()
Zeit = Zeit + 1
If Zeit >= 1 and Zeit <= 20 Then rot
If Zeit >= 20 and Zeit <= 200 Then grün
If Zeit >= 200 and Zeit <= 240 Then gelb
If Zeit >= 240 Then Zeit = 0
End Sub