Dim Knob As New oKnobX
Dim Servo As New oServoX
Dim Bus As New oBus
Sub main()
Knob.IOLine = 1
Knob.Operate = cvTrue
Servo.IOLine = 31
Servo.Operate = cvTrue
Bus.Input.Link(Knob)
Bus.Output.Link(Servo)
Bus.Operate = cvTrue
End Sub
This works with V6 and a B.2.2+ chip. I am watchin the output with a
scope. The output changes from 0.6 mS to 2.3 mS (more or less).
Richard
------------------------------------
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