Betoyosoy
09 de Enero del 2009

Despues de buscar como 1 mes algun codigo que funcionara, pues no encontre nada, a todos les faltaba algo!!!y al final fue un Carriage return el problema(una tonteria)
hice esto:

Se usan 3 botones,1 comm control, 1 textbox

Private Sub Form_Load()
With MSComm1 'activa el controlador Mscomm
.CommPort = 1 'asigna el numero de puerto
.Settings = "9600,n,8,1" 'asigna los settings
.PortOpen = True ' abre el puerto
End With
End Sub

Private Sub Botondeenvio_Click()
MSComm1.Output = "P" + vbcrlf 'envia un comando de bascula (en este caso una "P"y despues un Carriage return y un Line feed
End Sub

Private Sub Botonrecibir_Click()
Text1.Text = MSComm1.Input 'muestra los datos del buffer en el textbox
End Sub

Private Sub Botonsalir_Click()
MSComm1.portopen = False 'cierra el puerto
End Sub

Espero les sirva, a mi me funciono con una bascula Ohaus Ranger via serial com1

Intento ponerlo lo mas entendible posible

Si tienen alguna duda espero poder ayudarles.

Betoyosoy

Efrain
09 de Enero del 2009

Que tal Muchas Gracias x el ejemplo. yo estoy intentando pero con una bascula 6702 Avery Weigh tronix. lo probare...