Re: Serial communication with weigh-bridge [message #77596] |
Tue, 16 October 2001 02:01  |
dorthy jordan
Messages: 1 Registered: October 2001
|
Junior Member |
|
|
i have to develop a software related weight bridge so please help how i can connect weight machine serial code in vb programming
----------------------------------------------------------------------
|
|
|
Re: Serial communication with weigh-bridge [message #78715 is a reply to message #77596] |
Tue, 12 March 2002 03:27   |
nirmalsinh jhala
Messages: 1 Registered: March 2002
|
Junior Member |
|
|
let me tell u something bot me.
i m a student. i am doing M.C.A. and i am working on my first serial communication based project. if i can do this than i can solve my problem releted to my college payment.
Well i'll be oblidge if u can send me the code beacuse i have made that code half but i have trapped in between and i have to solve it in very few days so pleze help me.
|
|
|
Re: Serial communication with weigh-bridge [message #313472 is a reply to message #77596] |
Sat, 12 April 2008 14:40  |
owais_baba
Messages: 289 Registered: March 2008 Location: MUSCAT
|
Senior Member |
|
|
hi dorthy jordan
use this code for vb programming regarding serial communication
chath259 (Aerospace)
15 Nov 06 22:47
Here is the code I have so far....unfortunately I don't have anything to test this code with (nothing in serial port). I've put the MSComm object into the form...so I guess my question now is...to the best of your knowledge, will this work for the above described situation?
Private Sub cmdClose_Click()
MSComm1.PortOpen = False
lblStatus.Caption = "Closed"
lblStatus.ForeColor = &HFF&
End Sub
Private Sub cmdOpen_Click()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
lblStatus.Caption = "Open"
lblStatus.ForeColor = &HC000&
End Sub
Private Sub cmdReceive_Click()
Dim Data As Variant
Do
DoEvents
Loop Until MSComm1.InBufferCount > 0
Data = MSComm1.Input
Open "C:\Data.txt" For Append As #1
Write #1, Data
Close #1
End Sub
thanks
owais
|
|
|