есть код
пытаюсь в метке 'термометр засунуть код с этой статьи http://cxem.net/mc/mc181.php
не работает.
сам код рабочий, првоерял.
помогите оптимизировать код, спасибо!
Раздел: AVR
'$sim
$regfile = "m16def.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 20
$framesize = 32
Config Lcdpin = Pin , Rs = Portd.3 , E = Portd.4 , Db4 = Portd.5 , Db5 = Portd.6 , Db6 = Portd.7 , Db7 = Portc.0
Config Lcd = 16 * 2
Cursor Off Noblink
Config Portb.0 = Output : Set Portb.4
Deflcdchar 1 , 32 , 32 , 31 , 4 , 4 , 4 , 4 , 32
Dim Adcv As Word , Volt As Single
Dim Adca As Word , Amp As Single
Dim P As Single ';Power (P)
Const Dif = 5 / 1024
Const Volt_div = 0.152519
Const Amp_div = 0.21978 ';0.0048828125 - Adc Div 5 / 1024
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Cls
Do
Adcv = Getadc(0) ';read portA.0 for volt
Adca = Getadc(1) ';read portA.1 for Ampre
Waitms 50
';Calculate
Volt = Adcv * Dif
Amp = Adca * Dif
Volt = Volt / Volt_div
Amp = Amp / Amp_div
P = Volt * Amp
Locate 1 , 1
If Volt < 10 Then Lcd " "
Lcd Fusing(volt , "##.#") ; "B"
Locate 2 , 1
If Amp < 10 Then Lcd " "
Lcd Fusing(amp , "##.#") ; "A"
If P < 100 Then Lcd " "
If P < 10 Then Lcd " "
Locate 1 , 10
Lcd Fusing(p , "##.#")
Locate 1 , 15
Lcd "B" ; Chr(1)
' термометр
надо отобразить на 2 строке с 8 символа
Loop
End
пытаюсь в метке 'термометр засунуть код с этой статьи http://cxem.net/mc/mc181.php
не работает.
сам код рабочий, првоерял.
помогите оптимизировать код, спасибо!
Раздел: AVR