Параллельный порт - VB

Формулировка задачи:

Как в VB прочитать - передать данные в LPT?

Код к задаче: «Параллельный порт - VB»

textual
Public Declare Function DlPortReadPortUchar Lib "dlportio.dll" _
   (ByVal Port As Long) As Byte
Public Declare Function DlPortReadPortUshort Lib "dlportio.dll" _ 
   (ByVal Port As Long) As Integer
Public Declare Function DlPortReadPortUlong Lib "dlportio.dll" _ 
   (ByVal Port As Long) As Long
 
Public Declare Sub DlPortReadPortBufferUchar Lib "dlportio.dll" _
   (ByVal Port As Long, Buffer As Any, ByVal Count As Long)
Public Declare Sub DlPortReadPortBufferUshort Lib "dlportio.dll" _ 
   (ByVal Port As Long, Buffer As Any, ByVal Count As Long)
Public Declare Sub DlPortReadPortBufferUlong Lib "dlportio.dll" _ 
   (ByVal Port As Long, Buffer As Any, ByVal Count As Long)
 
Public Declare Sub DlPortWritePortUchar Lib "dlportio.dll" _ 
   (ByVal Port As Long, ByVal Value As Byte)
Public Declare Sub DlPortWritePortUshort Lib "dlportio.dll" _
   (ByVal Port As Long, ByVal Value As Integer)
Public Declare Sub DlPortWritePortUlong Lib "dlportio.dll" _
   (ByVal Port As Long, ByVal Value As Long)
 
Public Declare Sub DlPortWritePortBufferUchar Lib "dlportio.dll" _
   (ByVal Port As Long, Buffer As Any, ByVal Count As Long)
Public Declare Sub DlPortWritePortBufferUshort Lib "dlportio.dll" _
   (ByVal Port As Long, Buffer As Any, ByVal Count As Long)
Public Declare Sub DlPortWritePortBufferUlong Lib "dlportio.dll" _
   (ByVal Port As Long, Buffer As Any, ByVal Count As Long)
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

13   голосов, оценка 4.077 из 5


СДЕЛАЙТЕ РЕПОСТ