Red de conocimiento informático - Problemas con los teléfonos móviles - vb no recibe datos, pero el monitor serie claramente sí los recibe

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

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?