SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: a13tc38920 en Miércoles 27 de Julio de 2005, 18:42
-
:huh: [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