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