Dim Result As Integer
Dim Str As String
Result = IO1.Open("LPT1:", "") 'Open a parallel Port.
Result = IO1.WriteString("Hello World" + Chr(13) + Chr(10))
Result = IO1.WriteString(Chr(5))
'Device
specific data request
Str = IO1.ReadString(30) 'Read result
Result = IO1.Close() 'Close the port
now
that we are done
The following are
helpful
links to other sites with information on the PC's Parallel Port.
(you may want to bookmark this list):
http://www.ai.sri.com/~connolly/neuroscience/printer/draft.html
http://www.doc.ic.ac.uk/~ih/doc/par/doc/regpins.html
http://www.doc.ic.ac.uk/~ih/doc/par/
http://www.fapo.com/ieee1284.htm
http://www.fapo.com/files/ecp_reg.pdf
Home
Page | Site
Map | Copyright (c) 1998 by JSPayne
of Cortland NY