problem with visualbasic 2010 coding

system · November 7, 2012, 9:11am

hi everyone,
need ur help to solve the problem that i face.im working on developing the flood monitoring system, using serial data received, then manipulte the data by arduino atMega328 deumilanove. im trying to do the visual basic command but i got an error stated that there are command that is not initialized.my coding are as follows.

visual basic 2010 coding.

Imports System.Text
Imports System.IO.Ports
Imports System.Threading
Imports System.TimeZone
Imports System.Math

Public Class Form1
Dim voltage As Integer
Delegate Sub ProcessDataDelegate(ByVal Longitude As String, ByVal Latitude As String)
Private Sub SerialPort1_DataReceived(ByVal sender As Object, _
ByVal e As SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Try
Dim Longitude As Integer = SerialPort1.ReadLine()
Dim Latitude As Integer = SerialPort1.ReadLine()
Me.Invoke(New ProcessDataDelegate(AddressOf ProcessData), Longitude, Latitude)
Catch ex As Exception
MessageBox.Show(ex.ToString, " Unable to get the location")
SerialPort1.Close()
End Try
End Sub
Sub ProcessData(ByVal Longitude As String, ByVal Latitude As String)
TextBox1.Text = Longitude
TextBox2.Text = Latitude
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal _e As EventArgs) Handles Button1.Click
If Button1.Text = "Close" Then
SerialPort1.Close()
Button1.Text = "Open"
Else
If Not SerialPort1.IsOpen Then SerialPort1.Open()

Button1.Text = " Close"

End If
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal _e As FormClosingEventArgs
) Handles Me.FormClosing
SerialPort1.Close()

End Sub

Private Sub WebBrowser2_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser2.DocumentCompleted
WebBrowser2.Navigate("Google Maps")
End Sub

Private Sub CheckedListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
If (voltage <= 0.5) Then
MsgBox("Checked")
Else
MsgBox("Unchecked")

End If
End Sub

Private Sub CheckedListBox1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckedListBox1.SelectedIndexChanged
If CheckedListBox1.GetItemCheckState(voltage <= 0.5) Then
CheckedListBox1.Text = True
CheckedListBox1.CheckOnClick = True
Else
If Not CheckedListBox1.CheckOnClick Then
CheckedListBox1.Text = False

End If

End Sub

Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
If (voltage <= 0.5) Then
CheckedListBox1.Text = True
MsgBox(" safe")
TextBox3.Show()
End If
If (voltage >= 0.5 And voltage <= 0.6) Then
CheckedListBox2.Text = True
MsgBox(" WARNING")
TextBox3.Show()
End If
If (voltage <= 0.6 And voltage <= 0.7) Then
CheckedListBox3.Text = True
MsgBox("DANGER")
TextBox3.Show()
End If

End Sub

Private Sub SplitContainer2_Panel2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles SplitContainer2.Panel2.Paint

End Sub

Private Sub SplitContainer1_Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles SplitContainer1.Panel1.Paint

End Sub

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub CheckedListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckedListBox2.SelectedIndexChanged
If CheckedListBox2.GetItemCheckState(voltage >= 0.5 And voltage <= 0.6) Then
CheckedListBox2.Text = True
CheckedListBox2.CheckOnClick = True
Else
If Not CheckedListBox2.CheckOnClick Then
CheckedListBox1.Text = False
End If
End If

End Sub

Private Sub CheckedListBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckedListBox3.SelectedIndexChanged
If CheckedListBox3.GetItemCheckState(voltage >= 0.6 And voltage <= 0.7) Then
CheckedListBox2.Text = True
CheckedListBox2.CheckOnClick = True
Else
If Not CheckedListBox2.CheckOnClick Then
CheckedListBox1.Text = False
End If
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Timer1.Interval = 1
End Sub

Private Sub PictureBox1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

End Sub

Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.TextChanged

Label6.Text = DateString

End Sub

Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.TextChanged

Label7.Text = TimeOfDay
End Sub
End Class

hope anyone can help me solve this problem.thanks.

system · November 7, 2012, 12:48pm

but i got an error stated that there are command that is not initialized.

I doubt that the syntax of the message was as mangled as that. Post the EXACT error message.

Good thing you found this problem early before you wrote a ton of code.

system · November 7, 2012, 5:26pm

i cannot paste the print screen of the error..

after compiling the coding...another window appeared stated that " an invalid operation excerption was unhandled"
The error is: Failed to initialize because CategoryName is missing

tq.

system · November 7, 2012, 9:52pm

Where is SerialPort1 defined/initialized? How is it defined and initialized?

system · November 8, 2012, 8:52am

should it be initialized?how? because previously i have complied the code, but no error happens. how ever , the error appeared as i put the timer function to the code.

