delphi 自动扫雷源码

最新推荐文章于 2022-06-30 20:04:51 发布
最新推荐文章于 2022-06-30 20:04:51 发布
阅读量138 收藏
点赞数
分类专栏： 技术 文章标签： delphi 扫雷
//http://weibo.com/wqssyq 

unit frmMine;

interface

uses
Windows, SysUtils, Classes, Forms, Grids, ImgList,
ExtCtrls, StdCtrls, Controls, Buttons, Mask;
const
MineOri = 0;
Mine_0 = 1;
MineOne = 2;
MineErr = 10;
MineBlast = 11;
MineShow = 12;
type
TMine = class
private
FOpen: Boolean;
public
RoundCount: integer; //周围有几个
MineCount: integer;
MarkCount: integer;
OpenCount: integer;
isMine: Boolean;
isMarked: Boolean;
//isOpen: Boolean;
isShow: Boolean;
isPressed: Boolean;
function IsOpen: Boolean;
function IconIndex: integer;
procedure SetOpen(value: boolean);
procedure SetMarked(value: boolean);
end;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
ImageList1: TImageList;
SpeedButton1: TSpeedButton;
Edit1: TEdit;
Timer1: TTimer;
Edit2: TEdit;
Button1: TButton;
Edit3: TEdit;
Edit4: TEdit;
MaskEdit1: TMaskEdit;
procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
procedure StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormActivate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Button1Click(Sender: TObject);
private
function CalMineCount(i, j: integer): integer;
function IsMine2int(i, j: integer): integer;
function CalMarkCount(i, j: integer): integer;
function IsMarked2int(i, j: integer): integer;
procedure initial;
procedure SweepEmpty;
procedure ShowAll;
procedure MarkMine(ACol, ARow: integer);
procedure ModifyMarkCount(ACol, ARow: integer; isMarked: boolean);
procedure ShowAutoSweep(ACol, ARow: integer);
procedure ShowAutoSweep2(ACol, ARow: integer);
procedure AutoSweep(ACol, ARow: integer);
procedure AutoSweep2(ACol, ARow: integer);
procedure AutoMark(ACol, ARow: integer);
procedure AutoMark2(ACol, ARow: integer);
procedure RenewAutoSweep(ACol, ARow: integer);
procedure RenewAutoSweep2(ACol, ARow: integer);
//procedure DrawIcon(ACol, ARow: integer);
function DrawIcon(ACol, ARow: integer): integer;
function CalOpenCount(i, j: integer): integer;
function IsOpen2int(i, j: integer): integer;
procedure CalRoundCount;
procedure Suspend;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

var
Column, Row: Longint;
ColumnOld, RowOld: Longint;
mine: array [0..29] of array [0..15] of TMine;
bAutoSweep: Boolean;
bEnd: Boolean;
SecondCount: integer;
MarkedMarkCount: integer; //被标志的雷的总数

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
index: integer;
begin
index := mine[ACol, ARow].IconIndex;

with Sender as TDrawGrid do
begin
Canvas.FillRect(Rect);
ImageList1.Draw(Canvas,Rect.Left,Rect.Top,index);
if gdFocused in State then
Canvas.DrawFocusRect(Rect);
end;
end;

procedure TForm1.ModifyMarkCount(ACol, ARow: integer; isMarked: boolean);
var
MarkCount: integer;
begin
if(ACol<0) or (ACol>29) or (ARow<0) or (ARow>15) then
exit;
if isMarked then
mine[ACol, ARow].MarkCount := mine[ACol, ARow].MarkCount+1
else
begin
if mine[ACol, ARow].MarkCount>0 then
mine[ACol, ARow].MarkCount := mine[ACol, ARow].MarkCount-1;
end;
MarkCount := self.CalMarkCount(ACol, ARow);
if MarkCount<>mine[ACol, ARow].MarkCount then
mine[ACol, ARow].MarkCount := MarkCount;

end;

