Oder das Bascom Beispiel Programm......
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.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
Gruß Richard







Zitieren



Lesezeichen