سلام
من یه ولت متر نوشتم ولی مشکل داره. اگه کسی میتونه راهنمایی کنه.
$regfile = M32
Dim A As Word , B As Single , C As Word , D As Word
Config Lcdpin = Pin , E = Pinb.0 , Rs = Pinb.1 , Db4 = Pinb.2 , Db5 = Pinb.3 , Db6 = Pinb.4 , Db7 = Pinb.5
Config Lcdbus = 4
Config Lcd = 20 * 4
Config Adc = Free , Prescaler = Auto , Reference = Avcc
Start Adc
Enable Adc
Cls
Do
A = Getadc(0)
B = A / 1023
C = Fusing(b , "#.##"
Locate 1 , 1
Lcd "voltage=" ; C
Loop
End
هنگام کپی کردن برنامه کمی به هم ریخت.
من یه ولت متر نوشتم ولی مشکل داره. اگه کسی میتونه راهنمایی کنه.
$regfile = M32
Dim A As Word , B As Single , C As Word , D As Word
Config Lcdpin = Pin , E = Pinb.0 , Rs = Pinb.1 , Db4 = Pinb.2 , Db5 = Pinb.3 , Db6 = Pinb.4 , Db7 = Pinb.5
Config Lcdbus = 4
Config Lcd = 20 * 4
Config Adc = Free , Prescaler = Auto , Reference = Avcc
Start Adc
Enable Adc
Cls
Do
A = Getadc(0)
B = A / 1023
C = Fusing(b , "#.##"
Locate 1 , 1
Lcd "voltage=" ; C
Loop
End
هنگام کپی کردن برنامه کمی به هم ریخت.
oo:
دیدگاه