system · November 11, 2012, 3:09pm

paul...how to intialized the serial port1?

system · November 11, 2012, 3:27pm

how to intialized the serial port1?

Initialization is the second step. You have not explained the first step - declaration.

marcello.romani · November 11, 2012, 3:46pm

Private Sub Button1_Click(ByVal sender As Object, ByVal _e As EventArgs) Handles Button1.Click
        If Button1.Text = "Close" Then    ' will fail it button's text is " Close" (notice the extra space)
            SerialPort1.Close()
            Button1.Text = "Open"
        Else
            If Not SerialPort1.IsOpen Then SerialPort1.Open()    ' where is endif ?

            Button1.Text = " Close"    ' one extra space!

        End If
    End Sub

Where do you set the port options (baud rate, etc. ?).

system · November 15, 2012, 3:17pm

PaulS, here is the declaration for the serialport1.

Public Class Form1
Dim voltage As Integer
Dim WithEvents longitude As SerialPort = New _
System.IO.Ports.SerialPort("COM23", 9600, Parity.None, 8, StopBits.One)

however, i still get the same error " system.InvalidOperationException ".

system · November 15, 2012, 3:20pm

tuxduino...

actually i got the coding from other pages.

Private Sub Button1_Click(ByVal sender As Object, ByVal _e As EventArgs) Handles Button1.Click
If Button1.Text = "Close" Then ' will fail it button's text is " Close" (notice the extra space)
SerialPort1.Close()
Button1.Text = "Open"
Else
If Not SerialPort1.IsOpen Then SerialPort1.Open() ' where is endif ?

Button1.Text = " Close" ' one extra space!( meaning of the code)?

End If// here is the end if .
End Sub

hope u can help me in understanding me the button.text= "close" code..i can get ur comment on that code.

marcello.romani · November 15, 2012, 4:51pm

