Subject:
|
Re: VB 6 subprocedure stumper
|
Newsgroups:
|
lugnet.robotics.rcx
|
Date:
|
Mon, 27 Mar 2000 08:27:12 GMT
|
Viewed:
|
2431 times
|
| |
|
|
Hi Kathy,
My first question would be "What are the values of CHECK_LEFT and
CHECK_RIGHT?" If they're the same, that would produce the behavior you're
getting. I know I often make a mistake like that when I copy and paste a line
of code.
You also may want to try getting the code to work without using RCX
subroutines first. Once that's working, you could move the appropriate code
back to the RCX subs.
And finally, if you're just interested in getting the bot to work, I've got a
DLL that has that functionality already, plus some other neat stuff as well.
You can find the download page for it, as well as links to on-line docs, here:
http://www.geocities.com/Athens/Column/2507/Download.htm
David Leeper (hopes this helps)
In lugnet.robotics.rcx, Kathy Brooks writes:
> I sure could use some help. I'm trying to recreate the BugBot program from
> the book "Definitive Guide to Lego Mindstorms" in VB 6. It's a simple program
> with a tank-like robot that has two "feelers" - one if the robot hits
> something on the right; one for the left. At this point I've simplified the
> program and there is a main task with an infinite loop - which constantly
> calls two subprocedures - one each to check the left sensor and the right
> sensor. The stumper is: whichever subprocedure is last is the one that
> works. If the check_left procedure is last in the code then just it works; if
> the check_right procedure is the last one then just it works. Strange and
> frustrating. Having the subprocedures above or below the "main" task makes no
> difference. In fact, the really odd thing is that if I comment out the code
> in "main" which calls the last subprocedure, that subprocedure still works!
>
> Omitting the normal code for exiting, downloading, etc., here's the heart of
> the program:
>
> Private Sub DownPrgm_Click()
> With PBrickCtrl
> .SelectPrgm 0
> .SetSensorType SENSOR_1, SWITCH_TYPE
> .SetSensorType SENSOR_3, SWITCH_TYPE
>
> .BeginOfSub CHECK_LEFT
> .If SENVAL, SENSOR_1, EQ, CON, 0 ' button is out
> .Off MOTOR_0
> .SetRwd MOTOR_2
> .While SENVAL, SENSOR_1, EQ, CON, 0 'button is still out
> 'just sorta spin & do nothing - motor_2 still in reverse
> .EndWhile
> .On MOTOR_0
> .SetFwd MOTOR_2
> .EndIf
> .EndOfSub
>
> .BeginOfSub CHECK_RIGHT
> .If SENVAL, SENSOR_3, EQ, CON, 0 ' button is out
> .Off MOTOR_2
> .SetRwd MOTOR_0
> .While SENVAL, SENSOR_3, EQ, CON, 0 'button is still out
> 'just sorta spin & do nothing - motor_0 still in reverse
> .EndWhile
> .On MOTOR_2
> .SetFwd MOTOR_0
> .EndIf
> .EndOfSub
>
> .BeginOfTask MAIN
> intCounter = 0
> .SetPower MOTOR_0 + MOTOR_2, CON, 3
> .SetFwd MOTOR_0 + MOTOR_2
> .On MOTOR_0 + MOTOR_2
> .Loop CON, forever 'keep looping forever
> .GoSub CHECK_LEFT
> .GoSub CHECK_RIGHT
> .EndLoop
> .EndOfTask 'main
> End With
> End Sub
> '-----------------------
> Any suggestions, help would be greatly appreciated!
> --Kathy Brooks
|
|
Message has 1 Reply:
 | | Re: VB 6 subprocedure stumper
|
| David: Thanks for the tips - I really appreciate any pointers/help I can get. Actually, if I abandon the idea of subprocedures and move the code within my main task, it runs just fine. However, the whole idea of this "lesson" is to use subprocedures (...) (25 years ago, 27-Mar-00, to lugnet.robotics.rcx)
|
Message is in Reply To:
| | VB 6 subprocedure stumper
|
| I sure could use some help. I'm trying to recreate the BugBot program from the book "Definitive Guide to Lego Mindstorms" in VB 6. It's a simple program with a tank-like robot that has two "feelers" - one if the robot hits something on the right; (...) (25 years ago, 27-Mar-00, to lugnet.robotics.rcx)
|
5 Messages in This Thread:
  
- Entire Thread on One Page:
- Nested:
All | Brief | Compact | Dots
Linear:
All | Brief | Compact
This Message and its Replies on One Page:
- Nested:
All | Brief | Compact | Dots
Linear:
All | Brief | Compact
|
|
|
|
