Code: Select all
dim var as word
main:
Adcon1 = $80
trisA = 255
trisB = 0
var = Adc_Read(2)
PortB = 255
vdelay_ms(var)
PortB = 0
vdelay_ms(var)
goto main
end.
#1 Post by Charlie » 07 Sep 2006 13:06
Code: Select all
dim var as word
main:
Adcon1 = $80
trisA = 255
trisB = 0
var = Adc_Read(2)
PortB = 255
vdelay_ms(var)
PortB = 0
vdelay_ms(var)
goto main
end.
#2 Post by Sorcerer » 07 Sep 2006 13:24
Return to “mikroBasic Beta testing”