witam
Program steruje dwoma diodami(Led1 Portd.2, Led2 Portd.3). Klik.S1-->>Wł. led -->>klik.S1-->>Wył.led, tak samo z S2. Przycisk S3 jest 'nadrzędny'. Kliknięcie S3 wyłącza obydwa Ledy jeśli którakolwiek zapalona, ponowne kliknięcie S3 włącza obydwa Ledy. 'Na żywo' S3 zapala lub gasi ledy po kilku kliknięciach! Czy ktoś może mnie ukierunkować co nie tak?
Program steruje dwoma diodami(Led1 Portd.2, Led2 Portd.3). Klik.S1-->>Wł. led -->>klik.S1-->>Wył.led, tak samo z S2. Przycisk S3 jest 'nadrzędny'. Kliknięcie S3 wyłącza obydwa Ledy jeśli którakolwiek zapalona, ponowne kliknięcie S3 włącza obydwa Ledy. 'Na żywo' S3 zapala lub gasi ledy po kilku kliknięciach! Czy ktoś może mnie ukierunkować co nie tak?
$regfile = "m8def.dat"
$crystal = 1000000
Config Portd = &B00001100
Portd = &B00011111
Dim A As Byte
S1 Alias Pind.0
S2 Alias Pind.1
S3 Alias Pind.4
A = 0
Do
If S3 = 0 And A = 0 Then
If Pind.2 = 0 Or Pind.3 = 0 Then
Portd.2 = 1
Portd.3 = 1
Elseif Pind.2 = 1 And Pind.3 = 1 Then
Portd.2 = 0
Portd.3 = 0
End If
A = 1
End If
If S3 = 0 And A = 1 Then
Waitms 10
Toggle Portd.2
Toggle Portd.3
End If
Debounce S1 , 0 , Pr1 , Sub
Debounce S2 , 0 , Pr2 , Sub
Loop
End
Pr1:
Toggle Portd.2
A = 0
Return
Pr2:
Toggle Portd.3
A = 0
Return