I write the these two case of program and download to oopicR B2.2+ by
complier 6.1.1. Unfortunately, I cannot success on it. however,I
success the case(1) program by complier 5.0.1, the oopic-R could make
the two LEDs to flash.
Could you kindly check this matter? thanks
*Case(1)
Dim W As New oFanout(2)
Dim LED_1 As New oDIO1
Dim LED_2 As New oDIO1
Dim a As New oClock
Sub Main()
LED_1.IOLine = 6
LED_1.Direction = cvOutput
LED_2.IOLine = 5
LED_2.Direction = cvOutput
a.Rate = 200
W.Input.Link(a)
a.Operate = cvTrue
W.Output1.Link(LED_2)
W.Output2.Link(LED_1)
W.Operate = cvTrue
End Sub
Result:
Case(1) Program is only turn on the two LED in oopic-R.
*Case(2)
Dim W As New oWire2C
Dim LED_1 As New oDIO1
Dim LED_2 As New oDIO1
Dim a As New oClock
Sub Main()
LED_1.IOLine = 6
LED_1.Direction = cvOutput
LED_2.IOLine = 5
LED_2.Direction = cvOutput
a.Rate = 200
W.Input.Link(a)
a.Operate = cvTrue
W.Output1.Link(LED_2)
W.Output2.Link(LED_1)
W.Operate = cvTrue
End Sub
Result:
Case(2) the two LED no any respond.
Thank you for your kindly support
Michael
--- In oopic@yahoogroups.com, "aibomc" <aibomc@...> wrote:
>
> --- In oopic@yahoogroups.com, "aibomc" <aibomc@> wrote:
> >
> > Dear sir,
> >
> > Actually, I tried the oFanOut2,oWire2 and oWire2c, it does work
at
> > oopic V6.
> > Pls, help
> >
> > Michael
> > --- In oopic@yahoogroups.com, ooPIC Tech Support <dennis.clark@>
> > wrote:
> > >
> > > Please check out the manual and example programs. This line:
> > > Dim W As New oFanOut2/OWire2/Owire2c
> > > will not compile. Try this instead:
> > > Dim W As New oFanOut2
> > >
> > > DLC
> > >
> > > aibomc wrote:
> > > > Dear Sir,
> > > >
> > > > I write the following program by oopic complier Ver6 using
the
> > > > OFanout, Owrie and owire2c
> > > > However, It cannot seccess in Window XP.
> > > >
> > > >
> > > >
> >
>
*********************************************************************
> > > > 'ooPIC Version: ooPIC R B2.2
> > > >
> > > > The oClock Object generates specific clock rate To LED-1 &
LED-2
> > > > interface by oFanOut2
> > > >
> > > > ' *********** ************** ------> LED-1
> > > > ' *Oclock(a)*----->*OFanout2 (w)*
> > > > ' *********** ************** ------> LED-2
> > > >
> > > >
> > > > Dim W As New oFanOut2/OWire2/Owire2c
> > > > Dim LED_1 As New oDIO1
> > > > Dim LED_2 As New oDIO1
> > > > Dim a As New oClock
> > > >
> > > > Sub Main()
> > > >
> > > > LED_1.IOLine = 6
> > > > LED_1.Direction = cvOutput
> > > > LED_2.IOLine = 5
> > > > LED_2.Direction = cvOutput
> > > >
> > > >
> > > > a.Rate = 200
> > > > W.Input.Link(a)
> > > > a.Operate = cvTrue
> > > >
> > > >
> > > > W.Output1.Link(LED_2)
> > > > W.Output2.Link(LED_1)
> > > > W.Operate = cvTrue
> > > >
> > > >
> > > > End Sub
> > > >
> >
>
*********************************************************************
> > > >
> > > > Could you kindly reply my problem?
> > > >
> > > > Thank you for your concern
> > > >
> > > > Michael
> > > >
> > > >
> > > >
> > > >
> > > >
> > > > Yahoo! Groups Links
> > > >
> > > >
> > > >
> > > >
> > > >
> > >
> > > --
> > > ------------------------------------------------------
> > > Dennis Clark ooPIC Tech Support
> > > www.oopic.com
> > > ------------------------------------------------------
> > >
> >
>
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