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
Lesezeichen