El número de serie es mayor que
¿Oscuro? ¿fuera? ¿Como? ¿Diferente
salida? =?"& amph "? y amplificador? Hexadecimal (Val(Text1.Text)) Aquí uout es en realidad una cadena, una cadena hexadecimal de 16 dígitos.
Tenga en cuenta que estoy hablando de la cadena hexadecimal de 16, no del número hexadecimal de 16.
MSComm1. ¿Producción? =?Chr(uout)Entonces, ¿qué se envía aquí? Chr tiene una cuerda. De hecho, los parámetros de Chr deberían ser largos.
En realidad, así es como entiendo lo que quieres decir.
Obtiene el valor en el cuadro de texto (Texto1. Texto), que no es mayor que el rango de expresión de un byte (mayor que 0 y menor que 256).
Enviar este valor a través de MSComm1.
Si esta idea es correcta, puede consultar el siguiente código.
? ¿Usar código? ¿buffer? Sólo hay una longitud.
? Porque este código solo se usa para enviar un byte a la vez.
? Declaración de variable
¿Dim? ¿Fuera? ¿Como? ¿Doble? Guarde el valor ingresado.
¿Oscuro? búfer(0)? ¿Como? ¿byte? ? ¿Almacenamiento en búfer de la salida de comunicación
? ¿conseguir? Texto 1. ¿Palabra? ¿El valor de uOut? =?Val(Texto1.Texto)
? Comprobación de rango para datos de tipo byte (1 byte sin firmar)
¿Y si? ¿Fuera? >? ¿Y HFF? ¿Y que? ¿Fuera? =?& ampHFF
¿Y si? ¿Fuera? <? &H00? ¿Y que? ¿Fuera? =?& ampH00
? ¿Salida a VB en formato 16? Texto 2
Texto 2. ¿Palabra? =?"& amph "? y amplificador? CInt(salida)
? Escriba el valor que se enviará al búfer.
¿Búfer(0)? =?Val(Texto 2. Texto)
? Escriba el valor en el búfer en la terminal.
MSComm1. ¿Producción? =? Si envía un byte en lugar de un byte, debe enviar una cadena & que comience con h.
Entonces consulta el siguiente código:
? Declaración de variable
¿Dim? ¿Fuera? ¿Como? ¿Doble? Guarde el valor ingresado.
¿Oscuro? buffer()? ¿Como? ¿byte? ¿Almacenamiento en búfer de la salida de comunicación
? ¿conseguir? Texto 1. ¿Palabra? ¿El valor de uOut? =?Val(Texto1.Texto)
? ¿Salida a VB en formato 16? Texto 2
Texto 2. ¿Palabra? =?"& amph "? y amplificador? CInt(salida)
? Escriba la cadena que se enviará al búfer.
¿Almacenamiento en búfer? =?Texto2. ¿Texto
? Escriba el valor en el búfer en la terminal.
MSComm1.
¿Producción? =?Búfer