Witam,
Otóż wykorzystuję licznik Timer0, do liczenia (aby wygenerować liczbę pseudolosową NIE wykorzystuję do przerwań!)
Więc wydaje mi się, że może być wykorzystywany razem z odbiorem RC5
Jak naciśnie się przycisk na pilocie, to
___rseed = Timer0
Czyli podstawa generatora RDM, jest taka jak licznik,po prostu wygeneruje mi się l za każdym razem (bo nikt nie naciska w tym samym momencie tego przycisku) losowa liczba.
Mam teraz dziwny problem
Mam Attiny2313 pracujący na wewnętrznym oscylatorze 8MHz, który może być dzielony przez 8,
Więc raz jest 1Mhz, a raz mogę ustawić 8Mhz.
Teraz gdy mam taki kod:
To mogę odbierać Wszystkie przyciski z klawiatury,
Natomiast gdy przestawię
Config Timer0 = Timer , Prescale = 1 na
Config Timer0 = Timer , Prescale = 8 lub 64 lub 256 lub 1024
To działa mi większość klawiszy (tak z 90%)
ale nie działa mi przycisk OK, i przewijanie do tyłu (używam pilota do magnetowidu)
Gdy kwarc ustawię na 8Mhz
To aby działały wszystkie przyciski muszę ustawić
Config Timer0 = Timer , Prescale = 8 a nie działają wartości takie jak:
Config Timer0 = Timer , Prescale = 1 lub 64 lub 256 lub 1024
Dlaczego tak się dzieje??
Otóż wykorzystuję licznik Timer0, do liczenia (aby wygenerować liczbę pseudolosową NIE wykorzystuję do przerwań!)
Więc wydaje mi się, że może być wykorzystywany razem z odbiorem RC5
Jak naciśnie się przycisk na pilocie, to
___rseed = Timer0
Czyli podstawa generatora RDM, jest taka jak licznik,po prostu wygeneruje mi się l za każdym razem (bo nikt nie naciska w tym samym momencie tego przycisku) losowa liczba.
Mam teraz dziwny problem
Mam Attiny2313 pracujący na wewnętrznym oscylatorze 8MHz, który może być dzielony przez 8,
Więc raz jest 1Mhz, a raz mogę ustawić 8Mhz.
Teraz gdy mam taki kod:
$regfile = "attiny2313.dat"
$crystal = 1000000
Config Lcd = 16 * 2
Rem Konfiguracja Lcd
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portd.1 , Rs = Portd.0
Config Rc5 = Pind.2
Enable Interrupts
'tu zmień
Config Timer0 = Timer , Prescale = 1
Rem Ustawienie Zmiennych
Dim Address As Byte , Command As Byte ,
Dim ___rseed As Word
Dim Wylosowana As Byte
Dim Ok As Byte
Do
Getrc5(address , Command)
Command = Command And &B01111111
Cls
Lcd Command
Lowerline
Loop
End
To mogę odbierać Wszystkie przyciski z klawiatury,
Natomiast gdy przestawię
Config Timer0 = Timer , Prescale = 1 na
Config Timer0 = Timer , Prescale = 8 lub 64 lub 256 lub 1024
To działa mi większość klawiszy (tak z 90%)
ale nie działa mi przycisk OK, i przewijanie do tyłu (używam pilota do magnetowidu)
Gdy kwarc ustawię na 8Mhz
To aby działały wszystkie przyciski muszę ustawić
Config Timer0 = Timer , Prescale = 8 a nie działają wartości takie jak:
Config Timer0 = Timer , Prescale = 1 lub 64 lub 256 lub 1024
Dlaczego tak się dzieje??
