Re: [oopic] events again

I ran your code on an ooPIC R by making the trigger button be on IOLine
5 and removing the invert on the oWire. It works fine. I'm using V.6
compiler of course. What doesn't this do? LED 7 comes on, when the
button is pushed LED6 blinks 5 times. All appears to be fine.

DLC

dldlhfd wrote:
> I know I just ask the question but I still can't get it to work. I
> hope that someone can help.
> Oopic C.1.1+ compiler 6.1.1
> Hardware wise I have a switch, one side hooked up to 5 volts the
> other side hooked to ground with a 1K resistor. When the line is not
> connected to 5 volts it is connected to ground. Just to make sure it
> was not the switch I took it out and just used a jumper on my proto
> board. I tested it before I hooked it to the oopic
> My code is below
> I have an if statement in a do loop. If I comment out my event code
> and uncomment the if statements in a do loop the program works just s
> it should. When I disconnect the 5 volt line the yellow light blinks
> with 5 second delay.
> With no hardware changes, if I comment out the do statement and the
> if statement, so I just have the event as it is now it does not work.
> What am I doing wrong?
>
> Dim ev1 As New oEvent
> Dim led7 As New oLED
> Dim led6 As New oLED
> Dim led5 As New oLED
> Dim sw1 As New oSwitch
> Dim wi1 As New oWire
>
> Sub main()
> led7.IOLine = 7 'red
> led6.IOLine = 6 'yellow
> led5.IOLine = 5 'green
> sw1.IOLine = 13 'read the switch on line 13
> ooPIC.Delay =500
> led7.TurnOn 'some indication it is on
> wi1.Input.Link(sw1.Position)'read the switch normally 1
> wi1.InvertOut = cvTrue 'yes invert the output
> wi1.Output.Link(ev1.Operate) 'inverted output to event norm 0
> wi1.Operate = cvTrue 'turn the wire on
> 'Do
> 'If sw1.IsOff 'if switch is at zero volts logic 0
> ' led5.TurnOnBright
> ' led6.TurnOff
> ' ev1_Code
> 'Else 'if switch is at 5 volts logic 1
> ' led6.TurnOn
> ' led5.TurnOff
> 'EndIf
> 'Loop
> End Sub
>
> Sub ev1_Code()
> Do 5 Times
> led6.TurnOn
> ooPIC.Delay = 1000
> led6.TurnOff
> ooPIC.Delay = 1000
> Loop
> End Sub
>
>
>
>
>
>
> Yahoo! Groups Links
>
>
>
>
>

--
===================================================
Dennis Clark ooPIC Technical Support
===================================================

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:

http://docs.yahoo.com/info/terms/