Help with a draft of a robóvia rf

[mackrackit]

How do you know the radios are working?

The only way anyone will be able to help you is if you post your code.

Until then have fun.

[cesar35]

Dear mackrackit I tried the Modolo with a program of 8 led E8 chave.teste.
thanks
' RX CODE:
'DEFINE OSC 4
'@__config _XT_OSC & _WDT_ON & _CP_OFF

'symbol trisb = 134
'symbol trisa = 133
'symbol portb = 6
'symbol porta = 5
'poke trisa, 0
'poke porta, 0
'low 0
'input 1

'prestart: ;detta händer före start
'pause 400 ;Pausar 400mS
'poke porta, 10 ; gör nått med I/O RB4
'pause 200 ;Pausar 200mS
'poke porta, 5 ; gör nått med pin 5 (Vss)
'pause 200 ;Pausar 200mS
'poke porta, 6 ; gör nått med I/O RB0/INT
'pause 200 ;Pausar 200mS
'poke porta, 9 ; gör nått med I/O RB3
'pause 200 ;Pausar 200mS
'poke porta, 0 ; gör nått med ?något?!
'pause 200 ;Pausar 200mS

'start: ;programmet startar
'serin 1,n9600,B0 ; man berättar för picen vart man ska ta in informationen
'if B0 = 1 then forward ;om man får in en 1:a så hoppar man till forward
'if B0 = 2 then backward ;om man får in en 2:a så hoppar man till backward
'if B0 = 3 then left ;om man får in en 3:a så hoppar man till left
'if B0 = 4 then right ;om man får en 4:a så hoppar man till right
'if B0 = 5 then nomove ;om man får in en 5:a så hoppar man till nomove
'goto start ;Picen hoppar nu till start

'forward:
'poke porta, 10 ;Här skickar picen ut nått så att den går framåt (poke?)
'goto start ; Gå tillbaka till start

'backward:
'poke porta, 5 ;Här skickar picen ut nått så att den går bakåt (poke?)
'goto start ; Gå tillbaka till start

'right:
'poke porta, 6 ;Här skickar picen ut nått så att den går åt höger (poke?)
'goto start ; Gå tillbaka till start

'left:
'poke porta, 9 ;Här skickar picen ut nått så att den går åt vänster (poke?)
'goto start ; Gå tillbaka till start

'nomove:
'poke porta, 0 ;Här skickar picen inte ut nått vilket resulterar i att den står still
'goto start ;Gå tillbaka till start
'end

' TX CODE:
'DEFINE OSC 4
'@__config _XT_OSC & _WDT_ON & _CP_OFF

'symbol trisb = 134
'symbol trisa = 133
'symbol portb = 6
'symbol porta = 5
'low 1
'input 0
'input 2

'start:
'pot 0,50,B0 ; berättar på vilken I/O ena potten finns

'pot 2,50,B1 ; berättar på vilken I/O andra potten finns
'B0 = B0 * 5
'B1 = B1 * 5
'y:
'if B0 < 100 then yf ; om man drar potten på B0 framåt så hoppar picen till yf
'if B0 > 150 then yb ; om man drar potten på B0 bakåt så hoppar picen till yb

'x:
'if B1 < 100 then xr ; om man drar potten på B1 åt höger så hoppar picen till xr
'if B1 > 150 then xl ; om man drar potten på B1 åt vänster så hoppar picen till xl
'serout 1,n9600,(5) ; den skickar (5) till mottagaren som gör att den står still
'goto start ; Picen hoppar tillbaka till start

'yf:
'serout 1,n9600,(2) ; den skickar (2) till mottagaren som gör att den kör framåt
'goto start

'yb:
'serout 1,n9600,(1) ; den skickar (1) till mottagaren som gör att den backar
'goto start

'xl:
'serout 1,n9600,(3) ; den skickar (3) till mottagaren som gör att den svänger vänster
'goto start

'xr:
'serout 1,n9600,(4) ; den skickar (4) till mottagaren som gör att den svänger höger
'goto start

'end

' TX CODE:
'DEFINE OSC 4
'@__config _XT_OSC & _WDT_ON & _CP_OFF

