|
|
|
![]() |
|
|||||||
|
||||||||
![]() |
| Thread Tools | Rate Thread | Display Modes |
|
#1
|
||||
|
||||
|
2002 FRC Controller...
Hey I'm working on repairing all my team's old robots back to working condition for robot demonstrations and driver practice. The problem i am facing is these controllers now use BASIC programming. Now i understand most of it but im still stuck on one part of it. the PWMs...
This robot is a 3 wheeled robot usin rocking gearshift. When in low gear, all 3 wheels and powered. When in High gear the back 2 wheels are not powered, and the front one drives the robot. Steering uses one motor and a potentiometer. When programmed correctly, the steering will react and mimic the joystick like an RC car would (servo). We also have a Mini Krunch which has a servo and motor onboard that runs off the port 3 X and Y axis I am working on linking the first 3 PWMs to Port 1 Y axis. thats easy. and the Steering motor to PWM4. But i dont see where to link that, or how to add the potentiometer into this. And then after that... how do i tell it to not power the rear motors while in high gear? I read all the documents about Legacy and all that, but i just dont understand it... Thank you to anyone who can help me with this!!! |
|
#2
|
|||||
|
|||||
|
Re: 2002 FRC Controller...
Draw yourself a flowchart of what you what to happen.
The code will depend a little on what version of pBasic you’re using. In 2002 there was an if-then statement but no if-then-else. 2003 introduced the if-then-else, so nowadays it’s easier to code up. Turning off the motors when in high gear would look something like: Code:
pwm1 = p1_y
pwm2 = p1_y
pwm3 = p1_y
If gear < High then skipit
pwm2 = 127
pwm3 = 127
skipit:
For steering I imagine you’d want to force your potentiometer reading to match your joystick steering axis (making sure the pot is mechanically at 127 when the wheel is straight forward. Here is a simple way, but you'd have to play with the values for pwm4 so it didn't turn too quickly, overshoot, and start thrashing back n forth. P.S. It's also nice to have some mechanical drag on the steering, so it holds it's position a little and isn't just waggling loosely. Code:
pwm4 = 127 If pot < p1_x then pwm4 = 100 If pot > p1_x then pwm4 = 155 Last edited by Mark McLeod : 15-07-2008 at 14:30. |
|
#3
|
||||
|
||||
|
Re: 2002 FRC Controller...
Well im not too sure i need to worry about the victors, The wheels are indirectly powered. They are inflated tires and giant rollers come down and push on them to power them. When it switches to high gear, it ricks with 3 pistons, removing force from the rear wheels and pushing a larger roller on the front wheel.
Ok thanks! that pretty much addresses all my problems. I'll add that and then go out and test it Thursday when im at the school. One more thing..... do i need to edit or change the Serout line? again Thanks so much! Last edited by gallo26 : 15-07-2008 at 10:31. |
|
#4
|
|||||
|
|||||
|
Re: 2002 FRC Controller...
You shouldn't have to change Serout. The pwm's should already be there.
P.S. I saw your victor comment. Wherever you have your code to move the rollers up and down you can probably drop in your victor control as well. Last edited by Mark McLeod : 15-07-2008 at 10:48. |
|
#5
|
||||
|
||||
|
Re: 2002 FRC Controller...
Yeah ok, that works. Can i limit the PWMs by saying something like...
Code:
'---------- PWM outputs Limited ------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------- if relay2_fwd = 1 then next1: PWM2 = 127 next1: if relay2_fwd = 1 then next2: PWM3 = 127 next2: if relay2_fwd = 0 then next3: PWM2 = p1_y next3: if relay2_fwd = 0 then next4: PWM3 = p1_y next 4: |
|
#6
|
|||||
|
|||||
|
Re: 2002 FRC Controller...
Yep, that'll work.
That's the older pBasic style, so it's demonstrating one way to work around not having an if-then-else statement. There are several ways to do it. This is a shorter way to do the same thing: Code:
PWM2 = p1_y if relay2_fwd = 1 then next1: PWM2 = 127 next1: |
|
#7
|
||||
|
||||
|
Re: 2002 FRC Controller...
o ok. lol yeah that looks a lot easier!
Now one thing i was just mentioned, we want to add Emergency Stop buttons. In pBASIC how to i say When i press this button p2_sw_aux1, the robot is disabled until i do a powercycle? |
|
#8
|
|||||
|
|||||
|
Re: 2002 FRC Controller...
You want to create a software "latch" that remembers the emergency stop button was pushed.
Up at the top declare a variable that will be your latch. Code:
emergency_stop VAR byte ' Stop until power cycle Code:
emergency_stop = 0 Code:
If p2_sw_aux1 = 1 then emergency_stop = 1 Then immediately before your Serout, test emergency_stop and turn everything off. Code:
If emergency_stop = 0 then nevermind:
PWM1 = 0
PWM2 = 0
'and so on (also decide how you want your relays set)
nevermind:
Another way to do it would be to prevent the regular Serout from being called at all by wrapping it with your emergency_stop check and the Master controller will shut everything down for you. This'll force the "Basic Run Err" light to come on in about a tenth of a second. Code:
If emergency_stop = 1 then nevermind:
Serout(...
nevermind:
Last edited by Mark McLeod : 15-07-2008 at 14:33. |
|
#9
|
||||
|
||||
|
Re: 2002 FRC Controller...
wow thanks!!!! as you can tell i'm not really the programming type, but i decided to work on it before the next meeting so we can run tests with it.
You have been such a big help thanks!!! ![]() |
|
#10
|
||||
|
||||
|
Re: 2002 FRC Controller...
Sorry to bother you again, but i finally finished what i needed to do with the code thanks to your help. but now im getting an error. When i do a Syntax Check i get an
Quote:
Code:
PWM1 = p1_y Thanks again for helping me! |
|
#11
|
|||||
|
|||||
|
Re: 2002 FRC Controller...
The PWM1,2,3,4 that you're using need to be declare just like we declared "emergency_stop" in an earlier post.
Looking at the default code I'm guessing you started with, I spoke too quickly about not needing to change the Serout command. You don't have to change it, but you might want to so that it's clearer. --------------- In the default code you're using, the "PWM" variables don't really exist. PWMx is used only in comments and have not been declared. (comment lines start with a '). These two lines are at the bottom: Code:
' Serout USERCPU, OUTBAUD, [255,255,(PWM1),relayA,(PWM2),relayB,(PWM3),(PWM4),(PWM5),(PWM6),(PWM7),(PWM8),(PWM9),(PWM10),(PWM11),(PWM12),(PWM13),(PWM14),(PWM15),(PWM16)] Serout USERCPU, OUTBAUD, [255,255,p1_y,relayA,p2_y,relayB,p3_y,p4_y,p1_x,p2_x,p3_x,p4_x,p1_wheel,p2_wheel,p3_wheel,p4_wheel] The default code actually reuses existing variables to hold the pwm values it wants to send. For instance, p3_y is used here is these lines straight from the default: Code:
if rc_sw5 = 0 then next1:
p3_y = p3_y MAX 127
next1:
----------- If you do go with declaring the PWMs you started with, then I'd recommend just copying the working line of code and commenting out the original line ('). Then just replace p1_y, etc with the four PWM variables you're using. Last edited by Mark McLeod : 15-07-2008 at 21:10. |
|
#12
|
||||
|
||||
|
Re: 2002 FRC Controller...
Ok, so all the errors caused by the PWM commands i commented out. i changed the serout as well. here is the full code. Im not worrying about the pot for steering until i can get the rest working. As you will see i was not able to get the rear wheels to stop while in high gear and im not sure what variables are needed or not. maybe you can take out the comments and see if you get the same errors i get. This was taken from the Default code and i'm not sure what i do or dont need to functionality
Thanks Mark for your help, i know this is probably annoying you by now Code:
' PROGRAM: CK4 Full Size Code
' Written by: B Gallo
' Date: 2008 Jul 14
'
' Define BS2-SX Project Files
'
' {$STAMP BS2SX}
'=============================================================================================================
'========== DECLARE VARIABLES ================================================================================
'=============================================================================================================
' Below is a list of declared input and output variables. Comment or un-comment
' the variables as needed. Declare any additional variables required in
' your main program loop. Note that you may only use 26 total variables.
'---------- Operator Interface (OI) - Analog Inputs ----------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------
p1_x VAR byte 'Port 1, X-axis on Joystick Primary Driver Steering
p2_x VAR byte 'Port 2, X-axis on Joystick n/a
p3_x VAR byte 'Port 3, X-axis on Joystick Secondary Driver Moni Krunch Steering
p4_x VAR byte 'Port 4, X-axis on Joystick n/a
p1_y VAR byte 'Port 1, Y-axis on Joystick Primary Driver Forward/Reverse
p2_y VAR byte 'Port 2, Y-axis on Joystick n/a
p3_y VAR byte 'Port 3, Y-axis on Joystick Secondary Driver Mini Krunch Forward/Reverse
p4_y VAR byte 'Port 4, Y-axis on Joystick n/a
p1_wheel VAR byte 'Port 1, Wheel on Joystick n/a
p2_wheel VAR byte 'Port 2, Wheel on Joystick n/a
p3_wheel VAR byte 'Port 3, Wheel on Joystick n/a
p4_wheel VAR byte 'Port 4, Wheel on Joystick n/a
p1_aux VAR byte 'Port 1, Aux on Joystick n/a
p2_aux VAR byte 'Port 2, Aux on Joystick n/a
p3_aux VAR byte 'Port 3, Aux on Joystick n/a
p4_aux VAR byte 'Port 4, Aux on Joystick n/a
'---------- Operator Interface - Digital Inputs --------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------
oi_swA VAR byte 'OI Digital Switch Inputs 1 thru 8
oi_swB VAR byte 'OI Digital Switch Inputs 9 thru 16
'---------- Robot Controller (RC) - Analog Inputs ------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------
sensor1 VAR byte 'RC Analog Input 1, connector pin 2 Steering Potentiometer
'sensor2 VAR byte 'RC Analog Input 2, connector pin 16
'sensor3 VAR byte 'RC Analog Input 3, connector pin 5
'sensor4 VAR byte 'RC Analog Input 4, connector pin 19
'sensor5 VAR byte 'RC Analog Input 5, connector pin 8
'sensor6 VAR byte 'RC Analog Input 6, connector pin 22
'sensor7 VAR byte 'RC Analog Input 7, connector pin 11
'bat_volt VAR byte 'RC Analog Input 8, hardwired to the Battery
'Vin = ((4.7/14.7)* Battery voltage)-0.4
'Binary Battery Voltage = (Vin/5.0 V)*255
'---------- Robot Controller - Digital Inputs ----------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------
rc_swA VAR byte 'RC Digital Inputs 1 thru 8
rc_swB VAR byte 'RC Digital Inputs 9 thru 16
'---------- Robot Controller - Digital Outputs ---------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------
relayA VAR byte
relayB VAR byte
'---------- Misc. --------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------
packet_num VAR byte
'delta_t VAR byte
PB_mode VAR byte
emergency_stop VAR byte 'Stop Robot until Power Cycle
'=============================================================================================================
'========== DEFINE ALIASES ===================================================================================
'=============================================================================================================
' Aliases are variables which are sub-divisions of variables defined
' above. Aliases don't require any additional RAM.
'---------- Aliases for each OI switch input -----------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------
' Below are aliases for the digital inputs located on the Operator Interface.
' Ports 1 & 3 have their inputs duplicated in ports 4 & 2 respectively. The
' inputs from ports 1 & 3 may be disabled via the 'Disable' dip switch
' located on the Operator Interface. See Users Manual for details.
p1_sw_trig VAR oi_swA.bit0 'Joystick Trigger Button, same as Port4 pin5 n/a
p1_sw_top VAR oi_swA.bit1 'Joystick Top Button, same as Port4 pin8 n/a
p1_sw_aux1 VAR oi_swA.bit2 'Aux input, same as Port4 pin9 n/a
p1_sw_aux2 VAR oi_swA.bit3 'Aux input, same as Port4 pin15 n/a
p3_sw_trig VAR oi_swA.bit4 'Joystick Trigger Button, same as Port2 pin5 n/a
p3_sw_top VAR oi_swA.bit5 'Joystick Top Button, same as Port2 pin8 n/a
p3_sw_aux1 VAR oi_swA.bit6 'Aux input, same as Port2 pin9 n/a
p3_sw_aux2 VAR oi_swA.bit7 'Aux input, same as Port2 pin15 n/a
p2_sw_trig VAR oi_swB.bit0 'Joystick Trigger Button Switch to High Gear
p2_sw_top VAR oi_swB.bit1 'Joystick Top Button Switch to Low Gear
p2_sw_aux1 VAR oi_swB.bit2 'Aux input n/a
p2_sw_aux2 VAR oi_swB.bit3 'Aux input Emergency Stop
p4_sw_trig VAR oi_swB.bit4 'Joystick Trigger Button Release Mini Krunch
p4_sw_top VAR oi_swB.bit5 'Joystick Top Button Open Left Claw
p4_sw_aux1 VAR oi_swB.bit6 'Aux input Open Right Claw
p4_sw_aux2 VAR oi_swB.bit7 'Aux input Emergency Stop
'---------- Aliases for each RC switch input -----------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------
' Below are aliases for the digital inputs located on the Robot Controller.
rc_sw1 VAR rc_swA.bit0 'Pressure Switch
rc_sw2 VAR rc_swA.bit1 'n/a
rc_sw3 VAR rc_swA.bit2 'n/a
rc_sw4 VAR rc_swA.bit3 'n/a
rc_sw5 VAR rc_swA.bit4 'n/a
rc_sw6 VAR rc_swA.bit5 'n/a
rc_sw7 VAR rc_swA.bit6 'n/a
rc_sw8 VAR rc_swA.bit7 'n/a
rc_sw9 VAR rc_swB.bit0 'n/a
rc_sw10 VAR rc_swB.bit1 'n/a
rc_sw11 VAR rc_swB.bit2 'n/a
rc_sw12 VAR rc_swB.bit3 'n/a
rc_sw13 VAR rc_swB.bit4 'n/a
rc_sw14 VAR rc_swB.bit5 'n/a
rc_sw15 VAR rc_swB.bit6 'n/a
rc_sw16 VAR rc_swB.bit7 'n/a
'---------- Aliases for each RC Relay outputs ----------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------
' Below are aliases for the relay outputs located on the Robot Controller.
relay1_fwd VAR RelayA.bit0 'Compressor
relay1_rev VAR RelayA.bit1 'n/a
relay2_fwd VAR RelayA.bit2 'High Gear
relay2_rev VAR RelayA.bit3 'Low Gear
relay3_fwd VAR RelayA.bit4 'Open Left Claw
relay3_rev VAR RelayA.bit5 'Close Left Claw
relay4_fwd VAR RelayA.bit6 'Open Right Claw
relay4_rev VAR RelayA.bit7 'Close Right Claw
relay5_fwd VAR RelayB.bit0 'Team Color Light
relay5_rev VAR RelayB.bit1 'n/a
relay6_fwd VAR RelayB.bit2 'n/a
relay6_rev VAR RelayB.bit3 'n/a
relay7_fwd VAR RelayB.bit4 'n/a
relay7_rev VAR RelayB.bit5 'n/a
relay8_fwd VAR RelayB.bit6 'n/a
relay8_rev VAR RelayB.bit7 'n/a
'---------- Aliases for the Pbasic Mode Byte (PB_mode) -------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------
' Bit 7 of the PB_mode byte (aliased as comp_mode below) indicates the status
' of the Competition Control, either Enabled or Disabled. This indicates the
' starting and stopping of rounds at the competitions.
' Comp_mode is indicated by a solid "Disabled" LED on the Operator Interface.
' Comp_mode = 1 for Enabled, 0 for Disabled.
'
' Bit 6 of the PB_mode byte (aliased as auton_mode below) indicates the status
' of the Autonomous Mode, either Autonomous or Normal. This indicates when
' the robot must run on its own programming. When in Autonomous Mode, all
' OI analog inputs are set to 127 and all OI switch inputs are set to 0 (zero).
' Auton_mode is indicated by a blinking "Disabled" LED on the Operator Interface.
' Auton_mode = 1 for Autonomous, 0 for Normal.
'
' Autonomous Mode can be turned ON by setting the RC to Team 0 (zero).
'
' Bit 5 of the PB_mode byte (aliased as user_display_mode below) indicates when
' the user selects the "User Mode" on the OI. PB_mode.bit5 is set to 1 in "User Mode".
' When the user selects channel, team number, or voltage, PB_mode.bit5 is set to 0
' When in "User Mode", the eight Robot Feedback LED are turned OFF.
' Note: "User Mode" is identified by the letter u in the left digit (for 4 digit OI's)
' Note: "User Mode" is identified by decimal places on the right two digits (for 3 digit OI's)
comp_mode VAR PB_mode.bit7
auton_mode VAR PB_mode.bit6
user_display_mode VAR PB_mode.bit5
'=============================================================================================================
'========= DEFINE CONSTANTS FOR INITIALIZATION ===============================================================
'=============================================================================================================
' The initialization code is used to select the input data used by PBASIC.
' The Master micro-processor (uP) sends the data you select to the BS2SX
' PBASIC uP. You may select up to 26 constants, corresponding
' to 26 variables, from the 32 available to you. Make sure that you have
' variables for all the bytes recieved in the serin command.
'
' The constants below have a "c_" prefix, as compared to the variables that
' they will represent.
'
' Set the Constants below to 1 for each data byte you want to recieve.
' Set the Constants below to 0 for the unneeded data bytes.
'---------- Set the Initialization constants you want to read ------------------------------------------------
'-------------------------------------------------------------------------------------------------------------
c_p1_y CON 1
c_p2_y CON 0
c_p3_y CON 1
c_p4_y CON 0
c_p1_x CON 1
c_p2_x CON 0
c_p3_x CON 1
c_p4_x CON 0
c_p1_wheel CON 0
c_p2_wheel CON 0
c_p3_wheel CON 0
c_p4_wheel CON 0
c_p1_aux CON 0
c_p2_aux CON 0
c_p3_aux CON 0
c_p4_aux CON 0
c_oi_swA CON 1
c_oi_swB CON 1
c_sensor1 CON 1
c_sensor2 CON 0
c_sensor3 CON 0
c_sensor4 CON 0
c_sensor5 CON 0
c_sensor6 CON 0
c_sensor7 CON 0
c_batt_volt CON 0
c_rc_swA CON 1
c_rc_swB CON 1
c_delta_t CON 0
c_PB_mode CON 1
c_packet_num CON 1
c_res01 CON 0
'---------- Initialization Constant VOLTAGE - USER DEFINED ---------------------------------------------------
'-------------------------------------------------------------------------------------------------------------
' This is the 'Low Battery' detect voltage. The 'Low Battery' LED will
' blink when the voltage drops below this value.
' Basically, the value = ((DESIRED FLASH VOLTAGE * 16.46) - 8.35)
' Example, for a 6.5 Volt Flash trigger, set value = 99.
dataInitVolt CON 140
'=============================================================================================================
'========== DEFINE CONSTANTS (DO NOT CHANGE) =================================================================
'=============================================================================================================
' Baud rate for communications with User CPU
OUTBAUD CON 20 '(62500, 8N1, Noninverted)
INBAUD CON 20 '(62500, 8N1, Noninverted)
USERCPU CON 4
FPIN CON 1
COMA CON 1
COMB CON 2
COMC CON 3
'=============================================================================================================
'========== MAIN PROGRAM =====================================================================================
'=============================================================================================================
'---------- Input & Output Declarations ----------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------
Output COMB
Input COMA
Input COMC
Output 7 'define Basic Run LED on RC => out7
Output 8 'define Robot Feedback LED => out8 => PWM1 Green
Output 9 'define Robot Feedback LED => out9 => PWM1 Red
Output 10 'define Robot Feedback LED => out10 => PWM2 Green
Output 11 'define Robot Feedback LED => out11 => PWM2 Red
Output 12 'define Robot Feedback LED => out12 => Relay1 Red
Output 13 'define Robot Feedback LED => out13 => Relay1 Green
Output 14 'define Robot Feedback LED => out14 => Relay2 Red
Output 15 'define Robot Feedback LED => out15 => Relay2 Green
'---------- Initialize Inputs & Outputs ----------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------
Out7 = 1 'Basic Run LED on RC
Out8 = 0 'PWM1 LED - Green
Out9 = 0 'PWM1 LED - Red
Out10 = 0 'PWM2 LED - Green
Out11 = 0 'PWM2 LED - Red
Out12 = 0 'Relay1 LED - Red
Out13 = 0 'Relay1 LED - Green
Out14 = 0 'Relay2 LED - Red
Out15 = 0 'Relay2 LED - Green
'=============================================================================================================
'========== PBASIC - MASTER uP INITIALIZATION ROUTINE ========================================================
'=============================================================================================================
' DO NOT CHANGE THIS! DO NOT MOVE THIS!
' The init routine sends 5 bytes to the Master uP, defining which data bytes to receive.
' 1) Collect init.
' 2) Lower the COMA line, which is the clk line for the shift out command.
' 3) Lower COMB line to tell pic that we are ready to send init data.
' 4) Wait for pic to lower the COMC line, signaling pic is ready for data.
' 5) Now send out init dat to pic, all 5 bytes.
' 6) Now set direction and levels for the COMA and COMB pins.
tempA CON c_p3_x <<1 + c_p4_x <<1 + c_p1_x <<1 + c_p2_x <<1 + c_rc_swB
dataInitA CON tempA <<1 + c_rc_swA <<1 + c_oi_swB <<1 + c_oi_swA
tempB CON c_sensor4 <<1 + c_sensor3 <<1 + c_p1_y <<1 + c_p2_y <<1 + c_sensor2
dataInitB CON tempB <<1 + c_sensor1 <<1 + c_packet_num <<1 + c_PB_mode
tempC CON c_batt_volt <<1 + c_sensor7 <<1 + c_p1_wheel <<1 + c_p2_wheel <<1 + c_sensor6
dataInitC CON tempC <<1 + c_sensor5 <<1 + c_p3_y <<1 + c_p4_y
tempD CON c_res01 <<1 + c_delta_t <<1 + c_p3_aux <<1 + c_p4_aux <<1 + c_p1_aux
dataInitD CON tempD <<1 + c_p2_aux <<1 + c_p3_wheel <<1 + c_p4_wheel
Output COMA
low COMA
low COMB
Input COMC
Wait_init: if IN3 = 1 then Wait_init:
Shiftout COMB,COMA,1, [dataInitA,dataInitB,dataInitC,dataInitD,dataInitVolt]
Input COMA
high COMB
Output COMC
low COMC
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'====================================== EMERGENCY STOP COMMAND INITIALIZE ====================================
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
emergency_stop = 0
'=============================================================================================================
'========== MAIN LOOP ========================================================================================
'=============================================================================================================
MainLoop:
'---------- Serin Command - Get Data from Master uP ----------------------------------------------------------
' Construct the "serin" command using the following rules:
' 1) There must be one variable for every input defined in the "Define Constants for Init" section.
' 2) The order must match the order in the EXAMPLE SERIN COMMAND below.
' 3) The total number of all variables may not exceed 26.
' 4) Only use one "Serin" command.
' 5) The Serin command must occupy one line.
'
' If you see a BASIC INIT ERR on the Robot Controller after programming and pressing RESET, then
' there is a problem with the Serin command below. Check the number of variables. A BASIC INIT ERR
' will not occur if you have the variables in the wrong order, however your code will not work correctly.
'
' EXAMPLE SERIN COMMAND
' This example exceed the 26 variable limit and is not on one line:
'
' Serin COMA\COMB, INBAUD, [oi_swA,oi_swB,rc_swA,rc_swB,p2_x,p1_x,p4_x,p3_x,PB_mode,packet_num,sensor1,
' sensor2,p2_y,p1_y,sensor3,sensor4,p4_y,p3_y,sensor5,sensor6,p2_wheel,p1_wheel,
' sensor7,sensor8,p4_wheel,p3_wheel,p2_aux,p1_aux,p4_aux,p3_aux,delta_t,res01]
'
Serin COMA\COMB, INBAUD, [oi_swA,oi_swB,rc_swA,rc_swB,p2_x,p1_x,p4_x,p3_x,PB_mode,packet_num,p2_y,p1_y,p4_y,p3_y,p2_wheel,p1_wheel,p4_wheel,p3_wheel]
'---------- Blink BASIC RUN LED ------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------
Toggle 7 'Basic Run LED on the RC is toggled ON/OFF every loop.
'=============================================================================================================
'========== PERFORM OPERATIONS ===============================================================================
'=============================================================================================================
'---------- Buttons to Relays---------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------
' This maps the joystick buttons to specific relay outputs. Relays 1 and 2
' use limit switches to stop the movement in one direction.
' The & used below is the PBASIC symbol for AND
' The &~ used below is the PBASIC symbol for AND NOT
relay1_fwd = 1 &~ rc_sw1 'Relay 1 Forward, unless rc_sw1 is ON Compressor ON
relay1_rev = 0 ' Compressor OFF
relay2_fwd = p2_sw_trig 'Port 2 Trigger = Relay 2 Forward, High Speed
relay2_rev = p2_sw_top 'Port 2 Thumb = Relay 2 Reverse, Low Speed
relay3_fwd = 1 'Relay 3 Forward Left Claw Closed
relay3_rev = p4_sw_top 'Port Thumb = Relay 3 Reverse Left Claw Open
relay4_fwd = 1 'Port 4 Trigger = Relay 4 Forward Right Claw Closed
relay4_rev = p4_sw_aux1 'Port 4 Thumb = Relay 4 Reverse Right Claw Open
relay5_fwd = 1 'Relay 5 Forward = Team Color Light Always on
relay5_rev = 0 '
'relay6_fwd = '
'relay6_rev = '
'relay7_fwd = '
'relay7_rev = '
'relay8_fwd = '
'relay8_rev = '
'---------- PWM Feedback lights-------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------
' This drives the "PWM1" and "PWM2" "Robot Feedback" lights on the Operator
' Interface. The lights are green for joystick forward and red for joystick
' reverse. Both red and green are on when the joystick is centered. Use the
' trim tabs on the joystick to adjust the center.
if user_display_mode = 1 then skip_this_code
if p1_y > 129 then p1_y_not_127
if p1_y < 125 then p1_y_not_127
Out8 = 1
Out9 = 1
goto exit_p1_y_test
p1_y_not_127:
Out8 = p1_y/216 'LED is ON when Port 1 Y is full forward
Out9 = ~(p1_y/56 max 1) 'LED is ON when Port 1 Y is full reverse
exit_p1_y_test:
if p1_x > 129 then p1_x_not_127
if p1_x < 125 then p1_x_not_127
Out10 = 1
Out11 = 1
goto exit_p1_x_test
p1_x_not_127:
Out10 = p1_x/216 'LED is ON when Port 1 X is full forward
Out11 = ~(p1_x/56 max 1) 'LED is ON when Port 1 X is full reverse
exit_p1_x_test:
skip_this_code:
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'====================================== Driving Code =========================================================
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'---------- Primary Drive ------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------
' This code Tells the robot to put forth power to motors for forward and backward movements
' Joystick forward = Robot forward
' Joystick backward = Robot backwards
' PWM1 = p1_y
' PWM2 = p1_y
' PWM3 = p1_y
'---------- Primary Steer ------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------
' This code Tells the robot to steer left or right depending on the potentiometer values
' Joystick forward = Robot forward
' Joystick backward = Robot backwards
' PWM4 = p1_x
'---------- Secondary Drive (Minikrunch) ---------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------
' This code Tells the robot to put forth power to motors for forward and backward movements on Mini Krunch
' Joystick forward = Robot forward
' Joystick backward = Robot backwards
' PWM5 = p3_y
'---------- Secondary Steer (Minikrunch) ---------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------
' This code Tells the robot to steer left or right on Mini Krunch
' Joystick forward = Robot forward
' Joystick backward = Robot backwards
' PWM6 = p3_x
'---------- Secondary Drive (Minikrunch) ---------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------
' This code Tells the robot to put forth power to motors for forward and backward movements
' Joystick forward = Robot forward
' Joystick backward = Robot backwards
' PWM5 = p3_y
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'====================================== END Driving Code =====================================================
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'---------- Relay Feedback Lights ----------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------
' This drives the "Relay 1" and "Relay 2" "Robot Feedback" lights on the Operator
' Interface.
' if user_display_mode = 1 then user_mode_is_ON
' Out13 = relay1_fwd 'LED is ON when Relay 1 is CW Compressor ON
' Out12 = rc_sw1 = 1 'LED is ON when Pressure Switch = 1 Up to Pressure
' Out15 = relay2_fwd 'LED is ON when Relay 2 is CW High Gear
' Out14 = relay2_rev 'LED is ON when Relay 2 is CCW Low Gear
' goto display_done
' user_mode_is_ON: 'Send Port1 Y to 7-segment display when PB_mode.bit5 = 1
' out8 = p1_y.bit0
' out9 = p1_y.bit1
' out10 = p1_y.bit2
' out11 = p1_y.bit3
' out12 = p1_y.bit4
' out13 = p1_y.bit5
' out14 = p1_y.bit6
' out15 = p1_y.bit7
' display_done:
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'====================================== Driving Code Limitations =============================================
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'---------- Rear wheels dont move while in High gear----------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------
'if relay2_fwd = 1 then next1:
' PWM2 = 127
'next1:
'
'if relay2_fwd = 1 then next2:
' PWM3 = 127
'
'next2:
'---------- Rear wheels move while in Low gear----------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------
'if relay2_fwd = 0 then next3:
' PWM2 = p1_y
'next3:
'
'if relay2_fwd = 0 then next4:
' PWM3 = p1_y
'next 4:
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'====================================== END Driving Code Limitations =========================================
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'====================================== EMERGENCY STOP COMMAND CHECK =========================================
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'If p2_sw_aux1 = 1 then emergency_stop = 1
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'====================================== EMERGENCY STOP COMMAND ===============================================
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
If emergency_stop = 1 then nevermind:
'PWM1 = 127 'Front Drive Motor
'PWM2 = 127 'Rear Left Drive Motor
'PWM3 = 127 'Rear Right Drive Motor
'PWM4 = 127 'Steering Motor
'PWM5 = 127 'Mini Krunch Drive Motor
'PWM6 = 127 'Mini Krunch Steering Motor
'PWM7 = 127 'Mini Krunch Release Servo
relay1_fwd = 0 'Compressor
relay2_fwd = 0 'High Gear
relay2_rev = 1 'Low Gear
relay3_fwd = 1 'Open Left Claw
relay3_rev = 0 'Close Left Claw
relay4_fwd = 1 'Open Right Claw
relay4_rev = 0 'Close Right Claw
relay5_fwd = 0 'Team Color Light
nevermind:
'=============================================================================================================
'========== OUTPUT DATA ======================================================================================
'=============================================================================================================
' The Serout line sends data to the Output uP. The Output uP passes this to each PWM 1-16
' and Relay 1-8. The Output uP will not output data if there is no communication with the
' Operator Interface or if the Competition Mode is Disabled. Do not delete any elements
' from the Serout array. Set unused PWM outputs to 127. Set unused relay outputs to 0.
'
' Serout USERCPU, OUTBAUD, [255,255,(PWM1),(PWM2),(PWM3),(PWM4),(PWM5),(PWM6),(PWM7),relayA,relayB]
Serout USERCPU, OUTBAUD, [255,255,p1_y,p1_y,p1_y,p1_x,p3_y,p3_x,127,relayA,relayB]
Goto MainLoop:
Stop
|
|
#13
|
||||||
|
||||||
|
Re: 2002 FRC Controller...
Did you rearrange the serout command? everything needs to stay in the same order as the original.
|
|
#14
|
|||||
|
|||||
|
Re: 2002 FRC Controller...
The short answer is you need to keep the original Serout command in exactly the order it was,
Another issue is some of the changes you've made to the initialization constants, e.g., Code:
c_p2_x CON 0 They have to be in the order shown in the Serin comment line, but you remove the variables in the middle that you've turned off, such as, p2_x. ------------ The long answer... What Joe said. You rearranged the Serout arguments, but the other side of the call treats every position in this exact order: Code:
' Serout USERCPU, OUTBAUD, [255,255,(PWM1),relayA,(PWM2),relayB,(PWM3),(PWM4),(PWM5),(PWM6),(PWM7),(PWM8),(PWM9),(PWM10),(PWM11),(PWM12),(PWM13),(PWM14),(PWM15),(PWM16)] Serout USERCPU, OUTBAUD, [255,255,p1_y,relayA,p2_y,relayB] and what the RC receives might be:[255,255,127,102,127,100] There's no way for the computer to know if you've swapped any of the values around.You're getting the same thing in reverse with the Serin call. You've told the computer that p2_x isn't wanted, so you have an argument in the Serin call that the computer isn't expecting. The RC sends you values in order for [oi_swA,oi_swB,rc_swA,rc_swB,p1_x,...] but you're stuffing them into[oi_swA,oi_swB,rc_swA,rc_swB,p2_x,p1_x,...] Nobody complains, but you won't get the values you want where you want them.The only way Serout can be changed is you can leave some of those PWM arguments off the very end if you don't happen to be using them. Serout will recognize that it only has 10 arguments rather than the full 20. ------------ Another issue you'll have is the robot controller only has space for 26 variables and right now 26 are declared. You're not using all of them, so you can comment out some to free space for some new PWMx variables. Or you can reuse the variables already declared (p1_wheel), just like the default code does with p1_y, etc. Here's an example to turn off your rear wheels while in high gear. It reuses the variables p2_y and p3_y to hold what you want for the pwm outputs, but you can replace these with other variables. Code:
'---------- Rear wheels dont move while in High gear (relay2_fwd=0) ------ p2_y = p1_y p3_y = p1_y if relay2_fwd = 1 then next1: p2_y = 127 p3_y = 127 next1: Serout USERCPU, OUTBAUD, [255,255,p1_y,relayA,p2_y,relayB,p3_y,p4_y,p1_x,p2_x,p3_x,p4_x,p1_wheel,p2_wheel,p3_wheel,p4_wheel] Code:
'Comment out the variables you aren't using (and change the Serin arguments to match, including the c_p1_wheel , etc. initializations) 'p1_wheel VAR byte 'Port 1, Wheel on Joystick n/a 'p2_wheel VAR byte 'Port 2, Wheel on Joystick n/a 'p3_wheel VAR byte 'Port 3, Wheel on Joystick n/a 'p4_wheel VAR byte 'Port 4, Wheel on Joystick n/a 'p1_aux VAR byte 'Port 1, Aux on Joystick n/a 'p2_aux VAR byte 'Port 2, Aux on Joystick n/a 'p3_aux VAR byte 'Port 3, Aux on Joystick n/a 'p4_aux VAR byte 'Port 4, Aux on Joystick n/a ' Add your new variables PWM1 VAR Byte PWM2 VAR Byte PWM3 VAR Byte PWM4 VAR Byte PWM5 VAR Byte PWM6 VAR Byte PWM7 VAR Byte '---------- Rear wheels dont move while in High gear (relay2_fwd=0) ------ PWM2 = p1_y PWM3 = p1_y if relay2_fwd = 1 then next1: PWM2 = 127 PWM3 = 127 next1: Serout USERCPU, OUTBAUD, [255,255,PWM1,relayA,PWM2,relayB,PWM3,PWM4,PWM5,PWM6,PWM7] I un-commented all your code and it compiles with a couple of minor errors. I don't have an RC handy to test it though, but I can get one if necessary and you have trouble. 1) Comment out the variables you aren't using (p1_wheel, p2_x, etc.) that way an error will let you know if you forgot and left it in a Serin/Serout call. 2) Add new PWMx variables 3) Fix the Serin call 4) Change the Serout call to use PWM1, etc. 5) next 4: needs to be next4: 6) The check for emergency_stop should be "= 0" rather than 1 7) The emergency_stop example I originally gave you had a syntax error. It should have been: Code:
IF p2_sw_aux1 = 0 THEN next5:
emergency_stop = 1
next5:
Last edited by Mark McLeod : 17-07-2008 at 08:01. Reason: Changed my answers around a bit to simplify |
|
#15
|
||||
|
||||
|
Re: 2002 FRC Controller...
Wow ok everytime i edit the code and un-comment something with the new fixes, it comes out clean. thank you soo much!!!! now i cant wait to test this tomorrow.
|
![]() |
| Thread Tools | |
| Display Modes | Rate This Thread |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| FRC Robot Controller Broke | animemanga197 | Kit & Additional Hardware | 6 | 02-02-2008 18:12 |
| FRC Robot Controller/Speed Controller | RoarRoar | Control System | 3 | 17-01-2008 10:41 |
| Amount of power drawn by FRC controller? | Teger | Electrical | 6 | 08-01-2007 17:39 |
| FRC 2002 Very Fast Ball Collector | groves | Technical Discussion | 13 | 12-01-2006 15:54 |
| 2003's FRC Robot Controller | ahmed | Programming | 7 | 18-12-2003 22:43 |