Svenska ElektronikForumet

Kod: Markera allt

Define osc 4
Include "modedefs.bas"
CMCON = 7
VRCON = 0


gear    var     PORTA.2
SI      VAR     PORTA.1
puls    var     portb.3           
B0      var     byte

loop:
serin SI,T300,500,LOOP,B0
SELECT CASE b0
    case "E"
        gosub highforward
    case "F"
        gosub lowforward
    CASE "G"
        gosub lowbackward
    CASE "H"
        gosub highbackward
    CASE "I"
        GOSUB STOPP
end select
                  
Goto LOOP

lowforward:
    low gear
    hpwm 1,10,245
return

highforward:
    low gear
    hpwm 1,127,380
return

lowbackward:
    high gear
    hpwm 1,10,245
return

highbackward:
    high gear
    hpwm 1,127,380
return

stopp:
    ccp1con = 0
    low puls
return      

Kod: Markera allt

Define osc 4
Include "modedefs.bas"          
CMCON = 7
VRCON = 0

gear    var     PORTA.2
SI      VAR     PORTA.1
puls    var     portb.3          
B0      var     byte


loop:
serin SI,T300,500,LOOP,B0
SELECT CASE b0
    case "A"
        gosub highforward
    case "B"
        gosub lowforward
    CASE "C"
        gosub lowbackward
    CASE "D"
        gosub highbackward
    CASE "I"
        GOSUB STOPP
end select
                  
Goto LOOP

lowforward:
    High gear
    hpwm 1,10,245
return

highforward:
    High gear
    hpwm 1,127,380
return

lowbackward:
    low gear
    hpwm 1,10,245
return

highbackward:
    low gear
    hpwm 1,127,380
return

stopp:
    ccp1con = 0
    low puls
return      

Kod: Markera allt

Define osc 4
Include "modedefs.bas"          
CMCON=7
CCP1CON=0

SI      VAR     PORTA.1          
B0      var     byte
relay    VAR    PORTB.3
high relay

main:
SERIN SI,T300,500,MAIN,B0
if (b0 = "I") then
low RELAY
else
high relay
endif
GOTO MAIN

Kod: Markera allt

Define osc 4
Include "modedefs.bas"          ' Include serial modes
CMCON = 7
VRCON = 0

knapp1 var portb.0
knapp2 var portb.5
knapp3 var portb.2
knapp4 var portb.4
knapp5 var portb.1
knapp6 var portb.6
knapp7 var portb.7
input knapp1
input knapp2
input knapp3
input knapp4
input knapp5
input knapp6
input knapp7


SO      VAR     PORTA.2         
B0      var     byte

main:
   
IF knapp1 and knapp6 THEN gosub leftfastforward
    
IF knapp1 and knapp7 THEN gosub leftlowforward
   
IF knapp2 and knapp6 THEN gosub leftfastbackward
   
IF knapp2 and knapp7 THEN gosub leftlowbackward
    
IF knapp3 and knapp6 THEN gosub rightfastforward

IF knapp3 and knapp7 THEN gosub rightlowforward 
    
IF knapp4 and knapp6 THEN gosub rightfastbackward
    
IF knapp4 and knapp7 THEN gosub rightlowbackward

IF not knapp1 and not knapp2 and not knapp3 and not knapp4 AND NOT KNAPP5 THEN gosub neutral
    
IF knapp5 then gosub brake

Goto main    

leftfastforward:
    B0 = "A"
    Serout SO,T300,[B0]
return

leftlowforward:
    B0 = "B"
    Serout SO,T300,[B0]
return

leftlowbackward:
    B0 = "C"
    Serout SO,T300,[B0]
return

leftfastbackward:
    B0 = "D"
    Serout SO,T300,[B0]
return

rightfastforward:
    B0 = "E"
    Serout SO,T300,[B0]
return

rightlowforward:
    B0 = "F"
    Serout SO,T300,[B0]
return

rightlowbackward:
    B0 = "G"
    Serout SO,T300,[B0]
return

rightfastbackward:
    B0 = "H"
    Serout SO,T300,[B0]
return

neutral:
    B0 = "I"
    Serout SO,T300,[B0]
return

brake:
    b0 = "J"
    serout so,T300,[B0]
return