FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Hacer El Juego Del Gato En Delphi
Bueno pues busco hacer el proyecto de hacer el juego del gato en delphi. el punto es que ocupo hacer una matriz de 3 x 3, pero cuando intento ingresar un dato a esa matriz en una posicion simplmente no me lo permite...
el codigo que llevo es : unit GATO_GARABATO; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type TForm1 = class(TForm) GroupBox1: TGroupBox; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Button10: TButton; L1: TLabel; Lact: TLabel; circulo: TBitBtn; equis: TBitBtn; B5: TBitBtn; B6: TBitBtn; B3: TBitBtn; B2: TBitBtn; B9: TBitBtn; B8: TBitBtn; B7: TBitBtn; B4: TBitBtn; B1: TBitBtn; procedure Button10Click(Sender: TObject); procedure B1Click(Sender: TObject); procedure B2Click(Sender: TObject); procedure B3Click(Sender: TObject); procedure B4Click(Sender: TObject); procedure B5Click(Sender: TObject); procedure B6Click(Sender: TObject); procedure B7Click(Sender: TObject); procedure B8Click(Sender: TObject); procedure B9Click(Sender: TObject); procedure LactClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; j:integer; gatillo= array[1..3 , 1..3] of integer; implementation {$R *.dfm} procedure TForm1.Button10Click(Sender: TObject); begin lact.Caption:='JUGADOR 1'; end; procedure TForm1.B1Click(Sender: TObject); var x,y:integer; begin if (j=1) or (j=3) or (j=5) or (j=7) or (j=9) then //lo que se busca aqui es que los turnos pares o impares y que vayan alternando, uno cruz, uno circulo y asi b1.Glyph:=circulo.Glyph else b1.Glyph:=equis.Glyph; if b1.glyph=circulo.Glyph then gatillo[1][1]:=1 //aqui es donde intento escribirle al vector else if b1.Glyph=equis.Glyph then begin gatillo [1][1]:=2; showmessage ((intostr(gatillo[1][1]);//escribo eso unicamente como test, al ver eso compruebo que no he escrito nada al vector ya que el mensaje siempre me aparece en 0. end; //fin del ciclo if j:=j+1; // j= un contador que uso para contar los turnos de cada jugador. if (gatillo[1,1]=1) and (gatillo[2,1]=1) and (gatillo[3,1]=1) then showmessage ('Gana el Jugador 1'); |
#2
|
||||
|
||||
Hola
Completo, terminado y explicado. De aquí puedes sacar cualquier modificación. Saludos
__________________
Siempre Novato Última edición por Caral fecha: 08-01-2010 a las 13:39:52. |
#3
|
|||
|
|||
Caral, muchisimas gracias por el programa pero la verdad no me sirve. veras es para un examen final y me pidieron que debe ser programado con base en una matriz de 3 x 3. el punto es que el codigo que puse arriba es lo que llevo hecho, y el problema es que no puedo llenar la matriz lo estoy intentando con bitbtn, y almacenandoles la propiedad glyph, lo que busco es almacenar un valor de 1 para la posicion de x y de 2 para el valor de la O. y lo que debe almacenar la matriz es cuales son las posiciones en las que hay un uno y cuales en las que hay un dos, y ya despues comparar si las posiciones dan para ganar, entonces ahi termina
no es algo tan complicado u_U el programa que me pasaste esta increible pero la verdad no le entiendo a todo el codigo porque no me lo han enseñado <.< EDITO: EL PROBLEMA ES QUE ES PARA ESTE VIERNES VIERNES T_T |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
programa de juego en delphi | sanchez_bc02 | OOP | 1 | 08-10-2007 00:15:36 |
Nace Gato de dos caras | Robert01 | La Taberna | 0 | 28-04-2007 02:44:42 |
como hacer este juego? | coolfrog | Varios | 2 | 19-12-2005 10:02:09 |
Juego de la Oca en delphi | james_dean | OOP | 3 | 10-06-2005 10:09:28 |
Como hacer el juego BUSCAMINAS en DELPHI 7??????? | paulo2105 | Internet | 1 | 06-06-2005 10:38:21 |
|