Un lenguaje sencillo para escribir mapas de bits

.Versión 2

.Soporta la biblioteca BmpOperate. Subrutina _button1_clicked

Variable local x, entero, "2"

Variable local y, entero, "2"

. Variable local tmp, mapa de bits. if(editbox1.content = "")

message box("Ingrese primero el color que busca", 0,)

. De lo contrario

cuadro de edición 2.content = ""

. If (tmp.load archivo ("D:\Q.BMP"))

x [1] = tmp.take ancho ()

y [1] = tmp.take altura ()

.Primer bucle del bucle de conteo(x[1],x[2])

.Primer bucle del bucle de conteo(y[1], y [2] )

.Si es verdadero (tmp.Tomar color del punto (x [2], y [2]) = a entero (editbox1.content))

editbox2 .content = editbox2 .content + "Encontré un lugar donde x=" + enviar texto (x [2]) + "y=" + enviar texto (y [2])

." + enviar texto (y [2 ]) + # Salto de línea

Cuadro de mensaje ("Parece que se va a quedar atascado aquí", 0, )

.Si es verdadero Fin del ciclo de conteo ()< /. p>

.Finalizar bucle de conteo()

.Si es verdadero (editbox2.content = "")

Cuadro de información ("No encontrado", 0, )

.Si es verdadero, final. De lo contrario,

Cuadro de información ("Error de carga", 0, )

.Si el extremo del cuadro de edición 2 permite varias líneas se establece en verdadero