Subject:
|
Re: VB 6 subprocedure stumper
|
Newsgroups:
|
lugnet.robotics.rcx
|
Date:
|
Fri, 14 Apr 2000 21:16:42 GMT
|
Viewed:
|
1795 times
|
| |
|
|
If your subs won't be called more than once, you can create a VB procedure
with the code and "call" it where you want the code. It will work like a C
macro, inserting copies of that code whenever called and keeps your code
organized.
I know it is not a solution, just a work around.
If you want, e-mail me the code and I'll try to debug it for you.
bye,
Mauro
"Kathy Brooks" <kbrooks@centralia.ctc.edu> wrote in message
news:Fs36zy.7Lt@lugnet.com...
> 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 and multiple tasks (I haven't even tackled the multiple
> tasks yet).
>
> CHECK_LEFT and CHECK_RIGHT are set to 0 and 1 - so it's just subprocedure • 0
> and subprocedure 1. Any chance a subprocedure numbered 0 could interfere • with
> task 0?
>
> Could you answer: how come, in the code below, if I comment out the line • from
> main that says: .GoSub CHECK_RIGHT
> the CHECK_RIGHT procedure still works (and of course the CHECK_LEFT still • does
> not)?
>
> Also, I've downloaded the Softbricks zip file from your site; I'll give it • a
> try.
>
> THANKS - Kathy B.
>
> In lugnet.robotics.rcx, David Leeper writes:
> > 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 is in Reply To:
 | | 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)
|
5 Messages in This Thread:
 
 
- Entire Thread on One Page:
- Nested:
All | Brief | Compact | Dots
Linear:
All | Brief | Compact
|
|
|
|
