Visual Basic

ArunUtkarshaRana wrote:

want to compare the contents of these two xmls

ArunUtkarshaRana wrote:

using TreeView in VB .Net

jishbalan wrote:

When my application hangs

Shrimpersfan wrote:

The error message within the application says 'Cannot insert NULL value into column 'QuoteID', column does not insert NULL's. Insert failed.

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