Home » Developer & Programmer » Forms » Re: Serial communication with weigh-bridge
Re: Serial communication with weigh-bridge [message #77596] Tue, 16 October 2001 02:01 Go to next message
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 Go to previous messageGo to next message
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 Go to previous message
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


Previous Topic: moving the text item.
Next Topic: Re: Oracle Forms and VB
Goto Forum:
  


Current Time: Tue Mar 11 13:05:39 CDT 2025