I have successfully sent varying pulses depending on which of the 3 buttons on the Bot Board II are pressed.
Code:
cha1 var word
cha2 var word
cha3 var word
cha4 var word
cha5 var word
cha6 var word
intest var bit
xx var byte
a_key var bit
b_key var bit
c_key var bit
sound 9, [100\880, 100\988, 100\1046, 100\1175]
low 3
input 12
input 13
input 14
start: ; find the beginning.
intest = in0
if intest = 1 then start
for xx=1 to 10
intest = in0
if intest = 1 then start
pauseus 500
next
start2:
intest = in0
if intest = 0 then start2
pauseus 500
pulsin 0,1,cha1
pauseus 500
pulsin 0,1,cha2
pauseus 500
pulsin 0,1,cha3
pauseus 500
pulsin 0,1,cha4
pauseus 500
pulsin 0,1,cha5
pauseus 500
pulsin 0,1,cha6
pauseus 500
;serout S_OUT,i57600,[dec5 cha1\5," "]
a_key = in12
b_key = in13
c_key = in14
cha5 = 1400
if a_key = 1 then next1
cha5 = 1500
next1:
if b_key = 1 then next2
cha5 = 1600
next2:
if c_key = 1 then next3
cha5 = 1700
next3:
cha1=cha1*2
cha2=cha2*2
cha3=cha3*2
cha4=cha4*2
;cha5=cha5*2
cha6=cha6*2
;serout S_OUT,i57600,[dec5 cha5\5," "]
makepulses:
high 3
pauseus 740
pulsout 3,cha1
pauseus 740
pulsout 3,cha2
pauseus 740
pulsout 3,cha3
pauseus 740
pulsout 3,cha4
pauseus 740
pulsout 3,cha5
pauseus 740
pulsout 3,cha6
pauseus 740
low 3
goto start2
_________________
Jim Frye, the Robot Guy
http://www.lynxmotion.comI've always tried to do my best...