vb no recibe datos, pero el monitor serie claramente sí los recibe
Corregir errores obvios en el código. ¿Opción?Explícito
Dim?i?As?Long
Dim?a(100)?As?Variante
Dim?b,?c
¿Privado?RTreshold?=?1
MSComm1.InputMode?=?comInputModeText
MSComm1.PortOpen?=?True
MSComm1.InputLen? =?"
Texto2?=?""
Texto3?
Fin?Sub
Privado?Sub?MSComm1_OnComm()
Dim?BytReceived()?As?Byte
Dim?strBuff?As?String
Se produce el evento Select?Case?MSComm1.CommEvent'
Caso?2
strBuff?=?MSComm1.Input?'Leer en el búfer
'Label10.Caption?=?Label10.Caption?+?Len(strBuff) ? Recibir recuento
a(i)=?Val(strBuff)?*?100
Text1?=?Text1?&?strBuff
Si ? p>
b?=?a(i)
Texto2?=?Texto2?&?b
i?=?i?+?1
Else:?c?=?a(i)
Texto3?=?Text3?&?c
i?=?i?+?1
¿Fin?Si
Fin?Seleccionar
Fin?Sub
Texto3?=?Texto3?