Hallo, ich möchte die PWM dimmen lassen. Ich habe mit For Next versucht. Beim aufdimmen von dunkel nach hell klappt es. Wenn A 1023 erreicht ist, dann soll es umkehren von hell nach dunkel dimmen. Klappt aber nicht. Hier die kurze Code. $regfile="m8def.dat $crystal=1000000 Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear down , Prescale = 1 Dim A as Integer A=1 Do For A=1 to 1023 Waitms 1 Next A If A= 1023 then For A=1023 to 1 Waitms 1 Next A End if Loop
Hi, hier beschäftigen sich nur wenige User mit Bascom. Falls dir keiner weiterhelfen kann, versuch es mal hier: http://www.roboternetz.de die Leute dort programmieren hauptsächlich in Bascom.
Ich kenne Bascom nicht. Aber muß nicht hinter der Schleife vollgendes stehen: For A=1023 to 1 step -1 Oder gibt es das da nicht ?
Hallo, danke für die Antwort. Ich habe es rausgefunden. Es funktioniert, was ich eigentlich will. $regfile="m8def.dat $crystal=1000000 Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear down , Prescale = 1 Do For A = 1 to 1023 Step 1 Pwm1a = A Waitms 1 Next For A = 1024 to 1 Step -1 Pwm1a = A Waitms 1 Next Loop
Hallo Also bei : For A = 1 to 1023 Step 1 kannste das Step weg lassen. Müßte dann auch gehen.
Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.