Hallo!
Habe zu dem Thema Pwm schon eifrig die Suche bemüht, finde aber trotzdem meinen Fehler nicht
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
Eigentlich sollte ja jetzt der eine Motor stehen und der andere langsam beschleunigen. Tun sie aber nicht und drehen beide gleich.
Vielleicht findet ja von Euch jemand meinen Fehler.
Gruß Georg
Lesezeichen