Aplicacion para servomotor

[pkj]

A ver si esto te sirve:

Código vb:

Sub Pulso1(ByVal DuracionActivoMS As Double, Optional ByVal DuracionNoActivoMS As Double)
  Static DuracionActivo As Double
  Static DuracionNoActivo As Double
  Dim Tiempo As Double
  DuracionActivo = DuracionActivoMS / 1000
  DuracionNoActivoMS = DuracionNoActivoMS / 1000
  Do
    If DuracionActivo = 0 Then Exit Do
    Tiempo = Timer + DuracionActivo
    Motor1.BackColor = &HFF00&
    Out Val("&H" + "378"), Val(10)
    DoEvents
    Do While Timer < Tiempo
    Loop
    Tiempo = Timer + DuracionNoActivo
    Motor1.BackColor = &HFF&
    Out Val("&H" + "378"), Val(0)
    DoEvents
    Do While Timer < Tiempo
    Loop
  Loop
End Sub
 
Private Sub Command1_Click()
  Pulso1 2.5, 1
End Sub
 
Private Sub Command2_Click()
  Pulso1 0
End Sub
 

El command1 debería activar un pulso ciclico de 2.5 ms (aproximadamente) de duracion activo y 1 ms de duracion NO activo (por si la duracion es diferente en ambos estados).

El command2 desactiva el bucle.

Saludos