Bienvenido(a), Visitante. Por favor, ingresa o regístrate.

Ingresar con nombre de usuario, contraseña y duración de la sesión


Web Hosting

Streaming Radio

Acc Player

Chicas Lindas

N Cuenta


Autor Tema: Creando PT.DLL  (Leído 164 veces)

0 Usuarios y 1 Visitante están viendo este tema.

  • Puntos: 2713
    Desconectado Desconectado
    Administrador
    Usuario Héroe
    *
    Gracias
    -Tu haz dado: 59
    -Tu haz recibido: 4883
  • Mensajes: 1142
  • Registro: 24/07/11
    U.Visita: 21/05/13
    pe
    Actividad

    0%

  • Sexo: Masculino
  • Sistema Operativo:
    Windows XP Windows XP
    Navegador:
    Firefox 6.0.1 Firefox 6.0.1
  • Dinero 1996181 Coins
  • Referidos: 7
    • Ver Perfil
    • Hosting y Dominios
    • Premios
Creando PT.DLL
« en: 05 de Septiembre de 2011 »

[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

Mis Objetosaacplus.gif
guestLos visitantes no pueden dar puntos :(
point0 Puntos

Este tema no recibió puntos.

Tags:
 
Compartir este Tema...
Para Foros
(BBCode)
Para Sitios/Blogs
(HTML)


Temas relacionados

  Asunto / Iniciado por Respuestas Último mensaje
0 Respuestas
282 Vistas
Último mensaje 05 de Septiembre de 2011
por kimeras
8 Respuestas
690 Vistas
Último mensaje 02 de Mayo de 2013
por manuel0990
0 Respuestas
131 Vistas
Último mensaje 02 de Marzo de 2012
por kimeras
1 Respuestas
114 Vistas
Último mensaje 10 de Abril de 2013
por LiPoxZ

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61