[VB 2005] error The semaphore timeout period has expired.

[paxa]

hi.

i'm currently developing an application, that uses a usb bluetooth adapter to connect to three codebar readers, so far so good, they are connected, and should be working properly.

but after one hour, one hour and half, sometimes even less, they no longer can't work with the application, i can't get them to read anything.

and sometimes, as the application is starting up i get the following error:

  Quote

Timestamp: 19-03-2009 21:02:34

Message: There is no explicit mapping for the categories 'Geral'. The log entry was:

Timestamp: 19-03-2009 21:02:34

Message: ERRO EVENTO LOAD FRMMAIN: The semaphore time-out period has expired.

# at System.IO.Ports.InternalResources.WinIOError(Int32 errorCode, String str)

at System.IO.Ports.SerialStream..ctor(String portName, Int32 baudRate, Parity parity, Int32 dataBits, StopBits stopBits, Int32 readTimeout, Int32 writeTimeout, Handshake handshake, Boolean dtrEnable, Boolean rtsEnable, Boolean discardNull, Byte parityReplace)

at System.IO.Ports.SerialPort.Open()

at Supervisor.FrmMain.FrmMain_Load(Object sender, EventArgs e)

Category: Geral

Priority: 3

EventId: 0

Severity: Error

Title:

Machine: PCEV1198

App Domain: Supervisor.exe

ProcessId: 1864

Process Name: C:\Program Files\KEMET\SupervisorGlobal\Supervisor.exe

Thread Name:

Win32 ThreadId:1756

Extended Properties:

Category:

Priority: -1

EventId: 6352

Severity: Error

Title:

Machine: PCEV1198

Application Domain: Supervisor.exe

Process Id: 1864

Process Name: C:\Program Files\KEMET\SupervisorGlobal\Supervisor.exe

Win32 Thread Id: 1756

Thread Name:

Extended Properties:

could they be related, both of the situations?

i've been searching for a solution for this situation an came up with nothing specific.

i'm using 3 serial port objects to connect to the codebar readers.

and using the following code to connect to the codebar readers.

SerialPort1.PortName = "COM3"  



SerialPort1.BaudRate = 9600   

SerialPort1.DataBits = 8   

SerialPort1.StopBits = Ports.StopBits.One   

SerialPort1.Parity = Ports.Parity.None   

SerialPort1.Open()   

System.Threading.Thread.Sleep(2000)   

'#Dim Porta2 As String = DevolvePOrtaComumicacoes(2, Area.IDArea)   



SerialPort2.PortName = "COM5"  



SerialPort2.BaudRate = 9600   

SerialPort2.DataBits = 8   

SerialPort2.Parity = Ports.Parity.None   

SerialPort2.StopBits = Ports.StopBits.One   

SerialPort2.Open()   

System.Threading.Thread.Sleep(2000)   





'#Dim Porta3 As String = DevolvePOrtaComumicacoes(3, Area.IDArea)   



SerialPort3.PortName = "COM7"  



SerialPort3.BaudRate = 9600   

SerialPort3.Parity = Ports.Parity.None   

SerialPort3.DataBits = 8   

SerialPort3.StopBits = Ports.StopBits.One   

SerialPort3.Open()   

System.Threading.Thread.Sleep(2000)

and the datarecieved event to handle the data recieved from the bar code readers

