Puerto Serial otra vez
ruben_7
25 de Febrero del 2005
Hola a todos, ya me he hecho un CHAT para comunicar dos computadoras por el puerto serial, funciona muy bien y todo, es una asignaci贸n para la escuela, el 煤nico problema que me presenta es el siguinte...
PROBLEMA: Cuando una PC manda un mensaje a otra ocurre que el mensaje se corta en varios fragmentos, es decir, PC1 env铆a: "0123456789" y PC2 recibe: "01234567" y en la siguiente l铆nea "89"
驴por qu茅 ocurre esto y c贸mo puedo arreglarlo? La recepci贸n de datos se hace de la siguiente manera:
Private Sub Form_Activate()
Do
DoEvents
If MSComm1.portOpen = True Then
Buffer = MSComm1.Input
End If
If StrComp(Buffer, "") <> 0 Then
tbRecibe.Text = tbRecibe.Text & vbCrLf "<White> " & Buffer
tbRecibe.SelStart = Len(tbRecibe.Text)
End If
Loop
End Sub
驴Hay otra manera de hacerlo (sin usar un bot贸n de "Recibir")?
Cualquier comentario, aportaci贸n o ayuda es bienvenido, gracias a todos de antemano.
PROBLEMA: Cuando una PC manda un mensaje a otra ocurre que el mensaje se corta en varios fragmentos, es decir, PC1 env铆a: "0123456789" y PC2 recibe: "01234567" y en la siguiente l铆nea "89"
驴por qu茅 ocurre esto y c贸mo puedo arreglarlo? La recepci贸n de datos se hace de la siguiente manera:
Private Sub Form_Activate()
Do
DoEvents
If MSComm1.portOpen = True Then
Buffer = MSComm1.Input
End If
If StrComp(Buffer, "") <> 0 Then
tbRecibe.Text = tbRecibe.Text & vbCrLf "<White> " & Buffer
tbRecibe.SelStart = Len(tbRecibe.Text)
End If
Loop
End Sub
驴Hay otra manera de hacerlo (sin usar un bot贸n de "Recibir")?
Cualquier comentario, aportaci贸n o ayuda es bienvenido, gracias a todos de antemano.
aureliog
25 de Febrero del 2005
Yo abro el puerto y en el evento oncomm(cuando llegen datos) le pongo una espera de 200 ms(sleep(200)) y capturo con el mscomm1.input