procedure TForm1.MarkMine(ACol, ARow: integer);
begin
mine[ACol, ARow].SetMarked(not mine[ACol, ARow].isMarked);
Edit2.Text := inttostr(MarkedMarkCount);
DrawIcon(ACol, ARow);

ModifyMarkCount(ACol-1, ARow-1, mine[ACol, ARow].isMarked);
ModifyMarkCount(ACol-1, ARow, mine[ACol, ARow].isMarked);
ModifyMarkCount(ACol-1, ARow+1, mine[ACol, ARow].isMarked);
ModifyMarkCount(ACol, ARow-1, mine[ACol, ARow].isMarked);
ModifyMarkCount(ACol, ARow+1, mine[ACol, ARow].isMarked);
ModifyMarkCount(ACol+1, ARow-1, mine[ACol, ARow].isMarked);
ModifyMarkCount(ACol+1, ARow, mine[ACol, ARow].isMarked);
ModifyMarkCount(ACol+1, ARow+1, mine[ACol, ARow].isMarked);
end;

procedure TForm1.ShowAutoSweep2(ACol, ARow: integer);
var
Rect: TRect;
begin
if(ACol<0) or (ACol>29) or (ARow<0) or (ARow>15) then
exit;
if not (mine[ACol, ARow].isMarked or
mine[ACol, ARow].isOpen) then
begin
Rect := StringGrid1.CellRect(ACol, ARow);
ImageList1.Draw(StringGrid1.Canvas, Rect.Left, Rect.Top, 1);
end;

end;

procedure TForm1.ShowAutoSweep(ACol, ARow: integer);
begin
ShowAutoSweep2(ACol-1, ARow-1);
ShowAutoSweep2(ACol-1, ARow);
ShowAutoSweep2(ACol-1, ARow+1);
ShowAutoSweep2(ACol, ARow-1);
ShowAutoSweep2(ACol, ARow+1);
ShowAutoSweep2(ACol+1, ARow-1);
ShowAutoSweep2(ACol+1, ARow);
ShowAutoSweep2(ACol+1, ARow+1);
end;

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
Rect: TRect;
begin
if (ssRight in Shift) and (ssLeft in Shift) then
begin
bAutoSweep := true;
StringGrid1.MouseToCell(X, Y, Column, Row);
ShowAutoSweep(Column, Row);
exit;
end;
if (ssRight in Shift) then
begin
StringGrid1.MouseToCell(X, Y, Column, Row);
MarkMine(Column, Row);
exit;
end;

if not (ssLeft in Shift) then
exit;
StringGrid1.MouseToCell(X, Y, Column, Row);
Rect := StringGrid1.CellRect(Column, Row);
mine[Column, Row].isPressed := true;
ImageList1.Draw(StringGrid1.Canvas, Rect.Left, Rect.Top, 1);
Timer1.Enabled := true;
end;

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
var
Rect: TRect;
c, r: integer;
begin
if (ssCtrl in Shift) then
begin
StringGrid1.MouseToCell(X, Y, c, r);
Edit3.Text := inttostr(c);
Edit4.Text := inttostr(r);
end;

if not (ssLeft in Shift) then
exit;

StringGrid1.MouseToCell(X, Y, Column, Row);
if (ColumnOld<> Column) or (RowOld<>Row) then
begin
if(ColumnOld<>-1) and (RowOld<>-1) then
begin
mine[ColumnOld, RowOld].isPressed := false;
DrawIcon(ColumnOld, RowOld);
end;
if(Column<>-1) and (Row<>-1) then
begin
mine[Column, Row].isPressed := true;
Rect := StringGrid1.CellRect(Column, Row);
ImageList1.Draw(StringGrid1.Canvas, Rect.Left, Rect.Top, 1);
end;
ColumnOld := Column;
RowOld := Row;
end;
end;

procedure TForm1.initial;
var
i, j: integer;
bNotSet: Boolean;
iColumn, iRow: integer;
begin
MarkedMarkCount := 99;
Edit2.Text := inttostr(MarkedMarkCount);
timer1.Enabled := false;
SecondCount := 0;
Edit1.Text := '000';
bEnd := false;
Column :=-1;
Row := -1;
ColumnOld :=-1;
RowOld := -1;

