ATMega 8 Wert springt über

[Simon R. (simon_r44)]

Hallo,

ich bin gerade dabei beim Bau einer PWM Schaltung mit ATMega 8 als 
Steurung. Das Programm sieht so aus.

$regfile "m8adef.dat"
$crystal = 1000000

Config Portb.1 = Output

Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 1

Compare1a = 1

Config Portd.0 = Input
Config Portd.1 = Input

Do

If Pind.0 = 0 Then
      Compare1a = Compare1a + 1
      If Compare1a > 255 Then Compare1a = 255
      Waitms 200
   End If
   If Pind.1 = 0 Then
      Compare1a = Compare1a - 1
      If Compare1a < 1 Then Compare1a = 1
      Waitms 200
   End If

Loop

Das Problem ist, das wenn ich an Portd.0 ein Dauerhaftes Signal habe, 
und der Wert 255 ereicht hat, das er wieder bei 1 anfängt.

Umgekehrt wenn ich zurück gehe und ich bei 1 angelange, bleibt er dann 
auch bei eins und wechselt nicht wieder zu 255.

Nun, suche ich den passenden Befehl, dass wenn Compare1a über 255 
ist, das es nicht weiter geht.

Danke für Antworten!

[Peter II (Gast)]

geht so nicht.

Compare1a = Compare1a + 1
If Compare1a > 255 Then Compare1a = 255

255+1 ist nunmal 0, damit ist klar das das If nichts mehr machen kann.


if Compare1a < 255 Then  Compare1a + 1

[Simon R. (simon_r44)]

Peter II schrieb:
> if Compare1a < 255 Then  Compare1a + 1

Ja, aber so geht das ja auch nicht.

Ich habs jetzt so gelöst:

If Pind.0 = 0 Then
      Compare1a = Compare1a + 1
      If Compare1a > 255 Then Compare1a = 0
      If Compare1a = 0 Then Compare1a = 255
      Waitms 200
   End If

[Peter II (Gast)]

Simon R. schrieb:
> Peter II schrieb:
>> if Compare1a < 255 Then  Compare1a + 1
>
> Ja, aber so geht das ja auch nicht.

das ist aber nicht logisch.

[Chris L. (kingkernel)]

Das klappt so nicht. Compare1a kann NIEMALS > 255 sein!! 255 ist sein 
größtmöglicher Wert, also kannst du die if-Bedingen auf > 255 auch 
gleich weg lassen.

[Floppy (Gast)]

Simon R. schrieb:

> Ich habs jetzt so gelöst:
> If Pind.0 = 0 Then
>       Compare1a = Compare1a + 1
>       If Compare1a > 255 Then Compare1a = 0
>       If Compare1a = 0 Then Compare1a = 255
>       Waitms 200
>    End If

Geht nicht!

Sobald der Wert 255 erreicht ist schluss! 256 ist 0 also macht if > 255 
kein sinn! Zudem wenn 1a auf 0 gesetzt wird, so kommt

>       If Compare1a = 0 Then Compare1a = 255

und setzt es wieder auf 255!

[Peter II (Gast)]

Floppy schrieb:
> und setzt es wieder auf 255!

das will er ja

[MWS (Gast)]

Peter II schrieb:
> 255+1 ist nunmal 0, damit ist klar das das If nichts mehr machen kann.

Das Compare-Register des Timer1 ist ein 16Bit-Register.

Simon R. schrieb:
> Ich habs jetzt so gelöst:
> If Pind.0 = 0 Then
>       Compare1a = Compare1a + 1
>       If Compare1a > 255 Then Compare1a = 0
>       If Compare1a = 0 Then Compare1a = 255
>       Waitms 200
>    End If

Das ist Krampf, der Wurm ist woanders. Prinzipiell war Peter II's 
Beispiel richtig, bis auf die falsche Syntax.
Man prüft also vorher und erhöht nur, wenn man mit der Erhöhung 
innerhalb des zulässigen Bereichs liegt.

[Chris L. (kingkernel)]

Bedeutet aber das der wert immer 255 bleiben wird. die Funktion wird 
einmla hochzählen und dann nie wieder was machen.
Was genau mächte der TO denn haben, dann kann man ihm vielleicht ein 
paar tipps geben als hier an baustellen zu arbeiten, die schon einen 
denkfehler an sich birgen

[Simon R. (simon_r44)]

Peter II schrieb:
> Floppy schrieb:
>> und setzt es wieder auf 255!
>
> das will er ja

Ja, das will ich. Wenn ich über den Wert kommme oder bei 255 soll 
Schluss sein. Und dann soll es nur noch zurück gehen 255=>254.. 0 und 
nicht 255=>0

MWS schrieb:
> Das ist Krampf, der Wurm ist woanders. Prinzipiell war Peter II's
> Beispiel richtig, bis auf die falsche Syntax.
> Man prüft also vorher und erhöht nur, wenn man mit der Erhöhung
> innerhalb des zulässigen Bereichs liegt.

Natürlich ist es ein Krampf, ich bekomme es aber nicht anders hin.

[Chris L. (kingkernel)]

Spontan hätte ich jetzt so gesagt

If Pind.0 = 0 Then
  If Compare1a < 255 Then Compare1a = Compare1a + 1
  Waitms 200
End If
If Pind.1 = 0 Then
  If Compare1a > 0 Then Compare1a = Compare1a - 1
  Waitms 200
End If

[MWS (Gast)]

Simon R. schrieb:
> Natürlich ist es ein Krampf, ich bekomme es aber nicht anders hin.

If Compare1a < 255 Then Incr Compare1a

[Simon R. (simon_r44)]

Chris L. schrieb:
> Spontan hätte ich jetzt so gesagt
>
> [code]
> If Pind.0 = 0 Then
>   If Compare1a < 255 Then Compare1a = Compare1a + 1
>   Waitms 200
> End If
> If Pind.1 = 0 Then
>   If Compare1a > 0 Then Compare1a = Compare1a - 1
>   Waitms 200
> End If
> [/code}

Danke! So funktioniert es auch und ich komme mit Pind.1 auch auf 
Comapre1a = 0