Czy wolisz polską wersję strony elektroda?
Nie, dziękuję Przekieruj mnie tam
Dla 2MHz teoretycznie wystarczy zegar 4MHz ale nic nie szkodzi żeby procek pracował przy np 16 lub MHz.
o wiele efektywniejsze jest zliczanie impulsów przez blok licznika (robi to niezależnie od wykonywanego programu) i tylko w włączać go i wyłączać w określonym przedziale czasu np 1s.
$regfile = "M8def.DAT"
$crystal = 11059200
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.5 , Db5 = Portb.4 , Db6 = Portb.3 , Db7 = Portb.2 , E = Portb.6 , Rs = Portb.7
Cursor Off
Dim Czestotliwosc As Long
Const Licznik = 22336
Config Timer1 = Timer , Prescale = 256
Config Timer0 = Counter , Edge = Falling
Deflcdchar 1 , 2 , 4 , 14 , 16 , 16 , 17 , 14 , 32 ' replace ? with number (0-7)
Deflcdchar 0 , 2 , 4 , 14 , 16 , 14 , 1 , 30 , 32
Deflcdchar 2 , 32 , 32 , 14 , 17 , 31 , 16 , 14 , 4 ' replace ? with number (0-7)
On Timer1 Czas
On Timer0 Zlicz
Cls
Lcd " MIERNIK"
Lowerline
Lcd " CZESTOTLIWOSCI"
Wait 1
Cls
Enable Interrupts
Enable Timer1
Enable Timer0 'Pomiar czasu
Counter1 = Licznik
Do
Loop
End
Czas:
Stop Timer0
Stop Timer1
Czestotliwosc = Czestotliwosc * 256
Czestotliwosc = Czestotliwosc + Counter0
Locate 1 , 2 : Lcd "Cz" ; Chr(2) ; "stotliwo" ; Chr(0) ; Chr(1)
If Czestotliwosc < 1000 Then Gosub Wyswietl_hz
If Czestotliwosc >= 1000 And Czestotliwosc < 1000000 Then Gosub Wyswietl_khz
If Czestotliwosc >= 1000000 Then Gosub Wyswietl_mhz
Czestotliwosc = 0
Counter0 = 0
Counter1 = Licznik
Start Timer0
Start Timer1
Return
Zlicz:
Incr Czestotliwosc
Return
Wyswietl_hz:
Locate 2 , 2
Lcd " " ; Czestotliwosc ; " "
Locate 2 , 9 : Lcd " Hz "
Return
Wyswietl_khz:
Locate 2 , 3
Lcd " " ; Czestotliwosc ; " "
Czestotliwosc = Czestotliwosc \ 1000
Locate 2 , 2
Lcd " " ; Czestotliwosc ; "."
Locate 2 , 11 : Lcd " kHz "
Return
Wyswietl_mhz:
Locate 2 , 3
Lcd Czestotliwosc ; " "
Czestotliwosc = Czestotliwosc \ 1000000
Locate 2 , 2
Lcd Czestotliwosc ; "."
Locate 2 , 11 : Lcd " MHz "
ReturnMatizz napisał:Jest to wartość początkowa licznika, jak doliczy do 65536 to wygeneruje przerwanie, a doliczy do tej wartości za 43200 impulsów zegara. Dla kwarcu 11.059MHz to da jakieś ~4ms (po uwzględnieniu dzielnika częstotliwości to da 1ms).Część programu już rozgryzłem, ale nie mam pojęcia skąd się wzięła stała Const Licznik = 22336 i dlaczego akurat tyle, jak to policzyć i od czego to zależy?
Matizz napisał:Bo counter0 zawiera liczbę impulsów która minęła od ostatniego przekręcenia licznika. Cały program to jakby programowo-sprzętowy licznik, sprzętowe jest młodsze 8bit, a programowe zmienna "Czestotliwosc". Równanie na wartość całego licznika wynosi "czestotliwosc*256+counter0".więc po co dodajemy do niej jeszcze wartość counter0
Czestotliwosc = Czestotliwosc * 256
Czestotliwosc = Czestotliwosc + Counter0
Czestotliwosc = Czestotliwosc * K
Select Case C
Case 1 : Czestotliwosc = Czestotliwosc + 455000
Case 2 : Czestotliwosc = Czestotliwosc - 455000
Case 3 : Czestotliwosc = Czestotliwosc + 10700000
Case 4 : Czestotliwosc = Czestotliwosc - 10700000
Case 5 : Czestotliwosc = Czestotliwosc
Case 6 : Czestotliwosc = Czestotliwosc + Pcz
End Select
