Witam mam problem z programem który nie dzia³a :( na INT1 podajê przerwania od czujnika obrotów, w przerwaniu T0 zliczam czas pomiêdzy przerwaniami, w pêtli g³ównej zasilam silnik, ale to tylko w teorii, pomó¿cie mi znale¼æ b³±d.... Z góry dziêkujê
$regfile = "m8def.dat" $crystal = 8000000 Config Pinb.1 = Output Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Disconnect , Prescale = 1 Config Timer0 = Timer , Prescale = 256 Config Int1 = Falling
On Int1 Sterowanie On Timer0 Okres
Enable Interrupts Enable Int1 Enable Timer Start Timer0
Dim Okr As Byte Dim Licznik As Byte
Do If Okr > 180 Then Pwm1a = 200 Else Pwm1a = 0 End If Loop End
Sterowanie: Enable Interrupts Okr = Licznik Licznik = 0 Return
Okres: Load Timer0 = 40 If Licznik < 255 Then Incr Licznik Else Licznik = 255 End If Return