VB 2010 Tastendruck

  • C#
  • .NET (FX) 1.0–2.0

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    VB 2010 Tastendruck

    Hallo,
    Ich bin gerade dabei eine Art "Klavier" mit VB 2010, einem Arduino und einem Schrittmotor umzusetzen.
    Nun habe ich in meinem Programm 15 Buttons die jeweils für einen "Ton" zuständig sind. Ich möchte aber meine Tastatur als "Klavier" benutzen. Wie kann ich Tastatureingaben in mein Programm einbinden? Also wenn ich z.b. den Buchstaben A drücke das dann der selbe Befehl gesendet wird wie mit einem Button.
    Vielen Dank für eure Hilfe!

    Hier der Code:

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.IO.Ports
    3. Imports System.Threading
    5. Public Class Form1
    6. Shared _continue As Boolean
    7. Shared _serialPort As SerialPort
    9. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    10. SerialPort1.Close()
    11. SerialPort1.PortName = "com9" 'change com port to match your Arduino port
    12. SerialPort1.BaudRate = 9600
    13. SerialPort1.DataBits = 8
    14. SerialPort1.Parity = Parity.None
    15. SerialPort1.StopBits = StopBits.One
    16. SerialPort1.Handshake = Handshake.None
    17. SerialPort1.Encoding = System.Text.Encoding.Default 'very important!
    18. End Sub
    20. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    21. SerialPort1.Open()
    22. SerialPort1.Write("1")
    23. SerialPort1.Close()
    24. End Sub
    26. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    27. SerialPort1.Open()
    28. SerialPort1.Write("2")
    29. SerialPort1.Close()
    30. End Sub
    32. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    33. SerialPort1.Open()
    34. SerialPort1.Write("3")
    35. SerialPort1.Close()
    36. End Sub
    38. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    39. SerialPort1.Open()
    40. SerialPort1.Write("4")
    41. SerialPort1.Close()
    42. End Sub
    44. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    45. SerialPort1.Open()
    46. SerialPort1.Write("5")
    47. SerialPort1.Close()
    48. End Sub
    50. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    51. SerialPort1.Open()
    52. SerialPort1.Write("6")
    53. SerialPort1.Close()
    54. End Sub
    56. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    57. SerialPort1.Open()
    58. SerialPort1.Write("7")
    59. SerialPort1.Close()
    60. End Sub
    62. Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
    63. SerialPort1.Open()
    64. SerialPort1.Write("8")
    65. SerialPort1.Close()
    66. End Sub
    68. Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
    69. SerialPort1.Open()
    70. SerialPort1.Write("9")
    71. SerialPort1.Close()
    72. End Sub
    74. Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
    75. SerialPort1.Open()
    76. SerialPort1.Write("a")
    77. SerialPort1.Close()
    78. End Sub
    80. Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
    81. SerialPort1.Open()
    82. SerialPort1.Write("b")
    83. SerialPort1.Close()
    84. End Sub
    86. Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
    87. SerialPort1.Open()
    88. SerialPort1.Write("c")
    89. SerialPort1.Close()
    90. End Sub
    92. Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
    93. SerialPort1.Open()
    94. SerialPort1.Write("d")
    95. SerialPort1.Close()
    96. End Sub
    98. Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
    99. SerialPort1.Open()
    100. SerialPort1.Write("e")
    101. SerialPort1.Close()
    102. End Sub
    104. Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
    105. SerialPort1.Open()
    106. SerialPort1.Write("f")
    107. SerialPort1.Close()
    108. End Sub
    110. Private Sub
    111. If E Then
    112. End Class

    Zum FormDesigner habich kein tut. das ist das Dingens, wo man die buttons aufs Form macht. Auf der Seite ist meist ein Property-Grid, und da kann man die Properties editieren.
    Da musste halt das Form anwählen, und dann die Property "KeyPreview" im PropertyGrid suchen.
    Dassis so simpel, da kann man kein Tut zu machen.

    Zum Event-empfangen habich ein allgemeines Tut, da gibts auch ein Video for Beginners

    Warum so viele Code? ?(
    Ich habe deinen Code optimiert.
    Nun ist er viel kürzer und auch besser zum Lesen.
    Freue mich falls ich dir damit weiter helfen könnte.

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
    2. Button1.Click, Button2.Click, Button3.Click
    3. Select Case True
    4. Case sender Is Button1
    5. SerialPortSettings("1"c)
    6. Case sender Is Button2
    7. SerialPortSettings("2"c)
    8. Case sender Is Button3
    9. SerialPortSettings("3"c)
    10. End Select
    11. End Sub
    13. Private Sub SerialPortSettings(value As Char)
    14. SerialPort1.Open()
    15. SerialPort1.Write(value)
    16. SerialPort1.Close()
    17. End Sub
    Visual Basic.NET 8o
    MS-SQL     8o

    @Sandro2504 Und:
    Das Port bleibt über die Laufzeit des Programms geöffnet, final schließt Du es wieder.
    Da musst Du nur noch senden.
    Wenn Du die zu sendenden Zeichen im Designer der Tag-Property der Buttons zuweist, musst Du nicht mehr die einzelnen Buttons abfragen, sondern nur noch sender zu einem Control casten, die Tag-Property auslesen (die ist per Designer ein String), in einen Char konvertieren und senden.
    Feddich.

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click, Button3.Click
    2. Dim btn = DirectCast(sender, Button)
    3. Dim tag = btn.Tag.ToString()
    4. If tag.Length = 1 Then
    5. SerialPort1.Write(Convert.ToChar(tag))
    6. End If
    7. End Sub

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende