• 0

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


Question

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

5 answers to this question

Recommended Posts

  • 0

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!

  • 0

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 by paxa
  • 0

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

This topic is now closed to further replies.
  • Recently Browsing   0 members

    • No registered users viewing this page.
  • Posts

    • If nobody was using it. Then why specifically is it a shame? Windows needs be slimmer. Every feature like this is just more bloat
    • Invincible VS announced, a brutal 3v3 tag fighting game by former Killer Instinct developers by Pulasthi Ariyasinghe The Xbox Games Showcase showed off a brand-new fighting game incoming from the award-winning Invincible universe. Simply dubbed Invincible VS, the title will feature three versus three tag fighting with all sorts of heroes and villains from the franchise. Check out the announcement trailer above, which shows off some gameplay near the tail end of it. Published by Skybound Games and developed by Quarter Up, Invincible VS has a big focus on the brutality, much like its source material. There will be iconic arenas straight from the show, as well as a battle damage system to show off the carnage on the fighters themselves. "In Invincible VS, every move, every line of dialogue, every broken limb and bloodied mouth carries real cost and consequence—all building toward the bone-deep satisfaction of victory," said Invincible VS executive producer Mike Willette. "No tag fighting game has ever delivered this level of intensity and violence. This game is a love letter to the fighting game community, created by a team of passionate, experienced fans of the genre." While this is a brand-new studio that's taking on the project, it has been revealed that former members from the 2013 Killer Instinct are involved in the development. "I have said this before, and I’ll say it again: this is the most excited I’ve been about anything involving Invincible," said Invincible co-creator Robert Kirkman. "Invincible VS is crazy fun, fast, ferocious and dripping with the same over-the-top brutality that you’ll see in the comic book pages and on the show. It is a natural evolution of the franchise and it is everything that fans have been demanding for over a decade! This is without a doubt, probably the best superhero fighting game in the universe!" The title will have multiple game modes as well, including a campaign with an original story by the writer of the animated series, an arcade mode for skirmishes, and a training arena. As expected, competitive and casual online multiplayer will be available too. Invincible VS is coming out sometime in 2026 across PC, Xbox Series X|S, and PlayStation 5.
    • And how would a "real" handheld Xbox differed from that? Pray tell. Surely it too would've been a PC with a built in screen and controller, shoehorned into a handheld form factor, and running a flavour of optimised windows? You know Xbox Series X is just a PC running a heavily customised version of Windows 10, right?
    • Let me guess, just big hyped cut scenes for what is really just more run around in the same old static urban zone machine gun vs. sniper game play.
    • I am not seeing a huge difference there.
  • Recent Achievements

    • First Post
      George Almeyda earned a badge
      First Post
    • Reacting Well
      BlakeBringer earned a badge
      Reacting Well
    • Reacting Well
      Lazy_Placeholder earned a badge
      Reacting Well
    • Dedicated
      Epaminombas earned a badge
      Dedicated
    • Veteran
      Yonah went up a rank
      Veteran
  • Popular Contributors

    1. 1
      +primortal
      470
    2. 2
      +FloatingFatMan
      265
    3. 3
      ATLien_0
      235
    4. 4
      snowy owl
      219
    5. 5
      Edouard
      173
  • Tell a friend

    Love Neowin? Tell a friend!