[Puntos: 2713]

[Dj] [Dj] [Dj] [Dj] [Dj] [Dj] [Dj] [Dj] [Peru] [Peru] [Peru] [Peru] [Peru] [Peru] [Peru] [Peru] [Dj] [Dj] [Dj] [Dj] [Dj]
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)

No Puedes ver los links para eso tienes que. Registrate o Logueate

aca pueden descagar el dll  bueno ne contre por ahi y espero que lo disfruten amigos