Witam.
Proszę o sprawdzenie kodu:
Założenia:
Po po podaniu "1" na pd0 uruchamia się podprogram "pr1"
Po podaniu drugi raz "1" na pd0 resetują się używane porty i wszystko zaczyna się od nowa.
Po skompilowaniu i zaprogramowaniu układ działa tak że czasami działa dobrze a czasami po podaniu drugiej "1" przechodzi do "pr1" a powinien do "pr2".
Proszę o pomoc.
pozdrawiam.
Proszę o sprawdzenie kodu:
$regfile = "m8def.dat"
Config Pind.0 = Input
Pind.0 = 0
Config Pinb.1 = Output
Pinb.1 = 0
Config Pinb.2 = Output
Pinb.2 = 0
Do
Debounce Pind.0 , 1 , Pr1 , Gosub
Debounce Pind.0 , 1 , Pr2 , Gosub
Loop
Pr1:
Portb.1 = 1
Waitms 100
Portb.1 = 0
Waitms 100
Portb.2 = 1
Waitms 100
Portb.2 = 0
Waitms 100
Portb.1 = 1
Portb.2 = 1
Return
Pr2:
Reset Portb.1
Reset Portb.2
Return
End
Założenia:
Po po podaniu "1" na pd0 uruchamia się podprogram "pr1"
Po podaniu drugi raz "1" na pd0 resetują się używane porty i wszystko zaczyna się od nowa.
Po skompilowaniu i zaprogramowaniu układ działa tak że czasami działa dobrze a czasami po podaniu drugiej "1" przechodzi do "pr1" a powinien do "pr2".
Proszę o pomoc.
pozdrawiam.