ibra
- 29th April 2007, 08:45
hi...
i am a beginner in pic programming with picbasic...
i try to compile this code...but i have error message..
'************************************************* ***************
'* Name : UNTITLED.BAS *
'* Author : [select VIEW...EDITOR OPTIONS] *
'* Notice : Copyright (c) 2007 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 23/04/2007 *
'* Version : 1.0 *
'* Notes : *
'* : *
'************************************************* ***************
define lcd_dreg portd
define lcd_dbit 4
define lcd_rsreg portd
define lcd_rsbit 2
define lcd_ereg portd
define lcd_ebit 3
define lcd_bits 4
define lcd_lines 2
high portd.1
main:
low portd.1
lcdout $fe,1
lcdout "EMBEDED SYSTEMS pro."
pause 500
if portb.0=1 then l1
if portb.0=0 then l2
goto main
l1:
pause 500
lcdout $fe,1
lcdout "project1"
while portb.0=1
portb.1=1
pause 200
portb.1=0
pause 200
wend
return
l2:
pause 500
lcdout $fe,1
lcdout "project2"
while portb.0=1
portb.1=1
pause 600
portb.1=0
pause 600
wend
return
end
--------------------------------------------------------------------------
the error message is..
ERROR Line 61: Demo command limit of 31 exceeded. Time to purchase? (ibraheem.pbp)
what is the problem...and i need a solution !!!!
i am a beginner in pic programming with picbasic...
i try to compile this code...but i have error message..
'************************************************* ***************
'* Name : UNTITLED.BAS *
'* Author : [select VIEW...EDITOR OPTIONS] *
'* Notice : Copyright (c) 2007 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 23/04/2007 *
'* Version : 1.0 *
'* Notes : *
'* : *
'************************************************* ***************
define lcd_dreg portd
define lcd_dbit 4
define lcd_rsreg portd
define lcd_rsbit 2
define lcd_ereg portd
define lcd_ebit 3
define lcd_bits 4
define lcd_lines 2
high portd.1
main:
low portd.1
lcdout $fe,1
lcdout "EMBEDED SYSTEMS pro."
pause 500
if portb.0=1 then l1
if portb.0=0 then l2
goto main
l1:
pause 500
lcdout $fe,1
lcdout "project1"
while portb.0=1
portb.1=1
pause 200
portb.1=0
pause 200
wend
return
l2:
pause 500
lcdout $fe,1
lcdout "project2"
while portb.0=1
portb.1=1
pause 600
portb.1=0
pause 600
wend
return
end
--------------------------------------------------------------------------
the error message is..
ERROR Line 61: Demo command limit of 31 exceeded. Time to purchase? (ibraheem.pbp)
what is the problem...and i need a solution !!!!