Opening COM port Error

[cmdolcet69]

I have the following code: When i run this code it gieve me an error
saying the COM port isn;t opened?
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 = ComboBox1.Text
.BaudRate = 9600
.Parity = IO.Ports.Parity.None
.DataBits = 8
.StopBits = IO.Ports.StopBits.One

End With
serialPort.Open()

BAIhomeaction()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub

[Patrice]

And the line that fails is ? Also you may want to consider dropping the
try/catch statement (you'll be placed at the location of the error)

"cmdolcet69" <co************@hotmail.coma écrit dans le message de groupe
de discussion :
40**********************************...oglegroups.com...

I have the following code: When i run this code it gieve me an error
saying the COM port isn;t opened?
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 = ComboBox1.Text
.BaudRate = 9600
.Parity = IO.Ports.Parity.None
.DataBits = 8
.StopBits = IO.Ports.StopBits.One

End With
serialPort.Open()

BAIhomeaction()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub

[cmdolcet69]

On May 14, 2:17*pm, "Patrice" <http://www.chez.com/scribe/wrote:

And the line that fails is ? Also you may want to consider dropping the
try/catch statement (you'll be placed at the location of the error)

"cmdolcet69" <[e-mail] écrit dans le message de groupe
de discussion :
[e-mail]...

I have the following code: When i run this code it gieve me an error
saying the COM port isn;t opened?

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 = ComboBox1.Text
* * * * * * * *.BaudRate = 9600
* * * * * * * *.Parity = IO.Ports.Parity.None
* * * * * * * *.DataBits = 8
* * * * * * * *.StopBits = IO.Ports.StopBits.One

* * * * * *End With
* * * * * *serialPort.Open()

* * * * * *BAIhomeaction()
* * * *Catch ex As Exception
* * * * * *MsgBox(ex.ToString)
* * * *End Try
* *End Sub- Hide quoted text -

- Show quoted text -

It fails on the serialPort.Open() telling me its not opened.

[=?Utf-8?B?RmFtaWx5IFRyZWUgTWlrZQ==?=]

See this note in MSDN for the SerialPort.Open() method:

' from msdn
Only one open connection can exist per SerialPort object.

The best practice for any application is to wait for some amount of time
after calling the Close method before attempting to call the Open method, as
the port may not be closed instantly.

' end of msdn remarks
"cmdolcet69" wrote:

I have the following code: When i run this code it gieve me an error
saying the COM port isn;t opened?
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 = ComboBox1.Text
.BaudRate = 9600
.Parity = IO.Ports.Parity.None
.DataBits = 8
.StopBits = IO.Ports.StopBits.One

End With
serialPort.Open()

BAIhomeaction()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub

[Dick Grier]

What is the .PortName property set to? It should be something like "COM1".

You don't say how your are filling the combobox text. Is it from the array
returned by the .GetPortNames method? Are there any unexpected characters
in the name (I've seen USB Bluetooth drivers add odd terminating
characters)?

Dick

--
Richard Grier, MVP
Hard & Software
Author of Visual Basic Programmer's Guide to Serial Communications, Fourth
Edition,
ISBN 1-890422-28-2 (391 pages, includes CD-ROM). July 2004, Revised March
2006.
See www.hardandsoftware.net for details and contact information.