Tastendruck auswerten

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von tron25.

    Tastendruck auswerten

    Hallo,

    ich habe ein Gerät, welches über Bluetooth mit dem PC verbunden ist. Das Gerät hat zwei Tastengruppen. Einmal 6 und einmal 7 Tasten. Jedesmal, wenn eine Taste gedrückt oder losgelassen wird, sendet das Gerät die Zustände aller Tasten zurück. Jede Gruppe liefert ein Byte zurück. Die erste Taste einer Gruppe hat den Wert 1, die Zweite 2, die Dritte 4, usw. Somit kann anhand des zurückgelieferten Bytes der Zustand jeder Taste einer Gruppe erkannt werden. Nun suche ich nach einer Möglichkeit, beispielsweise eine Tastenkombination zu erkennen. Als Idee hatte ich Folgende:

    Wenn ein Wert zurückgegeben wird, wird dieser inclusive der aktuellen Zeit in eine Liste geschrieben.
    Wenn der Wert 0 geliefert wird, werden alle Werte berücksichtigt, die nicht länger als das festgelegte Intervall zurückliegen, um herauszufinden, welche Tasten zu der aktuellen Kombination gehören.
    Nach dem Auswerten der Werte, wird die Liste geleert.

    Was sagt ihr zu diesem Weg? Oder gibt es da etwas viel effektiveres?

    Bei Tastenkombinationen spielt die Zeit keine Rolle. Da könnte ich es tatsächlich so machen.

    Die Zeit währe interessant für Doppelklicks.

    Ich werde erst einmal einzelne Tasten und Tastenkombinationen mit einer Liste programmieren. Danach kommen Doppelklicks dran. Sicherlich brauche ich da nochmal eure Hilfe.

    ----------

    So, ich habe erst einmal beschlossen, dass keine Kombinationen verwendet werden können. Statt einer Liste habe ich für jede Taste eine Boolean-Variable erstellt. Hier Auszüge aus dem Code:

    VB.NET-Quellcode

    1. Public Class PunktbilderFormular
    2. Dim TasteLinks As Boolean = False
    3. Dim TasteMitte As Boolean = False
    4. Dim TasteRechts As Boolean = False
    5. Dim KreuzHoch As Boolean = False
    6. Dim KreuzRechts As Boolean = False
    7. Dim KreuzRunter As Boolean = False
    8. Dim KreuzLinks As Boolean = False
    9. Dim Taste1 As Boolean = False
    10. Dim Taste2 As Boolean = False
    11. Dim Taste3 As Boolean = False
    12. Dim Taste4 As Boolean = False
    13. Dim Taste5 As Boolean = False
    14. Dim Taste6 As Boolean = False
    16. Public Sub HyperFlat76RueckgabeAuswerten(Daten)
    17. Dim Tastenwert As Integer
    18. If InStr(Daten, Chr(27)) Then
    19. Daten = Mid(Daten, InStr(Daten, Chr(27)), Len(Daten))
    20. End If
    21. Select Case Mid(Daten, 1, 2)
    22. Case Chr(27) & Chr(49)
    23. 'Hier werden die Tasten der unteren Gruppe ausgewertet.
    24. Tastenwert = Asc(Mid(Daten, 6, 1))
    25. If Tastenwert = 0 Then
    26. HyperFlat76TastenbefehlAusfuehren(Asc(Mid(Daten, 6, 1)) & Asc(Mid(Daten, 7, 1)))
    27. End If
    28. If Tastenwert - 128 >= 0 Then
    29. TasteRechts = True
    30. Tastenwert -= 128
    31. End If
    32. If Tastenwert - 64 >= 0 Then
    33. TasteLinks = True
    34. Tastenwert -= 64
    35. End If
    36. If Tastenwert - 16 >= 0 Then
    37. TasteMitte = True
    38. Tastenwert -= 16
    39. End If
    40. If Tastenwert - 8 >= 0 Then
    41. KreuzRunter = True
    42. Tastenwert -= 8
    43. End If
    44. '...
    45. End Select
    46. End Sub
    48. Public Sub HyperFlat76TastenbefehlAusfuehren(Tastengruppe As String)
    49. If Mid(Tastengruppe, 1, 1) = 0 Then
    50. If TasteLinks Then
    51. BrailleanzeigeNachLinksDrehen_Click(Me, EventArgs.Empty)
    52. End If
    53. If TasteMitte Then
    54. BrailleanzeigeZuruecksetzenMenue_Click(Me, EventArgs.Empty)
    55. End If
    56. If TasteRechts Then
    57. BrailleanzeigeNachRechtsDrehenMenue_Click(Me, EventArgs.Empty)
    58. End If
    59. If KreuzLinks Then
    60. Select Case BrailleanzeigeAusrichtung
    61. Case 0
    62. BrailleanzeigeLinksMenue_Click(Me, EventArgs.Empty)
    63. Case 1
    64. BrailleanzeigeHochMenue_Click(Me, EventArgs.Empty)
    65. Case 2
    66. BrailleanzeigeRechtsMenue_Click(Me, EventArgs.Empty)
    67. Case 3
    68. BrailleanzeigeRunterMenue_Click(Me, EventArgs.Empty)
    69. End Select
    70. End If
    71. '...
    72. TasteLinks = False
    73. TasteMitte = False
    74. TasteRechts = False
    75. KreuzHoch = False
    76. '...
    77. end if
    78. GrafikAufbauen()
    79. End Sub
    80. End Class


    Auf die gleiche Weise werden die Tasten der oberen Gruppe behandelt.

    Sorry, ich habe wieder MID benutzt.

    Jetzt funktioniert es und das Programm läßt sich über die Tasten des Gerätes steuern. Bevor ich am Anfang den Datenstrom noch nicht angepaßt hatte, wurde leider nicht jeder Befehl erkannt, da das Chr(27) nicht immer am Anfang stand.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „tron25“ ()

Facebook
Telefonspende