A320 Sidestick Lock Solenoid: Mit Autopilot-ON/OFF-Zustand ein USB-Relais steuern?

Imports FSUIPC
Imports System.IO.Ports
Public Class Form1
    Dim compass As Offset(Of Integer) = New FSUIPC.Offset(Of Integer)(&H7BC)
    Public PortNummer As Integer

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        FSUIPCConnection.Close()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        PortNummer = My.Settings.PN
        Try
            FSUIPCConnection.Open()
            Timer1.Enabled = True
            Button3.Visible = False
        Catch
            Timer1.Enabled = False
            MsgBox("FSUIPC nicht gefunden")

        End Try

        RichTextBox1.Text = PortNummer

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        FSUIPCConnection.Process()
        If compass.Value = 0 Then
            Label2.Text = "OFF"
            Dim by() As Byte = {&HA0, &H1, &H1, &HA2}
            If SerialPort1.IsOpen Then SerialPort1.Write(by, 0, by.Length)
        Else
            Label2.Text = "ON"
            Dim by() As Byte = {&HA0, &H1, &H1, &HA2}
            If SerialPort1.IsOpen Then SerialPort1.Write(by, 0, by.Length)
        End If

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Try
            FSUIPCConnection.Open()
            Timer1.Enabled = True
            Button3.Visible = False
        Catch
            Timer1.Enabled = False
            MsgBox("FSUIPC nicht gefunden")

        End Try

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim by() As Byte = {&HA0, &H1, &H1, &HA2}
        If SerialPort1.IsOpen Then SerialPort1.Write(by, 0, by.Length)
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim by() As Byte = {&HA0, &H1, &H0, &HA1}
        If SerialPort1.IsOpen Then SerialPort1.Write(by, 0, by.Length)
    End Sub

    Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged
        PortNummer = RichTextBox1.Text
        My.Settings.PN = PortNummer

        SerialPort1.PortName = "COM" & PortNummer   '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!
        Try
            SerialPort1.Open()
        Catch
            MsgBox("Relay an COM" & PortNummer & " nicht erkannt")
        End Try
    End Sub
End Class