Haz una pregunta
  Foros de Electrónica » Temas de Interés » Robótica, Domótica y Mecatrónica
Foros Registrarse ¿Olvidaste tu contraseña?

Temas similares

11/06/2010 #1


Ayuda control servomotor puerto paralelo
Hola,

Estoy haciendo un programa para controlar servomotores, y necesito que envie por el puerto paralelo impulsos de entre 0,5 y 2,5 milisegundos, y la propiedad interval del timer no me deja usar valores decimales.

En concreto necesito enviar un impulso de 20 milisg y otro de entre 0,5 y 2,5 milisg (max y min giro) y esto en bucle infinito. Pero el programa de prueba con 1ms no me mueve el servo.

Para probar conecto el servo a 5v y la señal de control la meto a traves de un 547, con masas comunes entre puerto paralelo y alimentacion del servo.

Pego el codigo por si alguien puede ayudarme

Código:
Private Sub Form_Load()
Tiempo.Text = HScroll1.Value
TEMP_ESPERA.Interval = 20 'espera de 20 ms
TEMP_PULSO.Interval = (Tiempo.Text) ' * 1000
Comenzar.Enabled = True
Detener.Enabled = False
Motor1.BackColor = &H0
End Sub
Private Sub TEMP_ESPERA_Timer()

'espera y despues del interval ejecuta la acción.

Motor1.BackColor = &HFF00&
Out Val("&H" + "378"), Val(10)
TEMP_ESPERA.Enabled = False
TEMP_PULSO.Enabled = True

End Sub
Private Sub TEMP_PULSO_Timer()

'espera y despues del interval ejecuta la acción.

Motor1.BackColor = &HFF&
Out Val("&H" + "378"), Val(0)
TEMP_PULSO.Enabled = False
TEMP_ESPERA.Enabled = True
End Sub
Private Sub Comenzar_Click()
TEMP_ESPERA.Enabled = True
Comenzar.Enabled = False
Detener.Enabled = True
End Sub
Private Sub Detener_Click()
Detener.Enabled = False
Comenzar.Enabled = True
TEMP_ESPERA.Enabled = False
TEMP_PULSO.Enabled = False
Motor1.BackColor = &H0
End Sub
Private Sub HScroll1_Change()
Tiempo.Text = HScroll1.Value
TEMP_PULSO.Interval = (Tiempo.Text) ' *1000
End Sub
Private Sub HScroll1_Scroll()
HScroll1_Change
End Sub
Saludos y gracias.
Respuesta
¿Tienes una mejor respuesta a este tema? ¿Quieres hacerle una pregunta a nuestra comunidad y sus expertos? Registrate

Buscar más temas sobre:
Lupa Robótica, Domótica y Mecatrónica

La electrónica Aplicada a la Robótica y sus técnicas de interface.

Cerrar
Foros de Electrónica » Temas de Interés » Robótica, Domótica y Mecatrónica

Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Search Engine Optimization by vBSEO ©2011, Crawlability, Inc.