whay my app stop after a time?

So from your descption - the app communicates with a board. If I dont have the board how am I meant to repro the scenario ?

Has anything been written to any of the event logs, does the machine restart/crash or does you application just close.

spotty at 2007-8-31 >

I can't garuantee that this'll help but try anyway:

In the solution explorer, double-click 'My Project'

Under 'Shutdown Mode', select 'When last form closes'

Hope that helps!

robinjam at 2007-8-31 >

Yes Kimble, you have right …

But I fink I’m discover the problem.
I use another program ho communicate with same board…and I let

this program open…of course I close the handle of the com port…and I connect

with my app….then my app crush after I try to “read/write”…using the same com port.

In this situation…I don’t now how to solve the problem …. I don’t want to recreate

in vb 2005 …

I give the code ho managed the serial communication:

(ofcorse...not all)

Public Property Port() As

Integer

Get

Return

miPort

End Get

Set(ByVal Value As Integer)

miPort = Value

End Set

End Property

Public Sub PurgeBuffer(ByVal

Mode As PurgeBuffers)

'This method will clear any character into

buffer, use TxAbort/RxAbort

'to

terminate any pending overlapped Tx/Rx operation.

If

(mhRS.ToInt32 > 0) Then PurgeComm(mhRS,

Mode)

End Sub

Public Overridable Property

Timeout() As Integer

Get

Return

miTimeout

End Get

Set(ByVal Value As Integer)

miTimeout = CInt(IIf(Value = 0, 500, Value))

'// If

Port is open updates it on the fly

pSetTimeout()

End Set

End Property

Public Property Parity() As

DataParity

Get

Return

meParity

End Get

Set(ByVal Value As

DataParity)

meParity = Value

End Set

End Property

Public Property StopBit() As

DataStopBit

Get

Return

meStopBit

End Get

Set(ByVal Value As

DataStopBit)

meStopBit = Value

End Set

End Property

Public Property BaudRate() As

Integer

Get

Return

miBaudRate

End Get

Set(ByVal Value As Integer)

miBaudRate = Value

End Set

End Property

Public Property Trimis() As Integer

Get

Return

mitrimis

End Get

Set(ByVal Value As Integer)

mitrimis = Value

End Set

End Property

Public Property DataBit() As

Integer

Get

Return

miDataBit

End Get

Set(ByVal Value As Integer)

miDataBit = Value

End Set

End Property

Public Property BufferSize() As

Integer

Get

Return

miBufferSize

End Get

Set(ByVal Value As Integer)

miBufferSize = Value

End Set

End Property

Public Overloads Sub Open()

'// Get Dcb

block,Update with current data

Dim

uDcb As DCB, iRc As

Int32

'// Set

working mode

meMode = Mode.Overlapped

Dim

iMode As Int32 = Convert.ToInt32(IIf(meMode =

Mode.Overlapped, FILE_FLAG_OVERLAPPED, 0))

'// Initializes Com Port

If

miPort > 0 Then

Try

'//

Creates a COM Port stream handle

mhRS = CreateFile("\\.\COM"

& miPort.ToString, GENERIC_READ Or

GENERIC_WRITE, 0, 0, OPEN_EXISTING, iMode, 0)

If

(mhRS.ToInt32 > 0) Then

'//

Clear all comunication errors

Dim

lpErrCode As Int32

iRc = ClearCommError(mhRS,

lpErrCode, New COMSTAT)

'//

Clears I/O buffers

iRc = PurgeComm(mhRS,

PurgeBuffers.RXClear Or PurgeBuffers.TxClear)

'//

Gets COM Settings

iRc = GetCommState(mhRS,

uDcb)

'//

Updates COM Settings

Dim

sParity As String

= "NOEM"

sParity =

sParity.Substring(meParity, 1)

'//

Set DCB State

Dim

sDCBState As String

