Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - a13tc38920
Páginas: [1]
1
« en: Sábado 29 de Junio de 2013, 12:19 »
hola necesito programar una matriz de controles y luego comprobar sobre que control he hecho click para obtener informacion me podeis ayudar
2
« 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
Páginas: [1]
|