for i := 0 to 29 do
begin
for j := 0 to 15 do
begin
mine[i, j] := TMine.Create;
mine[i, j].MineCount := 0;
mine[i, j].MarkCount := 0;
mine[i, j].OpenCount := 0;
mine[i, j].isMarked := false;
mine[i, j].isMine := false;
//mine[i, j].isOpen := false;
mine[i, j].SetOpen(false);
mine[i, j].isShow := false;
end;
end;

Randomize;
//set mine
for i := 0 to 98 do
begin
bNotSet := true;
while bNotSet do
begin
iColumn := Random(30);
iRow := Random(16);
if not mine[iColumn, iRow].isMine then
begin
bNotSet := false;
mine[iColumn, iRow].isMine := true;
end;
end;
end;

//calculate mine count
for i := 0 to 29 do
begin
for j := 0 to 15 do
begin
mine[i, j].MineCount := CalMineCount(i, j);
end;
end;
CalRoundCount;

//SweepEmpty;
end;

procedure TForm1.CalRoundCount;
var
i, j: integer;
begin
mine[0, 0].RoundCount := 3;
mine[0, 15].RoundCount := 3;
mine[29, 0].RoundCount := 3;
mine[29, 15].RoundCount := 3;

for i := 1 to 28 do
begin
mine[i, 0].RoundCount := 5;
mine[i, 15].RoundCount := 5;
end;

for j := 1 to 14 do
begin
mine[0, j].RoundCount := 5;
mine[29, j].RoundCount := 5;
end;

for i := 1 to 28 do
begin
for j := 1 to 14 do
begin
mine[i, j].RoundCount := 8;
end;
end;
end;

function TForm1.IsMine2int(i, j: integer): integer;
begin
result := 0;
if(i<0) or (i>29) or (j<0) or (j>15) then
exit;
if mine[i, j].isMine then
result := 1;
end;

function TForm1.CalMineCount(i, j: integer): integer;
begin
result := 0;
result := result + IsMine2int(i-1, j-1);
result := result + IsMine2int(i-1, j);
result := result + IsMine2int(i-1, j+1);
result := result + IsMine2int(i, j-1);
result := result + IsMine2int(i, j+1);
result := result + IsMine2int(i+1, j-1);
result := result + IsMine2int(i+1, j);
result := result + IsMine2int(i+1, j+1);
end;

procedure TForm1.ShowAll;
var
i, j: integer;
begin
for i := 0 to 29 do
begin
for j := 0 to 15 do
begin
mine[i, j].isShow := true;
end;
end;
StringGrid1.Refresh;
bEnd := true;
timer1.Enabled := false;
end;

procedure TForm1.RenewAutoSweep2(ACol, ARow: integer);
var
Rect: TRect;
begin
if(ACol<0) or (ACol>29) or (ARow<0) or (ARow>15) then
exit;
if not (mine[ACol, ARow].isMarked or
mine[ACol, ARow].isOpen) then
begin
Rect := StringGrid1.CellRect(ACol, ARow);
ImageList1.Draw(StringGrid1.Canvas, Rect.Left, Rect.Top, 0);
end;
end;

procedure TForm1.RenewAutoSweep(ACol, ARow: integer);
begin
RenewAutoSweep2(ACol-1, ARow-1);
RenewAutoSweep2(ACol-1, ARow);
RenewAutoSweep2(ACol-1, ARow+1);
RenewAutoSweep2(ACol, ARow-1);
RenewAutoSweep2(ACol, ARow+1);
RenewAutoSweep2(ACol+1, ARow-1);
RenewAutoSweep2(ACol+1, ARow);
RenewAutoSweep2(ACol+1, ARow+1);
end;

