this with a level shifter into RealTerm and it works fine. I added a
CR LF pair to clean up the display.
Dim S As New oSerialL
Sub main()
ooPIC.Delay = 5000
S.IOLineS = 9
S.Baud = cv9600
S.Operate = 1
Do
S.String = "hello" + Chr$(13) + Chr$(10)
ooPIC.Delay = 20
Loop
End Sub
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