If you do not believe in MAGIC, Consider how currency has value simply by printing it, and is then traded for real assets.
.
Gold is the money of kings, silver is the money of gentlemen, barter is the money of peasants - but debt is the money of slaves
.
There simply is no "Happy Spam" If you do it you will disappear from this forum.
hi
bro i also tried to realise that rufbot and encountered the same problem
please if you peopla can help me out with the code???????????
thank u
'************************************************* ***************
'* Name : RX.BAS *
'* Author : [select VIEW...EDITOR OPTIONS] *
'* Notice : Copyright (c) 2008 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 18/11/2008 *
'* Version : 1.0 *
'* Notes : *
'* : *
'************************************************* ***************
include "modedefs.bas"
DEFINE OSC 4
@ DEVICE PIC16F84A 'iţlemci 16F628
@ DEVICE PIC16F84A, WDT_On
@ DEVICE PIC16F84A, PWRT_ON
@ DEVICE PIC16F84A, PROTECT_OFF
@ DEVICE PIC16F84A, XT_OSC
PORTA=0
TRISA=0
PORTB=0
TRISB=%00000010
B0 var byte
B1 var byte
prestart: pause 400
poke porta, 10 ' %00001010
pause 200
poke porta, 5 ' %00000101
pause 200
poke porta, 6 ' %00000110
pause 200
poke porta, 9 ' %00001001
pause 200
poke porta, 0 '
pause 200
start: serin PORTB.1,N9600,B0
if B0 = 1 then forward
if B0 = 2 then backward
if B0 = 3 then left
if B0 = 4 then right
if B0 = 5 then nomove
goto start
forward: poke porta, 10
goto start
backward: poke porta, 5
goto start
right: poke porta, 6
goto start
left: poke porta, 9
goto start
nomove: poke porta, 0
goto start
end
'************************************************* ***************
'* Name : tx.BAS *
'* Author : [select VIEW...EDITOR OPTIONS] *
'* Notice : Copyright (c) 2008 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 18/11/2008 *
'* Version : 1.0 *
'* Notes : *
'* : *
'************************************************* ***************
include "modedefs.bas"
DEFINE OSC 4
@ DEVICE PIC16F84A 'iţlemci 16F628
@ DEVICE PIC16F84A, WDT_On
@ DEVICE PIC16F84A, PWRT_ON
@ DEVICE PIC16F84A, PROTECT_OFF
@ DEVICE PIC16F84A, XT_OSC
trisb = %10000110 '134
trisa = %10000101 '133
portb = 6
porta = 5
low 1
input 0
input 2
B0 var byte
B1 var byte
start: pot PORTB.0,50,B0
pot PORTB.2,50,B1
B0 = B0 * 5
B1 = B1 * 5
y: if B0 < 100 then GOSUB yf
if B0 > 150 then GOSUB yb
x: if B1 < 100 then GOSUB xr
if B1 > 150 then GOSUB xl
serout PORTB.1,n9600,[5]
goto start
yf: serout PORTB.1,n9600,[2]
return
yb: serout PORTB.1,n9600,[1]
return
xl: serout PORTB.1,n9600,[3]
return
xr: serout PORTB.1,n9600,[4]
return
end
cesar35 wrote;
How do you get the PBP demo to compile programs longer than 31 lines & use include files?I'm using picbasic pro demo 250
hi cesar first of all thanks a lot !!!!!!!!! brother
now pls if u can provide me the stepper motor control program which i have to add with the main program
then i can complete the code!!!!!!!!!!
pls bro
thank u
Bookmarks