procedure TForm1.AutoSweep2(ACol, ARow: integer);
begin
if bEnd then
exit;
if(ACol<0) or (ACol>29) or (ARow<0) or (ARow>15) then
exit;
if not (mine[ACol, ARow].isMarked or
mine[ACol, ARow].isOpen) then
begin
Suspend; //Suspend
mine[ACol, ARow].SetOpen(true);
if DrawIcon(ACol, ARow) = MineBlast then
begin
ShowAll;
end;
AutoSweep(ACol, ARow);
end;
end;

procedure TForm1.AutoSweep(ACol, ARow: integer);
begin
if(ACol<0) or (ACol>29) or (ARow<0) or (ARow>15) then
exit;
if mine[ACol, ARow].MarkCount<>mine[ACol, ARow].MineCount then
begin
RenewAutoSweep(ACol, ARow);
exit;
end;

AutoSweep2(ACol-1, ARow-1);
AutoSweep2(ACol-1, ARow);
AutoSweep2(ACol-1, ARow+1);
AutoSweep2(ACol, ARow-1);
AutoSweep2(ACol, ARow+1);
AutoSweep2(ACol+1, ARow-1);
AutoSweep2(ACol+1, ARow);
AutoSweep2(ACol+1, ARow+1);

AutoMark(ACol-1, ARow-1);
AutoMark(ACol-1, ARow);
AutoMark(ACol-1, ARow+1);
AutoMark(ACol, ARow-1);
AutoMark(ACol, ARow+1);
AutoMark(ACol+1, ARow-1);
AutoMark(ACol+1, ARow);
AutoMark(ACol+1, ARow+1);
end;

procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
IconIndex: integer;
begin
if bAutoSweep then
begin
StringGrid1.MouseToCell(X, Y, Column, Row);
AutoSweep(Column, Row);
bAutoSweep := false;
StringGrid1.Refresh;
exit;
end;
if mine[Column, Row].isMarked then
exit;

if Button = mbRight then
exit;

mine[Column, Row].isPressed := false;
mine[Column, Row].SetOpen(true);
IconIndex := DrawIcon(Column, Row);
if IconIndex = MineBlast then
begin
ShowAll;
end;

if IconIndex = Mine_0 then
begin
AutoSweep(Column, Row);
end;

Column :=-1;
Row := -1;
ColumnOld :=-1;
RowOld := -1;
end;

{ TMine }

function TMine.IconIndex: integer;
begin
result := 0;
if self=nil then
exit;
if isMarked then
begin
if isShow and (not isMine) then
result := MineErr
else
result := 13;
exit;
end;

if isShow then
begin
if isMine then
begin
result := MineShow;
end
else
begin
result := MineCount + 1;
end;
end;

if isPressed then
begin
result := 1;
end;

if isOpen then
begin
if isMine then
begin
result := MineBlast;
end
else
begin
result := MineCount + 1;
end;
end;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
initial;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
initial;
StringGrid1.Refresh;
end;

function TMine.IsOpen: Boolean;
begin
result := FOpen;
end;

procedure TMine.SetMarked(value: boolean);
begin
if self<>nil then
begin
if isOpen then
exit;
isMarked := value;
if value=true then
MarkedMarkCount := MarkedMarkCount-1
else
MarkedMarkCount := MarkedMarkCount+1;
end;
end;

procedure TMine.SetOpen(value: boolean);
begin
if self<>nil then
begin
if isMarked then
exit;
FOpen := value;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
SecondCount := SecondCount + 1;
Edit1.Text := inttostr(SecondCount);
end;

function TForm1.IsMarked2int(i, j: integer): integer;
begin
result := 0;
if(i<0) or (i>29) or (j<0) or (j>15) then
exit;
if mine[i, j].isMarked then
result := 1;
end;

function TForm1.CalMarkCount(i, j: integer): integer;
begin
result := 0;
result := result + IsMarked2int(i-1, j-1);
result := result + IsMarked2int(i-1, j);
result := result + IsMarked2int(i-1, j+1);
result := result + IsMarked2int(i, j-1);
result := result + IsMarked2int(i, j+1);
result := result + IsMarked2int(i+1, j-1);
result := result + IsMarked2int(i+1, j);
result := result + IsMarked2int(i+1, j+1);
end;

