loveofteens8x
28-07-2011, 12:00 AM
em có code ngôn ngữ pic basic pro, lập trình điều khiển động cơ máy bay ( bay tới,lùi,quay trái,phải). Có Anh,Chị nào biết về ngôn ngữ này thì làm ơn giải thích giùm em ý nghĩa từng lệnh nghen !! em thanks các Anh,Chị trước !
Include "modedefs.bas"
DEFINE CCP1_REG PORTC 'Hpwm 1 pin port
DEFINE CCP1_BIT 2 'Hpwm 1 pin bit
DEFINE CCP2_REG PORTC 'Hpwm 2 pin port
DEFINE CCP2_BIT 1 'Hpwm 2 pin bit
trisb =00
b var byte
c var byte
d var byte
hPWM 1,200,10000 ' Send a 50% duty cycle PWM signal at 1kHz
pause 500
HPWM 1,10,10000
pause 300
b=100
low portb.5
main:
SERin PORTd.0,N2400,["x"],#d
SERin PORTd.0,N2400,["s"],#b
SERin PORTd.0,N2400,["t"],#c
if d=1 then
high portb.5
pause 500
endif
low portb.5
HPWM 1,b,40000
HPWM 2,c,40000
goto main
END
Include "modedefs.bas"
DEFINE CCP1_REG PORTC 'Hpwm 1 pin port
DEFINE CCP1_BIT 2 'Hpwm 1 pin bit
DEFINE CCP2_REG PORTC 'Hpwm 2 pin port
DEFINE CCP2_BIT 1 'Hpwm 2 pin bit
trisb =00
b var byte
c var byte
d var byte
hPWM 1,200,10000 ' Send a 50% duty cycle PWM signal at 1kHz
pause 500
HPWM 1,10,10000
pause 300
b=100
low portb.5
main:
SERin PORTd.0,N2400,["x"],#d
SERin PORTd.0,N2400,["s"],#b
SERin PORTd.0,N2400,["t"],#c
if d=1 then
high portb.5
pause 500
endif
low portb.5
HPWM 1,b,40000
HPWM 2,c,40000
goto main
END