Proyecto *Medidor de estatura*

[<·RΘllεЯCiτy·>]

bueno señores hoy vengo a rogarles ake me ayuden a hacer un proyecto en VB, el proyecto trata:

es un medidor de estatura, compuesto por:
un laser en un extremo y un fototransistor en el otro extremo (ambos alineados) ke subiran y bajaran (dicho proceso esta dado por un motor ke los moverá) para dar dicha medicion.

en si ke es lo ke necesito:

bueno pues hacer un programa ke cuando le de al boton de "medir" se encienda el laser y le apunte al transistor, ke este entrará en saturacion y en ese momento se corte la medicion, y como cuando empieze a medir el motor ke los mueve subirá, y cuando termine de medir, ke el motor se regrese!! ((aki no se como le hago)

ojala me entiendan, alguna duda solo pregunten

PD: me urge

[vlad]

si te entiendo bien, vos pensas hacer como un "ascensor" que va subiendo un laser y un fotoreceptor.

Supongo que esperas que se pare cuando el foto transistor reciba luz (osea, que ya no este bloqueada por la persona).

Ahora bien, el diseño no es tan dificil, solo tenes que medir la velocidad con la que va subiendo el laser (cm/s supongo que seria lo ideal), y teniendo este dato solo calculas el tiempo que tardo desde la base hasta que ya no detecto objeto el laser, aca seria T = v*t donde:

T = Tamaño.
v = Velocidad del motor.
t = Tiempo que tomó la operación.

Un motor normal puede servirte, no necesita ser un paso a paso.

[<·RΘllεЯCiτy·>]

Supongo que esperas que se pare cuando el foto transistor reciba luz (osea, que ya no este bloqueada por la persona).
 donde:

EXactamente!!!


otra cosa ke no agregue fue ke el chazis ya lo tengo, ya todo está armado solo necesito el program!!! el motor es alimentado con 12V, pero esos 12 se lo damos con una fuente aparte, de ahi va conectado al CKTO con dos optoacopladores, donde se activan con los pulsos out del puerto, para kedar mas claros, los cktos tambien ya estan hechos, el del motor tambien ya tiene sus 4 transistores ke hacen ke si le doy un pulso se mueve hacia arriba, y si le doy el otro pulso se va hacia abajo!!! y ya lo probe con un programa ke es solo para probar motores y si sirvió pero ahora lo ke necesito es fusionarlo con el del laser y el fototransistor para ke kede como yo lo necesito!!

 

[vlad]

Me imagino tambien que esos 4 transistores los estas usando para un puente H?.

Bueno, en todo caso, si el circuito esta funcionando ya es un gran avance (es bueno ver que pedis ayuda ya con algo en manos )

Ahora bien, para el control de puerto paralelo te recomendaria usar io.dll de esta pagina: http://www.geekhideout.com/iodll.shtml - solo es de saber los pines que estas usando del LPT.

Para contar el tiempo te sugiero que uses una clase de C. Eswar Santhosh que se llama cTimer(Hi-Performance Timer Class) que te puede servir mucho para contar el tiempo que tardo el motor.

Y para estar chequeando el puerto te recomendaria usar SetTimer y KillTimer. A un intervalo de algun medio segundo para mejorar la precision de la medicion.

[<·RΘllεЯCiτy·>]

si pero eso para lo del puerto paralelo ya lo tengo a la mano, lo ke necesito es ke si me pueden ayudar a hacer el program, porke awebo no se por donde empezar  y voy a tomar en cuenta eso ke me dijiste (Timer(Hi-Performance Timer Class) y lo otro ( SetTimer y KillTimer. A un intervalo de algun medio segundo para mejorar la precision de la medicion) y este ultimo se ve interesante porke keda con mas precicion la medicion, y adonde consigo eso:  SetTimer y KillTimer. A un intervalo de algun medio segundo para mejorar la precision de la medicion

[vlad]

Fijate que siento que seria mejor que hicieras todo el programa en lugar de tratar de fusionar dos...

Ejemplo de uso de SetTimer y KillTimer:
http://www.vbcodemagician.dk/tips/system_formlesstimer.htm

El modulo de clase de cTimer.cls es mas dificil de buscar, mejor te lo adjunté.

Editado:
Los prototipos de io.dll para VB6.0 (Tomados de la pagina oficial de ellos):

Código: [Seleccionar]

Visual Basic Prototypes
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

[<·RΘllεЯCiτy·>]

Fijate que siento que seria mejor que hicieras todo el programa en lugar de tratar de fusionar dos...

es ke es precisamente lo ke kiero hacer, ke esos dos CKTOs sean controlados por la PC!! kiero tener ya a la mano el programa

[vlad]

Empeza por describir lo basico:

A que pin del LPT tenes conectada la señal del fototransistor?, osea, cuando tenes señal del laser, asumo que tenes alguna salida de TTL que te lo indica? (ej: 0 Voltios para cuando esta tocando el cuerpo, 5 Voltios cuando el laser toca el fotoresistor).

En base a eso te puedo ayudar con (pero no hacer) el programa, porque el objetivo es que aprendas

[–•(-•Pikachu•-)•–]

donde esta rdoggsv?? dicen ke el es bueno para estas ondas!!

[mxgxw]

donde esta rdoggsv?? dicen ke el es bueno para estas ondas!!

Para interfaces de hardware en PC te recomiendo a naruto y a vlad, son los que mas se han metido a eso :P el rdogg le tira mas al lado de software jejejeje

[rdoggsv]

Exacto, yo no le hago mucho a la electronica solo lo basico :P a los más que llegue fue hacer un quemador de memorias eeprom jajaja

Suerte en el proyecto ojala despues lo compartas ya que esta bien interesante

[Jaru]

preguntas para vos:
• tiene ke ser en BV?
• (si la anterior es no...) Lo podes hacer en LINUX?
• tenes algun konocimiento de BV? al menos de GUI?
• lo pensas hacer modo grafiko o lo podes dejar a pura konsola?
• puede ser siempre en windows pero usando otro lenguaje de programacion?
• solo el puerto paralelo te dejan usar?
• te dejan poner circuiteria ke no te hayan enseñado? (como un microcontrolador.)

[<·RΘllεЯCiτy·>]

preguntas para vos:
• tiene ke ser en BV?
• (si la anterior es no...) Lo podes hacer en LINUX?
• tenes algun konocimiento de BV? al menos de GUI?
• lo pensas hacer modo grafiko o lo podes dejar a pura konsola?
• puede ser siempre en windows pero usando otro lenguaje de programacion?
• solo el puerto paralelo te dejan usar?
• te dejan poner circuiteria ke no te hayan enseñado? (como un microcontrolador.)

si en VB
si tngo un poco de conocimiento

• lo pensas hacer modo grafiko o lo podes dejar a pura konsola?

esto no lo entiendo

si en window$
si solo el puerto paralelo

• te dejan poner circuiteria ke no te hayan enseñado? (como un microcontrolador.)

esteee...lo electrico ya está hecho, solo me falta el program

[vlad]

Si queres empeza por hacer la interfaz, hacela como te imagines que queres que sea, despues vemosla parte funcional si te parece la idea.

[<·RΘllεЯCiτy·>]

Si queres empeza por hacer la interfaz, hacela como te imagines que queres que sea, despues vemosla parte funcional si te parece la idea.

mmm entonces voy a terminarlo asi como lo tengo ahorita y despues se los enseño y despues me diran, no se ustedes?