'symbol trisb = 134
'symbol trisa = 133
'symbol portb = 6
'symbol porta = 5
'low 1
'input 0
'input 2

'start:
'pot 0,50,B0 ; berättar på vilken I/O ena potten finns

'pot 2,50,B1 ; berättar på vilken I/O andra potten finns
'B0 = B0 * 5
'B1 = B1 * 5
'y:
'if B0 < 100 then yf ; om man drar potten på B0 framåt så hoppar picen till yf
'if B0 > 150 then yb ; om man drar potten på B0 bakåt så hoppar picen till yb

'x:
'if B1 < 100 then xr ; om man drar potten på B1 åt höger så hoppar picen till xr
'if B1 > 150 then xl ; om man drar potten på B1 åt vänster så hoppar picen till xl
'serout 1,n9600,(5) ; den skickar (5) till mottagaren som gör att den står still
'goto start ; Picen hoppar tillbaka till start

'yf:
'serout 1,n9600,(2) ; den skickar (2) till mottagaren som gör att den kör framåt
'goto start

'yb:
'serout 1,n9600,(1) ; den skickar (1) till mottagaren som gör att den backar
'goto start

'xl:
'serout 1,n9600,(3) ; den skickar (3) till mottagaren som gör att den svänger vänster
'goto start

'xr:
'serout 1,n9600,(4) ; den skickar (4) till mottagaren som gör att den svänger höger
'goto start

'end

[mackrackit]

You have not made the variables. Please look at the manual.
And why do all of the lines have a comment " ' " ?

Du har inte gjord den växlande. Behaga blick for handboken. Och varför gör all om linjen har en kommentera " ' "?

[cesar35]

Dear mackrackit thank you for beautiful lessons bicbasic
More and pacinencia my ficol very short time.
I ask for my descupa falhas.Eu I was very interested in the project and much more tificio to me.
You have a person I very helpful and very eficinte.
A hug. (That God elumine their paths)

[Archangel]

Hi Cesar35, I took some time to look at this code, truthfully I have not studied PBasic the $99 version, it appears it's syntax is a little different from PBasicPro, it spit it out patoey! Are you using the $99 version or are you using the Pro $250 version ? If using the Pro version the code below will compile. Will it run? Do not know. I compiled for 16F84A.

'****************************************************************
'*  Name    : RufBot TX.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2008 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 11/16/08                                          *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************

include "modedefs.bas"

trisb = 134
 trisa = 133
 portb = 6
 porta = 5
low 1
input 0
input 2
B0 var byte
B1 var byte
start:
pot 0,50,B0

pot 2,50,B1
B0 = B0 * 5
B1 = B1 * 5
y:
if B0 < 100 then yf
if B0 > 150 then yb

x:
if B1 < 100 then xr
if B1 > 150 then xl
serout 1,n9600,[5]
goto start

yf:
serout 1,n9600,[2]
goto start

yb:
serout 1,n9600,[1]
goto start

xl:
serout 1,n9600,[3]
goto start

xr:
serout 1,n9600,[4]
goto start

end

[Archangel]

You have not made the variables. Please look at the manual.
And why do all of the lines have a comment " ' " ?

Du har inte gjord den växlande. Behaga blick for handboken. Och varför gör all om linjen har en kommentera " ' "?

Hi Dave, the $99 pbasic has automatic variables B0 B1 W0, whereas the PRO version does not sec. 10.5, throwback to STAMPS.

[mackrackit]

Hi Dave, the $99 pbasic has automatic variables B0 B1 W0, whereas the PRO version does not sec. 10.5, throwback to STAMPS.

Well that is what I get for assuming things. I assumed the $99 version just lacked some features.

Guess it is time for me to RTFM

[cesar35]

Hi Dave, the $99 pbasic has automatic variables B0 B1 W0, whereas the PRO version does not sec. 10.5, throwback to STAMPS.

Dear Joe S compile again not funciona.eu
I'm using picbasic pro demo 250.
And rx have to use B0 var byte
Var B1 byte. thanks.

[hanamasagar]

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

[cesar35]

'************************************************* ***************
'* 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