= String.Format("baud={0} parity={1}

data={2} stop={3}", miBaudRate, sParity, miDataBit, CInt(meStopBit))

iRc =

BuildCommDCB(sDCBState, uDcb)

uDcb.Parity = CByte(meParity)

'//

Set Xon/Xoff State

If

mbUseXonXoff Then

uDcb.Bits1 = 768

Else

uDcb.Bits1 = 0

End

If

iRc = SetCommState(mhRS,

uDcb)

If

iRc = 0 Then

Dim sErrTxt As String = New

Win32Exception().Message

Throw New

CIOChannelException("Unable to set COM state " & sErrTxt)

End

If

'//

Setup Buffers (Rx,Tx)

iRc = SetupComm(mhRS, miBufferSize,

miBufferSize)

'//

Set Timeouts

pSetTimeout()

'//Enables

events if required

If

mbEnableEvents Then Me.EnableEvents()

Else

'//

Raise Initialization problems

Dim

sErrTxt As String

= New Win32Exception().Message

Throw

New CIOChannelException("Unable to open

COM" + miPort.ToString + ControlChars.CrLf + sErrTxt)

End

If

Catch

Ex As Exception

'//

Generica error

Throw

New CIOChannelException(Ex.Message, Ex)

End

Try

Else

'// Port

not defined, cannot open

Throw

New ApplicationException("COM Port

not defined,use Port property to set it before invoking InitPort")

End If

End Sub

Public Overloads Sub Open(ByVal Port As Integer, ByVal

BaudRate As Integer,

ByVal DataBit As

Integer, ByVal

Parity As DataParity, ByVal

StopBit As DataStopBit, ByVal BufferSize As Integer)

Me.Port

= Port

Me.BaudRate

= BaudRate

Me.DataBit

= DataBit

Me.Parity

= Parity

Me.StopBit

= StopBit

Me.BufferSize

= BufferSize

Open()

End Sub

Public Sub Close()

If

mhRS.ToInt32 > 0 Then

If

mbEnableEvents = True Then

Me.DisableEvents()

End

If

Dim

ret As Boolean

= CloseHandle(mhRS)

If Not ret Then Throw New

Win32Exception

mhRS = New

IntPtr(0)

End If

End Sub

ReadOnly Property IsOpen() As Boolean

Get

Return

CBool(mhRS.ToInt32 > 0)

End Get

End Property

Public Overloads Sub Write(ByVal Buffer As Byte())

mitrimis = 1

Dim

iRc, iBytesWritten As Integer,

hOvl As GCHandle

muOvlW = New

Overlapped

If

mhRS.ToInt32 <= 0 Then

Throw

New ApplicationException("Please

initialize and open port before using this method")

Else

'//

Creates Event

Try

hOvl = GCHandle.Alloc(muOvlW,

GCHandleType.Pinned)

muOvlW.hEvent = CreateEvent(Nothing, 1, 0, Nothing)

If

muOvlW.hEvent.ToInt32 = 0 Then Throw New

ApplicationException("Error creating event for overlapped writing")

'//

Clears IO buffers and sends data

iRc = WriteFile(mhRS, Buffer,

Buffer.Length, 0, muOvlW)

If

iRc = 0 Then

If

Marshal.GetLastWin32Error <> ERROR_IO_PENDING Then

Throw New

ApplicationException("Write command error")

Else

'// Check Tx results

If GetOverlappedResult(mhRS, muOvlW, iBytesWritten, 1) = 0 Then

Throw New

ApplicationException("Write pending error")

Else

'// All bytes sent?

If iBytesWritten <> Buffer.Length Then Throw New ApplicationException("Write Error - Bytes

Written " & iBytesWritten.ToString & " of " &

Buffer.Length.ToString)

End If

End

If

End

If

Finally

'//Closes

handle

CloseHandle(muOvlW.hEvent)

If

(hOvl.IsAllocated = True) Then hOvl.Free()

End

Try

End If

End Sub

Public Overloads Sub Write(ByVal Buffer As String)

mitrimis = 1

Dim

oEncoder As New

System.Text.ASCIIEncoding

Dim

oEnc As Encoding = oEncoder.GetEncoding(1252)

Dim

aByte() As Byte

= oEnc.GetBytes(Buffer)

Me.Write(aByte)

End Sub

Public Sub Write_string(ByVal

Buffer As String)

mitrimis = 1

Dim

oEncoder As New

System.Text.ASCIIEncoding

Dim

oEnc As Encoding = oEncoder.GetEncoding(1252)

Dim

aByte() As Byte

= oEnc.GetBytes(Buffer)

Me.Write(aByte)

End Sub

Public Function Read(ByVal

Bytes2Read As Integer)

As Integer

Dim

iReadChars, iRc As Integer,

bReading As Boolean,

hOvl As GCHandle

If

Bytes2Read = 0 Then Bytes2Read = miBufferSize

muOvlR = New

Overlapped

If

mhRS.ToInt32 <= 0 Then

Throw

New ApplicationException("Please

initialize and open port before using this method")

Else

'// Get

bytes from port

Try

hOvl = GCHandle.Alloc(muOvlR,

GCHandleType.Pinned)

muOvlR.hEvent = CreateEvent(Nothing, 1, 0, Nothing)

If

muOvlR.hEvent.ToInt32 = 0 Then Throw New

ApplicationException("Error creating event for overlapped reading")

'//

Clears IO buffers and reads data

ReDim

mabtRxBuf(Bytes2Read - 1)

iRc = ReadFile(mhRS, mabtRxBuf,

Bytes2Read, iReadChars, muOvlR)

If

iRc = 0 Then

If

Marshal.GetLastWin32Error() <> ERROR_IO_PENDING Then

Throw New

ApplicationException("Read pending error")

Else

'// Wait for characters

iRc =

WaitForSingleObject(muOvlR.hEvent, miTimeout)

Select Case iRc

Case WAIT_OBJECT_0

'//

Some data received...

If GetOverlappedResult(mhRS, muOvlR, iReadChars, 0) =

0 Then

Throw New

ApplicationException("Read pending error.")

Else

Return iReadChars

End If

Case WAIT_TIMEOUT

Throw New

IOTimeoutException("Read Timeout.")

Case Else

Throw New

ApplicationException("General read error.")

End Select

End

If

Else

Return

(iReadChars)

End

If

Finally

'//Closes

handle

CloseHandle(muOvlR.hEvent)

If

(hOvl.IsAllocated) Then hOvl.Free()

End

Try

End If

End Function

Overridable

ReadOnly Property

InputStream() As Byte()

Get

Return

mabtRxBuf

End Get

End Property

Overridable

ReadOnly Property

InputStreamString() As String

Get

Dim

oEncoder As New

System.Text.ASCIIEncoding

Dim

oEnc As Encoding = oEncoder.GetEncoding(1252)

If Not Me.InputStream Is Nothing Then Return

oEnc.GetString(Me.InputStream)

End Get

End Property

Public Sub ClearInputBuffer()

If

mhRS.ToInt32 > 0 Then

PurgeComm(mhRS, PURGE_RXCLEAR)

End If

End Sub

Public WriteOnly Property

Rts() As Boolean

Set(ByVal Value As Boolean)

If

mhRS.ToInt32 > 0 Then

If

Value Then

EscapeCommFunction(mhRS,

Lines.SetRts)

Else

EscapeCommFunction(mhRS,

Lines.ClearRts)

End If

End

If

End Set

End Property

Public WriteOnly Property

Dtr() As Boolean

Set(ByVal Value As Boolean)

If

mhRS.ToInt32 > 0 Then

If

Value Then

EscapeCommFunction(mhRS,

Lines.SetDtr)

Else

EscapeCommFunction(mhRS,

Lines.ClearDtr)

End

If

End

If

End Set

End Property

Public Sub EnableEvents()

If

mhRS.ToInt32 <= 0 Then

Throw New ApplicationException("Please initialize and

open port before using this method")

Else

If

moEvents Is Nothing

Then

mbEnableEvents = True

moEvents = New Thread(AddressOf

pEventsWatcher)

moEvents.IsBackground = True

moEvents.Start()

End

If

End If

End Sub

Public Sub DisableEvents()

If

mbEnableEvents = True Then

SyncLock

Me

mbEnableEvents = False'// This should kill the thread

End

SyncLock

'// Let

WaitCommEvent exit...

If

muOvlE.hEvent.ToInt32 <> 0 Then

SetEvent(muOvlE.hEvent)

moEvents = Nothing

End If

End Sub

Public Property RxBufferThreshold() As

Int32

Get

Return

miBufThreshold

End Get

Set(ByVal Value As Int32)

miBufThreshold = Value

End Set

End Property

Public Shared Function

IsPortAvailable(ByVal portNumber As Int32) As Boolean

If

portNumber <= 0 Then

Return False

Else

Dim

cfg As COMMCONFIG

Dim

cfgsize As Int32 = Marshal.SizeOf(cfg)

cfg.dwSize = cfgsize

Dim

ret As Boolean

= GetDefaultCommConfig("COM" + portNumber.ToString, cfg, cfgsize)

Return

ret

End If

End Function

Public Sub SetBreak()

If

mhRS.ToInt32 > 0 Then

If

SetCommBreak(mhRS) = False Then Throw New Win32Exception

End If

End Sub

Public Sub ClearBreak()

If

mhRS.ToInt32 > 0 Then

If

ClearCommBreak(mhRS) = False Then Throw New Win32Exception

End If

End Sub

Public ReadOnly Property

InBufferCount() As Int32

Get

Dim

comStat As COMSTAT

Dim

lpErrCode As Int32

Dim

iRc As Int32

comStat.cbInQue = 0

If

mhRS.ToInt32 > 0 Then

iRc = ClearCommError(mhRS,

lpErrCode, comStat)

Return

comStat.cbInQue

End

If

Return

0

End Get

End Property

.......................
this code was created by Corrado Cavalli in 2001...
....................

gtimofte at 2007-8-31 >