# bascom and adc and serialout

Status
Not open for further replies.

#### khatarat

##### New Member
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
Dim W As Word
Do
Print #1 , W