Código fuente de comunicación serial PHP

Dim sjByt() para bytes

Subcomando privado 1_click()'Transferencia binaria

ReDim sjByt(1 a 8 )' está configurado en 8 elementos.

sjByt(1)= amp; deuterio

SJ byt(2)= amp H3

SJ byt(3)= amp; p>

p>

SJ byt(4)= amp; hipótesis nula

SJ byt(5)= amp; hipótesis nula

SJ byt(6)= amplificador H6

SJ byt(7)= amp;HC5

SJ byte(8)= amp;HFB

MSComm1. Salida = sjByt 'Este comando envía 8 bytes a la vez.

Conector final

Subform_Load() privado

MSComm1. Configuración = "9600, n, 8, 1 "

MSComm1. 'InputMode = CominputModebinary 'Utiliza transmisión binaria.

MSComm1. InBufferCount = 0 'Borrar el búfer de recepción.

MSComm1. OutBufferCount = 0 'Borrar el buffer de transmisión.

MSComm1. "rthreshold=1" genera eventos de MSComm.

MSComm1. PortOpen = True

Conector final

La recepción se completa mediante OnComm del control MSComm.

El código relevante es el que se muestra:

/viewthread.php? tid=83694. page=1#pid441972

Respuesta desde el tercer piso.