Mahlzeit!
Einen vorläufigen Abschlussbericht möchte ich nicht schuldig bleiben.
Beim Umbau habe ich zwei 2K-Widerstände verwendet. Eventuell könnte noch von Interesse sein, dass ich die Schleifringe aus dem Poti herausgerissen habe, weil er mir im Originalzustand zu schwergängig vorkam. Jetzt flutscht er. Leider braucht man ihn als Lager.
Der umgebaute Servo ist jetzt bereits 4 x 15 Minuten wunderschön rund gelaufen (je 15 Min Dauerbetrieb) und er lebt immer noch. Das merkt man auch daran, dass ihm nach etwa 5 Minuten Dauerbetrieb immer wärmer ums Herz wird
. Nach 15 Min habe ich sicherheitshalber immer abgeschaltet, obgleich 4,5V für einen schonungsvollen Betrieb geeignet sein sollte, oder nicht? (Bin wie gesagt absoluter Laie und dazu noch Anfänger).
Testkonfiguration: Direkt an Mega48, halbwegs stabile 4,5V (Billignetzteil), im Übrigen siehe Bild:
Bild hier
Testsoftware:
Code:
'Datei: 20081115-MEGA48-HACKSERVO-TEST.BAS
'Zweck: Breadboard-Test eines gehackten ES-05 Servo
' an Mega48 PORTD.7 mit internem Oszillator bei 8 MHz
'Micro: ATMEGA48-20PU
'Board: Breadboard
'Cmplr: Compiler Bascom V 1.11.9.1
'Progr: hxbtx
'_______________________________________________________________________
'Basis-Einstellungen
'_______________________________________________________________________
$regfile = "m48def.dat"
$crystal = 8000000
$framesize = 32
$swstack = 32
$hwstack = 32
'_______________________________________________________________________
'Konfiguration
'_______________________________________________________________________
Config Servos = 1 , Servo1 = Portd.7 , Reload = 10
Config Portd.7 = Output
'_______________________________________________________________________
'Variablen
'_______________________________________________________________________
Dim V As Byte
'_______________________________________________________________________
'Hauptroutine/Loop
'_______________________________________________________________________
Enable Interrupts
Do
For V = 30 To 150
Servo(1) = V
Waitms 100
Next
For V = 150 To 30 Step -1
Servo(1) = V
Waitms 100
Next
Loop
End
Lesezeichen