'Control de un motor servo HS-311.

'Ensayo 1

'Por: Diego Orlando Barragán Guerrero

'diegokillemall@yahoo.com

$regfile = "M16def.dat"       'Definir tipo de micro

$crystal = 4000000            'Frecuencia de 4 MHz

Dim M As Word                 'Ancho de pulso

Config Portb = Output         'Puerto B como salida

Portb = 0                     'Puerto B a 0

Inicio:

For M = 500 To 2500 Step 25

    Pulseout Portb , 1 , M    'PULSEOUT crea el pulso para control del motor

    Waitms 20                 'Frecuencia de envío del pulso

Next

For M = 2500 To 500 Step -25

    Pulseout Portb , 1 , M    'PULSEOUT crea el pulso para control del motor

    Waitms 20                 'Frecuencia de envío del pulso

Next

Goto Inicio

End