Прога такая. Позаимствовал у минибота.
- Код: Выделить всё
$regfile = "m16def.dat"
$crystal = 16000000
$lib "lcd4.lbx"
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.2 , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7
Config Lcd = 20 * 4
Cls
Cursor Off
Config Adc = Single , Prescaler = Auto , Reference = Internal
Dim Adc_temp As Word , Akb As Single
Do
Start Adc
Adc_temp = Getadc(0)
Stop Adc
Akb = Adc_temp / 235
Locate 1 , 1
Lcd "Robbe"
Locate 2 , 1
Lcd "Adc_temp=" ; Adc_temp
Locate 3 , 1
Lcd "akb=" ; Akb
Waitms 100
Loop
