RS232 Anyone???

[Terry Olsen]

I'm trying to use the RS232 class that was in the Platform SDK (i think).
Has anyone else used this with events successfully? Here's what i've got:
======================
Public WithEvents bbsPort As Rs232 = New Rs232

With bbsPort
.BaudRate = baud
.DataBit = dataBits
.Parity = parity
.Port = comPort
.StopBit = stopBits
Try
.Open()
Catch ex As Exception
StopServerToolStripMenuItem.PerformClick()
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End With

'The port opens okay because if I have another application using the port I
get the exception message "Unable to open COM1"

Public Sub ReadComPort(ByVal Source As Rs232, ByVal DataBuffer() As Byte)
Handles bbsPort.DataReceived
MsgBox("DataReceived")
End Sub
=======================

Two questions I have are: I know I can communicate because I can talk to
the serial device with Hyperterminal. When I try it with my app, the event
is never fired. So I must be doing something wrong. Any help is
desperately needed & appreciated.

Second question: There doesn't seem to be a way to set flow control. Has
anyone added flow control capabilities to this class?

Thanks.

[Terry Olsen]

Nevermind....I just found out that VB 2005 supports the serial ports.
Changed my code and all works fine now...
"Terry Olsen" <to******@hotmail.com> wrote in message
news:%2****************@TK2MSFTNGP12.phx.gbl...

I'm trying to use the RS232 class that was in the Platform SDK (i think).
Has anyone else used this with events successfully? Here's what i've got:
======================
Public WithEvents bbsPort As Rs232 = New Rs232

With bbsPort
.BaudRate = baud
.DataBit = dataBits
.Parity = parity
.Port = comPort
.StopBit = stopBits
Try
.Open()
Catch ex As Exception
StopServerToolStripMenuItem.PerformClick()
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End With

'The port opens okay because if I have another application using the port
I get the exception message "Unable to open COM1"

Public Sub ReadComPort(ByVal Source As Rs232, ByVal DataBuffer() As Byte)
Handles bbsPort.DataReceived
MsgBox("DataReceived")
End Sub
=======================

Two questions I have are: I know I can communicate because I can talk to
the serial device with Hyperterminal. When I try it with my app, the
event is never fired. So I must be doing something wrong. Any help is
desperately needed & appreciated.

Second question: There doesn't seem to be a way to set flow control. Has
anyone added flow control capabilities to this class?

Thanks.

[One Handed Man \( OHM - Terry Burns \)]

2005 is not released yet, so if your planning this for a production target
you may be leaving yourself with a problem if they take out the support on
the release version.

--

OHM ( Terry Burns )
. . . One-Handed-Man . . .
If U Need My Email ,Ask Me

Time flies when you don't know what you're doing

"Terry Olsen" <to******@hotmail.com> wrote in message
news:ui**************@TK2MSFTNGP09.phx.gbl...

Nevermind....I just found out that VB 2005 supports the serial ports.
Changed my code and all works fine now...
"Terry Olsen" <to******@hotmail.com> wrote in message
news:%2****************@TK2MSFTNGP12.phx.gbl...

I'm trying to use the RS232 class that was in the Platform SDK (i think). Has anyone else used this with events successfully? Here's what i've got: ======================
Public WithEvents bbsPort As Rs232 = New Rs232

With bbsPort
.BaudRate = baud
.DataBit = dataBits
.Parity = parity
.Port = comPort
.StopBit = stopBits
Try
.Open()
Catch ex As Exception
StopServerToolStripMenuItem.PerformClick()
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End With

'The port opens okay because if I have another application using the port I get the exception message "Unable to open COM1"

Public Sub ReadComPort(ByVal Source As Rs232, ByVal DataBuffer() As Byte) Handles bbsPort.DataReceived
MsgBox("DataReceived")
End Sub
=======================

Two questions I have are: I know I can communicate because I can talk to the serial device with Hyperterminal. When I try it with my app, the
event is never fired. So I must be doing something wrong. Any help is
desperately needed & appreciated.

Second question: There doesn't seem to be a way to set flow control. Has anyone added flow control capabilities to this class?

Thanks.

