схема частотомера:
http://ugolok-mastera.ru/proekt/freq_50_Hz.htm
$regfile = "2313def.dat" ' Частотомер 50.00 Герц
$crystal = 4000000 ' компилятор BASCOM
In_hertz Alias Pind.6
Led7_segm1 Alias Portd.4 ' Автор:
Led7_segm2 Alias Portd.3 ' 2011-11 Для Эл.сетей города
Led7_segm3 Alias Portd.1
Led7_segm4 Alias Portd.0
Led_port Alias Portb
Declare Sub Byte2led(data_2byte As Word)
Dim Tempb As Byte , Data_2byte As Word , Tempw As Word
Dim Data_1 As Byte , Data_2 As Byte , Data_3 As Byte , Data_4 As Byte
Dim Tyscha As Byte , Sotka As Byte , Desaytka As Byte , Edinica As Byte , Timercounter As Single
Config Portb = Output : Portb = 255
Config Pind.6 = Input
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.0 , Rs = Portb.1
Config Lcd = 16 * 2 'configure lcd screen
Config Timer1 = Timer , Prescale = 8 , Capture Edge = Rising
On Capture1 Captmr
Enable Capture1
Enable Interrupts ' разрешаем прерывания и включаем таймер
'Config Watchdog = 1024 : Start Watchdog ' защита от зависания
Lcd "Start..."
' ===== С Т А Р Т =======
Start_main_prog:
Cls
Timercounter = 25000000 \ Timercounter
Tempw = Timercounter
Lcd Tempw
Goto Start_main_prog
' =====================
Captmr: ' Считаем импульсы, как-бы наполняем пачками между импульсами
Timercounter = Capture1
Timer1 = 0
Return
