Atmega8 - Zähler funktioniert nicht

Hallo Fabian,

was schonmal fehlt ist die Entprellung. Ein Tastendruck würde in 
mehreren Durchläufen der Main-Loop den Wert verändern.
Somit bist du bei einem Tastendruck immer an den jeweiligen Anschlägen.

Weiterhin sieht das auch nicht richtig aus:

Config Portd = Output
Config Portb.0 = Input
Config Portb.1 = Input

Pinb.0 = 1
Pinb.1 = 1


probier mal:
Taster1 alias pinb.0 : config Taster1 = Input : Portb.0 = 1
Taster2 alias pinb.1 : config Taster2 = Input : Portb.1 = 1


und in der Main fragst du dann ab:

if Taster1 = 0 then ...


Gruß
Bodo Geue

Was denkst du, wie lange wohl ein Durchlauf hierdurch

Do
  If Pinb.0 = 0 Then
       Incr ....'Nummer soll hier um eins erhöht werden
   End If

  If Pinb.1 = 0 Then
       Decr ....'Nummer soll hier um eins verringert werden
   End If
Loop


dauert?
Kannst du einen Taster so schnell drücken und wieder loslassen?

Fabian G. schrieb:
> Hallo Bodo,
> Danke für den Tipp! Wie mache ich die Tasterentprellung? ;-)

BASCOM Hilfe
"debounce" nachlesen

Hallo,

dafür gibts viele Möglichkeiten.
Sehr einfach, wenn dein Rechner nichts weiteres zu tun hat und bei 
niedriger Taster-drück-Frequenz wäre eine Pause, also einfach da wo 
increased bzw. decreased wird jeweils ein waitms 200 oder so rein

Gruß
Bodo Geue

Hi,

Zahlen werden mit incr Zahl um 1 erhöht und mit decr Zahl um eins 
verringert.
Das und setzen der Grenzen, und der Pause gehört hinter die 
Tasterauswertung.
Aber soviel Eigeninitiative solltest du selber aufbringen

Debounce ist die bessere Lösung, aber config debounce allein reicht da 
nicht. Wichtiger ist der Befehl debounce, zum Beispiel:

Debounce Taster1 , 0 , Taster1_routine , Sub

und dann als Sub:

Taster1_routine:
   incr Nummer
Return

Gruß BoGe-Ro

Fabian G. schrieb:

> Ja, das ist mir klar, aber wie schreibe ich das mit "Zahl erhöhen" und
> Zahl verringern"?

Du nimmst eine Variable, nennst die zb 'Zaehler' und erhöhst oder 
verringerst sie. Wo ist das Problem?

> Muss ich da Inrease und Decrease benutzen?

Müssen nicht. Du kannst auch

    Zaehler = Zaehler + 1

schreiben, wenn dir Incr unsympatisch ist.

    Incr Zaehler

> Wo und wie schreibe ich was in die Do-Loop Schleife?

So wie du das erwarten würdest:

1

  Abfragen ob eine Taste gedrückt ist

2

    wenn ja, dann eine Sub aufrufen lassen, die die zugehörige

3

    Funktionalität macht

4

5

  ANzeige anktualisieren

6

7

  eventuell ein bischen warten (muss aber nicht sein)

eigentlich sehr logisch, oder nicht?

1

Do

2

3

   Debounce Taster1, 0, Hoch, Sub

4

   Debounce Taster2, 0, Nieder, Sub

5

6

   Num( Zaehler )   auf der 7_Seg ausgeben

7

8

   Wait

9

10

Loop

1

Hoch:

2

   if Zaehler kleiner 9

3

     Incr Zaehler

4

   return

1

Nieder:

2

   if Zaehler größer 0

3

     Decr Zaehler

4

   return