Ich hab den Code per RS232 rübergeladen und getestet, bei den Ausgängen messe ich aber eine Spannung von 11 Volt obwohl es ja eigentlich 6 Volt sein müssten...
Mein Code sieht so aus, ich hab jedoch nur das eine Paar Ausgänge eingeschaltet und die auch nur auf Knopfdruck pulsweitenmoduliert.
Ich dachte mir auch das ich nun je nach dem, was ich für "Pwm1a" einsetze, sich auch die Spannung am Ausgang A linear ändert, aber genau das funktioniert nicht.Code:$regfile = "m32def.dat" $framesize = 32 $swstack = 32 $hwstack = 32 $crystal = 16000000 'Quarzfrequenz $baud = 9600 Config Adc = Single , Prescaler = Auto 'Für Tastenabfrage und Spannungsmessung Config Pina.7 = Input 'Für Tastenabfrage Porta.7 = 1 'Pullup Widerstand ein Config Portc.7 = Output Portd.7 = 0 Config Portc.4 = Output Portc.4 = 0 Config Portb.0 = Output Portb.0 = 1 Config Portb.1 = Output Portb.1 = 0 Config Portd.6 = Output Portd.6 = 1 Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down Pwm1a = 1023 Pwm1b = 1023 Tccr1b = Tccr1b Or &H02 Do Start Adc Dim Ws As Word Ws = Getadc(7) If Ws > 400 And Ws < 450 Then Portc.7 = 0 Else Portc.7 = 1 End If If Ws > 330 And Ws < 380 Then Portc.4 = 0 Else Portc.4 = 1 End If If Ws > 260 And Ws < 305 Then Portb.0 = 0 Portb.1 = 1 Else Portb.0 = 1 Portb.1 = 0 End If If Ws > 180 And Ws < 220 Then Pwm1a = 5 Else Pwm1a = 1023 End If Loop End
Auf dem einen Taster habe ich noch die Funktion, das die Spannung ihr Vorzeichen ändert und auf zwei weiteren, das je eine LED leuchtet, solange der Taster gedrückt ist. Das funktioniert alles, so wie ich mir das vorstelle, aber das mit der PWM leider nicht...
Ich hoffe ihr könnt mir helfen.
mit besten Grüssen
Vior







Zitieren

Lesezeichen