Hallo!
Habe zu dem Thema Pwm schon eifrig die Suche bemüht, finde aber trotzdem meinen Fehler nicht
Eigentlich sollte ja jetzt der eine Motor stehen und der andere langsam beschleunigen. Tun sie aber nicht und drehen beide gleich.Code:$regfile = "m8def.dat" $crystal = 4000000 Config Pinb.1 = Output Config Pinb.2 = Output Config Portd = Output Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 1 Portc.1 = 1 Portc.2 = 1 Dim X As Byte Dim Vormitte As Integer Dim Seitemitte As Integer Dim Vor As Integer Dim Seite As Integer Do For X = 0 To 255 Pwm1a = X Pwm1b = 0 Waitms 20 Next Loop
Vielleicht findet ja von Euch jemand meinen Fehler.
Gruß Georg







Zitieren

Lesezeichen