VB.NET 2008 serial port Issue

Expand Post »

Hi i am trying to write-read data from serial port but it don't work
my code look like this

VB.NET Syntax (Toggle Plain Text)
    Private comPort As New SerialPort
 
            comPort.PortName = cboCom.Text
            comPort.Parity = Parity.None
            comPort.DataBits = 8
            comPort.StopBits = StopBits.One
            comPort.BaudRate = CInt(cboSpeed.Text)
            comPort.Handshake = Handshake.None
 
 comPort.Open()
'Write GPS command
 comPort.WriteLine("$PSRF103,00,00,01,01*25")
    Private comPort As New SerialPort

            comPort.PortName = cboCom.Text
            comPort.Parity = Parity.None
            comPort.DataBits = 8
            comPort.StopBits = StopBits.One
            comPort.BaudRate = CInt(cboSpeed.Text)
            comPort.Handshake = Handshake.None

 comPort.Open()
'Write GPS command
 comPort.WriteLine("$PSRF103,00,00,01,01*25")

and the result is my device don't listen and i dont know WHY!!

Similar Threads

How do i read the serial port in VB.NET
Send data on a serial port in C++
serial port programming in windows using VC++ 2008 in Windows Vista and Windows 7
C# sending data via website through serial port in C#
CreateFile() problems on Mobile 5.0 in C++

iamai

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

17 posts
since Oct 2009

Permalink

Jan 18th, 2010

Re: VB.NET 2008 serial port Issue

Click to Expand / Collapse Quote originally posted by iamai ...

Hi i am trying to write-read data from serial port but it don't work
my code look like this
VB.NET Syntax (Toggle Plain Text)
    Private comPort As New SerialPort
 
            comPort.PortName = cboCom.Text
            comPort.Parity = Parity.None
            comPort.DataBits = 8
            comPort.StopBits = StopBits.One
            comPort.BaudRate = CInt(cboSpeed.Text)
            comPort.Handshake = Handshake.None
 
 comPort.Open()
'Write GPS command
 comPort.WriteLine("$PSRF103,00,00,01,01*25")
Private comPort As New SerialPort comPort.PortName = cboCom.Text comPort.Parity = Parity.None comPort.DataBits = 8 comPort.StopBits = StopBits.One comPort.BaudRate = CInt(cboSpeed.Text) comPort.Handshake = Handshake.None comPort.Open() 'Write GPS command comPort.WriteLine("$PSRF103,00,00,01,01*25")
and the result is my device don't listen and i dont know WHY!!

I find it!
the problem was on the line
comPort.Writeline("fdsfsdfsdfa")
and the correct is
comPort.Write("fsdfsdfsda" + vbCrLf)
thanks anyway

iamai

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

17 posts
since Oct 2009

Permalink

Jan 18th, 2010

Re: VB.NET 2008 serial port Issue

Ok but my program is very slow now
it take too much time to display the serial data to the listbox
is any better method to do this?
please advice me

VB.NET Syntax (Toggle Plain Text)
 
      Private comPort As New SerialPort
      comPort.PortName = cboCom.Text
      comPort.Parity = Parity.None
      comPort.DataBits = 8
      comPort.StopBits = StopBits.One
      comPort.BaudRate = CInt(cboSpeed.Text)
      comPort.Handshake = Handshake.None
      comPort.ReadTimeout = 1000
      comPort.WriteTimeout = 1000
      comPort.Open()
 
 
 Private Sub query_GGA()
        comPort.Write("$PSRF103,00,01,00,01*25" + vbCrLf)
        gga_string = comPort.ReadLine
        ListGPS.Items.Add(gga_string)
    End Sub
 
    Private Sub query_GLL()
        comPort.Write("$PSRF103,01,01,00,01*24" + vbCrLf)
        gll_string = comPort.ReadLine
        ListGPS.Items.Add(gll_string)
    End Sub
    Private Sub query_GSA()
        comPort.Write("$PSRF103,02,01,00,01*27" + vbCrLf)
        gsa_string = comPort.ReadLine
        ListGPS.Items.Add(gsa_string)
    End Sub
    Private Sub query_GSV()
        comPort.Write("$PSRF103,03,01,00,01*26" + vbCrLf)
        gsv_string(0) = comPort.ReadLine
        gsv_string(1) = comPort.ReadLine
        gsv_string(2) = comPort.ReadLine
        ListGPS.Items.Add(gsv_string(0))
        ListGPS.Items.Add(gsv_string(1))
        ListGPS.Items.Add(gsv_string(2))
    End Sub
    Private Sub query_RMC()
        comPort.Write("$PSRF103,04,01,00,01*21" + vbCrLf)
        rmc_string = comPort.ReadLine
        ListGPS.Items.Add(rmc_string)
    End Sub
    Private Sub query_VTG()
        comPort.Write("$PSRF103,05,01,00,01*20" + vbCrLf)
        vtg_string = comPort.ReadLine
        ListGPS.Items.Add(vtg_string)  
    End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        query_GGA()
        query_GLL()
        query_GSA()
        query_GSV()
        query_RMC()
        query_VTG()
    End Sub
      Private comPort As New SerialPort
      comPort.PortName = cboCom.Text
      comPort.Parity = Parity.None
      comPort.DataBits = 8
      comPort.StopBits = StopBits.One
      comPort.BaudRate = CInt(cboSpeed.Text)
      comPort.Handshake = Handshake.None
      comPort.ReadTimeout = 1000
      comPort.WriteTimeout = 1000
      comPort.Open()


 Private Sub query_GGA()
        comPort.Write("$PSRF103,00,01,00,01*25" + vbCrLf)
        gga_string = comPort.ReadLine
        ListGPS.Items.Add(gga_string)
    End Sub

    Private Sub query_GLL()
        comPort.Write("$PSRF103,01,01,00,01*24" + vbCrLf)
        gll_string = comPort.ReadLine
        ListGPS.Items.Add(gll_string)
    End Sub
    Private Sub query_GSA()
        comPort.Write("$PSRF103,02,01,00,01*27" + vbCrLf)
        gsa_string = comPort.ReadLine
        ListGPS.Items.Add(gsa_string)
    End Sub
    Private Sub query_GSV()
        comPort.Write("$PSRF103,03,01,00,01*26" + vbCrLf)
        gsv_string(0) = comPort.ReadLine
        gsv_string(1) = comPort.ReadLine
        gsv_string(2) = comPort.ReadLine
        ListGPS.Items.Add(gsv_string(0))
        ListGPS.Items.Add(gsv_string(1))
        ListGPS.Items.Add(gsv_string(2))
    End Sub
    Private Sub query_RMC()
        comPort.Write("$PSRF103,04,01,00,01*21" + vbCrLf)
        rmc_string = comPort.ReadLine
        ListGPS.Items.Add(rmc_string)
    End Sub
    Private Sub query_VTG()
        comPort.Write("$PSRF103,05,01,00,01*20" + vbCrLf)
        vtg_string = comPort.ReadLine
        ListGPS.Items.Add(vtg_string)  
    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        query_GGA()
        query_GLL()
        query_GSA()
        query_GSV()
        query_RMC()
        query_VTG()
    End Sub

Last edited by iamai; Jan 18th, 2010 at 12:57 pm. Reason: nothing

iamai

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

17 posts
since Oct 2009

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in VB.NET Forum Timeline: show menu items on vb.net application based on user rights

Next Thread in VB.NET Forum Timeline: Skip column in datagridview

DaniWeb Message

Cancel Changes

User Name
Password