Ler dados porta serial

Isso mesmo!

O único porém de utilizar pelo progress é que como o Progress não é multi-thread teria que ficar lendo direto...

algumas balanças exigem atuam como webservers...e nao deixam a pesagem disponivel para captura tendo que ficar "escutando" até que se receba a pesagem...

daí se pegar um caso destes recomendo o uso da OCX mesmo...no mais este aí postado pelo rpasini1 funciona legal!

Segue um exemplo em VB vindo do site da Microsoft

Teria que utilizar a OCX MSCOMM no programa progress e utilizar estes comandos...

Identifique tbém os parametros necessário para o equioamento que vc tem...

Private Sub Form_Load ()

' Buffer to hold input string
Dim Instring As String

' Use COM1.
MSComm1.CommPort = 1

' 9600 baud, no parity, 8 data, and 1 stop bit.
MSComm1.Settings = "9600,N,8,1"

' Tell the control to read entire buffer when Input
' is used.
MSComm1.InputLen = 0

' Open the port.
MSComm1.PortOpen = True

' Send the attention command to the modem.
MSComm1.Output = "ATV1Q0" & Chr$(13) ' Ensure that

' the modem responds with "OK".
' Wait for data to come back to the serial port.
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$, "OK" & vbCRLF)

' Read the "OK" response data in the serial port.
' Close the serial port.
MSComm1.PortOpen = False

End Sub

Boa tarde,

Sei que o tópico é antigo. Estou com o mesmo problema. Poderia enviar o programa por favor?

Desde já, agradeço.