VB implementa comunicación en serie, que puede recibir los valores de R, G y B y mostrar los colores correspondientes ~~ Solicitud urgente ~~

Puedes usar el control MSComm en VB para comunicarte a través del puerto 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 imagen de 10×10

imagen1.imagen = loadpicture("c:\test.bmp")

Convierta la imagen a un color array

Dim pic() Mientras,i Mientras

para h=0 a 9

para w=0 a 9

clr = GetPixel (Picture1.hDC,w,h)

redim preservar imagen(i)

pic(i) = clr

i = i + 1

siguiente w

siguiente h

Usar el control MSComm para enviar datos

MsComm1.Output "picstart,9,9" ' Dígale al puerto serie El receptor comienza a recibir la imagen, el ancho y el alto son ambos 9

para i=0 a ubound(pic)

MsComm1.Output pic(i)

siguiente i

MSComm1.Output "picend" 'Dile al receptor del puerto serie que la transmisión se completó

Después de recibirla, el receptor convierte el formato unidimensional matriz en una matriz bidimensional de acuerdo con el ancho y alto de la imagen, y utiliza la función SetPixel para mostrar

Para h=0 a 9

Para w=0 a 9

SetPixel Picture2.hDC,w,h,pic (i)

i=i+1

Siguiente w

Siguiente h