Sodele,

nachdem ich in der Berechnung der Motoren einen kleinen aber feinen Fehler drin hatte. *Hüstel* Läuft er jetzt schon deutlich ruhiger. Allerdings ist er mir jetzt im Leerlauf umgekippt. Wieder ein Rotor weniger.

Ich werde jetzt erstmal die PWM-Steuerung verfeinern. Mal schauen ob meine Idee funktioniert. Software PWM mit ca. 490Hz.
Wenn das nicht hilft wird auf Hardware umgestellt. Aber dann direkt auf Autarke I2C -> PWM.

Gruß
Jens


P.S.: Hier mal der Dummfugcode. Wer den Fehler findet bekommt ein Eis.


Code:
Sub Calcmotors()
  Dim Z As Byte
  Dim Tmp As Word
  ' Motor_werte 0 - 255
  ' Motor bekommt min: 61535, mitte 62535, max 63535 = 2000 schritte
  
  For Z = 1 To 4
    tmp = Motor_werte(z)
	Shift tmp , Left , 4  ' tmp * 8
	
	Motor(z) = 63535 - tmp
	
  Next
  
  Waitms 20
End Sub