Mit Taster von einem Loop zum nächsten springen

[Bow-Hunter]

If ((Taste_old XOR Taste_new) AND Taste_new) = 1 Then Incr Modus

Hier zeigt er mir eine Fehlermeldung an. Daher habe ich diese Zeile mal im Code weggelassen.

$regfile = "attiny13.dat"
$crystal = 1200000
$hwstack = 10
$swstack = 10
$framesize = 10

Config Portb.1 = Output
Config Portb.2 = Output
Config Portb.3 = Output
Config Portb.4 = Output
Config Pinb.0 = Input

Dim Modus As Integer
Dim Anzahlmodi As Integer
Dim Taste_old As Bit
Dim Taste_new As Bit

Modus = 1
Anzahlmodi = 2
Taste_new = 0

Do

   Taste_old = Taste_new
   Taste_new = Pinb.0
   If Pinb.0 = 1 Then Incr Modus


   If Modus > Anzahlmodi Then Modus = 1
   Select Case Modus
   Case 1
      Gosub Lichteffekt1
   Case 2
      Gosub Lichteffekt2

   End Select

Loop
End

Lustig:
Solange ich den Taster gedrückt halte laufen alle Lichteffekte nach einander ab.
Jenes Lichteffekt, dass gerade läuft während ich den Taster los lasse, läuft dann nur noch alleine.
Im Grunde ganz witzig aber nicht das was ich zur zeit möchte.

Ist vielleicht nur ein Tippfehler im obigen Code?

Danke Peter
Gruß Glenn

[Peter(TOO)]

Hallo Glenn,

If ((Taste_old XOR Taste_new) AND Taste_new) = 1 Then Incr Modus

Hier zeigt er mir eine Fehlermeldung an. Daher habe ich diese Zeile mal im Code weggelassen.

TOLL, und welche Meldung ?????

Lustig:
Solange ich den Taster gedrückt halte laufen alle Lichteffekte nach einander ab.
Jenes Lichteffekt, dass gerade läuft während ich den Taster los lasse, läuft dann nur noch alleine.
Im Grunde ganz witzig aber nicht das was ich zur zeit möchte.

Das ist genau das Problem.
Dein Programm erkennt die gedrückte Taste und zählt dann dauernd durch.
Der Rest scheint zu funktionieren.

Ist also nur das Problem mit der Fehlermeldung.

MfG Peter(TOO)

[Bow-Hunter]

Diese Fehlermeldung, ich hoffe es hilft.

[Peter(TOO)]

Hallo,
Lösch mal das "= 1" in der fraglichen Zeile.

MfG Peter(TOO)

[Bow-Hunter]

Ne leider auch nicht.
Und nur ohne "1" ebenfalls nicht.

[Peter(TOO)]

und mit And statt AND

Ich weiss nicht ob Bascom casesensitive ist?

[Sauerbruch]

Groß- und Kleinschreibung ist bei Bascom glaube ich ziemlich egal.

Was definitiv ein Problem zu sein scheint, sind die Klammern. Bascom meckert nämlich auch schon bei einer einfachen, unverschachtelten AND-Verknüpfung, wenn man sie in Klammern setzt. Da die Klammern ja aber aufgrund der Verschachtelung nötig wären, kann man das Problem lösen, indem man die beiden Verknüpfungen mit einem Hilfs-Bit nacheinander ausführen lässt:

Dim Taste_old As Bit
Dim Taste_new As Bit
Dim X As Bit
Dim Modus As Byte


Do


X = Taste_old Xor Taste_new
X = X And Taste_new


If X = 1 Then Incr Modus


Loop

Dieser Code wird bei mir jedenfalls anstandslos kompiliert.

Und @ Bow-Hunter: Ganz einfach kann man einen Tastendruck erkennen, wenn man den Taster einen Interrupt auslösen lässt, indem der Taster einen Pegelwechsel am Interrupt-Eingangspin bewirkt. Dann braucht man die ganze "Merkerei" mit Taste_old und Taste_new nicht...