سلام خدمت دوستان عزیز. من میخوام یک ولتمر 0 تا 100 ولت DC بسازم یک برنامه دارم که برای 0 تا 5 ولت هست که اینجا قرار میدم .لطفا در مورد برنامه و شماتیک (مقاومتهای ورودی ADC )کمکم کنید .فقط بیزحمت سریع. :applause:
اینم برنامه 0 تا 5 ولت :
$regfile = "M32def.dat"
$crystal = 8000000
'****************************
Config Porta = Input
Config Portd = Output
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Config Lcd = 16 * 2
Config Lcdbus = 4
Config Lcdpin = Pin , Rs = Portd.2 , E = Portd.3 , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7
'*********************
Dim Result As Word
Dim Volt As Single
'*********************
Cls
Cursor Off
Start Adc
Do
Result = Getadc(1)
Volt = Result * 4.88
Volt = Volt / 1000
Locate 1 , 1
Cls
Lcd Volt ; "v "
Waitms 500
Loop
Stop Adc
End
اینم برنامه 0 تا 5 ولت :
$regfile = "M32def.dat"
$crystal = 8000000
'****************************
Config Porta = Input
Config Portd = Output
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Config Lcd = 16 * 2
Config Lcdbus = 4
Config Lcdpin = Pin , Rs = Portd.2 , E = Portd.3 , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7
'*********************
Dim Result As Word
Dim Volt As Single
'*********************
Cls
Cursor Off
Start Adc
Do
Result = Getadc(1)
Volt = Result * 4.88
Volt = Volt / 1000
Locate 1 , 1
Cls
Lcd Volt ; "v "
Waitms 500
Loop
Stop Adc
End
دیدگاه