reza6384
جمعه 20 شهریور 1388, 14:31 عصر
سلام.
من در برنامه ام از پورت سریال استفاده میکنم ، می خوام وقتی که ارتباط دستگاه که به پورت سریال وصله با کامپیوتر قطع شد به کاربر یک پیام خطا بدم. اما هنگام چک کردن برقراری ارتباط با کد زیر با این خطا مواجه میشم که باعث میشه از برنامه خارج بشه.
این هم کد :
Function ConnectionAvailable() AsBoolean
Try
With MySerialPort
IfNot .IsOpen Then
.Open()
Else
.Close()
.Open()
EndIf
EndWith
ReturnTrue
Catch ex As Exception
MsgBox(ex.Message & vbCr & ex.StackTrace, MsgBoxStyle.Exclamation, "خطا")
Me._Connected = False
RaiseEvent ModemDisconnected()
ReturnFalse
EndTry
EndFunction
توضیح اینکه MySerialPort از کلاس Io.Ports.SerialPort هست و باز و بسته کردن پورت برای اینه که ببینم آیا GSM Modem وصل هست یا نه.
اگر میشه توضیح بدین که چرا وقتی که مودم از سیستم قطع میشه این کد وارد قسمت Exception نمیشه و خطای مذکور رو میده و از برنامه خارج میشه.
من در برنامه ام از پورت سریال استفاده میکنم ، می خوام وقتی که ارتباط دستگاه که به پورت سریال وصله با کامپیوتر قطع شد به کاربر یک پیام خطا بدم. اما هنگام چک کردن برقراری ارتباط با کد زیر با این خطا مواجه میشم که باعث میشه از برنامه خارج بشه.
این هم کد :
Function ConnectionAvailable() AsBoolean
Try
With MySerialPort
IfNot .IsOpen Then
.Open()
Else
.Close()
.Open()
EndIf
EndWith
ReturnTrue
Catch ex As Exception
MsgBox(ex.Message & vbCr & ex.StackTrace, MsgBoxStyle.Exclamation, "خطا")
Me._Connected = False
RaiseEvent ModemDisconnected()
ReturnFalse
EndTry
EndFunction
توضیح اینکه MySerialPort از کلاس Io.Ports.SerialPort هست و باز و بسته کردن پورت برای اینه که ببینم آیا GSM Modem وصل هست یا نه.
اگر میشه توضیح بدین که چرا وقتی که مودم از سیستم قطع میشه این کد وارد قسمت Exception نمیشه و خطای مذکور رو میده و از برنامه خارج میشه.