Nsryjdtyk

I am currently making a project using a resistive touch screen and an Arduino Uno. The resistive touch screen outputs an X and Y coordinate pair of an object placed on it. I want to be able to continuously read and output these coordinated graphically in Visual Basic, using the FastPoint ChartType. I am wondering how to acquire these X and Y coordinates through the serial port at the same time, so they can be used in the graph. I attached what I have for now.

Dim comPORT As String

Dim receivedData As String = ""



Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Timer1.Enabled = False

    comPORT = ""

    For Each serial_port As String In My.Computer.Ports.SerialPortNames

        comPort_ComboBox.Items.Add(serial_port)

    Next

End Sub





Private Sub comPort_ComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles comPort_ComboBox.SelectedIndexChanged

    If (comPort_ComboBox.SelectedItem <> "") Then

        comPORT = comPort_ComboBox.SelectedItem

    End If

End Sub





Private Sub connect_BTN_Click(sender As Object, e As EventArgs) Handles connect_BTN.Click

    If (connect_BTN.Text = "Connect") Then

        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()

            connect_BTN.Text = "Dis-connect"

            Timer1.Enabled = True

            Timer_LBL.Text = "Timer: ON"

        Else

            MsgBox("Select a port.")

        End If

    Else

        SerialPort1.Close()

        connect_BTN.Text = "Connect"

        Timer1.Enabled = False

        Timer_LBL.Text = "Timer: OFF"

    End If





End Sub





Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

    receivedData = ReceiveSerialData()

    Output1.Text &= receivedData



End Sub





Function ReceiveSerialData() As String

    Dim Incoming As String

    Try

        Incoming = SerialPort1.ReadExisting()

        If Incoming Is Nothing Then

            Return "N/A" & vbCrLf

        Else

            Return Incoming

        End If

    Catch ex As TimeoutException

        Return "Error: Serial Port read timed out."

    End Try



End Function







Private Sub clear_BTN_Click(sender As Object, e As EventArgs) Handles clear_BTN.Click

    Output1.Text = ""

End Sub