Hi Leute,

Mal kurz zur Vorgeschichte des Projektes:
Ein Kumpel und ich haben beide einen Bauernhof und als die Maisernte in vollem Gange war, kam uns die Idee das Auswurfrohr vom Maishächsler zu "automatisieren". Bis jetzt muss das Rohr immer manuell mit einem Hebel der auf einen "Seilzug" wirkt in die Richtige Position gedreht werden, was auch relatiev schwer geht. Da man während dem Häcseln auch immer auf die Fahrspur achten muss und nicht immer die Zeit hat nach hinten zu gucken ob der gehächselet mais auch im Silagewagen landet (was beim fahren von kurven durchaus vorkommt) dachten wir uns wir montieren einen Sensor (Poti) an der Anhängerkupplong des Hächslers das über ein Gestänge mit dem Wagen verbunden ist und somit den Winkel des Wagens zum Hächsler ermittelt. Über einen Motor wird dann der Winkel des Rohres automatisch nachgeregelt, sodass das Rohr immer in der zuvor mit einem Joystick eingestellten Position bleibt.

Hier mal ein kurzer ausschnitt vom Code den ich schon hab:

Code:
'Laut berechnung entspricht 1° einem ADC-Wert von 3,41 bei einem Poti von 10K
'und einem Drehwinkel von 300°. Gestartet wird bei Mittelstellung 150°
'=> ein ADC-Wert von 1 entspricht 0,29°
'Angaben Rohr: 95° Drehwinkel 31,5mm Weg 78Umdrehungen => 1,22°/Umdrehung

Dim Merkerbyte As Byte
'Merkerbyte.0=Motor links
'Merkerbyte.1=Motor rechts
'Merkerbyte.2=Motor auf
'merkerbyte.3=Motor ab
'merkerbyte.4=Automatik 1=Ein 0=Aus

'*** Vorladen ***
Winkel = Getadc(0)
Winkelalt = Winkel
Hysterese = 50
Merkerbyte = 0

'*** MainLoop ***
Do
'*** Auswertung Winkel ***
   If Merkerbyte.4 = 0 Then Winkel = Getadc(0)
   If Winkel > Winkelalt Then Winkeldiff = Winkel - Winkelalt
   If Winkel < Winkelalt Then Winkeldiff = Winkelalt - Winkel
   Grenzeu = Winkelalt - Hysterese
   Grenzeo = Winkelalt + Hysterese
   If Winkel < Grenzeu Then
      'Winkelalt = Winkel
      Merkerbyte.0 = 0
      Merkerbyte.1 = 1
      Merkerbyte.4 = 1
   End If
   If Winkel > Grenzeo Then
      'Winkelalt = Winkel
      Merkerbyte.1 = 0
      Merkerbyte.0 = 1
      Merkerbyte.4 = 1
   End If
'*** AUtomatische nachführung ***

   'Do

   'Loop While Merkerbyte.4 = 0
Die Position vom Rohr bekomme ich von einem "Drehgeber" der mir pro Umdrehung 4 Impulse
liefert.
Wie stelle ich das jetzt am besten an, dass wenn das Poti sagt 5° nach links drehen,
sich auch das Rohr um 5° nach links dreht

Hoffe ich habs halwegs verständlich rübergebracht.

Schon mal Danke für die Hilfe

Gruß Kalle