کد:
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 9600
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Dim V1 As Word
Dim V2 As Word
Dim V3 As Word
Do
V1 = Getadc(0)
V2 = Getadc(1)
V3 = Getadc(2)
Print "v1;" ; V1
Print "v2;" ; V2
Print "v3;" ; V3
Waitms 500
Loop
End 'end program
سلام
این یک نمونه کد هست
باید پایه avcc رو به 5 ولت و پایه agnd رو به زمین وصل کنید
هرکدوم رو خواستید بخونید طبق نمونه ای که گذاشتم خونده میشه
این برنامه نمونه هارو به پورت سریال میفرسته
- - - Updated - - -
کد:
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 9600
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Dim V1 As Word
Dim V2 As Word
Dim V3 As Word
Do
V1 = Getadc(0)
V2 = Getadc(1)
V3 = Getadc(2)
Print "v1;" ; V1
Print "v2;" ; V2
Print "v3;" ; V3
Waitms 500
Loop
End 'end program
سلام
این یک نمونه کد هست
باید پایه avcc رو به 5 ولت و پایه agnd رو به زمین وصل کنید
هرکدوم رو خواستید بخونید طبق نمونه ای که گذاشتم خونده میشه
این برنامه نمونه هارو به پورت سریال میفرسته