Hallo, Kannst du auch so lösen:
Code:
Dim D As Word
...
D = 0
Do
If D = 0 And C = 915 Then
C = 999
Incr D
Else If D = 1 And C = 916 Then
C = 999
Incr D
Else If D = 2 And C = 916 Then
C = 999
Incr D
Else If D = 3 And C = 916 Then
C = 999
D = 0
End If
If C > 990 Then
C = 0
Toggle B
If B = 0 Then
Portb.1 = 1
Waitms 400
Portb.1 = 0
Else
Portb.0 = 1
Waitms 400
Portb.0 = 0
End If
End If
Loop
Kannst du beliebig ausbauen.
Ich kenn dein BASIC nicht, müsste aber auch ein Switch haben, geht auch an Stelle der verschachteltet If's
MfG Peter(TOO)
P.S. BASIC ist bei mir schon ewig her ....
Lesezeichen