$regfile = "m8def.dat"
'Указываем компилятору тип используемого МК.
$crystal = 1000000
'Указываем частоту тактового генератора 1 МГц.
'Кварц не подключен. МК работает от внутреннего тактового генератора 1 МГц(заводские установки).
Config Adc = Single , Prescaler = Auto , Reference = Avcc
'Проводим инициализацию АЦП
'Источник опорного напряжения выбран =5.12V
Config Portb.0 = Output
Pinb.0 = 0
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2
Config Lcd = 16 * 2
Cursor Off
'Указываем к каким именно портам подключен дисплей.
'Проводим инициализацию дисплея.(4 битный режим , 16 * 2 символа)
'Выключаем курсор чтоб не мелькал.
Config Timer1 = Timer , Prescale = 1024
Const Timer1pre = 64559
'прерывания 1раз в сек
Dim Charge As Word
Stop Timer1
Timer1 = Timer1pre
'предустановка счета
On Timer1 Pulse:
Start Timer1
Enable Interrupts
Enable Timer1
Do
Cls
Lcd "CHARG " ; Charge ; " ma/h"
Waitms 100
Loop
Pulse:
Stop Timer1
Timer1 = Timer1pre
Toggle Portb.0
'МИГАЕМ светодиодом 1раз в 2 секунды
Incr Charge
'считаем импульсы
Start Timer1
Return
End
