Código fuente de comunicación serie Vb

En VB, el control MSComm se puede utilizar para la comunicación en serie. En cuanto a los valores de color rgb, puedes organizar una matriz y enviarla. Y utilice las funciones API GetPixel y SetPixel para configurar y obtener valores de color.

Supongamos que hay una gráfica de 10×10.

imagen 1.imagen = cargar imagen("c:\test.BMP")

Convertir imagen a matriz de colores

Igual que dimpicture() Largo, la misma longitud que yo

Para h=0 a 9

Para w=0 a 9

clr = get pixel(imagen 1. hdc, w, h)

redimizar imagen protegida (1)

pic(i) = clr

i = i 1

Siguiente w

p>

Siguiente h

Usar el control MSComm para enviar datos

MSComm1. La salida "picstart,9,9"' le dice al receptor del puerto serie que comience a recibir imágenes, el ancho y el alto son ambos 9.

Para i=0 al límite inferior (imagen)

MsComm1. Imagen de salida (1)

Siguiente I

MSComm1. La salida "picend" le dice al receptor en serie que la transferencia se ha completado.

Después de recibirlo, el receptor convierte la matriz unidimensional en una matriz bidimensional según el ancho y alto de la imagen, y la muestra con la función SetPixel.

Para h=0 a 9

Para w=0 a 9

Establezca la imagen en píxeles 2.hDC, w, h, pic(i)

i=i 1

Siguiente w

Siguiente h