khatarat
Member level 1
bascom adc
hi
i wanna write a program to read analog values and send it via serial port to computer this is my program its does not work i dont know where is the problem
$regfile "m16def.dat"
$crystal = 4000000
Config Adc = Free , Prescaler = Auto
Config Serialout = Buffered , Size = 20
Open "com1:" For Binary As #1
Enable Interrupts
Start Adc
Dim W As Word
Do
Print #1 , W
W = Getadc(0)
Loop
hi
i wanna write a program to read analog values and send it via serial port to computer this is my program its does not work i dont know where is the problem
$regfile "m16def.dat"
$crystal = 4000000
Config Adc = Free , Prescaler = Auto
Config Serialout = Buffered , Size = 20
Open "com1:" For Binary As #1
Enable Interrupts
Start Adc
Dim W As Word
Do
Print #1 , W
W = Getadc(0)
Loop