Visual Studio 2017和Arduino

Question

我正在vb（vs2017）上开发由四个Arduino控制的按钮（UNO）触发的测验系统。

当循环结束（播放时间）时，系统必须返回到初始屏幕并重新开始游戏。 到目前为止，一切都很好，但是当我按下按钮时，系统无法再读取被按下的按钮。 好像失去了与Arduino的连接一样。

我的代码：

Imports System

Imports System.IO.Ports

Public Class FrAbrir

    Dim comPORT As String = "COM4"
    Dim receivedData As Integer

    Private Sub FrAbrir_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        If (comPORT <> "") Then
            SerialPort1.Close()
            SerialPort1.PortName = comPORT
            SerialPort1.BaudRate = 9600
            SerialPort1.DataBits = 8
            SerialPort1.Parity = Parity.None
            SerialPort1.StopBits = StopBits.One
            SerialPort1.Handshake = Handshake.None
            SerialPort1.Encoding = System.Text.Encoding.Default
            SerialPort1.ReadTimeout = 10000
            SerialPort1.Open()
            Timer1.Enabled = True
        Else
            MsgBox("Porta COM4 não encontrada. Verifique a ligação com o Arduíno.")
        End If

    End Sub

    Function ReceiveSerialData() As String
        Dim Incoming As String
        Try
            Incoming = SerialPort1.ReadExisting()
            If Incoming Is Nothing Then
                Return "nothing" & vbCrLf
            Else
                Return Incoming
            End If
        Catch ex As TimeoutException
            Return "Error: Serial Port read timed out."
        End Try

    End Function


    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Try
            receivedData = ReceiveSerialData()
            SerialPort1.Open()
        Catch

        End Try

        If receivedData = 1 Or receivedData = 2 Or receivedData = 3 Or receivedData = 4 Then
            Timer1.Enabled = False
            receivedData = 0
            SerialPort1.Close()
            FrIdJogador.Show()
            Me.Visible = False
        End If
    End Sub

有人可以帮忙说我在哪里出错以重新建立连接？

Answer 1

我发现发生了什么事。 在另一个公式中，连接仍然打开。 因此，我插入了serialport1.close（）行 ，它的工作非常好。 谢谢！