Hi there,
I wrote a program few weeks ago and it was working just fine, but now I can’t run it because I get the following message:
“Compile Error…Error: Values greater than 65535 are not supported!”
As I mentioned before it was working just fine and I didn’t make any change in the program.
Do you thing that is something wrong with the Programming Editor?
Here is the program posted:
setint %00000000,%00000010
main:
inicio: let b9= 0
if pin1=0 then interrupt
serout 0, T2400,(254,1)
pause 500
readadc10 0,w1
if w1> 157 then label_84
goto inicio
label_84: serout 0,T2400,(254,12,"Bienvenido deposite 2 monedas")
pause 2000
if pin1=0 then interrupt
goto inicio
interrupt: let b9=b9+ 1
if b9= 1 then label_66
serout 0,T2400,(254,1)
let w2 = 0
for b0 = 1 to 10
readadc10 0, w1
let b1= w1/7
let w2 = w2 + b1
pause 300
next b0 ‘ next loop
let b5=w2/10
let b6=w2//10
i2cslave $E0,i2cfast,i2cbyte
writei2c 0,(81)
pause 100
readi2c 2,(b7, b8)
let b10 = 197-w4
let b11 = b10/100
let b12 = b10//100
serout 0,T2400,(254,128,"Su altura es=",#b11,".",#b12,"mts")
serout 0,T2400,(254,192,"Su peso es=",#b5,".",#b6,"Kg")
pause 4000
serout 0, T2400,(254,1)
pause 30
serout 0,T2400,(254,192,"¡Gracias por pesarse!")
pause 2000
setfreq m8
serout 2,N4800,("Básculas GABBS",13,10)
serout 2,N4800,("Su altura es= ",#b11,".",#b12,"metros",13,10)
serout 2,N4800,("Su peso es= ",#b5,".",#b6,"Kg",13,10)
serout 2,N4800,("",13,10)
serout 2,N4800,("",13,10)
serout 2,N4800,("",13,10)
serout 2,N4800,("",13,10)
serout 2,N4800,("",13,10)
setfreq m4
setint %00000000,%00000010
pause 1000
goto inicio
label_66: serout 0,T2400,(254,1)
serout 0,T2400,(254,128,"Deposite 2da moneda")
serout 0,T2400,(254,192,"Suba la plataforma y no se mueva!")
pause 1000
label_96: if pin1=0 then interrupt
goto label_96
Thanks in advance!
I wrote a program few weeks ago and it was working just fine, but now I can’t run it because I get the following message:
“Compile Error…Error: Values greater than 65535 are not supported!”
As I mentioned before it was working just fine and I didn’t make any change in the program.
Do you thing that is something wrong with the Programming Editor?
Here is the program posted:
setint %00000000,%00000010
main:
inicio: let b9= 0
if pin1=0 then interrupt
serout 0, T2400,(254,1)
pause 500
readadc10 0,w1
if w1> 157 then label_84
goto inicio
label_84: serout 0,T2400,(254,12,"Bienvenido deposite 2 monedas")
pause 2000
if pin1=0 then interrupt
goto inicio
interrupt: let b9=b9+ 1
if b9= 1 then label_66
serout 0,T2400,(254,1)
let w2 = 0
for b0 = 1 to 10
readadc10 0, w1
let b1= w1/7
let w2 = w2 + b1
pause 300
next b0 ‘ next loop
let b5=w2/10
let b6=w2//10
i2cslave $E0,i2cfast,i2cbyte
writei2c 0,(81)
pause 100
readi2c 2,(b7, b8)
let b10 = 197-w4
let b11 = b10/100
let b12 = b10//100
serout 0,T2400,(254,128,"Su altura es=",#b11,".",#b12,"mts")
serout 0,T2400,(254,192,"Su peso es=",#b5,".",#b6,"Kg")
pause 4000
serout 0, T2400,(254,1)
pause 30
serout 0,T2400,(254,192,"¡Gracias por pesarse!")
pause 2000
setfreq m8
serout 2,N4800,("Básculas GABBS",13,10)
serout 2,N4800,("Su altura es= ",#b11,".",#b12,"metros",13,10)
serout 2,N4800,("Su peso es= ",#b5,".",#b6,"Kg",13,10)
serout 2,N4800,("",13,10)
serout 2,N4800,("",13,10)
serout 2,N4800,("",13,10)
serout 2,N4800,("",13,10)
serout 2,N4800,("",13,10)
setfreq m4
setint %00000000,%00000010
pause 1000
goto inicio
label_66: serout 0,T2400,(254,1)
serout 0,T2400,(254,128,"Deposite 2da moneda")
serout 0,T2400,(254,192,"Suba la plataforma y no se mueva!")
pause 1000
label_96: if pin1=0 then interrupt
goto label_96
Thanks in advance!