Witam! Mam taki kod z tego tematu https://www.elektroda.pl/rtvforum/topic443677.html delikatnie przerobiony.
Efekt taki że po właczeniu wszystko niby jest ok, zapala się miernik częstotliwości, potem częstotliwość i 840 HZ i się za chwile zeruje...ale co dalej? gdzie dopiąć się na wejście? ja sobie zmieniłem 2 porty PC4 i PC0 bo tak mi pasuje, i przerobiłem go z ATtiny2313 ale to chyba nie problem. Podpowiedzcie gdzie się wpiąć z częstotliwością analizując kod. Pozdrawiam
$crystal = 12000000
Cursor Off
Config Portc.4 = 1
Config Portc.0 = 0
Portc.0 = 1
Portc.4 = 1
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
Kasuj Alias Portc.4
Mnoznik Alias Pinc.0
Cls
Lcd " MIERNIK"
Lowerline
Lcd " CZESTOTLIWOSCI"
Wait 1
Cls
Enable Interrupts
Enable Timer1
Enable Timer0 'Pomiar czasu
Counter1 = Licznik
Do
Set Kasuj
Loop
End
Czas:
Stop Timer0
Stop Timer1
Czestotliwosc = Czestotliwosc * 256
Czestotliwosc = Czestotliwosc + Counter0
If Mnoznik = 0 Then
Czestotliwosc = Czestotliwosc * 4
Else
Czestotliwosc = Czestotliwosc * 40
End If
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
Reset Kasuj : Waitms 2 : Set Kasuj 'Kasuj przerzutniki
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 "
ReturnEfekt taki że po właczeniu wszystko niby jest ok, zapala się miernik częstotliwości, potem częstotliwość i 840 HZ i się za chwile zeruje...ale co dalej? gdzie dopiąć się na wejście? ja sobie zmieniłem 2 porty PC4 i PC0 bo tak mi pasuje, i przerobiłem go z ATtiny2313 ale to chyba nie problem. Podpowiedzcie gdzie się wpiąć z częstotliwością analizując kod. Pozdrawiam
Pozdrawiam i dzięki za pomoc.
