Posicionamiento de barcos en batalla naval

[[Héctor Randolph]]

Espero no haberte confundido demasiado, la manera que a mi se me ocurrió para representar el tablero fue por medio de una matriz de NxN, en cada entrada puedes colocar un número digamos 0,1,2, etc. Estos números corresponden a un índice en la lista de imagenes que previamente tienes cargadas.

La matriz tiene esta apariencia.

0 1 0 0
0 0 0 0
0 0 2 0
0 0 0 0

De tal manera que en donde aparezca un número 0 se dibujara el fondo del mar y con los demás números se dibujarán otros objetos.

El código que te muestro a continuación transforma los valores de la matriz en coordenadas dentro del Canvas (lienzo) del control PaintBox.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const
  ANCHO=32;  ALTO=32;
  MAR=0;  AVION=1;  EXPLOSION=2;
var
  i,j: Integer;
 Matriz: array [0..9, 0..9] of Integer;
begin
 for j:=0 to 9 do
   for i:=0 to 9 do
      Matriz[j,i]:=MAR; // Rellenar la matriz completa de ceros
 // Colocamos dos objetos en la matriz tan solo como ejemplo
 Matriz[8,8]:=AVION; // Colocar un objeto en la posición (8,8)
 Matriz[4,4]:=EXPLOSION; // Colocar otro objeto en la posición (4,4)

 // Dibujamos la matriz en el PaintBox
 for j:=0 to 9 do
   for i:=0 to 9 do
   ImageList1.Draw(PaintBox1.Canvas,i*ANCHO,j*ALTO,Matriz[j,i]);
end;

El doble for recorre todas las entradas de la matriz y uso el método Draw(Canvas,X,Y,Indice) del ImageList para dibujar la imagen sobre el canvas del PaintBox, observa que el indice se obtiene de las entradas de la matriz.

Bueno, esta podría ser una forma de representarlo pero no es la única.

Saludos

[Chompiras]

Ante nada, gracias por seguir respondiendo.

Ahora, lo que no entiendo de eso hector, es por que cuando haces el metodo draw, para pasar las coordenadas J e I , se las pasas multiplicando por ANCHO y ALTO.

Pd: igual, voy a tratar de resolverlo como me habian dicho al principio, pero esta bueno saber como tendria que hacer para mejorar el programa (ya sea como decia marcoszorrilla, o de la manera en que decis vos)

[[Héctor Randolph]]

Lo único que hago es una transformación (una escala)

Los valores de I y de J son los indices de la matriz, los ciclos for sirven para obtener coordenadas X,Y

Los indices de la matriz transpuesta son los siguientes:

(0,0) (1,0) (2,0) ... (9,0)
(0,1) (1,1) ...       (9,1)   
  :                     :
  :                     :
(0,9) (1,9) ...       (9,9)    

Pero en coordenadas X, Y del canvas lo que necesito es lo siguiente:
(suponiendo que las imagenes son de tamaño 32x32)

( 0, 0) (32, 0) (64, 0) ... (288, 0)
( 0,32) (32,32) ...         (288,32)
   :                            :
   :                            :
( 0,288) (32,288) ...       (288,288)

La forma de obtener estas coordenadas es haciendo el producto del indice J por la altura (32) y el indice I por el ancho (32).


Este tipo de procedimientos son muy comunes cuando se trata de escalar, piensa en tu matriz como un pequeño cuadrado de dimensión 9x9 y deseas transformarlo en un cuadrado más grande de dimensión 288x288, por esta razón necesitas escalarlo (multiplicarlo por un factor).


Saludos

[Chompiras]

Ahhhhh!!! ahora si!!!, gracias de nuevo hector!!