function TForm1.DrawIcon(ACol, ARow: integer): integer;
var
Rect: TRect;
IconIndex: integer;
begin
Rect := StringGrid1.CellRect(ACol, ARow);
IconIndex := mine[ACol, ARow].IconIndex;
ImageList1.Draw(StringGrid1.Canvas, Rect.Left, Rect.Top, IconIndex);
result := IconIndex;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = 112) then
SweepEmpty;
end;

procedure TForm1.SweepEmpty;
var
i, j: integer;
begin
timer1.Enabled := true;
for j := 0 to 15 do
begin
for i := 0 to 29 do
begin
if (mine[i, j].MineCount = 0) and (not mine[i, j].isMine)
and (not mine[i, j].IsOpen) then
begin
mine[i, j].SetOpen(true);
DrawIcon(i, j);
AutoSweep(i, j);
exit;
end;
end;
end;
end;

function TForm1.IsOpen2int(i, j: integer): integer;
begin
result := 0;
if(i<0) or (i>29) or (j<0) or (j>15) then
exit;

if mine[i, j].IsOpen then
result := 1;
end;

function TForm1.CalOpenCount(i, j: integer): integer;
begin
result := 0;
result := result + IsOpen2int(i-1, j-1);
result := result + IsOpen2int(i-1, j);
result := result + IsOpen2int(i-1, j+1);
result := result + IsOpen2int(i, j-1);
result := result + IsOpen2int(i, j+1);
result := result + IsOpen2int(i+1, j-1);
result := result + IsOpen2int(i+1, j);
result := result + IsOpen2int(i+1, j+1);
end;

procedure TForm1.AutoMark2(ACol, ARow: integer);
begin
if(ACol<0) or (ACol>29) or (ARow<0) or (ARow>15) then
exit;

if mine[ACol, ARow].isMarked or mine[ACol, ARow].IsOpen then
exit;

//mine[ACol, ARow].SetMarked(true);
MarkMine(ACol, ARow);
DrawIcon(ACol, ARow);
Suspend;
end;

procedure TForm1.AutoMark(ACol, ARow: integer);
var
iOpen, iMark, iMine: integer;
begin
if(ACol<0) or (ACol>29) or (ARow<0) or (ARow>15) then
exit;
if mine[ACol, ARow].isMarked then
exit;
//exit;
iOpen := CalOpenCount(ACol, ARow);
iMark := CalMarkCount(ACol, ARow);
iMine := mine[ACol, ARow].MineCount;
//if mine[ACol, ARow].RoundCount= iOpen + iMark +iMine then
if (iMine<1) then
exit;
if (iMine = mine[ACol, ARow].RoundCount - iOpen)
and (iMine>iMark) then
begin
AutoMark2(ACol-1, ARow-1);
AutoMark2(ACol-1, ARow);
AutoMark2(ACol-1, ARow+1);
AutoMark2(ACol, ARow-1);
AutoMark2(ACol, ARow+1);
AutoMark2(ACol+1, ARow-1);
AutoMark2(ACol+1, ARow);
AutoMark2(ACol+1, ARow+1);

AutoSweep(ACol-1, ARow-1);
AutoSweep(ACol-1, ARow);
AutoSweep(ACol-1, ARow+1);
AutoSweep(ACol, ARow-1);
AutoSweep(ACol, ARow+1);
AutoSweep(ACol+1, ARow-1);
AutoSweep(ACol+1, ARow);
AutoSweep(ACol+1, ARow+1);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
iOpen, iMark, iMine: integer;
ACol, ARow: integer;
begin
ACol := strtoint(edit3.text);
ARow := strtoint(edit4.text);
iOpen := CalOpenCount(ACol, ARow);
iMark := CalMarkCount(ACol, ARow);
iMine := mine[ACol, ARow].MineCount;
Caption := inttostr(iOpen) + ' Open ' +
inttostr(iMark) + ' Mark ' +
inttostr(iMine) + ' Mine ';
end;

