Visual Basic - COntrolar impulsos

Life is soft - evento anual de software empresarial
   
Vista:

COntrolar impulsos

Publicado por Soko (1 intervención) el 11/06/2010 19:52:58
Hola,

Estoy haciendo un programa que necesito envie por el puerto paralelo impulsos de 0,1 milisegundo, 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 milisg y esto en bucle infinito. Pero aun con 1ms no me funciona la aplicación.

Pego el codigo por si alguien puede ayudarme:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder