I have a problem has occasionally happens in my program. The program
is is a shipping system and has a scale connected to the PC with a
serial cable.
I use a background worker from inside a timer control to poll the
scanner for it's weight and display it on the main form's window in a
textbox control.
The computer I develop on is a dual core machine. I'm not sure if
this has any bearing but I can tell that I do not observe the problem
at all in the development environment.
I have this tick event on the main form:
If My.Settings.UseScale = True Then
Try
BackgroundWorker1.RunWorkerAsync()
Catch ex As Exception
BackgroundWorker1.CancelAsync()
End Try
End If
The dowork event of the background worker looks like this
Private Sub BackgroundWorker1_DoWork(ByVal sender As
System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
Handles BackgroundWorker1.DoWork
Dim worker As BackgroundWorker = CType(sender,
BackgroundWorker)
e.Result = GetScaleValue() 'returns a string
End Sub
And in the GetScaleValue function- the code that polls the scale looks
like this
Public Function GetScaleValue() as String
Serial.Write("W") 'send "W" and read the reply
txtDefaultWeight.Text = Serial.ReadExisting.ToString 'this is the
reply
If txtDefaultWeight.Text.Length > 2 Then 'clean up the reply
With txtDefaultWeight
.Text = .Text.Remove(0, 1)
.Text = .Text.Remove(txtDefaultWeight.Text.Length - 1, 1)
End With
End If
End Function
Is this the correct way to handle this? I'm sure there's more than
one way, but is what I have wrong or flawed?
Rob
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"DotNetDevelopment, VB.NET, C# .NET, ADO.NET, ASP.NET, XML, XML Web
Services,.NET Remoting" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to [EMAIL PROTECTED]
For more options, visit this group at
http://cm.megasolutions.net/forums/default.aspx
-~----------~----~----~----~------~----~------~--~---
