Stap 4: Een eenvoudige VB-CODE
Openbare klasse GamepadLauncher
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) behandelt Button1.Click
Als SerialPort1.IsOpen = False Then
Als TextBox1.Text <> "" en TextBox2.Text <> "" dan
SerialPort1.PortName = TextBox1.Text
SerialPort1.BaudRate = TextBox2.Text
Als SerialPort1.IsOpen = False Then
SerialPort1.Open()
MsgBox ("Serial geopend")
Timer1.Enabled = True
End If
Anders
MsgBox ("Voer COM-poort en baudrate")
End If
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) verwerkt MyBase.Load
SerialPort1.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) verwerkt Button2.Click
Als 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) verwerkt Timer1.Tick
Dim een As String = ""
een = SerialPort1.ReadExisting
TextBox3.Text = TextBox3.Text + a
Als een "1" = vervolgens
SendKeys.Send("{up}")
ElseIf a = "2" dan SendKeys.Send("{down}")
ElseIf a = "3" dan SendKeys.Send("{left}")
ElseIf a = "4" dan SendKeys.Send("{right}")
End If
End Sub
Einde klasse
