Jogo da Velha em Delphi.

Inovando as postagens do ooh-mygod ;D
Estava eu numa bela aula de Delphi, onde nosso primeiros programa para desenvolver foi um belo jogo da velha. Então este post é dedicado ao código e algumas imagens deste projeto que eu desenvolvi.
Enjoy.
Evidentemente, para criar seu próprio jogo, é necessário salvar as imagens no mesmo diretório do projeto, modificar os nomes de certas variáveis, e a execução do projeto requere um pouco de conhecimento sobre linguagem de programação :)

Projeto: Jogo da Velha.

Programa utilizado: CodeGear Delphi 2007

Professor responsável: Alexandre Manoel dos Santos.

Código:

unit Unit_velha; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons; type TForm2 = class(TForm) Panel2: TPanel; Panel3: TPanel; Panel5: TPanel; Panel6: TPanel; Panel7: TPanel; Panel8: TPanel; Panel9: TPanel; Edit1: TEdit; Edit2: TEdit; Button1: TButton; Label1: TLabel; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Edit7: TEdit; Edit8: TEdit; Edit9: TEdit; Edit10: TEdit; Edit11: TEdit; Image3: TImage; Image4: TImage; Image5: TImage; Image6: TImage; Image7: TImage; Image8: TImage; Image9: TImage; Image10: TImage; Image11: TImage; Panel1: TPanel; Image1: TImage; Panel4: TPanel; Image2: TImage; Label2: TLabel; Label3: TLabel; Label4: TLabel; procedure FormCreate(Sender: TObject); procedure Image2Click(Sender: TObject); procedure Image1Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Image3Click(Sender: TObject); procedure Image5Click(Sender: TObject); procedure Image6Click(Sender: TObject); procedure Image7Click(Sender: TObject); procedure Image8Click(Sender: TObject); procedure Image9Click(Sender: TObject); procedure Image11Click(Sender: TObject); procedure RadioButton1Click(Sender: TObject); private { Private declarations } js_int_jogador_da_vez :integer ; procedure js_voi_Colocar_Uma_Imagem(js_img_destino: TImage ; js_int_jogador: Integer); procedure js_voi_Preparar_Tabuleiro_Inicial(); procedure js_voi_Mudar_Jogador_da_Vez(); procedure js_voi_Checar_Jogo(); procedure js_voi_Liberar_Casas(); procedure js_voi_Travar_Casas(); public { Public declarations } end; var Form2: TForm2; implementation {$R *.dfm} //============================================================================== procedure TForm2.js_voi_Liberar_Casas(); begin self.Image2.Enabled:=True; self.Image1.Enabled:=True; self.Image3.Enabled:=True; self.Image5.Enabled:=True; self.Image6.Enabled:=True; self.Image7.Enabled:=True; self.Image8.Enabled:=True; self.Image9.Enabled:=True; self.Image11.Enabled:=True; end; //============================================================================== procedure TForm2.js_voi_Travar_Casas(); begin self.Image2.Enabled:=False; self.Image1.Enabled:=False; self.Image3.Enabled:=False; self.Image5.Enabled:=False; self.Image6.Enabled:=False; self.Image7.Enabled:=False; self.Image8.Enabled:=False; self.Image9.Enabled:=False; self.Image11.Enabled:=False; end; //============================================================================== procedure TForm2.js_voi_Checar_Jogo(); begin if (self.Edit3.Text='1') and (self.Edit4.Text='1') and (self.Edit5.Text='1') then begin ShowMessage (self.Edit1.Text + ' ganhou!'); self.js_voi_Travar_Casas(); end else if (self.Edit6.Text='1') and (self.Edit7.Text='1') and (self.Edit8.Text='1') then begin ShowMessage (self.Edit1.Text + ' ganhou!'); self.js_voi_Travar_Casas(); end else if (self.Edit9.Text='1') and (self.Edit10.Text='1') and (self.Edit11.Text='1') then begin ShowMessage (self.Edit1.Text + ' ganhou!'); self.js_voi_Travar_Casas(); end else if (self.Edit3.Text='1') and (self.Edit6.Text='1') and (self.Edit9.Text='1') then begin ShowMessage (self.Edit1.Text + ' ganhou!'); self.js_voi_Travar_Casas(); end else if (self.Edit4.Text='1') and (self.Edit7.Text='1') and (self.Edit10.Text='1') then begin ShowMessage (self.Edit1.Text + ' ganhou!'); self.js_voi_Travar_Casas(); end else if (self.Edit5.Text='1') and (self.Edit8.Text='1') and (self.Edit11.Text='1') then begin ShowMessage (self.Edit1.Text + ' ganhou!'); self.js_voi_Travar_Casas(); end else if (self.Edit3.Text='1') and (self.Edit7.Text='1') and (self.Edit11.Text='1') then begin ShowMessage (self.Edit1.Text + ' ganhou!'); self.js_voi_Travar_Casas(); end else if (self.Edit5.Text='1') and (self.Edit7.Text='1') and (self.Edit9.Text='1') then begin ShowMessage (self.Edit1.Text + ' ganhou!'); self.js_voi_Travar_Casas() end else if (self.Edit3.Text='2') and (self.Edit4.Text='2') and (self.Edit5.Text='2') then begin ShowMessage (self.Edit2.Text + ' ganhou!'); self.js_voi_Travar_Casas(); end else if (self.Edit6.Text='2') and (self.Edit7.Text='2') and (self.Edit8.Text='2') then begin ShowMessage (self.Edit2.Text + ' ganhou!'); self.js_voi_Travar_Casas(); end else if (self.Edit9.Text='2') and (self.Edit10.Text='2') and (self.Edit11.Text='2') then begin ShowMessage (self.Edit2.Text + ' ganhou!'); self.js_voi_Travar_Casas(); end else if (self.Edit3.Text='2') and (self.Edit6.Text='2') and (self.Edit9.Text='2') then begin ShowMessage (self.Edit2.Text + ' ganhou!'); self.js_voi_Travar_Casas(); end else if (self.Edit4.Text='2') and (self.Edit7.Text='2') and (self.Edit10.Text='2') then begin ShowMessage (self.Edit2.Text + ' ganhou!'); self.js_voi_Travar_Casas(); end else if (self.Edit5.Text='2') and (self.Edit8.Text='2') and (self.Edit11.Text='2') then begin ShowMessage (self.Edit2.Text + ' ganhou!'); self.js_voi_Travar_Casas(); end else if (self.Edit3.Text='2') and (self.Edit7.Text='2') and (self.Edit11.Text='2') then begin ShowMessage (self.Edit2.Text + ' ganhou!'); self.js_voi_Travar_Casas(); end else if (self.Edit5.Text='2') and (self.Edit7.Text='2') and (self.Edit9.Text='2') then begin ShowMessage (self.Edit2.Text + ' ganhou!'); self.js_voi_Travar_Casas(); end else if (self.Edit3.Text<>'0') and (self.Edit4.Text<>'0') and (self.Edit5.Text<>'0') and (self.Edit6.Text<>'0') and (self.Edit7.Text<>'0') and (self.Edit8.Text<>'0') and (self.Edit9.Text<>'0') and (self.Edit10.Text<>'0') and (self.Edit11.Text<>'0') then begin ShowMessage('Velha!'); self.js_voi_Travar_Casas(); end; end; //============================================================================== procedure TForm2.js_voi_Mudar_Jogador_da_Vez(); begin if (self.js_int_jogador_da_vez = 1) then begin self.js_int_jogador_da_vez := 2; end else begin self.js_int_jogador_da_vez := 1; end; end; //============================================================================== procedure TForm2.Image11Click(Sender: TObject); begin self.js_voi_Colocar_Uma_Imagem(self.Image11, self.js_int_jogador_da_vez); self.js_voi_Mudar_Jogador_da_Vez(); self.Image11.Enabled:=False; if (self.js_int_jogador_da_vez=1) then begin self.Edit11.Text:='2'; end else self.Edit11.Text:='1'; self.js_voi_Checar_Jogo(); end; procedure TForm2.Image1Click(Sender: TObject); begin self.js_voi_Colocar_Uma_Imagem(self.Image1, self.js_int_jogador_da_vez); self.js_voi_Mudar_Jogador_da_Vez(); self.Image1.Enabled:=False; if (self.js_int_jogador_da_vez=1) then begin self.Edit4.Text:='2'; end else self.Edit4.Text:='1'; self.js_voi_Checar_Jogo(); end; procedure TForm2.Image2Click(Sender: TObject); begin self.js_voi_Colocar_Uma_Imagem(self.Image2, self.js_int_jogador_da_vez); self.js_voi_Mudar_Jogador_da_Vez(); self.Image2.Enabled:=False; if (self.js_int_jogador_da_vez=1) then begin self.Edit3.Text:='2'; end else self.Edit3.Text:='1'; self.js_voi_Checar_Jogo(); end; procedure TForm2.Image3Click(Sender: TObject); begin self.js_voi_Colocar_Uma_Imagem(self.Image3, self.js_int_jogador_da_vez); self.js_voi_Mudar_Jogador_da_Vez(); self.Image3.Enabled:=False; if (self.js_int_jogador_da_vez=1) then begin self.Edit5.Text:='2'; end else self.Edit5.Text:='1'; self.js_voi_Checar_Jogo(); end; procedure TForm2.Image5Click(Sender: TObject); begin self.js_voi_Colocar_Uma_Imagem(self.Image5, self.js_int_jogador_da_vez); self.js_voi_Mudar_Jogador_da_Vez(); self.Image5.Enabled:=False; if (self.js_int_jogador_da_vez=1) then begin self.Edit6.Text:='2'; end else self.Edit6.Text:='1'; self.js_voi_Checar_Jogo(); end; procedure TForm2.Image6Click(Sender: TObject); begin self.js_voi_Colocar_Uma_Imagem(self.Image6, self.js_int_jogador_da_vez); self.js_voi_Mudar_Jogador_da_Vez(); self.Image6.Enabled:=False; if (self.js_int_jogador_da_vez=1) then begin self.Edit7.Text:='2'; end else self.Edit7.Text:='1'; self.js_voi_Checar_Jogo(); self.js_voi_Checar_Jogo(); end; procedure TForm2.Image7Click(Sender: TObject); begin self.js_voi_Colocar_Uma_Imagem(self.Image7, self.js_int_jogador_da_vez); self.js_voi_Mudar_Jogador_da_Vez(); self.Image7.Enabled:=False; if (self.js_int_jogador_da_vez=1) then begin self.Edit8.Text:='2'; end else self.Edit8.Text:='1'; self.js_voi_Checar_Jogo(); end; procedure TForm2.Image8Click(Sender: TObject); begin self.js_voi_Colocar_Uma_Imagem(self.Image8, self.js_int_jogador_da_vez); self.js_voi_Mudar_Jogador_da_Vez(); self.Image8.Enabled:=False; if (self.js_int_jogador_da_vez=1) then begin self.Edit9.Text:='2'; end else self.Edit9.Text:='1'; self.js_voi_Checar_Jogo(); end; procedure TForm2.Image9Click(Sender: TObject); begin self.js_voi_Colocar_Uma_Imagem(self.Image9, self.js_int_jogador_da_vez); self.js_voi_Mudar_Jogador_da_Vez(); self.Image9.Enabled:=False; if (self.js_int_jogador_da_vez=1) then begin self.Edit10.Text:='2'; end else self.Edit10.Text:='1'; self.js_voi_Checar_Jogo(); end; procedure TForm2.js_voi_Colocar_Uma_Imagem(js_img_destino: TImage ; js_int_jogador: Integer); begin if (js_int_jogador = 1) then begin js_img_destino.Picture.LoadFromFile('J:\Delphi\Images\X.bmp'); end else if (js_int_jogador = 2) then begin js_img_destino.Picture.LoadFromFile('J:\Delphi\Images\O.bmp'); end else begin js_img_destino.Picture.LoadFromFile('J:\Delphi\Images\blank.bmp'); end; end; //============================================================================== procedure TForm2.js_voi_Preparar_Tabuleiro_Inicial(); begin self.js_voi_Colocar_Uma_Imagem(self.Image1 , 0); self.js_voi_Colocar_Uma_Imagem(self.Image2 , 0); self.js_voi_Colocar_Uma_Imagem(self.Image3 , 0); self.js_voi_Colocar_Uma_Imagem(self.Image4 , 0); self.js_voi_Colocar_Uma_Imagem(self.Image5 , 0); self.js_voi_Colocar_Uma_Imagem(self.Image6 , 0); self.js_voi_Colocar_Uma_Imagem(self.Image7 , 0); self.js_voi_Colocar_Uma_Imagem(self.Image8 , 0); self.js_voi_Colocar_Uma_Imagem(self.Image9 , 0); self.js_voi_Colocar_Uma_Imagem(self.Image11 , 0); self.Edit3.Text:='0'; self.Edit4.Text:='0'; self.Edit5.Text:='0'; self.Edit6.Text:='0'; self.Edit7.Text:='0'; self.Edit8.Text:='0'; self.Edit9.Text:='0'; self.Edit10.Text:='0'; self.Edit11.Text:='0'; //---------- self.js_int_jogador_da_vez := 1; end; procedure TForm2.RadioButton1Click(Sender: TObject); begin end; //============================================================================== procedure TForm2.Button1Click(Sender: TObject); begin self.js_voi_Preparar_Tabuleiro_Inicial(); self.js_voi_Liberar_Casas(); end; procedure TForm2.FormCreate(Sender: TObject); begin self.js_voi_Preparar_Tabuleiro_Inicial(); end; end.

Imagens:

Logo abaixo há uma pequena pesquisa solicitada pelo professor.
Posts um tanto quanto alternativos hoje ;D
Aproveitando a deixa, já inauguro previamente o novo layout do blog, tematizado pela personagem Beast, do mangá Kuroshitsuji. Depois eu faço um post mais aprofundado sobre a questão HAHAH
Porque o tal do layout deveria entrar em vigor apenas mês que vem, talvez ainda passe por modificações e tal... Enfim, talvez fique assim mesmo, até que gostei do estilo :)
Desculpem a minha ausência, tá difícil de conseguir inspiração ultimamente.

Beijos, se cuidem.