lowtzow
11.07.2008, 14:55
hallo
habe ein frage zu den servos.
mein sevo hängt an einem mega8 und wird mit 5v versorgt, die ansteuerung funktioniert problemlos mittels bascom
'************************************************* **********
' SERVOTESTER
'
'
' mit Ausgabe der Servostellung auf dem LCD
'
' getestet können 2 servos werden, die auf
' Portb.0 und Portb.1 angeschlossen werden können
'
' Taktfrequenz 8MHz
'
'
'
'************************************************* *********
$regfile = "m8def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 8000000
$baud = 9600
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
Cursor Off
Cls
Config Servos = 2 , Servo1 = Portb.0 , Servo2 = Portb.1 , Reload = 10
Config Portb = Output
Dim A As Byte
Enable Interrupts
Do
Cls
Locate 1 , 1
Lcd "Servotest "
Locate 2 , 1
Lcd "mitte "
Servo(1) = 100
Servo(2) = 100
Waitms 500
Cls
Locate 1 , 1
Lcd "Servotest "
Locate 2 , 1
Lcd "rechts "
For A = 0 To 50
Servo(1) = Servo(1) + 1
Waitms 50
'Waitms 1
Next
Wait 5
Servo(1) = 100
Servo(2) = 100
Waitms 500
Cls
Locate 1 , 1
Lcd "Servotest "
Locate 2 , 1
Lcd "links "
For A = 0 To 50
Servo(1) = Servo(1) - 1
Waitms 50
'Waitms 1
Next
Wait 5
Loop
das eigentliche problem ist, dass der servo die poition zb. 150 anfährt und 5sek dort verweilt und so komisch rattert (ich glaub er justiert leicht nach)
jedenfalls hängen die servos an meinen fenster und soll die Schalousinen auf und zu machen und wenn die zb zu sind soll er keinen mus machen ist ja störend die ganze zeit so ein summen zu hören.
eventuell gibt es einen befehl mit dem man den servo(1) zb cleart also keinen wert zuornet; sowas würde mir helfen
die notlösung die mir eingefallen ist die funktionieren würde, wäre zb ein relai oder ne transe die die 5volt zum servo schaltet oder nicht schaltet .
vielleicht kann mir wer weiterhelfen
hier noch ein bild von der funktion die der servo übernimmt.
mfg
lowhttp://666kb.com/i/b09xdsydejbnfvz65.jpg
ps hab extra beim conrad nen servo geholt der 16kg bewegen kann, der 0815 servo den ich davor hatte, konnte alles nur ganz leicht bewegen.
habe ein frage zu den servos.
mein sevo hängt an einem mega8 und wird mit 5v versorgt, die ansteuerung funktioniert problemlos mittels bascom
'************************************************* **********
' SERVOTESTER
'
'
' mit Ausgabe der Servostellung auf dem LCD
'
' getestet können 2 servos werden, die auf
' Portb.0 und Portb.1 angeschlossen werden können
'
' Taktfrequenz 8MHz
'
'
'
'************************************************* *********
$regfile = "m8def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 8000000
$baud = 9600
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
Cursor Off
Cls
Config Servos = 2 , Servo1 = Portb.0 , Servo2 = Portb.1 , Reload = 10
Config Portb = Output
Dim A As Byte
Enable Interrupts
Do
Cls
Locate 1 , 1
Lcd "Servotest "
Locate 2 , 1
Lcd "mitte "
Servo(1) = 100
Servo(2) = 100
Waitms 500
Cls
Locate 1 , 1
Lcd "Servotest "
Locate 2 , 1
Lcd "rechts "
For A = 0 To 50
Servo(1) = Servo(1) + 1
Waitms 50
'Waitms 1
Next
Wait 5
Servo(1) = 100
Servo(2) = 100
Waitms 500
Cls
Locate 1 , 1
Lcd "Servotest "
Locate 2 , 1
Lcd "links "
For A = 0 To 50
Servo(1) = Servo(1) - 1
Waitms 50
'Waitms 1
Next
Wait 5
Loop
das eigentliche problem ist, dass der servo die poition zb. 150 anfährt und 5sek dort verweilt und so komisch rattert (ich glaub er justiert leicht nach)
jedenfalls hängen die servos an meinen fenster und soll die Schalousinen auf und zu machen und wenn die zb zu sind soll er keinen mus machen ist ja störend die ganze zeit so ein summen zu hören.
eventuell gibt es einen befehl mit dem man den servo(1) zb cleart also keinen wert zuornet; sowas würde mir helfen
die notlösung die mir eingefallen ist die funktionieren würde, wäre zb ein relai oder ne transe die die 5volt zum servo schaltet oder nicht schaltet .
vielleicht kann mir wer weiterhelfen
hier noch ein bild von der funktion die der servo übernimmt.
mfg
lowhttp://666kb.com/i/b09xdsydejbnfvz65.jpg
ps hab extra beim conrad nen servo geholt der 16kg bewegen kann, der 0815 servo den ich davor hatte, konnte alles nur ganz leicht bewegen.