Witam.
Zaczynam naukę Bascoma i napisałem dzisiaj taki programik.
Chce go stosowac w samochodzie jako buzer przypominający o włączeniu i o wyłączeniu świateł, i jako dodatek w postaci diody imitującej alarm.
Mam takie wątpliwości czy program nie zatrzyma sie na pierwszej pętli
DO
LOOP
Jak by komuś chciało się sprawdzic i napisac co robie źle to był bym wdzięczny.
W poniedziałek będe miał programator a w międzyczasie chciałem go udoskonalic.
Zaczynam naukę Bascoma i napisałem dzisiaj taki programik.
Chce go stosowac w samochodzie jako buzer przypominający o włączeniu i o wyłączeniu świateł, i jako dodatek w postaci diody imitującej alarm.
Mam takie wątpliwości czy program nie zatrzyma sie na pierwszej pętli
DO
LOOP
Jak by komuś chciało się sprawdzic i napisac co robie źle to był bym wdzięczny.
W poniedziałek będe miał programator a w międzyczasie chciałem go udoskonalic.
$regfile = "attiny2313.dat" 'typ proca
$crystal = 1000000 'Taktowanie
Config Portb = Input 'port b jako wejścia
Portb = &B00000000 'wszędzie stan spoczynkowy-0
Config Portd = Output 'port d jako wyjścia
Portd = &B0000000 'wszędzie stan spoczynkowy-0
Do
If Pinb.0 = 0 And Pinb.1 = 0 Then 'migacz imitujący diode alarmu
Waitms 1000 'gdy zapłon i swiatła wyłączone
Toggle Portd.0
return
End If
Loop
Do
If Pinb.0 = 0 And Pinb.1 = 1 Then 'jeśli zapłon wyłączony i światła włączone
Gosub Program1 'przejdź do programu1
Program1:
Waitms 1000
Toggle Portd.1
Return
End If
Loop
Do
If Pinb.0 = 1 And Pinb.1 = 0 Then 'jeśli zapłon włączony i światła wyłączone
Gosub Program2 'przejdź do programu2
Program2:
Portd.1 = 1
Waitms 1000
Return
End If
Loop
