This Forum is Dedicated For all The Object Oriented PIC Lovers .......... The concept behind OOPic is straight forward. Use preprogrammed multitasking Objects from a library of highly optimized Objects to do all the work of interacting with the hardware. Then write small scripts in Basic, C, or Java syntax styles to control the Objects. During operation, the Objects run continuously and simultaneously in the background while the scripts run in the foreground telling the objects what to do.

Tuesday, February 12, 2008

Re: [oopic] Re: events again

Oopic C.1.1+ Oopic C Carrier board 6.1.1 compiler
To refresh your memory, I have been having trouble getting the events to
work. We have sent email back and forth You sent this program saying that if
it did not work then you thought my chip was broken.
I tried the program and the results were:
The green led comes on flashes and changes intensity and then stays on.
It never goes to the subroutine to turn on the red led as it should.
So I talked to the people at the Bot Shop and they arranged with Savage
and sent me a new chip. The very first thing I did was put the chip on my
board and try the program. It did exactly the same thing with the new chip as it
did with the old. Just to make sure it was not the carrier board I took the
chip off the board, put the chip on my proto board and put the 9 volt
battery to pins 24 and 23. I got he exact same reaction. The red led in the sub
routine never comes on.
This is very frustrating. Every thing else that I have tried works. Do
you have any suggestions for me?

In a message dated 2/4/2008 12:09:35 A.M. Eastern Standard Time,
dennis.clark@oopic.com writes:

This code works, but it flashes at a .5Hz rate, I wasn't interested in a
1Hz flash so much as working event code.

---------------------------------------------------
Dim BLINK As New oEvent
Dim WIRE As New oWire
Dim led7 As New oLED
Dim led5 As New oLED
Dim flag As New oByte

Sub Main()
flag = 0
ooPIC.Delay = 500
led5.IOLine = 5
led5.TurnOn
led7.IOLine = 7
WIRE.Input.Link(WIRE.Input
WIRE.Output.WIRE.Output
WIRE.Operate = cvTrue
End Sub

Sub BLINK_Code()
If flag = 1 Then
led7.TurnOn
flag = 0
Else
led7.TurnOff
flag = 1
End If

End Sub
----------------------------------------------

If this code doesn't work for you then your ooPIC is broken.


**************The year's hottest artists on the red carpet at the Grammy
Awards. Go to AOL Music.
(http://music.aol.com/grammys?NCID=aolcmp00300000002565)


[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:

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

No comments: