mauriciodtdt escribió:
gracias por la respuesta pero lo que yo necesito es saber los comandos en visual basic que me permitan sacar un clock pulse del puerto paralelo para ingresarlo al contador.
Yo te recomiendo que utilices un Driver para tal fin, es decir para acceder al puerto paralelo, siempre y cuando estemos hablando de que usas como SO alguno basado en NT, como el windows XP. Entre los drivers que andan dando vueltas, tenes 2 muy simples: el PortTalk y el Inpout32, estos archivos son 2 dll que tienen declaradas ya las funciones de acceso al puerto con todas las salvedades de Privilegios de Acceso, para lo cual, si utilizas sentencias directas desde VBasic, te dara error de acceso, por ser una funcion de Privilegio.
Las funciones a utilizar son:
- Código: Seleccionar todo
function Inp32(direccion:word):byte; stdcall; external 'inpout32.dll';
function Out32(direccion:word;Dato:byte):byte; stdcall; external 'inpout32.dll';
Con respecto a VBasic, tenes una DLL muy buena, implementada por Pablin
- Código: Seleccionar todo
La librería que presentamos ahora permite desarrollar aplicaciones que funcionen tanto en Windows95 como en Windows XP pasando por todas las versiones intermedias. Adicionalmente tenemos un conjunto extendido de operaciones posibles a realizar tales como:
PortOut: Envía un byte al puerto especificado
PortWordOut: Envía una palabra (de 16 bits) al puerto especificado
PortDWordOut: Envía una palabra doble (de 32 bits) al puerto especificado
PortIn: Lee un byte del puerto especificado
PortWordIn: Lee una palabra (16 bits) del puerto especificado
PortDWordIn: Lee un palabra doble (32 bits) del puerto especificado
SetPortBit: Pone en 1 el bit especificado del puerto indicado
ClrPortBit: Pone en 0 el bit especificado del puerto indicado
NotPortBit: Invierte el estado del bit especificado del puerto indicado
GetPortBit: Obtiene el estado del bit especificado
RightPortShift: Rota a la derecha el contenido del puerto haciendo que LSB pase a MSB
LeftPortShift: Rota a la izquierda el contenido del puerto haciendo que MSB pase a LSB
IsDriverInstalled: Devuelve un valor diferente a 0 si el driver se encuentra cargado en memoria
Para poder utilizar esta librería basta con copiar el archivo IO.DLL en la carpeta donde está el programa en desarrollo y agregar en un módulo BAS lo siguiente:
Private Declare Sub PortOut Lib "IO.DLL" (ByVal Port As Integer, ByVal Data As Byte)
Private Declare Sub PortWordOut Lib "IO.DLL" (ByVal Port As Integer, ByVal Data As Integer)
Private Declare Sub PortDWordOut Lib "IO.DLL" (ByVal Port As Integer, ByVal Data As Long)
Private Declare Function PortIn Lib "IO.DLL" (ByVal Port As Integer) As Byte
Private Declare Function PortWordIn Lib "IO.DLL" (ByVal Port As Integer) As Integer
Private Declare Function PortDWordIn Lib "IO.DLL" (ByVal Port As Integer) As Long
Private Declare Sub SetPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte)
Private Declare Sub ClrPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte)
Private Declare Sub NotPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte)
Private Declare Function GetPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte) As Boolean
Private Declare Function RightPortShift Lib "IO.DLL" (ByVal Port As Integer, ByVal Val As Boolean) As Boolean
Private Declare Function LeftPortShift Lib "IO.DLL" (ByVal Port As Integer, ByVal Val As Boolean) As Boolean
Private Declare Function IsDriverInstalled Lib "IO.DLL" As Boolean
************************************************** **http://www.pablin.com.ar/computer/programa/vb/io.dll
http://www.pablin.com.ar/computer/programa/vb/iodll.htm
Saludos
PD: te adjunto el PortTalk y el ImpOut32.dll y tambien Io.dll de Pablin
