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:
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
- Imports System.IO
- Imports System.IO.Ports
- Imports System.Threading
- Public Class Form1
- Shared _continue As Boolean
- Shared _serialPort As SerialPort
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- SerialPort1.Close()
- SerialPort1.PortName = "com9" 'change com port to match your Arduino port
- SerialPort1.BaudRate = 9600
- SerialPort1.DataBits = 8
- SerialPort1.Parity = Parity.None
- SerialPort1.StopBits = StopBits.One
- SerialPort1.Handshake = Handshake.None
- SerialPort1.Encoding = System.Text.Encoding.Default 'very important!
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- SerialPort1.Open()
- SerialPort1.Write("1")
- SerialPort1.Close()
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- SerialPort1.Open()
- SerialPort1.Write("2")
- SerialPort1.Close()
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- SerialPort1.Open()
- SerialPort1.Write("3")
- SerialPort1.Close()
- End Sub
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
- SerialPort1.Open()
- SerialPort1.Write("4")
- SerialPort1.Close()
- End Sub
- Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
- SerialPort1.Open()
- SerialPort1.Write("5")
- SerialPort1.Close()
- End Sub
- Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
- SerialPort1.Open()
- SerialPort1.Write("6")
- SerialPort1.Close()
- End Sub
- Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
- SerialPort1.Open()
- SerialPort1.Write("7")
- SerialPort1.Close()
- End Sub
- Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
- SerialPort1.Open()
- SerialPort1.Write("8")
- SerialPort1.Close()
- End Sub
- Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
- SerialPort1.Open()
- SerialPort1.Write("9")
- SerialPort1.Close()
- End Sub
- Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
- SerialPort1.Open()
- SerialPort1.Write("a")
- SerialPort1.Close()
- End Sub
- Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
- SerialPort1.Open()
- SerialPort1.Write("b")
- SerialPort1.Close()
- End Sub
- Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
- SerialPort1.Open()
- SerialPort1.Write("c")
- SerialPort1.Close()
- End Sub
- Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
- SerialPort1.Open()
- SerialPort1.Write("d")
- SerialPort1.Close()
- End Sub
- Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
- SerialPort1.Open()
- SerialPort1.Write("e")
- SerialPort1.Close()
- End Sub
- Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
- SerialPort1.Open()
- SerialPort1.Write("f")
- SerialPort1.Close()
- End Sub
- Private Sub
- If E Then
- End Class