Red de conocimiento informático - Aprendizaje de código fuente - Asistente de botones 8 Problema simple de cuadro de mensaje que muestra múltiples valores de variables

Asistente de botones 8 Problema simple de cuadro de mensaje que muestra múltiples valores de variables

Color tenue(20),a

color(1)=GetPixelColor(794,404)

color(2)=GetPixelColor(794,408)

color(3) =GetPixelColor(794,412)

color(4)=GetPixelColor(794, 416)

color(5)=GetPixelColor(809,404)

color(6) =GetPixelColor(809,408)

color(7)=GetPixelColor(809,412)

color(8)=GetPixelColor(809, 416)

color(9) =GetPixelColor(824,404)

color(10)=GetPixelColor(824,408)

color(11)=GetPixelColor(824,412)

color(12)=GetPixelColor (824,416)

color(13) = GetPixelColor(944, 404)

color(14) = GetPixelColor(944,408)

color(15) = GetPixelColor(944,412)

color(16) = GetPixelColor(944, 416)

a=1

Mientras que a <17

Si color(a ) = "000000" Entonces

color(a) = "Negro"

Si no

color(a) = "Gris"

Finalizar si

a=a+1

Finalizar

Color del cuadro de mensaje(1)