Software PWM Bascom

[bartjaysimpson (Gast)]

Hallo,

ich bin dabei mit Bascom eine Software PWM Regelung zu proggen doch 
leider funktioniert es überhaupt garnicht. Hier mein Programm findet ihr 
villeicht den Fehler?

$regfile = "m8def.dat" N
$crystal = 3579545
$baud = 9600

Dim Timerwert As Byte
Dim Pwmwert As Byte
Dim Pwmwerton As Byte
Dim Pwmwertoff As Byte
Config Portc = Output
Config Timer0 = Timer , Prescale = 1
On Timer0 Ablauf
Enable Timer0
Enable Interrupts


Do
Pwmwert = 100
Pwmwerton = Pwmwert
Pwmwertoff = 255 - Pwmwert

If Pwmwerton = Timer0 Then Toggle Portc.1
If Pwmwertoff = Timer0 And Timerwert = 1 Then Toggle Portc.1
If Timerwert = 1 Then Timerwert = 0
Print Timer0
Lcd Pwmwerton
Loop
End

Ablauf:
Incr Timerwert
Return

[bascommaherundguckda (Gast)]

Erstmal ist die Frage, on Du wirklich die 3 Zeilen nach dem "DO" in der 
Schleife haben wolltest. Außerdem wird der Interrupt während des Print- 
und LCD-Befehls mehrmals feuern. Außerdem wäre es reiner Zufall, wenn 
die Bedingung "If Pwmwerton = Timer0" zutrifft - der Timer0 Läuft ja 
auch währtend der anderen Befehle weiter.

reicht erstmal? :-)

[bartjaysimpson (Gast)]

Ja da hast du absolut recht, hab das programm mal kurz etwas geändert 
doch leider funktioniert es immer noch nicht.

Do
Pwmwertoff = 255 - Pwmwert
If Pwmwert => Timer0 Then Set Portc.1
If Pwmwertoff => Timer0 And Timerwert = 1 Then Reset Portc.1
If Timerwert = 1 Then Timerwert = 0
Loop

[bascommaherundguckda (Gast)]

die erste Zeile nach dem DO ist immer noch überflüssig in der Schleife, 
weil Pwmwert sich nicht ändert.

Ich glaube in deinem Kopf ist noch ein großes Wirrwar aus Timerwert 
(nimmt bei diesem Programmablauf Werte von 0-255 an), Timer0 (genauso, 
nur rückwärts) und PWMWert (=100).

[bartjaysimpson (Gast)]

Hab es jetzt noch mal verändert:

$regfile = "m8def.dat"
$crystal = 3579545
$baud = 9600
Dim I As Byte
Dim Timerwert As Byte
Dim Pwmwert As Byte
Dim Pwmwerton As Byte
Dim Pwmwertoff As Byte
Config Portc = Output
Config Timer0 = Timer , Prescale = 1
On Timer0 Ablauf
Enable Timer0
Enable Interrupts
Pwmwert = 240

Do
I = Udr
Select Case I
Case "+"
Gosub Wert
End Select

Pwmwertoff = 255 - Pwmwert

If Pwmwert => Timer0 Then Set Portc.1
If Pwmwertoff => Timer0 And Timerwert = 1 Then Reset Portc.1
Loop
End

Ablauf:
Incr Timerwert
If Timerwert = 2 Then Timerwert = 0
Return

Wert:
Input "" , Pwmwert
Return

Wäre auch für komplett andere Vorschläge offen. Habe i Internet leider 
nichts passendes dazu gefunden.

[bascommaherundguckda (Gast)]

warum machst Du jetzt noch ne neue Baustelle mit PC-Kommunikation auf? 
fang erstmal enfacher an:

'einfachste PWM
do
   Set Portc.1
   'hier eine veränderbar lange Pause
   waitus 10
   reSet Portc.1
   'hier eine veränderbar lange Pause
   waitus 10
loop

Wöfür genau willst Du Timer0 verwenden in Deinem o.g. Beispiel? 
Beschreib mal mit Worten..

[bartjaysimpson (Gast)]

der vorschlag mit der veränderbaren Waitus Zeit ist zwar nicht schlecht 
doch leider kann ch für den Zeitwert keine Variable verwenden, doch ich 
möchte später über die Com-schnittstelle denn PWM-Wert vorgeben. Ich 
dachte es würde nur mit einem Timer funktionieren deshalb habe ich ihn 
benutzt. Wie gesagt ich bin für Vorschläge wie man es anders lösen 
könnte offen.

[bascommaherundguckda (Gast)]

Wenn es denn ein reiner Software-PWM sein soll, brauchst Du eben ein 
klein wenig Rechenzeit zum Abfragen/Ändern des Wertes:

do
   Set Portc.1
   'hier eine veränderbar lange Pause
   waitus PausenVariable1

   ReSet Portc.1
   'hier eine veränderbar lange Pause
   waitus PausenVariable2

   'Schnittstelle abfragen
   If Usr.rxc = 1 Then gosub subEmpfangeUndSetzeVariablenNeu
loop

[bartjaysimpson (Gast)]

ja bloß das Problem ist in der Hilfe bei Bascom steht zu Waitus 
fogendes:

This must be a constant. Not a variable!

Also kann ich doch keine Variable für den Zeitwert des Waitus einsetzen.

[bascommaherundguckda (Gast)]

na einverstanden, dann statt waitus eben

for i = 1 to PausenVariable1 : next

[bartjaysimpson (Gast)]

Ja das funktioniert so weit ganz gut. Doch ich komme egal mit welchen 
Werten nicht unter 3,3V am Ausgang.

[bascommaherundguckda (Gast)]

womit gemessen? Spannung geglättet? (R-C-Glied). Wenn Pause1 gegen 0 und 
Pause2 gegen unendlich geht, sollte sie Spannung schon gegen 0 gehen.. 
:-)

[Marko (Gast)]

du kannst auch den Servo-Befehlt von Bascom nehmen
um fast beliebig viele Soft-PWM zu generieren