Hola,
Estoy haciendo un programa para controlar servomotores, y necesito que envie por el puerto paralelo impulsos de 0,1 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 aun con 1ms no me funciona la aplicación.
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.