Witam.
Uruchomiłem mój prototypowy zegar widmowy lecz mam mały problem. Pozycjonowanie obrazu zrealizowałem za pomocą halotronu podpiętego pod int0. Problem polega na tym że wraz z ustawiniem wartości zmiennej A w przerwaniu od int0 wartość timera1 odmierzająca stałe odcinki czasu nie zostaje resetowana co skutkuje drżeniem obrazu. W jaki sposób w bascomie zresetować wartość timera?próbowałem wszystkimi znanymi mi sposobami jak load timer1=0, counetr1=0, timer1=0 load counter1=0 i nic...
Uruchomiłem mój prototypowy zegar widmowy lecz mam mały problem. Pozycjonowanie obrazu zrealizowałem za pomocą halotronu podpiętego pod int0. Problem polega na tym że wraz z ustawiniem wartości zmiennej A w przerwaniu od int0 wartość timera1 odmierzająca stałe odcinki czasu nie zostaje resetowana co skutkuje drżeniem obrazu. W jaki sposób w bascomie zresetować wartość timera?próbowałem wszystkimi znanymi mi sposobami jak load timer1=0, counetr1=0, timer1=0 load counter1=0 i nic...
$crystal = 16000000
$regfile "m8def.dat"
Config Timer0 = Timer , Prescale = 8
Config Timer1 = Timer , Prescale = 8 , Compare A = Toggle , Clear Timer = 1
Config Int0 = Rising
Config Int1 = Rising
On Int0 Poz
On Int1 O
Enable Int1
Enable Int0
Enable Interrupts
Compare1a = 600
Config Portc = Output
Config Portb.2 = Output
Config Portb.1 = Output
Config Portd.2 = Input
Config Portd.3 = Input
Config Portd.7 = Output
Set Portd.3
Dim A As Byte
Dim T As Word
Dim W As Single
Dim U As Word
Dim B As Word
Dim C As Word
C = 1
A = 1
B = 0
Do
Portc = Lookup(a , Tab)
Portd = Lookup(a , Tab2)
If A = 10 Then A = 0
Loop
Poz:
A = 1
Timer1 = 0
Return
O:
Incr A
Return
Tab:
Data &B00000001 , &B00000011 , &B00000011 , &B00000101 , &B00000101
Data &B00001001 , &B00001001 , &B00010001 , &B00111111 , &B00000001
Tab2:
Data &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000
Data &B00000000 , &B00000000 , &B00000000 , &B00000110 , &B00000000