(Please use code tags (# button in the editor toolbar above) when posting code.)

Please have a look at this (corrected) version of the code:

Private Sub Button1_Click(ByVal sender As Object, ByVal _e As EventArgs) Handles Button1.Click
    If Button1.Text = "Close" Then
        SerialPort1.Close()
        Button1.Text = "Open"
    Else
        If Not SerialPort1.IsOpen Then
            SerialPort1.Open()
            Button1.Text = " Close"
        End If
    End if
End Sub

Let's try to explain it in pseudocode:

if button1 label is "Close" then (A)
close the serial port
change button1 label to "Open"
else
if serial port is not already open
open it
change button1 label to "Close" (B)
endif
endif

(B) If the string assigned here is not exactly equal to that tested in (A) the code won't work.

In the code fragment posted earlier, in (B) you have " Close", with an extra space before the first letter. That's not going to be equal to "Close" in (A), so the IF will always fail.

I hope it's clearer now.

system · November 16, 2012, 10:56am

tuxdino,i have try compile will your code.however..the compiling error still exist.the error stated that "A first chance exception of type 'System.InvalidOperationException' occurred in System.dll"

marcello.romani · November 16, 2012, 11:01am

My advice was about the errors in the piece of code you posted. Presumably that exception comes from another part of the code. Without seeing the full code, it's hard to tell.

Also, does it happen just by clicking that Button1 or when some serial data comes in ?

system · November 17, 2012, 5:35am

tuxdino..PaulS..here is the full code

Imports System.Text
Imports System.IO.Ports
Imports System.Threading
Imports System.TimeZone
Imports System.Math

Public Class Form1
    Dim voltage As Integer
    Dim WithEvents longitude As SerialPort = New  _
        System.IO.Ports.SerialPort("COM23", 9600, Parity.None, 8, StopBits.One)

    Delegate Sub ProcessDataDelegate(ByVal Longitude As String, ByVal Latitude As String)
    Private Sub SerialPort1_DataReceived(ByVal sender As Object, _
                                         ByVal e As SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
        Try
            Dim Longitude As Integer = SerialPort1.ReadLine()
            Dim Latitude As Integer = SerialPort1.ReadLine()
            Me.Invoke(New ProcessDataDelegate(AddressOf ProcessData), Longitude, Latitude)
        Catch ex As Exception
            MessageBox.Show(ex.ToString, " Unable to get the location")
            SerialPort1.Close()
        End Try
    End Sub
    Sub ProcessData(ByVal Longitude As String, ByVal Latitude As String)
        TextBox1.Text = Longitude
        TextBox2.Text = Latitude
    End Sub
    Private Sub Button1_Click(ByVal sender As Object, ByVal _e As EventArgs) Handles Button1.Click
        If Button1.Text = "Close" Then
            SerialPort1.Close()
            Button1.Text = "Open"
        Else
            If Not SerialPort1.IsOpen Then
                SerialPort1.Open()
                Button1.Text = " Close"

            End If
        End If

    End Sub
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal _e As FormClosingEventArgs
                                  ) Handles Me.FormClosing
        SerialPort1.Close()

    End Sub
    
    Private Sub WebBrowser2_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser2.DocumentCompleted
        WebBrowser2.Navigate("maps.google.com/maps?q=")
    End Sub

    Private Sub CheckedListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If (voltage <= 0.5) Then
            MsgBox("Checked")
        Else
            MsgBox("Unchecked")

        End If
    End Sub


    Private Sub CheckedListBox1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckedListBox1.SelectedIndexChanged
        If CheckedListBox1.GetItemCheckState(voltage <= 0.5) Then
            CheckedListBox1.Text = True
            CheckedListBox1.CheckOnClick = True
        Else
            If Not CheckedListBox1.CheckOnClick Then
                CheckedListBox1.Text = False

            End If

        End If

    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
        If (voltage <= 0.5) Then
            CheckedListBox1.Text = True
            MsgBox(" safe")
            TextBox3.Show()
        End If
            If (voltage >= 0.5 And voltage <= 0.6) Then
                CheckedListBox2.Text = True
                MsgBox(" WARNING")
                TextBox3.Show()
            End If
        If (voltage <= 0.6 And voltage <= 0.7) Then
            CheckedListBox3.Text = True
            MsgBox("DANGER")
            TextBox3.Show()
        End If

    End Sub

    Private Sub SplitContainer2_Panel2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles SplitContainer2.Panel2.Paint

    End Sub

    Private Sub SplitContainer1_Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles SplitContainer1.Panel1.Paint
      
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub CheckedListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckedListBox2.SelectedIndexChanged
        If CheckedListBox2.GetItemCheckState(voltage >= 0.5 And voltage <= 0.6) Then
            CheckedListBox2.Text = True
            CheckedListBox2.CheckOnClick = True
        Else
            If Not CheckedListBox2.CheckOnClick Then
                CheckedListBox1.Text = False
            End If
        End If

    End Sub

    Private Sub CheckedListBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckedListBox3.SelectedIndexChanged
        If CheckedListBox3.GetItemCheckState(voltage >= 0.6 And voltage <= 0.7) Then
            CheckedListBox2.Text = True
            CheckedListBox2.CheckOnClick = True
        Else
            If Not CheckedListBox2.CheckOnClick Then
                CheckedListBox1.Text = False
            End If
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
        Timer1.Interval = 1
    End Sub

    Private Sub PictureBox1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

        PictureBox1.GetContainerControl()
        If (voltage = 0.5) Then

        End If






    End Sub

    Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.TextChanged

        Label6.Text = DateString

    End Sub

    Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.TextChanged

        Label7.Text = TimeOfDay
    End Sub

End Class

marcello.romani · November 17, 2012, 9:51am

Does that "Unable to get the location" error message box show up ?

system · November 17, 2012, 2:12pm

        System.IO.Ports.SerialPort("COM23", 9600, Parity.None, 8, StopBits.One)

On some versions of Windows, in some software, using "COMnn" as the port name does not work. "COMn" does (a single digit). Why are there so many COM ports on your system? Mine has never used a number higher than 8.

Search the forum (the old one, especially) for "COM port above 9" to see how to use port names with numbers greater than 9. It involves some ridiculous combination of periods and slashes. See if that helps.

system · November 18, 2012, 4:16am

no.because of the error..i cannot compile the code.it gets hang eventhough there are no syntax error stated.maybe it wont works because im receiving the lat and long by a serial comm from the receiver.

system · November 18, 2012, 2:24pm

no.because of the error..i cannot compile the code.

Until now, you've at least implied that the problem was happening when you ran the code.

You'll need to zip up your whole project and attach it as a zip file if you want us to help you debug this.

system · November 19, 2012, 8:53am

ok.Pauls.how to attach the zip file here.thanks..

marcello.romani · November 19, 2012, 9:37am

"Additional options..."

Topic		Replies	Views
how do i Interface arduino and visual basic 2010 (serial communication) Interfacing w/ Software on the Computer	6	3664	May 6, 2021
Arduino + VB.net 2010 Interfacing w/ Software on the Computer	3	1692	May 6, 2021
Problems receiving data with Visual Studio 2010 Interfacing w/ Software on the Computer	4	2807	May 6, 2021
Arduino y Visual Basic Software	2	1944	May 7, 2021
Arduino interface with Visual Basic Express 2010 Interfacing w/ Software on the Computer	5	11608	May 6, 2021

problem with visualbasic 2010 coding

Related topics