procedure TForm1.Suspend;
var
NumSec: SmallInt;
StartTime: Double;
begin
try
NumSec := strtoint(trim(MaskEdit1.Text));
if (NumSec<0) or (NumSec>999) then
begin
NumSec := 50;
end;
except
on E: EConvertError do
begin
NumSec := 50;
MaskEdit1.Text := '50';
end;
end;

if NumSec=0 then
exit;

StartTime := now;
repeat
Application.ProcessMessages;
until Now > StartTime + NumSec * (1/24/60/60/1000);
end;

end.
手指英语
关注
专栏目录
Delphi外挂辅助技术入门篇、Windows扫雷程序示例
Nothing is impossible
07-16 888
<br />程序本身就不多说了、应用很基础、代码里的注释也比较详细、、<br />而且基本是使用api完成、所以改VB/VC++等都是很容易的<br />至此、也基本了解了扫雷程序的工作原理（猜测）<br />1.随机产生列阵、等待用户<br />2.判断用户首次左键单击位置是否为雷区、如果不是则继续、若是的话、重新排列列阵、让用户首次单击区域不为雷区（我猜想是为了不让游戏这么快的结束）<br />3.一旦首次判断完成、列阵则已经被确定、不再更改<br />4.扫雷程序界面上提示的数字、预先并没有生成、只是
delphi 扫雷游戏源码
02-21
delphi开发的扫雷程序。 自己初学delphi时编写的，因为当时win7还未问世，XP的扫雷雷块太小了，作为一名扫雷爱好者，于是就写了一个雷块放大版的扫雷游戏。（win7的扫雷显然也意识到这个问题，变得可以无限缩放了，更高级） 分享给大家观摩学习，算法主要使用了递归算法。
扫雷(Delphi源码)
02-23
记得当初编这个游戏的时候挺傻的，呵呵，方格子、地雷和数字等都是自己画的。呵呵，除了没有？功能外(那个时候不会写，现在也懒得写，呵呵)，其它的功能均与Windows自带的扫雷功能一样。这里只有源码源码和可执行程序到 http://math.whu.edu.cn/homepage/franczx/program/mine.zip 下载
扫雷程序源代码(delphi)
08-16
我所带学生用delphi编写的一个扫雷小游戏，功能不太复杂，适合初学者自学。
DELPHI版扫雷源码
11-06
用DELPHI7编写的扫雷源码，没有加入声音，另外加入了放大功能，还有查看雷区的功能，在操作上完全与WINDOW的相同，左键右键 中键，左右键同时按时效果与原版相同。
Delphi扫雷外挂;黑客进门例子 DELPHI版,进门者值得一学
zdh57776186的专栏
08-26 376
平时有事没事学习玩玩： Delphi扫雷外挂;黑客进门例子 DELPHI版,进门者值得一学 是delphi 6,  delphi7  的源码，都能打开。 https://download.csdn.net/download/zdh57776186/2087128...
delphi 扫雷源码
10-27
delphi 扫雷 源码，比较简单，容易看懂。
扫雷新版Delphi源码下载..rar
05-09
这个“扫雷新版Delphi源码下载..rar”压缩包很可能是包含了一些使用最新版本Delphi编写的源代码示例或者项目，用于帮助开发者学习、理解和实践Delphi编程技术。 在Delphi编程中，有几个关键知识点是每个开发者都...
Delphi 经典扫雷游戏源码.rar
12-07
而用Delphi编写的扫雷源码，为我们提供了一个深入理解面向对象编程、事件驱动编程以及Delphi特性的绝佳实例。下面我们将详细探讨Delphi扫雷游戏源码中的关键知识点。 首先，Delphi是一种基于Object Pascal的集成...
自动扫雷器源代码
07-18
1.本程序仅供个人兴趣使用，不得用于商业用途或者正规比赛。 2.程序针对Windows XP经典版扫雷设计，对Window7系统自带的或其他版本的扫雷无效。 3.使用方法：启动该软件后启动扫雷（先启动扫雷也行），然后正常扫雷即可，程序会自动判断它能够判断出的情况，并帮你点开。 4.偶尔出现误点中雷的情况，分析是扫雷程序界面刷新不及时，有些数字未显示时程序就已进行判断，误断为0（周围没有雷），做出了误判。这种情况极少出现。 5.作者才智有限，并非能判断出所有情况，比如第一步只点开一格，谁也没法判断，只能继续蒙。何况有些情况即使是天才来了也得蒙（尤其是最后只剩两个皆可能的情况）。不过以程序目前的功力，已有能力破解扫雷高级全局。如果幸运的话，第一步就点开大片空白，并且一路无阻碍，可以在2秒钟之内破掉高级全局。 6.目前程序已经做到的纪录——初级1秒（实际可能小于1秒）、中级1秒（实际可能小于1秒）、高级2秒。 7.源代码在VS2008下编译成功。
易语言源代码《自动扫雷》
12-08
易语言写的自动扫雷源代码,调用CALL技术，详细请看代码，有问题可以联系
自动扫雷，扫雷解密程序VC++源代码
01-25
自动扫雷，扫雷解密程序VC++源代码 给大伙学习
delphi版本的扫雷源代码
02-13
经典的DELPHI版本的扫雷源程序，可下载后根据自己的需要进行必要的修改。
Delphi 高级扫雷程序.rar
07-10
Delphi 高级扫雷程序，界面和功能和Windows自带的扫雷游戏非常相似，不过功能方面就不太相同了，带声音和帮助文件。。。。Function 程序的主要代码部分,是程序的主体部分,在运用四连通算法进行展开区域时使用到的记录类型的指针类型,Grid 中的数组大小已经扩大了各一个方块,用于记录当前列数 行数 以及 标识雷区和显示区的数组 的一个记录类型,根据传进来的UpGridArray的值画地图,于全局变量LastGridArray 的逐个方格进行比较,画地图,isColor 的作用时,时由于按动了'颜色'菜单触发的话,则强行全部重画.如果有不同显示的雷区或是强行要重画的情况下需要重画数字区域……
不一样的Delphi扫雷游戏源码，有立体效果..rar
05-05
本文将深入探讨一个独特的Delphi扫雷游戏源码，其亮点在于引入了立体效果，为传统的扫雷游戏带来了全新的视觉体验。 首先，让我们了解一下Delphi。Delphi是一款基于Object Pascal语言的集成开发环境（IDE），由...
Delphi - XP扫雷外挂制作.
weixin_34148340的博客
02-20 109
技术交流,DH讲解. 本来之前就在写这个文章,还写了War3挂的教程,后来因为一些事就没有弄了.现在过年在家又没有事就继续把这个写完吧.哈哈.不要以为写个挂很容易,要想写个挂肯定要了解游戏呀.我们现在来了解下地雷是怎么产生的?其实只是我自己猜想的,毕竟这个游戏不是我写的...1 用户选择了多大的棋盘,多少地雷后棋盘应该是用一个二维数组来存储的,地雷数肯定是用一个全局变量来存储的.这点儿有异议没有?...
python扫雷代码文件_Python实现自动扫雷游戏的方法源码
weixin_39609457的博客
11-26 234
玩蛇网Python学习平台本篇文章为大家提供的是关于Python实现自动扫雷游戏的方法源码。扫雷游戏大家再熟悉不过了，原本互联网游戏没有盛行的时候，本机自带的扫雷为我们的业余生活增添了许多乐趣。用Python代码实现自动扫雷，相信一定很好玩。这里给大家提供的是一个思路，具体的代码及运行方法还需要各位去自行完善。下面就是关于Python实现自动扫雷游戏的方法源码（供参考）：# coding: utf...
【扫雷源码】
m0_62599305的博客
06-30 789
C3程序猿版扫雷源码
Delphi导出Excel源码实现
该资源提供了一段Delphi代码，用于将数据从TDbGrid控件导出到Excel文件。这段代码适用于Delphi开发者，特别是那些需要处理数据导出功能的项目。 在Delphi中导出Excel文件是常见的需求，通常用于将数据库数据或者...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值