I am using C.1.1+ board and version 6.1.1 compiler
I have pared the program down to just include a simple event. the whole
project is a robot with two bumper switches, one front one back.
1. The robot goes forward as it should no problem
2. if I call any of the routines from the main program it executes as they
should.
3. I have two bumper switches set up
4. both switches supply 5 volts to their respective IO line normally
5. when the switch is bumped the switch voltage supplied to the IO line goes
to 0 volts
6. The program ignores the bumper switches.
7. I physically read the voltages and they are changing when the switched is
pressed.
8. I tried putting a do loop around the last four lines of the main sub but
it ignored the switches then also
Here is what I think should be happening with the values:
switch1.IOLine = 13 'assign bumper sw 1 to line 13
normal bumped
w1.Input.Link(switch1.Position) 'read bump sw1 assign to wire b1
5 0
w1.Output.Link(bumprd1.Operate) 'assign to on/off of event
5 0
w1.InvertOut = cvTrue '5v is normal 0v is bumped
0 5
I think he last one should give a transition from 0 to 5 and the 5(true)
should when copied to the operate property of the event cause the program to go
to the event_code.
Can you give me a clue as to why this won't execute the event code? I have
also tried reading I/O lines instead of a switch object.
Kind of a side question but can I run the OOPIC connected to the PC and have
it read the values or run the program as if it were connected to a virtual
robot and switches. As it is if it does not work the dumb thing just sits
there. No indication if it is working or not.
Dim led7 As New oLED 'red
Dim led6 As New oLED 'yellow
Dim led5 As New oLED 'green
Dim bumprd1 As New oEvent 'if bumped forward
Dim bumprd2 As New oEvent 'if bumped backward
Dim w1 As New oWire
Dim w2 As New oWire
Dim switch1 As New oSwitch
Dim switch2 As New oSwitch
Sub Main()
led7.IOLine=7
led7.Operate=cvOn
led6.IOLine=6
led6.Operate=cvOn
led5.Operate=cvOn
led5.IOLine=5
'physically the switch has normally 5 V
'physically when it is bumped the value is 0 volts
switch1.IOLine = 13 'assigh bumper sw 1 to line 13
w1.Input.Link(switch1.Position) 'read bump sw1 assign to wire b1
w1.Output.Link(bumprd1.Operate) 'assign to on/off of event
w1.InvertOut = cvTrue '5v is normal 0v is bumped
'switch two
'physically the switch has normally 5V
'physically when it is bumped the value is 0 volts
switch2.IOLine = 14 'assign bumper sw 2 to line 14
w2.Input.Link(switch1.Position) 'read bump sw2 assign to wire 2
w2.Output.Link(bumprd2.Operate) 'output of bumper 2
w2.InvertOut = cvTrue '5v is normal 0v is bumped
'do
led5.TurnOnBright 'bright green light says I am here
ooPIC.Delay=1000 'SLOW IT DOWN SO I CAN SEE
led5.TurnOff 'one loop of main
ooPIC.Delay=1000
'loop
End Sub
Sub bumprd1_Code() 'event code if bumper 1 = 0v
led6.TurnOnBright 'yellow
ooPIC.Delay = 5000 'wait 5 seconds to see
led6.TurnOff 'turn yellow back off
End Sub
Sub bumprd2_Code() 'evnet code if bumper 2 = 0v
led7.TurnOnBright 'yellow
ooPIC.Delay = 5000
led7.TurnOff 'turn the yellow off
End Sub
**************Start the year off right. Easy ways to stay in shape.
http://body.aol.com/fitness/winter-exercise?NCID=aolcmp00300000002489
[Non-text portions of this message have been removed]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/oopic/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/oopic/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:oopic-digest@yahoogroups.com
mailto:oopic-fullfeatured@yahoogroups.com
<*> To unsubscribe from this group, send an email to:
oopic-unsubscribe@yahoogroups.com
<*> Your use of Yahoo! Groups is subject to:
No comments:
Post a Comment