Visual Basic Code , VB.NET Code, VB Code
  Home   :  Code   :  Forums   :  Submit   :  Mailing List   :  About   :  Contact


digital weighing scale monitoring problem need help


digital weighing scale monitoring problem need help

Author
Message
maxhunter
maxhunter
Forum God
Forum God (636 reputation)Forum God (636 reputation)Forum God (636 reputation)Forum God (636 reputation)Forum God (636 reputation)Forum God (636 reputation)Forum God (636 reputation)Forum God (636 reputation)Forum God (636 reputation)

Group: Forum Members
Posts: 2, Visits: 3
I have a digital weighing scale I need to connect to the PC using RS232 communication port. Every time I weigh an object, automatically the result/weight will display in the the texbox control in Visual Basic Application

I use to receive data via a timer for continuous looping sequence output to a textbox. Things do goes bad, as it flicking all the way. I using a indicator from AD series which read data from load cell of a truck weight bridge. It there's any way to stop this flicking without effecting the continuous loop?

can any one help me ???

vb6 or vb.net any platform no problem please help me i want just solution
Mark
Mark
Forum God
Forum God (69K reputation)

Group: Moderators
Posts: 1.1K, Visits: 11K
What does your timer code look like and what is the timer interval set at?
maxhunter
maxhunter
Forum God
Forum God (636 reputation)Forum God (636 reputation)Forum God (636 reputation)Forum God (636 reputation)Forum God (636 reputation)Forum God (636 reputation)Forum God (636 reputation)Forum God (636 reputation)Forum God (636 reputation)

Group: Forum Members
Posts: 2, Visits: 3
Private Sub Timer1_Timer()

If MSComm1.PortOpen = False Then



MSComm1.Settings = "9600,N,8,1"

MSComm1.InputLen = 0

MSComm1.PortOpen = True



End If

MSComm1.InputMode = comInputModeText

strabc = MSComm1.Input

text1.text= strabc



End Sub





this is my code and timer interval is 100

when i change the timer interval to 1000 it will show the full text but take delay not real time
Edited
11/15/2010 by maxhunter
Mark
Mark
Forum God
Forum God (69K reputation)

Group: Moderators
Posts: 1.1K, Visits: 11K
See if this helps

Private Sub Timer1_Timer()
    If MSComm1.PortOpen = False Then
        MSComm1.Settings = "9600,N,8,1"
        MSComm1.InputLen = 0
        MSComm1.PortOpen = True
    End If
    
    MSComm1.InputMode = comInputModeText
    strabc = MSComm1.Input
    'Only update the textbox if the valus has changed
    If strabc <> text1.Text Then
        text1.Text = strabc
    End If
End Sub

GO


Similar Topics


Reading This Topic


Login
Existing Account
Email Address:


Password:


Social Logins

Select a Forum....

















A1VBCode Forums


Search