ruf-bot
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
Bookmarks