Visual Basic

Shrimpersfan wrote:

I have commandtimeout's in my code too.

Quin Nee wrote:

I have no idea how data received works as well. Could someone please enlighten me on how this works?

Quin Nee wrote:

but I am lost on how to get it to save to file

Imports System.Text
Imports System.IO.Ports

Public Class Form1
    Dim WithEvents serialPort As New IO.Ports.SerialPort
    Dim mystringbuilder As New StringBuilder
    Private Sub Form1_Load( _
           ByVal sender As System.Object, _
           ByVal e As System.EventArgs) _
           Handles MyBase.Load

        For i As Integer = 0 To _
           My.Computer.Ports.SerialPortNames.Count - 1
            ComboBox3.Items.Add( _
               My.Computer.Ports.SerialPortNames(i))
        Next
        Button2.Enabled = False
    End Sub

    '-------------------------------------------
    ' Event handler for the Connect button
    '-------------------------------------------
    Private Sub Button1_Click( _
       ByVal sender As System.Object, _
       ByVal e As System.EventArgs) _
       Handles Button1.Click

        If serialPort.IsOpen Then
            serialPort.Close()
        End If

        Try
            With serialPort
                .PortName = ComboBox3.Text()
                .BaudRate = 9600
                .Parity = IO.Ports.Parity.None
                .DataBits = 8
                .StopBits = IO.Ports.StopBits.One
            End With
            serialPort.Open()

            TextBox2.Text = ComboBox3.Text & " connected."
            Button1.Enabled = False
            Button2.Enabled = True
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
    '-------------------------------------------
    ' Event handler for the Disconnect button
    '-------------------------------------------
    Private Sub Button2_click( _
       ByVal sender As System.Object, _
       ByVal e As System.EventArgs) _
       Handles Button2.Click
        Try
            serialPort.Close()
            TextBox2.Text = serialPort.PortName & " disconnected."
            Button1.Enabled = True
            Button2.Enabled = False
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
    
    '-------------------------------------------
    ' Event handler for the DataReceived
    '-------------------------------------------
    Private Sub Serialport_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles serialPort.DataReceived
        'This happens on another thread
        mystringbuilder.Append(serialPort.ReadExisting())
        Me.Invoke(New EventHandler(AddressOf UpdateControls))
    End Sub

    Private Sub UpdateControls(ByVal sender As Object, ByVal e As EventArgs)
        'Do any UI code here on the main thread
        My.Computer.FileSystem.WriteAllText("J:\Test\test.txt", mystringbuilder.ToString(), True)

    End Sub


End Class

Quin Nee wrote:

Is it possible to recognise the type of data cming in?

Quin Nee wrote:

I want to read the data from each node and save it into different files like the MAC add of each node.

Quin Nee wrote:

So far most of what I read about serial comms is just reading character or data

Quin Nee wrote:

Btw, please take a look at my codes and inform me if there are any better methods of doing it.

Imports System.Reflection
.
.
.
    Dim assemblies As Assembly() = AppDomain.CurrentDomain.GetAssemblies()
    For Each a As Assembly In assemblies
        Console.WriteLine(String.Format("Codebase: {0}", a.CodeBase))
        Console.WriteLine(String.Format("FullName: {0}", a.FullName))
    Next