like the example bellow:

 Private Sub SerialPort1_DataRecieved(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived   

		Try  
			Dim leitor As Integer = 1   

			Leitura.Leitura = SerialPort1.ReadExisting   
			InterpretaComando(Me, leitor, Leitura, Generica.Colaborador)   
			Leitura.Leitura = ""  

		Catch ex As Exception   
			Log("SerialPort1 error: " + ex.Message + " # " + ex.StackTrace)   
		Finally  
			SerialPort1.DiscardInBuffer()   
			SerialPort1.DiscardOutBuffer()   
		End Try  
	End Sub

i've searching and could not find any answer for this issue.

any ideas?

help would be appreciated.

thanks in advance

[paxa]

anyone?

[ekw]

i can tell you what you may already know, a semaphore timeout means there is a deadlock occurring, i am guessing dining philosophers

my guess is that each process 1 is trying to grab a resource, which is held by process 2. And process 2 wants to grab the resource that is held by process 1, thus deadlock and timeout.

There is not much to go on with the code you have provided, but im sure you'll find the solution!

[paxa]

sorry about the late reply...

here's the code i'm using for the connection to the barcode readers.

Private Sub FrmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Try
			'# chama a sub para actualizar os controlos das maquinas no form
			ActualizaMaquinasForm(Me, Area.IDArea)
			'# 



			If Generica.ModoLeitura = False Then
				'#  Dim Porta1 As String = DevolvePOrtaComumicacoes(1, Area.IDArea)
				SerialPort1.PortName = "COM3"
				SerialPort1.BaudRate = 9600
				SerialPort1.DataBits = 8
				SerialPort1.StopBits = Ports.StopBits.One
				SerialPort1.Parity = Ports.Parity.None

				SerialPort1.DtrEnable = True
				SerialPort1.RtsEnable = False

				SerialPort1.Open()

				'# testes leitores
				System.Threading.Thread.Sleep(5000)

				'#Dim Porta2 As String = DevolvePOrtaComumicacoes(2, Area.IDArea)
				SerialPort2.PortName = "COM5"
				SerialPort2.BaudRate = 9600
				SerialPort2.DataBits = 8
				SerialPort2.StopBits = Ports.StopBits.One
				SerialPort2.Parity = Ports.Parity.None

				SerialPort2.DtrEnable = True
				SerialPort2.RtsEnable = False



				SerialPort2.Open()
				System.Threading.Thread.Sleep(5000)


				'#Dim Porta3 As String = DevolvePOrtaComumicacoes(3, Area.IDArea)
				SerialPort3.PortName = "COM7"
				SerialPort3.BaudRate = 9600
				SerialPort3.DataBits = 8
				SerialPort3.StopBits = Ports.StopBits.One
				SerialPort3.Parity = Ports.Parity.None

				SerialPort3.DtrEnable = True
				SerialPort3.RtsEnable = False

				SerialPort3.Open()
				System.Threading.Thread.Sleep(5000)



				Timer1.Interval = 3600000
				Timer1.Enabled = True
				'# 
			End If
		Catch ex As Exception
			Log("ERRO EVENTO LOAD FRMMAIN: " + ex.Message + " # " + ex.StackTrace)
		End Try
	End Sub

forgot to add this, that timer stated above, named timer1 when it runs disconnects the connection to the barcode readers, and tries to reconnect as stated below.

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
		Dim portacom As String
		Try




			Dim portacomunica As String = ""
			With SerialPort1

				.Close()



				'#Dim porta1 As String = DevolvePOrtaComumicacoes(1, Area.IDArea.ToString)

				.PortName = "COM3"
				.BaudRate = 9600
				.DataBits = 8
				.StopBits = Ports.StopBits.One
				.Parity = Ports.Parity.None

				SerialPort1.DtrEnable = True
				SerialPort1.RtsEnable = False
				.Open()
				System.Threading.Thread.Sleep(1000)
				Application.DoEvents()

			End With

			With SerialPort2



				'#Dim porta2 As String = DevolvePOrtaComumicacoes(1, Area.IDArea.ToString)
				.Close()
				.PortName = "COM5"
				.BaudRate = 9600
				.DataBits = 8
				.StopBits = Ports.StopBits.One
				.Parity = Ports.Parity.None

				SerialPort2.DtrEnable = True
				SerialPort2.RtsEnable = False

				.Open()
				System.Threading.Thread.Sleep(1000)
				Application.DoEvents()

			End With

			With SerialPort3


				.Close()
				.PortName = "COM7"
				.BaudRate = 9600
				.DataBits = 8
				.StopBits = Ports.StopBits.One
				.Parity = Ports.Parity.None

				SerialPort3.DtrEnable = True
				SerialPort3.RtsEnable = False
				.Open()
				System.Threading.Thread.Sleep(1000)
				Application.DoEvents()
			End With
		Catch ex As Exception
			Log("Erro TImer1: " + ex.Message + "#" + ex.StackTrace)

		End Try
	End Sub

any ideas on how to solve this issue?

Edited April 6, 2009 by paxa

[paxa]

and i've been researching a little further, and it seems that there is a deadlock in the communications. it seems that way, that the first serial port is still connecting, while the second is attempting and so on.

could it be that changing the connection part to work by threads and use a mutex to give priority to them work?

thanks in advance

help would be appreciated

[paxa]

anyone?