Visual Basic Example:

Dim Result As Integer
Dim Str As String

Result = IO1.Open("LPT1:", "") 'Open a parallel Port.
Result = IO2.Open("COM2:", "baud=9600 parity=N data=8 stop=1") 'Open a Serial Port.

Result = IO1.WriteString("Hello World to LPT1" + Chr(13) + Chr(10))
Result = IO2.WriteString("Hello World to COM2" + Chr(13) + Chr(10))
 

Result = IO1.Close() 'Close the port now that we are done
Result = IO2.Close() 'Close the port now that we are done
 
 

Note: You must drop two I/O OCX control onto the form you are working with.
 
 
 
 
 
 

Home Page | Site Map | Copyright (c) 1998 by JSPayne of Cortland NY