BASCOM TIMER A resetten

[Anton (Gast)]

Hab am atmega 8 ein poti und nen max232

Do

W = Getadc(channel)

Waitms 900

Print W
Print A

Loop
If W = A Then
Print "RELAIS"
Reset A

End If

Timer_irq:
  Timer1 = Timervorgabe
  A = A + 1

  Return

er zählt A auch braf hoch nur wenn A = W ist, resettet er A nicht 
sondern zählt munter weiter. Wo liegt mein Fehler?

[Kay (Gast)]

Hi,

leg die Abfrage in die Loop Schleife. Dann sollte es funktionieren. 
Deine Abfrage steht auserhalb der Schleife.

Gruß Kay

[Kay (Gast)]

Also so:

Do

W = Getadc(channel)

Waitms 900

Print W
Print A

If W = A Then
Print "RELAIS"
Reset A

Loop


End If

Timer_irq:
  Timer1 = Timervorgabe
  A = A + 1
Return

Gruß Kay

[Karl H. (kbuchegg)]

Du kannst dir Ärger dieser Art ersparen, wenn du dir angewöhnst Code 
einzurücken.

Vergleiche dein Lösung mit der hier

Do

  W = Getadc(channel)

  Waitms 900

  Print W
  Print A

  If W = A Then
    Print "RELAIS"
    Reset A
  End If

Loop

Timer_irq:
  Timer1 = Timervorgabe
  A = A + 1
  Return

Nota Bene ist dadurch auch aufgefallen, dass du das End If nicht 
innerhalb der do-Loop Schleife hattest.

[Anton (Gast)]

stimmt das Loop stand außerhalb ... Wenn man den Wald vor lauter Bäumen 
nicht sieht ...

[Anton (Gast)]

Do

  W = Getadc(channel)

  Waitms 900

  Print W
  Print A

  If W = A Then
    Print "RELAIS"
     A = 0
  End If

Loop

Timer_irq:
  Timer1 = Timervorgabe
  A = A + 1
  Return


So geht das ganze auch noch