alguien puede ayudarme?

marely78
24 de Enero del 2005
Por fa por mail espero respuesta... gracias:
NECESITO REALIZAR UN PROGRAMA EN VISUAL BASIC QUE ME PERMITA CONTROLAR UN MOTOR, EL CUAL TENGA
LAS SIGS CARACTERISTICAS:
-DE ACTIVACION Y DESACTIVACION, METER TIMER PARA PODER MANIPULARLO Y REALIZAR LAS FUNCIONES DESEADAS,
LAS CUALES SON LAS SIGUIENTES:
-EL MOTOR MANEJARA UNA COMPUERTA(DE CANAL DE AGUA), EL PROBLEMA RADICA EN ELABORAR UN PROGRAMA
EN VISUAL BASIC CAPAZ DE ACTIVAR EL MOTOR, QUE EL PROGRAMA AYUDE A DETECTAR EL FLUJO DE CAUDAL
ATRAVES DE ESTAS COMPUERTAS Y QUE ELLAS AL PASAR DETERMINADO FLUJO SE CIERREN AUTOMATICAMENTE,
IGUALMENTE QUE SE ACTIVE A DETERMINADA HORA Y SE PONGA EN MARCHA O SE CIERRE.
EL ENLACE MAQUINA MOTOR SE HARA MEDIANTE UN CIRCUITO ELECTRICO Y EL PUERTO PARALELO DE LA COMPUTADORA,
A PARTIR DE ELLO SOLO NECESITAREMOS, REPITO "UN PROGRAMA EN VISUAL BASIC CAPAZ DE LLEVAR A CABO
LAS ACCIONES ANTES MENCIONADAS".

mvallejos
24 de Enero del 2005
A ver

Mucho no se de manejo de puertos, pero el componente MSComm de VB está preparado para tal fin. Se le configura los valores del puerto que se desea leer y, a partir de allí, se detecta el envío y recepción de datos a través del único evento que tiene, el evento OnComm.

Ahora, este componente no calcula caudal ni nada de eso, el valor del caudal y cualquier otro dato,debe ser proporcionado por la placa que haga de nexo entre las compuertas y la PC.
De igual modo, el cierre o apertura de las compuertas, deberá estar manejado por la placa interface, el componente MSComm puede enviarle datos o la orden a partir de la propiedad OutPut y recibir una repuesta a través de la propiedad Input.

Ejemplo

Como se sabe si el programa está recibiendo datos?

en el evento OnComm se coloca el siguiente condicional

If Comm.CommEvent = 2 Then
' leo los datos enviados
Entrada = Comm.Input
End if

En cuanto a los horarios, se maneja con un timer, dependiendo de la hora puedes enviar diferentes ordenes a la placa nexo desde tu programa VB.

No es mucho, pero espero que sirva de algo

Saludos