Autor Tema: Programar Un Juego De Ajedrez (Leído 1384 veces)

a13tc38920 · « **en:** Miércoles 27 de Julio de 2005, 18:42 »

[SIZE=14]

Hola:

Estoy intentando progrmar un juego de ajedrez que me permita practicar mi repertorio de aperturas
Me he atascado en el movimiento del alfil yo he pensado una solucion pero estoy seguro que me pueden ayudar a mejorar el codigo
El codigo es el sigiente:

sub alfil
   private bucle1 as integer
   private bucle2 as integer
   dim a1 as variant
   a1 = array(11,22,33,44,55,66,77)
   dim a2 as variant
   a2= array(9,18,27,36,45,54,63)
   dim a3 as variant
   a3=array(-11,-22,-33,-44,-55,-66,-77)
   dim a4 as variant
   a4=Array(-9,-18,-27,-36,-45,-54,-63)
   private mov as integer
   Dim AA as variant

   for bucle1 to 4
    select case bucle1
    case 1
    AA = a1
    case 2
    AA = a2
    case3
    AA = a3
    case 4
    AA = a4
    end select

   For Bucle2 = 1 to 8
    Mov = Digito(indexficha) + AA(bucle2)

   Select case Mov
    Case 33 to 64   ' casilla vacia
    if mov = digito(indextablero) then
    mover
    end if
   case 1 to 16 and blanco = true     'ficha negra turno blanco
    if mov = digito(indextablero) then
    mover
    end if
   case 17 to 32 and blanco = falso   ' Ficha blanca turno negro
    if mov = digito(indextablero) then
    mover
    end if
    case 1 to 16 and blanco= false
    msgvox "Movimiento Ilegal",vbOKOnly
    case 17 to 32 and blanco= false
    msgvox "Movimiento Ilegal",vbOKOnly
end select
   next bucle2
   next bucle1
Los numeros que aparecen en las arrays son los movimientos del alfil posibles en un tablero de 64 casillas numerados 11 ,21,31,41,51,61,71,81 para la primera fila hasta llegar 18,28,38,48,58,68,78,88 para la ultima
cualquier consulta me podeis localizar en yahoo.es mesenger los fines de semana
a13tc38920@yahoo.es
Espero vuestra ayuda

SoloCodigo

Autor Tema: Programar Un Juego De Ajedrez (Leído 1384 veces)

a13tc38920

Programar Un Juego De Ajedrez