Varios - LPT.DLL

(Este proyecto esta desactualizado es para vbnet bajo windows lo deje a pedido)

 Esto es un pequeño driver DLL que te permite usar VBscript para automatizar el control de motores paso a paso unipolares para robotica y/o entretenimiento.

Este es mi pequeño lpt driver script LPT.DLL es un active x lo pueden descargar y probar...

Ejemplo para invocar el active x

**00.vbs*****************************************************************
'aqui se crea el objeto es la clase PAP de la libreria lpt.dll
set lpt = CreateObject("LPT.PAP")

lpt.cero 'pone a cero la salida del puerto paralelo registro de datos
lpt.cero_2 'pone a cero la salida del puerto paralelo registro de control


'se define la cantidad de pasos
lpt.cant_pasos=50
'se define la velocidad de giro en milisegundos
lpt.vel_mil=10

'se acciona el motor 1 hacia la derecha logica en hexadecimal pasada a long
'&HC, &H6, &H3, &H9) en decimal 12 - 6 - 3 - 9
'Matriz hexadecimal a mayor torque conmutndo dos bobinas usando la salida del LPT mas baja(low byte)

'1100 12 C
'0110 6 6
'0011 3 3
'1001 9 9

lpt.mot_1_der
'se pone a cero el puerto paralelo
lpt.cero

'se acciona el motor 1 hacia la izquierda &H3, &H6, &HC, &H9)
lpt.mot_1_izq
'se pone a cero el puerto paralelo
lpt.cero

'Matriz hexadecimal a mayor torque conmutndo dos bobinas usando la salida del LPT mas alta(high byte) &HC0, &H60, &H30, &H90

'D7 D6 D5 D4 D3 D2 D1 D0
' high low

'11000000 dec(192) hex(C0)
'01100000 96 60
'00110000 48 30
'10010000 144 90
' se pueden combinar para manejar dos motores a la ves jeje para otro dia lo hago....
lpt.mot_2_izq
lpt.cero



lpt.mot_2_der
lpt.cero


'esto es un chorrada que se me ocurrio la idea es manejar toda la cantida posible de motores con la menor cantidad de componentes
'una cuestion de ahorro(soy un rata) obio se puede multiplexar y comandar hasta 38 salidas (en teoria) usando el regstro de control el cual use
'sus cuatro bits para comandar un motor mas jeje y funciona perfecto si multiplexas usas los cuatro bits de control * los 8 de salida = 32
'este no es el casooooo.


lpt.mot_3_izq
lpt.cero_2



lpt.mot_3_der
lpt.cero_2
'jaja algo de credito lo pueden borrar y no aparece el mensaje payload
lpt.ban


*********************************************************************************************************

Estre es un video demo de la libreria LPT.DLL y el uso de Activex con VBscript / JScript o VBAplication(Word - Excel,etc)
Sldos...



**********************************************************************

Option Strict Off

Option Explicit On

Module InpOut32_Declarations

'Inp and Out declarations for port I/O using inpout32.dll.

Public Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Short) As Short

Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Short, ByVal Value As Short)

End Module