roboforum.ru

$regfile = "m128def.dat"
$crystal = 14745600                                         

Config Lcd = 16 * 1a
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2

Config Timer0 = Counter , Edge = Falling
Config PortE.0 = Input                                     
PortE.0 = 1                                                 


Do
   Cls
   Lcd Timer0
   Waitms 100
Loop
End

$regfile = "m128def.dat"
$crystal = 14745600
$lib "glcdKS108.lib"
' configure lcd display
Config Graphlcd = 128 * 64sed , Dataport = Porta , Controlport = Portc , Ce = 1 , Ce2 = 0 , Cd = 4 , Rd = 3 , Reset = 2 , Enable = 5
Setfont Font8x8

Config Portd = Input
Const Reload = 62500


Dim Count As Integer
Dim Rez As Single
'Oaeia? n?aaaouaaao ea?ao? naeoiao
Config Timer1 = Timer , Prescale = 64
Ocr1ah = High(reload)
Ocr1al = Low(reload)
Tccr1a = 0
Set Tccr1b.3

On Compare1a Timer1_isr
On Int0 Countimp

Enable Compare1a
Enable Int0
Enable Interrupts

Cls

Do

Loop
'===== залетаем каждую секунду=========
Timer1_isr:
Disable Int0
Rez = 1 / Count
Count = 0
Cls
Lcdat 3 , 1 , Rez
Enable Int0
Return

'============ сюда при приходе импульса на PD2
Countimp:
Incr Count
Return
'============================================