Oder das Bascom Beispiel Programm......
Code:
$regfile = "m32def.dat" ' specify the used micro
$crystal = 16000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40
Config Servos = 1 , Servo1 = Portb.0 , Reload = 10
Config Portb = Output
Enable Interrupts
Do
Loop
Dim I As Byte
Do
For I = 0 To 100
Servo(1) = I
Waitms 1000
Next
For I = 100 To 0 Step -1
' Servo(1) = I
Waitms 1000
Next
Loop
End
Damit sollte das Servo hin und her fahren, hat bei mir auf Anhieb geklappt. "I" darf hier nicht größer als 256 werden, wenn das größer gehen soll muss vorher als Word Variable Deklariert werden. Servo + an +, Servo - an GND und Servo Signal an Portb.x wobei in diesem Beispiel porb.0 gemeint ist.
Gruß Richard
Lesezeichen