============================================================================== ' ' File...... ' Purpose...RC CONTROL OF BOEBOT ' ' {$STAMP BS2} ' {$PBASIC 2.5} ' ' ============================================================================== ' ------------------------------------------------------------------------------ ' Program Description ' ------------------------------------------------------------------------------ 'Control A boe-bot using 2-Channel R/C ' ------------------------------------------------------------------------------ ' Constants ' ------------------------------------------------------------------------------- state CON 1 ' ------------------------------------------------------------------------------ ' I/O Definitions ' ------------------------------------------------------------------------------ Ch1 PIN 12 ' Elevator channel used to drive forward and backward Ch2 PIN 13 ' Aileron channel used to steer left and right L_servo PIN 14 ' Left servo R_servo PIN 15 ' Right servo ' ------------------------------------------------------------------------------ ' Variables ' ------------------------------------------------------------------------------ steer VAR Word drive VAR Word R_Target VAR Word L_Target VAR Word ' ------------- ' Program Code| ' ------------- begin: DO PULSIN Ch1 , state , drive PULSIN Ch2 , state , steer R_Target = drive - 750 + steer L_Target = 750 - drive + steer PULSOUT L_servo , L_Target PULSOUT R_servo , R_Target PAUSE 10 LOOP