• Welcome to our site! Electro Tech is an online community (with over 170,000 members) who enjoy talking about and building electronic circuits, projects and gadgets. To participate you need to register. Registration is free. Click here to register now.

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
Start Adc
Dim W As Word
Do
Print #1 , W
W = Getadc(0)
Loop
 
Status
Not open for further replies.

Latest threads

EE World Online Articles

Loading
Top