Schritt 4: Eine einfache VB-CODE
Public Class GamepadLauncher
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Griffe Button1.Click
Wenn SerialPort1.IsOpen = False Then
Wenn TextBox1.Text <> "" und TextBox2.Text <> "" dann
SerialPort1.PortName = TextBox1.Text
SerialPort1.BaudRate = TextBox2.Text
Wenn SerialPort1.IsOpen = False Then
SerialPort1.Open()
MsgBox ("Serial geöffnet")
TIMER1.Enabled = True
End If
Anderes
MsgBox ("geben Sie COM-Port und Baud-Rate")
End If
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Griffe MyBase.Load
SerialPort1.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Griffe Button2.Click
Wenn SerialPort1.IsOpen = True Then
SerialPort1.Close()
TIMER1.Enabled = False
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Griffe Timer1.Tick
Dim a als String = ""
ein = SerialPort1.ReadExisting
TextBox3.Text = TextBox3.Text + a
Wenn ein = "1" dann
SendKeys.Send("{up}")
ElseIf a = "2" dann SendKeys.Send("{down}")
ElseIf a = "3" dann SendKeys.Send("{left}")
ElseIf a = "4" dann SendKeys.Send("{right}")
End If
End Sub
EndClass