Go to Post Batteries don't help you if they're lying on the field. - Kevin Sevcik [more]
Home
Go Back   Chief Delphi > Technical > Programming
CD-Media   CD-Spy  
portal register members calendar search Today's Posts Mark Forums Read FAQ rules

 
 
 
Thread Tools Rate Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Spotlight this post!  
Unread 17-09-2003, 21:33
Salik Syed Salik Syed is offline
Registered User
FRC #0701 (RoboVikes)
Team Role: Alumni
 
Join Date: Jan 2003
Rookie Year: 2001
Location: Stanford CA.
Posts: 514
Salik Syed has much to be proud ofSalik Syed has much to be proud ofSalik Syed has much to be proud ofSalik Syed has much to be proud ofSalik Syed has much to be proud ofSalik Syed has much to be proud ofSalik Syed has much to be proud ofSalik Syed has much to be proud ofSalik Syed has much to be proud of
Send a message via AIM to Salik Syed
Autonomous Program

Hi, we are currently working on a new autonomous program which uses infared sensors for more accurate readings I know several teams have done this. Anyways this is what we have come up w/ so far... can anyone spot a mistake? It tokenizes but there is a Basic run error when putting it on the robot.

if auton_mode=1 then auto1:
goto end_auto_loop:

auto1:
first:
if dist>7 then end_first:
drive_R=0 'ur going backwards remember
drive_L=0
if rc_sw3=0 then end_auto_loop:
dist=dist + whlc
goto end_auto_loop:

end_first:

turn:
if dist>9 then end_turn:
drive_R=difrdir
drive_L=difldir
if rc_sw3=0 then end_auto_loop:
dist=dist + whlc
goto end_auto_loop:

end_turn:

open_pnuematics:
if dist>10 then end_open_pnuematics:
p1_sw_trig=1 'open lower pneumatic
p2_sw_top=1 'close shoulder pneumatic

end_open_pnuematics:

straight:
if dist>16 then end_straight:
drive_R=255 'straight now
drive_L=255
if rc_sw3=0 then end_auto_loop:
dist=dist + whlc
goto end_auto_loop:

end_straight:

straight2:
if dist>21 then end_straight2:
drive_R=255 'straight now
drive_L=255

end_straight2:

finish:
drive_R=127
drive_L=127
p1_sw_top=1 'close lower pneumatic
p2_sw_top=1 'open shoulder pneumatic

end_auto_loop:
__________________
Team 701
 


Thread Tools
Display Modes Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
A better autonomous method.. randomperson Programming 4 24-02-2004 18:02
autonomous mode problem on field Chris_C Programming 17 26-03-2003 19:11
Fried program slots? Jeff Waegelin Programming 18 19-03-2003 18:08
Autonomous Kill Switch UCGL_Guy Programming 8 15-01-2003 17:39
Ahh! Program trick confusing! archiver 2001 9 24-06-2002 02:26


All times are GMT -5. The time now is 00:33.

The Chief Delphi Forums are sponsored by Innovation First International, Inc.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Copyright © Chief Delphi