鱼C论坛

 找回密码
 立即注册
查看: 1980|回复: 0

[争议讨论] 点灯游戏

[复制链接]
发表于 2015-2-12 13:24:00 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

x
  1. unit Unit1;

  2. interface

  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, ExtCtrls;

  6. type
  7.   TForm1 = class(TForm)
  8.     Panel1: TPanel;
  9.     Panel2: TPanel;
  10.     Panel3: TPanel;
  11.     Panel4: TPanel;
  12.     Panel5: TPanel;
  13.     Panel6: TPanel;
  14.     Panel7: TPanel;
  15.     Panel8: TPanel;
  16.     Panel9: TPanel;
  17.     Panel10: TPanel;
  18.     Panel11: TPanel;
  19.     Panel12: TPanel;
  20.     Panel13: TPanel;
  21.     Panel14: TPanel;
  22.     Panel15: TPanel;
  23.     Panel16: TPanel;
  24.     Panel17: TPanel;
  25.     Panel18: TPanel;
  26.     Panel19: TPanel;
  27.     Panel20: TPanel;
  28.     Panel21: TPanel;
  29.     Panel22: TPanel;
  30.     Panel23: TPanel;
  31.     Panel24: TPanel;
  32.     Panel25: TPanel;
  33.     procedure FormCreate(Sender: TObject);
  34.     procedure Change(i:Integer);
  35.     function CheckWin:Boolean;
  36.     procedure Panel1Click(Sender: TObject);
  37.   private
  38.     { Private declarations }
  39.   public
  40.     { Public declarations }
  41.   end;

  42. var
  43.     Form1: TForm1;
  44.     p:Array[1..25] of TPanel;
  45.     c:Array[1..25] of Boolean;
  46. implementation
  47. function TForm1.CheckWin:Boolean;
  48. var
  49.     i:Integer;
  50. begin
  51.     result:=True;
  52.     for i:=1 to 25 do
  53.         if not c[i] then
  54.         begin
  55.             Result:=False;
  56.             exit;
  57.         end;
  58. end;

  59. {$R *.dfm}

  60. procedure TForm1.FormCreate(Sender: TObject);
  61. var
  62.     i:Integer;
  63. begin
  64.     p[1]:=Panel1;
  65.     p[2]:=Panel2;
  66.     p[3]:=Panel3;
  67.     p[4]:=Panel4;
  68.     p[5]:=Panel5;
  69.     p[6]:=Panel6;
  70.     p[7]:=Panel7;
  71.     p[8]:=Panel8;
  72.     p[9]:=Panel9;
  73.     p[10]:=Panel10;
  74.     p[11]:=Panel11;
  75.     p[12]:=Panel12;
  76.     p[13]:=Panel13;
  77.     p[14]:=Panel14;
  78.     p[15]:=Panel15;
  79.     p[16]:=Panel16;
  80.     p[17]:=Panel17;
  81.     p[18]:=Panel18;
  82.     p[19]:=Panel19;
  83.     p[20]:=Panel20;
  84.     p[21]:=Panel21;
  85.     p[22]:=Panel22;
  86.     p[23]:=Panel23;
  87.     p[24]:=Panel24;
  88.     p[25]:=Panel25;
  89.     for i:=1 to 25 do
  90.     begin
  91.         p[i].Tag:=i;
  92.         c[i]:=False;
  93.     end;
  94. end;

  95. procedure TForm1.Change(i:Integer);
  96. begin
  97.     c[i]:=Not c[i];
  98.     if c[i] then
  99.         p[i].Color:=clBlack
  100.     else
  101.         p[i].Color:=clWhite;
  102. end;



  103. procedure TForm1.Panel1Click(Sender: TObject);
  104. var
  105.     i,j:Integer;
  106. begin
  107.     i:=TPanel(Sender).Tag;
  108.     Change(i);
  109.     if i>5 then Change(i-5);
  110.     if i<21 then Change(i+5);
  111.     if (i Mod 5)<>0 then Change(i+1);
  112.     if (i Mod 5)<>1 then Change(i-1);
  113.     if CheckWin then ShowMessage('<span style="font-family: 宋体; ">你赢了!</span>');
复制代码

点灯游戏.png
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-3-28 18:35

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表