| Pregunta: | 2582 - LECTURA/ESCRITURA A PUERTOS |
| Autor: | Silverio Altamirano ALmazán |
| Hola buendia para todos usedes Podrian ustedes resolver la siguiene duda que tengo : En ACCESS hay alguna instruccion o manera de hacer lectura o escritura a puertos de la compuadora. En donde puedo consultar sobre eso o como le hago para saber como se reliza esto. Por su atencion muchas gracias. | |
| Respuesta: | JUANMA |
| PRUEBA ESTO ´escritura de un byte(8 bits) en un puerto Declare Sub Out_b Lib "iodll32.dll" (ByVal direccion As Integer, ByVal caracter As Integer) ´escritura de un word(16 bits) en un puerto Declare Sub Out_w Lib "iodll32.dll" (ByVal direccion As Integer, ByVal palabra As Integer) ´lectura de un byte(8 bits) de un puerto Declare Function Inp_b Lib "iodll32.dll" (ByVal direccion As Integer) As Integer ´lectura de un word(16 bits) de un puerto Declare Function Inp_w Lib "iodll32.dll" (ByVal direccion As Integer) As Integer ´Obtener la direccion de una variable de VB Declare Function GetDireccion Lib "iodll32.dll" (var As Any) As Long ´poner un byte/word/dword en una posicion de memoria Declare Sub PokeByte Lib "iodll32.dll" (ByVal direc As Long, ByVal vale As Integer) Declare Sub PokeWord Lib "iodll32.dll" (ByVal direc As Long, ByVal vale As Integer) Declare Sub PokeDWord Lib "iodll32.dll" (ByVal direc As Long, ByVal vale As Long) ´obtener un byte/word/dword de una posicion de memoria Declare Function PeekByte Lib "iodll32.dll" (ByVal direc As Long) As Integer Declare Function PeekWord Lib "iodll32.dll" (ByVal direc As Long) As Integer Declare Function PeekDWord Lib "iodll32.dll" (ByVal direc As Long) As Long ´ lo mismo pero con una direccion segmento:offset (segmento = 16 bits, offset = 32 bits) Declare Sub PokeHByte Lib "iodll32.dll" (ByVal segto As Integer, ByVal direc As Long, ByVal vale As Integer) Declare Function PeekHByte Lib "iodll32.dll" (ByVal segto As Integer, ByVal direc As Long) As Integer UN SALUDO | |