Quellcode in Bascom für die Abfrage einer 3x4 Matrixtastatur.

Um eine 3x4-Matrix-Tastatur in Bascom zu verwenden, kannst du den folgenden Beispielcode nutzen. Dieser Code zeigt, wie du die Tasten abfragen und die gedrückte Taste identifizieren kannst.

```bascom
$regfile = "m8def.dat" ' Mikrocontroller-Typ (z.B. ATmega8)
$crystal = 8000000 ' Taktfrequenz

Dim row As Byte
Dim col As Byte
Dim key As Byte

' Pin-Definitionen für die Matrix-Tastatur
Const row1 = Portb.0
Const row2 = Portb.1
Const row3 = Portb.2
Const col1 = Portb.3
Const col2 = Portb.4
Const col3 = Portb.5
Const col4 = Portb.6

' Initialisierung
Config Portb = Output
Portb = &B00000000 ' Alle Pins auf LOW

Do
For row = 0 To 2
' Setze die aktuelle Zeile auf LOW
Portb = &B00000000
Portb = (1 << (row + 3)) ' Setze die entsprechende Zeile auf HIGH

' Überprüfe die Spalten
If Not (Pinb.3) Then key = row * 4 + 1 ' Taste 1, 2, 3
If Not (Pinb.4) Then key = row * 4 + 2 ' Taste 4, 5, 6
If Not (Pinb.5) Then key = row * 4 + 3 ' Taste 7, 8, 9
If Not (Pinb.6) Then key = row * 4 + 4 ' Taste *, 0, #

If key > 0 Then
' Hier kannst du die gedrückte Taste verarbeiten
Print "Taste gedrückt: "; key
Waitms 500 ' Entprellzeit
key = 0 ' Zurücksetzen
End If
Next row
Loop
```

In diesem Code wird die Matrix-Tastatur durch das Setzen der Zeilen und das Abfragen der Spalten abgefragt. Die Tasten sind in einer 3x4-Anordnung angeordnet, und jede Taste wird durch eine Kombination von Zeilen und Spalten identifiziert. Achte darauf, die richtigen Pins für deine Hardware zu konfigurieren.