Problema Mscomm
Publicado por Marcos Campos (5 intervenciones) el 05/12/2005 21:15:29
Hola Grupo:
Necesito de vuestra cooperacion que estoy que rompo la cabeza y no doy
con el problema
Tengo un programa que captura el peso que proveniente de una balanza a traves de comunicacion RS-232(el peso llega en forma continua) , en mi PC anda todo bien... el string de dato llega en forma correcta, pero una vez que lo instalo en otra maquina cada cierta secuencia de datos me acumula el string que recibo desde el puerto, en ambos PC abri el puerto con hyperterminal y envia los datos en forma correcta, asi que por el momento descarte problemas de configuracion de los puertos Serial. Para
establecer la comunicacion utilizo el objeto MSCOMM
Este es el codigo que utilizo
Private Sub Form_Load()
With Me.MSComm1
.Handshaking = comNone
.DTREnable = False
.RThreshold = 13
.RTSEnable = True
.Settings = "9600,n,8,1"
.CommPort = 1
.PortOpen = True
End With
End Sub
'--------------------------------------------
Private Sub MSComm1_OnComm()
Dim x As String
If MSComm1.CommEvent = 2 Then
x = Me.MSComm1.Input
Me.LBLPESO = x
Me.List1.AddItem Me.LBLPESO
End If
End Sub
'--------------------------
¿ Debo utilizar algun retardo para solucionar esto ?
¿ Como soluciono este problema ?.
Cualquier sugerencia o ayuda será bien recibida.
Agradeceria vuestra cooperacion...
una vez mas .... Muchas gracias!!
Salu2
M@rcos
Necesito de vuestra cooperacion que estoy que rompo la cabeza y no doy
con el problema
Tengo un programa que captura el peso que proveniente de una balanza a traves de comunicacion RS-232(el peso llega en forma continua) , en mi PC anda todo bien... el string de dato llega en forma correcta, pero una vez que lo instalo en otra maquina cada cierta secuencia de datos me acumula el string que recibo desde el puerto, en ambos PC abri el puerto con hyperterminal y envia los datos en forma correcta, asi que por el momento descarte problemas de configuracion de los puertos Serial. Para
establecer la comunicacion utilizo el objeto MSCOMM
Este es el codigo que utilizo
Private Sub Form_Load()
With Me.MSComm1
.Handshaking = comNone
.DTREnable = False
.RThreshold = 13
.RTSEnable = True
.Settings = "9600,n,8,1"
.CommPort = 1
.PortOpen = True
End With
End Sub
'--------------------------------------------
Private Sub MSComm1_OnComm()
Dim x As String
If MSComm1.CommEvent = 2 Then
x = Me.MSComm1.Input
Me.LBLPESO = x
Me.List1.AddItem Me.LBLPESO
End If
End Sub
'--------------------------
¿ Debo utilizar algun retardo para solucionar esto ?
¿ Como soluciono este problema ?.
Cualquier sugerencia o ayuda será bien recibida.
Agradeceria vuestra cooperacion...
una vez mas .... Muchas gracias!!
Salu2
M@rcos
Valora esta pregunta


0