[Cor Ligthert]

Hi Terry,

2005 is not released yet, so if your planning this for a production target
you may be leaving yourself with a problem if they take out the support on
the release version.

A very good answer to Terry and in general.

:-)

Cor

[Terry Olsen]

It's a personal project.

"One Handed Man ( OHM - Terry Burns )" <news.microsoft.com> wrote in message
news:u5******************@TK2MSFTNGP14.phx.gbl...

2005 is not released yet, so if your planning this for a production target
you may be leaving yourself with a problem if they take out the support on
the release version.

[One Handed Man \( OHM - Terry Burns \)]

The logic stands, however, its obviously your call.

--

OHM ( Terry Burns )
. . . One-Handed-Man . . .
If U Need My Email ,Ask Me

Time flies when you don't know what you're doing

"Terry Olsen" <to******@hotmail.com> wrote in message
news:es*************@tk2msftngp13.phx.gbl...

It's a personal project.

"One Handed Man ( OHM - Terry Burns )" <news.microsoft.com> wrote in message news:u5******************@TK2MSFTNGP14.phx.gbl...

2005 is not released yet, so if your planning this for a production target you may be leaving yourself with a problem if they take out the support on the release version.

[DraguVaso]

Hi Terry,

I'm planning to make anapplication that has to communicate with an SMS
Modem. I kind of drawned in the lots of bad RS232 code I foudn and tested.

I'm also tempted to do it in VS 2005 because I heard it was integrated
there. Does your code works fine? And did you use the VS 2005 Beta 1 or the
VS 2005 Express Edition? Is it possible to make a working Service with it
that uses RS232?

If you woudl be so kind to paste your code that would be very helpfulltoo
:-)

Thanks a lot in advance,

Pieter

"Terry Olsen" <to******@hotmail.com> wrote in message
news:ui**************@TK2MSFTNGP09.phx.gbl...

Nevermind....I just found out that VB 2005 supports the serial ports.
Changed my code and all works fine now...
"Terry Olsen" <to******@hotmail.com> wrote in message
news:%2****************@TK2MSFTNGP12.phx.gbl...

I'm trying to use the RS232 class that was in the Platform SDK (i think). Has anyone else used this with events successfully? Here's what i've got: ======================
Public WithEvents bbsPort As Rs232 = New Rs232

With bbsPort
.BaudRate = baud
.DataBit = dataBits
.Parity = parity
.Port = comPort
.StopBit = stopBits
Try
.Open()
Catch ex As Exception
StopServerToolStripMenuItem.PerformClick()
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End With

'The port opens okay because if I have another application using the port I get the exception message "Unable to open COM1"

Public Sub ReadComPort(ByVal Source As Rs232, ByVal DataBuffer() As Byte) Handles bbsPort.DataReceived
MsgBox("DataReceived")
End Sub
=======================

Two questions I have are: I know I can communicate because I can talk to the serial device with Hyperterminal. When I try it with my app, the
event is never fired. So I must be doing something wrong. Any help is
desperately needed & appreciated.

Second question: There doesn't seem to be a way to set flow control. Has anyone added flow control capabilities to this class?

Thanks.

[Terry Olsen]

I'm using the Express version Beta 1 downloadable from Microsoft.

I don't have too much in the way of functionality yet as my time to work on
it is very limited. But it's pretty straight forward. When you install the
Express version, you also get the MSDN library that goes with it..so it's
all in the docs. But here are some snippets of what I have so far...it
receives input from the COM port using a ReceivedEvent and throws up a
messagebox with the received character.
Imports System.IO.Ports
Public WithEvents bbsPort As SerialPort = New SerialPort

For Each sp As String In My.Computer.Ports.SerialPortNames
If IsPortAvailable(sp) Then cboComPort.Items.Add(sp)
Next

Public Function IsPortAvailable(ByVal port As String) As Boolean
' This function attempts to open the passed Comm Port. If it is
' available, it returns True, else it returns False. To determine
' availability a Try-Catch block is used.
Try
bbsPort.PortName = port
bbsPort.Open()
' If it makes it to here, then the Comm Port is available.
bbsPort.Close()
Return True
Catch
' If it gets here, then the attempt to open the Comm Port
' was unsuccessful.
Return False
End Try
End Function

