Witam.
Mam taki problem.
Chce zrobić układ który po stwierdzeniu zbocza opadającego i odliczeniu opóźnienia ( 1-1000ms ) zmieni stan 2 portów na przeciwny.
Czas zwłoki jest zmienny ale w tym nie problem.
Więc po uruchomieniu jest porx=1 porty=0 po podaniu zbocza ( zwarcie do masy) układ zamienia diody w nieskończoność sam.
Co robię nie tak?? w C działa bez problemów
Dzięki.
Mam taki problem.
Chce zrobić układ który po stwierdzeniu zbocza opadającego i odliczeniu opóźnienia ( 1-1000ms ) zmieni stan 2 portów na przeciwny.
Czas zwłoki jest zmienny ale w tym nie problem.
Więc po uruchomieniu jest porx=1 porty=0 po podaniu zbocza ( zwarcie do masy) układ zamienia diody w nieskończoność sam.
Co robię nie tak?? w C działa bez problemów
$crystal = 8000000
$regfile = "m8def.dat"
Config Timer0 = Timer , Prescale = 64 , co 0,002s
Config Timer1 = Counter , Edge = Falling
Dim Wartosc As Word
Config Portb.1 = Output
Reset Portb.1
Config Portb.2 = Output
Set Portb.2
Config Pinb.0 = Input
Set Pinb.0
Dim Licznik As Integer
On Timer0 Timer0_int
Enable Interrupts
Timer0 = 6
Licznik = 0
Wartosc = 0
Counter1 = 0
Do
Counter1 = Wartosc
If Wartosc = 1 Then
Counter1 = 0
Wartosc = 0
Enable Timer0
End If
Loop
Timer0_int:
Counter0 = Counter0 + 6
Incr Licznik
If Licznik = 50 Then '100ms
Toggle Portb.1
Toggle Portb.2
disable timer0
Licznik = 0
End If
Return
Dzięki.