I Have serialport to send and receive sms, but every process to send or receive sms, my aplication hang and can't operation until all proses finished, my question is how to make my aplication can operation in process to send or receive sms
this is my code
this is my code
Code:
Dim dt_port As DataTable = tb.get_("terminal", "aktif='1'")
If dt_port.Rows.Count > 0 Then
For i As Integer = 0 To dt_port.Rows.Count - 1
Dim port As String = dt_port.Rows(i)("port")
Dim baudrate As String = dt_port.Rows(i)("baudrate")
Dim id_terminal As String = dt_port.Rows(i)("id")
device = New ClassDevice(port, baudrate)
'Dim serialport As New System.IO.Ports.SerialPort(port, baudrate)
Try
' serialport.Open()
device.open()
AdvTreeTerminal.FindNodeByName(id_terminal).Image = My.Resources.enable
Catch ex As IOException
insert_error_log("2451 " & ex.Message)
AdvTreeTerminal.FindNodeByName(id_terminal).Image = My.Resources.pause
Catch a As UnauthorizedAccessException
insert_error_log("2453 " & a.Message)
AdvTreeTerminal.FindNodeByName(id_terminal).Image = My.Resources.pause
Catch b As TimeoutException
insert_error_log("2454 " & b.Message)
AdvTreeTerminal.FindNodeByName(id_terminal).Image = My.Resources.pause
Catch c As Exception
insert_error_log("2456 " & c.Message)
AdvTreeTerminal.FindNodeByName(id_terminal).Image = My.Resources.pause
Finally
device.close()
End Try
Next
End IfCode:
Private Sub TimerTes_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerTes.Tick
'************************
'read inbox sms
'************************
read("COM5",19200)
end sub