With bbsPort
.BaudRate = baud
.DataBits = dataBits
.Parity = parity
.PortName = comPort
.StopBits = stopBits
.Handshake = flowControl
.ReceivedBytesThreshold = 1
Try
.Open()
Catch ex As Exception
StopServerToolStripMenuItem.PerformClick()
MsgBox(ex.Message, MsgBoxStyle.Critical, "Telnet2BBS")
End Try
End With

Public Sub ReadComPort(ByVal Sender As Object, ByVal e As
System.IO.Ports.SerialReceivedEventArgs) Handles bbsPort.ReceivedEvent
Try
MsgBox(Chr(bbsPort.ReadByte))
Catch ex As Exception
Exit Sub
End Try
End Sub

"DraguVaso" <pi**********@hotmail.com> wrote in message
news:%2****************@TK2MSFTNGP09.phx.gbl...

Hi Terry,

I'm planning to make anapplication that has to communicate with an SMS
Modem. I kind of drawned in the lots of bad RS232 code I foudn and tested.

I'm also tempted to do it in VS 2005 because I heard it was integrated
there. Does your code works fine? And did you use the VS 2005 Beta 1 or
the
VS 2005 Express Edition? Is it possible to make a working Service with it
that uses RS232?

If you woudl be so kind to paste your code that would be very helpfulltoo
:-)

[DraguVaso]

Thanks! I'm gona try to download it and play a bit arround!
:-)

"Terry Olsen" <to******@hotmail.com> wrote in message
news:Of**************@TK2MSFTNGP15.phx.gbl...

I'm using the Express version Beta 1 downloadable from Microsoft.

I don't have too much in the way of functionality yet as my time to work on it is very limited. But it's pretty straight forward. When you install the Express version, you also get the MSDN library that goes with it..so it's
all in the docs. But here are some snippets of what I have so far...it
receives input from the COM port using a ReceivedEvent and throws up a
messagebox with the received character.
Imports System.IO.Ports
Public WithEvents bbsPort As SerialPort = New SerialPort

For Each sp As String In My.Computer.Ports.SerialPortNames
If IsPortAvailable(sp) Then cboComPort.Items.Add(sp)
Next

Public Function IsPortAvailable(ByVal port As String) As Boolean
' This function attempts to open the passed Comm Port. If it is
' available, it returns True, else it returns False. To determine
' availability a Try-Catch block is used.
Try
bbsPort.PortName = port
bbsPort.Open()
' If it makes it to here, then the Comm Port is available.
bbsPort.Close()
Return True
Catch
' If it gets here, then the attempt to open the Comm Port
' was unsuccessful.
Return False
End Try
End Function

With bbsPort
.BaudRate = baud
.DataBits = dataBits
.Parity = parity
.PortName = comPort
.StopBits = stopBits
.Handshake = flowControl
.ReceivedBytesThreshold = 1
Try
.Open()
Catch ex As Exception
StopServerToolStripMenuItem.PerformClick()
MsgBox(ex.Message, MsgBoxStyle.Critical, "Telnet2BBS")
End Try
End With

Public Sub ReadComPort(ByVal Sender As Object, ByVal e As
System.IO.Ports.SerialReceivedEventArgs) Handles bbsPort.ReceivedEvent
Try
MsgBox(Chr(bbsPort.ReadByte))
Catch ex As Exception
Exit Sub
End Try
End Sub

"DraguVaso" <pi**********@hotmail.com> wrote in message
news:%2****************@TK2MSFTNGP09.phx.gbl...

Hi Terry,

I'm planning to make anapplication that has to communicate with an SMS
Modem. I kind of drawned in the lots of bad RS232 code I foudn and tested.
I'm also tempted to do it in VS 2005 because I heard it was integrated
there. Does your code works fine? And did you use the VS 2005 Beta 1 or
the
VS 2005 Express Edition? Is it possible to make a working Service with it that uses RS232?

If you woudl be so kind to paste your code that would be very helpfulltoo :-)