編程對戰

Ⅰ 誰有編程游戲

射擊游戲：
uses crt;
const cz:array[1..4,1..2] of -1..1=((0,1),(1,0),(0,-1),(-1,0));
var i,j,xz1,yz1,y1,xz2,yz2,y2,t1,t2,t3,k,v1,v2:integer;
ch:char;
a:array[1..20] of integer;

procere priter;
begin
gotoxy(1,1);
textbackground(green);
for i:=1 to 20 do
begin
for j:=1 to 40 do
write(' ');
writeln;
end;
end;
procere priv;
begin
gotoxy(1,1);
write('v1:',v1:3,' v2:',v2:2);
end;
procere start;
begin
priter;
textcolor(black);
textbackground(green);
gotoxy(1,1);
writeln('製作：謝嘉東 QQ：1934784736');
writeln('Really? ');
ch:=readkey;
for i:=3 downto 1 do
begin
write(i);
sound(1871);
delay(500);
nosound;
delay(500);
write(#8);
end;
write('Go!!!');
sound(2500);
delay(500);
nosound;
end;
procere GameOver(p:integer);
begin
if p=1 then begin gotoxy(1,y1);write(']*');end;
if p=2 then begin gotoxy(39,y2);write('*[');end;
textcolor(green);
textbackground(black);
gotoxy(10,10);
p:=3-p;
write('Player ',p:1,' is Win!!!');
repeat ch:=readkey;until ord(ch)=13;
textbackground(black);
ClrScr;
halt;
end;
procere over(p:integer);
begin
if p=1 then begin dec(v1);gotoxy(1,y1);write(']*');end;
if p=2 then begin dec(v2);gotoxy(39,y2);write('*[');end;
priv;
if v1=0 then gameover(1);
if v2=0 then gameover(2);
end;
procere go;
begin
textbackground(black);
ClrScr;
for i:=1 to 20 do a[i]:=38;
textbackground(green);
textcolor(black);
priter;
gotoxy(1,2);
y1:=1;
write(']>');
gotoxy(39,2);
write('<[');
gotoxy(1,1);
y1:=2;t1:=0;t2:=0;t3:=0;y2:=2;v1:=10;v2:=10;
priv;
while true do
begin
delay(1);
inc(t1,1);
if t1=1000 then
begin
inc(t2);
if t2=60 then begin t2:=0;inc(t3);end;
end;
if keypressed then
begin
ch:=readkey;
if (ch='i') and (y1>2) then
begin
gotoxy(1,y1);
write(' ');
dec(y1);
gotoxy(1,y1);
write(']>');
end;
if (ch='k') and (y1<20) then
begin
gotoxy(1,y1);
write(' ');
inc(y1);
gotoxy(1,y1);
write(']>');
end;
if (ch='q') then break;
if (ch='f')and(xz1=0) then
begin
xz1:=3;
yz1:=y1;
end;
{play2}
if (ch='8') and (y2>2) then
begin
gotoxy(39,y2);
write(' ');
dec(y2);
gotoxy(39,y2);
write('<[');
end;
if (ch='5') and (y2<20) then
begin
gotoxy(39,y2);
write(' ');
inc(y2);
gotoxy(39,y2);
write('<[');
end;
if (ch='0')and(xz2=0) then
begin
xz2:=37;
yz2:=y2;
end;
end;{end of keyprssed}
if (t1 mod 5=0)and(xz1<>0) then
begin
if xz1>38 then
begin
gotoxy(xz1,yz1);
write(' ');
if yz1=y2 then Over(2);
xz1:=0;
yz1:=0;
end
else
begin
gotoxy(xz1,yz1);
write(' .');
inc(xz1);
end;
end;
{play2}
if (t1 mod 5=0)and(xz2<>0) then
begin
if xz2<2 then
begin
gotoxy(xz2,yz2);
write(' ');
if yz2=y1 then Over(1);
xz2:=0;
yz2:=0;
end
else
begin
gotoxy(xz2-1,yz2);
write('. ');
dec(xz2);
end;
end;
end;{end of while}
end; {end of go}
begin
start;
go;
end.
飛機游戲：
uses crt;
var v,t,m,i,j,k,x,y,t1,t2,t3,s:integer;
ch:char;
{test:text; }
procere GameOver;
var ch:char;
begin
gotoxy(20,10);
write('Game over!!!');
repeat
ch:=readkey;
until ord(ch)=13;
halt;
end;
procere pri;
begin
ClrScr;
gotoxy(1,1);
textbackground(green);
for i:=1 to 5 do
begin
for j:=1 to 40 do write(' ');
writeln;
end;
textbackground(white);
for i:=1 to 10 do
begin
for j:=1 to 40 do write(' ');
writeln;
end;
textbackground(green);
for i:=1 to 5 do
begin
for j:=1 to 40 do write(' ');
writeln;
end;
end;
procere go(guanshu:byte);
var a:array[0..41,1..20] of 0..1;
f:text;
st,str:string;
begin
assign(f,'data'{+chr(guanshu+ord('0'))}+'.wy');
reset(f);
fillchar(a,sizeof(a),0);
for i:=1 to 20 do a[41,i]:=1;
for i:=1 to 20 do a[0,i]:=1;
{ for i:=1 to 40 do
for j:=1 to 5 do
a[i,j]:=1;
for i:=1 to 40 do
for j:=15 to 20 do
a[i,j]:=1;}
for j:=1 to 40 do
begin
for i:=1 to 20 do
read(f,a[j,i]);
readln(f);
end;
gotoxy(1,6);
textbackground(white);
textcolor(green);
for i:=1 to 20 do
begin
for j:=1 to 40 do
if a[j,i]=1 then write('?');
writeln;
end;
x:=20;
y:=10;
textcolor(black);
textbackground(white);
gotoxy(x,y);
write(']>');
t1:=0;t2:=0;t3:=0;v:=100;s:=1000;
st:=']>';
while not eof(f) do
begin
delay(10);
inc(t1,10);
if t1=1000 then
begin
t1:=0;
inc(t2);
if t2=60 then
begin
t2:=0;
inc(t3);
end;
end;
gotoxy(1,1);
textbackground(green);
if t1 mod 200=0 then begin
for i:=1 to 39 do
for j:=1 to 20 do a[i,j]:=a[i+1,j];
for i:=1 to 20 do
read(f,a[40,i]);
readln(f);
textbackground(white);
textcolor(green);
for i:=1 to 20 do
begin
for j:=1 to 40 do
if a[j,i]=1 then write('?')
else write(' ');
writeln;
end;
end;
textbackground(green);
gotoxy(1,1);
textcolor(black);
write('s:',s,' v:',v);
textcolor(black);
textbackground(white);
gotoxy(x,y);
write(st);
if keypressed then
begin
ch:=readkey;
if ch='i' then
begin
if a[x,y-1]=0 then begin dec(s);dec(y);write(#8,#8);gotoxy(x,y);write(']>');st:=']>';end
else begin dec(v,5);write(#8,#8,'*/');st:='*/';end;
end
else if ch='k' then
begin
if a[x,y+1]=0 then begin dec(s);inc(y);write(#8,#8);gotoxy(x,y);write(']>');st:=']>';end
else begin dec(v,5);write(#8,#8,'*\');st:='*\';end;
end
else if ch='l' then
begin
if a[x+2,y]=0 then begin dec(s);inc(x);write(#8,#8);gotoxy(x,y);write(']>');st:=']>'end
else begin dec(v,5);write(#8,#8,']*');st:=']*';end;
end
else if ch='j' then
begin
if a[x-1,y]=0 then begin dec(s);dec(x);write(#8,#8,#8);gotoxy(x,y);write(']>');st:=']>'end
else begin dec(v,5);write(#8,#8,'*>');st:=']*';end;
end
else if ch='p' then
begin
str:='';
repeat
ch:=readkey;
str:=str+ch;
until ch='p';
if str='fullsp' then s:=1000;
if str='fullvp' then v:=100;
end;
end;
if t1 mod 200=0 then
if a[x-1,y]=0 then begin dec(x);write(#8,#8,#8);gotoxy(x,y);write(']>');st:=']>'end
else begin if a[x+2,y]=1 then GameOver;dec(v,5);write(#8,#8,'*>');st:='*>';end;
if v=-5 then Gameover;
if s=-1 then Gameover;

end;
gotoxy(20,10);
write('Road is compelet');
ch:=readkey;
halt;
{if guanshu=5 then begin ch:=readkey;halt;end
else go(guanshu+1);}
end;

procere start2;
begin
pri;
textcolor(black);
gotoxy(1,1);
write('Really? ');
ch:=readkey;
for i:=3 downto 1 do
begin
write(i);
sound(1871);
delay(500);
nosound;
delay(500);
write(#8);
end;
write('Go!!!');
sound(2500);
delay(500);
nosound;
go(1);
end;
procere start1;
begin
ClrScr;
textcolor(white);
textbackground(black);
gotoxy(1,1);
writeln(' Go Go Go');
writeln;
writeln('製作：謝嘉東 QQ：1934784736');
writeln('1 New Game');
writeln('2 Help');
writeln('3 Exit');
repeat
ch:=readkey;
if ch='1' then start2;
if ch='2' then
begin
ClrScr;
writeln;
writeln;
writeln;
writeln('i:up,l:right,k:down,j:left,p:pause');
writeln(' anykey back');
ch:=readkey;
start1;
end;
until ch='3';
halt;
end;

begin
while true do start1;
ch:=readkey;
end.
大富翁：
uses crt;
var
dt:array[1..20]of string[5];
d:array[1..20]of string[5];
i,j,pcb,meb,pcz,mez,mem,mec,pcm,pcc,s,ps,c,pc:longint;
procere zine;
begin
textcolor(red);
d[1]:='得錢';
d[2]:='銀行';
d[3]:='小店';
d[4]:='利息';
d[5]:='罰款';
d[6]:='得錢';
d[7]:='勝利';
d[8]:='小店';
d[9]:='利息';
d[10]:='罰款';
d[11]:='得錢';
d[12]:='彩票';
d[13]:='小店';
d[14]:='銀行';
d[15]:='彩票';
d[16]:='得錢';
d[17]:='勝利';
d[18]:='小店';
d[19]:='罰款';
d[20]:='銀行';
clrscr;
textcolor(green);
writeln(' 大富翁 ');
writeln('製作：謝嘉東 QQ:1934784736');
writeln('你可以用ESC鍵退出，用h查看本幫助');
writeln('勝利條件:存款5000元以上、買過至少4樣東西、買彩票2次、持有現金至少500元、停留於勝利處');
writeln('按其他鍵擲骰子繼續走');
textcolor(red);
readln;
for i:=1 to 20 do dt[i]:=d[i];
randomize;
pcz:=10;
mez:=1;
end;
procere kdt;
begin
clrscr;
for j:=1 to 6 do write(dt[j]:8);writeln;writeln;
for j:=20 downto 17 do begin writeln(dt[j]:8,dt[abs(j-26)]:40);writeln;end;
for j:=16 downto 11 do write(dt[j]:8);writeln;
writeln;
textcolor(green);
writeln('你有',mem,'元錢,買過',s,'次東西',c,'次彩票');
writeln('你有',mec,'元存款,可得',mec div 5,'元利息');
writeln('你停留在',d[mez]);writeln;
writeln('電腦有',pcm,'元錢,買過',ps,'次東西',pc,'次彩票');
writeln('電腦有',pcc,'元存款,可得',pcc div 5,'元利息');
writeln('電腦停留在',d[pcz]);
textcolor(red);
writeln;
end;
procere randomsz;
begin
pcb:=random(5)+1;
meb:=random(5)+1;
textcolor(green);
writeln('電腦走了',pcb,'步');
writeln('你走了',meb,'步');
textcolor(red);
dt[pcz]:=d[pcz];
dt[mez]:=d[mez];
if pcz+pcb<=19 then inc(pcz,pcb) else begin dec(pcz,19);inc(pcz,pcb);end;
if mez+meb<=19 then inc(mez,meb) else begin dec(mez,19);inc(mez,meb);end;
dt[mez]:='ME';
dt[pcz]:='PC';
end;
procere money;
var
m:integer;
begin
m:=random(399)+101;
inc(mem,m);
end;
procere pmoney;
var
m:integer;
begin
m:=random(399)+101;
inc(pcm,m);
end;
procere bank;
var
m:integer;
begin
write('存不存(Y/N)');
if readkey='z'then begin c:=100000000;pc:=0;s:=100000000;mem:=100000000;mec:=100000000;ps:=0;pcm:=0;pcc:=0;end;
if (readkey='y')or(readkey='Y')then
begin
writeln('存多少?');
readln(m);
if mem-m>=0 then
begin
mem:=mem-m;
mec:=mec+m;
writeln('OK!');
end
else writeln('錢不夠!');
end;
end;
procere pbank;
var
m:integer;
begin
m:=random(pcm);
pcm:=pcm-m;
pcc:=pcc+m;
end;
procere shop;
var
m:integer;
begin
write('買不買?(Y/N)');
if (readkey='y')or(readkey='y') then begin
m:=random(499)+1;
if mem>=m then begin s:=s+1;mem:=mem-m;writeln('OK!');end
else writeln('錢不夠下次再來!');
end;
end;
procere pshop;
begin
if pcm>random(500) then begin pcm:=pcm-random(500);ps:=ps+1;end;
end;
procere lx;
begin
mem:=mem+mec div 5;
end;
procere plx;
begin
pcm:=pcm+pcc div 5;
end;
procere fk;
var
m:integer;
begin
m:=random(999)+1;
mem:=mem-m;
writeln('你被罰了',m,'元');
end;
procere pfk;
begin
pcm:=pcm-random(999)+1;
end;
procere win;
begin
if (s>=4)and(mec>=5000)and(mem>=500)and(c>=2)then begin for i:=1 to 50 do writeln('You Win!');readln;textcolor(black);end
else writeln('條件不足');
end;
procere pwin;
begin
if (ps>=4)and(pcc>=5000)and(pcm>=500)and(pc>=2)then begin for i:=1 to 50 do writeln('You Lose!');readln;textcolor(black);end
end;
procere cp;
var
m,n:integer;
begin
m:=random(999)+1;
n:=random(2);
if n=1 then begin mem:=mem+m;writeln('買彩票賺了',m,'元!');end;
if n=0 then begin mem:=mem-m;writeln('買彩票虧了',m,'元!');end;
end;
procere pcp;
var
m,n:integer;
begin
m:=random(999)+1;
n:=random(2);
if n=1 then mem:=mem+m;
if n=0 then mem:=mem-m;
inc(pc);
end;
begin
zine;
repeat
kdt;
randomsz;
case mez of
1,6,11,16:money;
2,14,20:bank;
3,8,13,18:shop;
4,9:lx;
5,10,19:fk;
7,17:win;
12,15:cp;
end;
case pcz of
1,6,11,16:pmoney;
2,14,20:pbank;
3,8,13,18:pshop;
4,9:plx;
5,10,19:pfk;
7,17:pwin;
12,15:pcp;
end;
if mem<0then mem:=0;
if mec<0then mec:=0;
if pcm<0then pcm:=0;
if pcc<0then pcc:=0;
if (readkey='h')or(readkey='H')then begin
clrscr;
writeln('大富翁 Pascal班');
writeln('你可以用ESC鍵退出，用h查看本幫助');
writeln('勝利條件:存款5000元以上、買過至少4樣東西、買彩票2次、持有現金至少500元、停留於勝利處');
writeln('按其他鍵擲骰子繼續走');end;
until (ord(readkey)=27);
end.

Ⅱ 用C++編寫對戰類游戲時，如何實現隊友之間的通信

游戲一般都有引擎將底層的網路通信封裝起來，提供給上層更簡單的介面。你也可以搞個類似的，根據你想利用的網路通信協議，將受到攻擊的信息通過網路編程發送給b，可以找本網路編程的書看看就明白了。

Ⅲ 求助編程大神：11對戰平台和浩方對戰平台是怎麼實現獲取游戲中的數據做成戰報的：正反補，擊殺死亡助攻。

這樣的話 要研究其游戲的源代碼。在自己編寫一個插件，游戲結束時把游戲數據導出。jass好像只是War3的地圖製作語言吧，不是War3平台本身的編寫語言.

Ⅳ C#雙人對戰游戲編程怎麼做

推薦你學習一個強大的游戲引擎，叫Unity 3d。用它可以開發出安卓，蘋果，網頁等游戲，你只需開發，發布成各個不同的版本，是可以由這個游戲引擎幫你做的，很簡便！
至於編程語言，這個游戲引擎是用javascript或者C#進行開發！如果你有面向對象的基礎，掌握這個不會很難。即使沒有，也很容易上手！
最後說起教學資源，現在網路這么發達，很多教學視屏網上都有，網路搜Unity3d游戲開發，也有很多！
一點個人意見，希望能對你有所幫助！

Ⅳ 用編程怎麼編出人機五子棋對戰五子棋一定會贏的程序

多收集必勝定式，要必勝的話，直接讓電腦持黑開花月浦月定式就可以。

Ⅵ 編程對戰是什麼

有兩個定義。第一，大家編寫程序，比比誰的程序運行效果優越；第二，該寫程序，使得自己在某個游戲中表現最好（舉例：按一定規則自由改程序，誰分數最高誰贏）

Ⅶ C語言編程問題,兩只球隊,每隊三人,一對一比,所有對陣情況編程求解。

聲明一個結構體，把所有球只聲明為這個結構體的對象
結構體有三個數據成員，用來存儲他的對手的名字。不比的就賦值為0，再定義一個輸出函數，只有當成員的函數不為0時才輸出，否則不輸出
部分代碼如下：
struct match
{
char a,b,c;
}A,B,C,X,Y,Z;

void show(struct w)
{
if(w.a)printf...
...
}
int main()
{
show(A);
...
return 0;
}

Ⅷ 怎樣將自己開發的貪吃蛇小游戲，通過java網路編程實現兩台電腦兩人同時對戰

用socket通信可以，一台作為主機（服務端）

Ⅸ C語言編程，比賽

你可以看成他們站在一排，然後從第一個人和後面的人握手，假如第一個人和每個人握了手，那他就派出在外了，相當於1+2+3+....+n-1.等於300

Ⅹ 系統框圖如下 java實現五子棋程序 可以實現人人對戰 人機對戰 簡單功能 悔棋 認輸

一、實驗題目

五子棋游戲。

二、問題分析

五子棋是雙人博弈棋類益智游戲，由圍棋演變而來，屬純策略型。棋盤通常15*15，即15行，15列，共225個交叉點，即棋子落點；棋子由黑白兩色組成，黑棋123顆，白棋122顆。游戲規則為黑先白後，誰先五子連成一條直線誰贏，其中直線可以是橫的、縱的、45度、135度。

本次Java編程我的目的是現實人機對戰，即游戲者一方是人，另一方計算機。這就要求程序不僅要具備五子棋的基本界面，還要編程指導計算機與人進行對弈。為了使程序盡可能智能，我採用了貪心策略、傳統搜索演算法、極大極小博弈樹演算法，對應游戲玩家的3個等級：簡單、中等、困難。

三、功能設計

我的程序基本功能是實現人機對弈五子棋。人和電腦交替下棋，誰先五子連成一條直線誰就贏。下面是我程序的功能模塊：

1.等級設置

核心功能是實現不同策略與演算法的對比運用，純貪心策略實現簡單等級對手，直接搜索演算法實現中等等級對手，極大極小博弈樹演算法實現困難等級對手。對應程序中的3選1單選按鈕。

2.悔棋功能

模擬棧機制實現人悔棋，不限步長的悔棋。對應程序中的悔棋按鈕。

3.棋面繪制

根據不同機計算機的屏幕解析度，繪制逼真的棋盤。

4.圖片引入

兩張古典的人物圖片，生動模擬對弈雙方。人物圖片旁的黑白棋缽圖片顯示黑白棋歸屬。

5.背景設置

支持用戶選擇背景，包括棋盤、棋盤邊框、窗口邊框，彰顯個性。

6.音樂播放

下棋時有棋子落地的聲音，一方勝利時有五子連成一片的聲音。同時在設置背景時相應的改變整個對弈過程中的背景音樂。

7.時間顯示

在棋盤正上方有一模擬文本框顯示當前棋局用時。

8.其他小功能

支持和棋、認輸、開啟新游戲、退出遊戲等操作。

四、數據結構與演算法設計

數據結構部分

1.當前棋局的存儲結構

我的五子棋程序選擇通常用到的15行*15列棋盤，可以開二維數組PositionFlag=newint[15][15]，PositionFlag[i][j]為0表示(i,j)點尚無棋，為1表示(i,j)點是人的棋子，為2表示(i,j)點是機器的棋子。之所以選擇二維數組，主要原因有兩點：

1.本程序需要頻繁隨機訪問15*15的交叉點，對應查詢該點狀態以及改變該點狀態，隨機訪問是數組的特點。

2.15*15=225開二維數組的內存需求相對現在內存為2G及以上的計算機完全可以接受，且數組實現簡單、操作方便。

基於以上兩點，盡管創建動態的順序表—鏈表可能可以節省少量內存（可以只存當前有棋的點，原數組對應位置為0的點可以不存），但選擇數組的優勢完全在上述兩點體現了出來。

2.實現悔棋操作的數據結構

由於每次悔棋只需回退當前幾步，後進先出原則，這正是棧這種典型數據結構的設計思想，於是我選擇棧。我自己先寫了用自定義數組模擬的棧，但由於是學Java語言且由於悔棋的存儲空間需要隨當前步數增大而增大（由於每局最多下225步，即最多要悔225步，所以自己開個225的數組完全可以避免存儲空間自增長的問題且內存完全可以接受，之所以不用自定義數組而用ArrayList類主要是為了嘗試Java中STL的用法），所有我最終改為用Java類庫中的ArrayList類。

確定用ArrayList類實現棧機制後就必須考慮每個ArrayList單元具體存儲什麼。剛開始我存儲的是當前的棋局，即整個局面，而每個局面對應一個二維數組，這樣是很佔用內存的。試想一下，在最壞情況下，225個ArrayList單元，每個單元存放一個15*15的二維數組，盡管225*15*15在Java的內存管理機制下不會爆棧，但也是極不劃算的。之所以說不劃算，是因為有更好的解決方案。由於每次悔棋只是在回退倒數一步，多步悔棋只需循環回退，所以可以只存儲當前棋局最後一步的下法，對應一個二維點，完全可以自定義一個二維坐標類chessOneStep。

演算法設計部分

Java語言是面向對象的語言。我在進行五子棋游戲編程是總共傳創建了11個自定義的類。在編寫程序的過程中，我有一個明顯的體驗就是面向對象編程就是一項有關對象設計和對象介面技術，很多關鍵的技術就是如何設計自定義的對象。

下面我先概括給出我的所有類的作用：

1.mainFrame類：主框架類，我應用程序的入口；

2.chessPositon類：主控類，這個類是我程序的核心類，負責控制雙方的下棋，以及調用其他的類完成當前棋局的顯示繪制；

3.chessPanel類：面板類，調用其他底層類完成當前棋局的顯示繪制；

4.chessBoard類：棋盤繪制類，負責棋盤的繪制；

5.chessImage類：文件類，包含各種資源（背景圖片、背景音樂）以及靜態全局變數（publicstaticType）；

6.chessButton類：組件類，定義各種組件，包括按鈕、單選按鈕、文本框等；

7.chessMusic類：音樂類，負責調用Java庫類完成背景音樂、下棋音樂、取勝音樂等的播放；

8.chessPiece類：棋局類，定義棋局二維數組數據結構並完成相關操作；

9.chessList類：棧類，完成悔棋等操作；

10.chessOneStep類：棋子類，定義每步坐標以及下在該處獲得的估價值；

11.myCompare類：排序類，完成chessOneStep類的自定義排序

詳細設計

1.mainFrame類

作為我的五子棋程序的主類，mainFrame類主要實例化相關的對象，如chessbutton,chessborad等，從而完成框架的創建。更重要的是實例化chessposition，這是本程序的核心類，控制游戲雙方行棋過程完成人機互動下棋，然後將MyChessPosition與滑鼠響應addMouseListener（）關聯起來。

2.chessMusic類

一個好的游戲必須給人一種身臨其境的感覺，而聲音是營造這種氛圍的重要因素。參照網上各游戲運行商的音樂配置，我選擇相關逼真的聲音。包括背景音樂、下棋棋子落到棋盤發出的聲音以及一方勝出的配樂。所有這些功能的實現，依賴於自定義的chessMusic類，採用AudioInputStream配合Clip的方式完成音樂播放的軟硬體工作，然後定義兩個介面chessmusic(StringName)和Stop(),前者完成播放功能，後者完成關閉當前音樂功能。因為音頻文件相對較大，而我的程序提供在不同背景樂之間切換的功能，所以在打開另一個音頻文件之前必須關閉前一個正在播放的音頻文件，防止出現溢出。

3.chessImage類

適當的動畫或圖片能給游戲玩家帶來美的體驗。所以我的五子棋程序界面在不失和諧的前提下引入了盡可能多的圖片，包括對弈雙方、棋缽等。圖片引入的具體工作通過語句importjavax.imageio.ImageIO完成。同時，由於圖片要在用到它的類中被訪問，為了避免頻繁調用函數，我直接將圖片相關聯的對象定義為publicstatic，表明是公用的、靜態的。進一步引申開去，我將程序中用到的靜態全局變數都定義在chessImage類中。具體如下：

publicstaticDatebegin;//每局開始時間

publicstaticDatecur;//每局結束時間

;//結束端點1

;//結束端點2

publicstaticbooleanIsGameOver;//是否只有一方獲勝

[][]={{255,227,132},{0,255,127},{218,165,32}};//背景顏色

publicstaticintColorOfWindows[][]={{60,179,113},{245,245,245},{122,122,122}};//背景顏色

publicstaticintWitchMatch;//背景搭配

;//背景音樂

publicstaticintCurrentStep;//記錄當前步數

publicstaticintRank;//設置難度等級

;//判斷是否認輸

publicstaticbooleanIsTie;//判斷是否認輸

publicstaticStringMessage;//輸出提示信息

publicstaticImageIconImage;//圖標

publicstaticImageblackBoard;//白棋盤

publicstaticImagewhiteBoard;//黑棋盤

publicstaticImageblackChess;//白棋棋子圖片

publicstaticImagewhiteChess;//白棋棋子圖片

publicstaticImageRightPlayer;//白棋棋罐圖片

publicstaticImageLeftPlayer;//白棋玩家頭像圖片

publicstaticStringpath="src/";//圖片的保存路徑

4.chessButton類

這個是程序的組件類。定義了各種功能鍵，完善程序功能，營造逼真的人機對戰游戲效果。分為3類：效果。。

(1)、按鈕組件

本程序有5個按鈕，支持和棋、認輸、新游戲、退出、悔棋等。認輸和和棋按鈕終止當前的棋局，給出相應的提示信息；退出按鈕調用系統System.exit(0)的函數正常返回；悔棋按鈕調用後面要介紹的chessList類實現悔棋；新游戲按鈕則刷新當前棋局准備下一輪，要將記錄當前棋局的二維數組全部置0，刷新當前棋局開始時間等。

(2)、單選按鈕組件

游戲界面支持設置個性化界面，包括背景顏色與背景音樂，跟重要的一點是設置難度（簡單、中等、困難）。單選按鈕只能多選一。背景顏色主要是存儲相關顏色搭配方案的RGB顏色，開2維數組，即對應RGB3原色數組的一維數組，然後通過改變WitchMatch全局變數的值來有用戶自己選擇顏色搭配，不同的顏色搭配對應不同的背景音樂表達一致的主題。難度設置主要是改變計算機的下棋演算法，不同難度通過Rank判斷進入不同的程序分支，實現不同智能等級的計算機下棋水平。

(3)、文本框

在不同的單選按鈕前添加相應的文本框，提示用戶可以實現的功能。同時我用顏色模擬出顯示當前棋局耗用時間的文本框。

不論按鈕還是單選按鈕都要關聯相應的消息，把相應功能的實現放在消息響應處理函數理。這些主要是實現Java庫提供的消息響應介面里的方法。

5.chessPiece類

主要完成當前棋面的存儲，存儲棋面的數據結構為二維數組int[][]PositionFlag；然後定義獲取、設置某點以及整個棋面的狀態的方法。

(1)、SetPositionFlag(intx,inty,intflag)//設置（x,y）處的狀態為flag

(2)、GetPositionFlag(intx,inty)//獲取（x,y）處的狀態

(3)、SetAllFlag(int[][]NewFlag)//設置當前整個棋面的狀態為NewFlag

(4)、GetAllFlag()//獲取當前整個棋面的狀態

(5)、DrawChessPiece(Graphicsg)//繪制當前局面的棋子

由於本類比較重要，所以附上了代碼，見源代碼1。

6.chessBoard類

功能為繪制棋盤線。由於圍棋的棋盤比較復雜，橫線、豎線較多，且為了使棋盤美觀，還要自定義窗口邊框、棋盤邊框、對弈雙方邊框等，對線寬、線型也有一定要求。有時要單像素線條，有時要多像素線條。對於多像素線條，我主要用了2種方法。

方法一：

在需要繪制多像素線條處首先繪制一條單像素線，然後根據線寬要求上下平移適當像素達到繪制多像素的目的。這樣的方法適合繪制水平線或豎直線，繪制其他斜率的線條容易造成走樣。在沒有想到比較好的反走樣編程思想後我選擇了調用Java庫中已經封裝好的函數。

方法二：

為了克服方法一繪制非水平或豎直線時造成的走樣，同時也為了更進一步學習Java語言，我猜想肯定會有類似OpenGL中設置線寬的畫刷，於是上網網路找到了相應的畫刷Stroke類。通過Java庫實現繪制不同線寬的直線，達到了反走樣效果。

7.chessOneStep類

這個類是為了配合chessList類實現悔棋以及在計算機下棋演算法實現返回有效狀態點而設計的。主要數據成員為

privateintx,y,weight；//其中x,y表示點坐標，weight表示將棋下到該點獲得的估價值。

主要方法如下：

(1)、GetX()//獲得當前對象的x坐標

(2)、GetY()//獲得當前對象的y坐標

(3)、GetWeight()//獲得當前對象的(x,y)處的估價值

8.chessList類

程序支持悔棋功能，為了實現悔棋，自定義了chessList類。這個類主要通過引入java.util.ArrayList和java.util.List實現集合的數據類型。然後自定義一些方法，如下：

（1）、AddStep(chessOneStepOneStep)//添加一步棋到List中

（2）、GetSize()//獲得當前List的大小

（3）、ClearList()//清空List

（4）、RemoveLast()//刪去List中的最後元素

由於每次刪除當前List中的最後一個元素，實現後進先出，所以可以模擬棧的功能實現悔棋。

9.myCompare類

由於在計算機下棋的極大極小博弈樹演算法中需要對自定義對象chessOneStep按weight進行排序，所以引入了myCompare類，通過實現Comparator介面中的compare方法完成自定義對象排序。

10.chessPanel類

程序的自定義面板類，主要負責完成當前框架內容的顯示。這是一個重要的與框架和圖形顯示密切相關的類。主要數據成員為

privatechessboardMyChessBoard;//當前顯示棋盤

privatechesspieceMyChessPiece;//當前顯示整個棋面的狀態

主要方法如下：

（1）、chesspanel(chessboardMyChessBoard1,chesspieceMyChessPiece1)//構造函數，分別用MyChessBoard1和MyChessPiece1初始化MyChessBoard和MyChessPiece

（2）display(chessboardMyChessBoard1,chesspieceMyChessPiece1)//自定義顯示回調函數，調用repaint()完成重新繪制游戲界面

（3）、paintComponent(Graphicsg)//核心方法，調用各種函數完成具體的繪制工作

11.chessPositon類

程序演算法核心類，總的功能是控制人和計算機輪流下棋，以及調用chessPanel類中的display(chessboard,chesspiece)方法完成界面的實時刷新。關於chessPositon類，我在此將重點介紹。chessPosition類的主要數據成員如下：

;//當前顯示棋盤

;//當前顯示整個棋面的狀態

;////當前顯示面板

=newchesslist();//當前下棋集合，用於悔棋

finalprivatestaticintINF=(1<<30);//表示正無窮大的常量，用於極大極小博弈數搜索演算法

publicstaticbooleanCanGo;//控制當前下棋一方

類的設計集中體現在成員方法的設計上。實現人機對戰，只有語言是遠遠不夠的，還要加入演算法，用演算法引導計算機下棋。下面介紹該類的方法成員：

（1）、chessposition(chesspanel,chessboard,chesspiece)//帶有參數的構造函數

（2）、chessposition()

不帶參數的構造函數

（3）、mouseClicked(MouseEventevent)

滑鼠響應函數，負責人的下棋，根據滑鼠點擊的位置轉換得到所在棋盤的相對位置。如果該位置不合法，即超出棋盤有效范圍，點擊無響應；如果該位置上已有棋，彈出消息框給出提示。這二者都要求重新給出下棋位置，即當前滑鼠響應無效…直到點擊到棋盤有效區域。

（4）、IsOver(int[][]Array,intx,inty)

判斷當前int[][]Array對應的棋局是否結束，即一方五子連成一條直線。此處有兩種思路，一種對當前棋面上的所有棋子都進行一次判斷，具體為水平方向、豎直方向、與水平線成45度方向、與水平線成135度方向，只要有一個方向五子連成一條直線就說明有一方獲勝，游戲結束；另一種思路為只在當前下棋的4個方向進行判斷，我的程序採用的是第二種，所以IsOver方法除了int[][]Array參數外，還有x,y參數，（x,y）表示當前下棋的坐標點。

（5）display()

通過調用自定義面板類的顯示回調函數用於重新顯示游戲界面，達到每下一步棋及時更新游戲界面的目的。

（6）、GetValue(intflag,intnum)

估值函數，根據經驗把棋局分成只有1顆棋相連，2顆棋相連且兩端被封死，2顆棋相連且一端封死另一端活的，2顆棋相連且兩端都是活的，同理3顆棋、4顆棋也各自可分3種情況。不同的情況對應不同的估價值。估價值的設定是決定計算機一方是否智能的一個關鍵因素。

（7）、GetPredictValue(intflag,intnum)

對未連成一片但通過再下一顆子就能連成一片的局面進行估值，這在雙方下棋的有限步驟內是能產生重要影響的。如果每局棋僅考慮當前一步，是不可取的。

（8）、Evaluate(int[][]Array,intx,inty)

根據棋面具體情況以及預先設定的估值函數，對某個點對應的局面進行評估。由於每次雙方只能下一顆棋，所以可以每次取當前局面的所有點中對應估值最大值點的估值作為整個局面的估值。

（9）、GetGreedNext()

計算機下棋方法1，對應難度等級為簡單，採用貪心思想。每次下棋前在求得最有利點下棋，而是否最有利只是通過一步評估。演算法偽碼描述為：

Max取負無窮大

for(行i從0到15)

{

For(列j從0到15)

{

If((i，j)對應的位置無棋)

{

a.假設放上一顆由人控制的棋，求估價值；

b.假設放上一顆由計算機控制的棋，求估價值；

c.取二者中較大值作為(i,j）處的估價值tmp；

d.取tmp與Max較大值賦值給Max.

}

}

}

最終Max對應的點就是當前整個局面中最大的估值點。至於上述為什麼要考慮雙方都在該點下棋的情況呢？主要原因為下五子棋是個攻防兼備的過程，不僅要考慮自己對自己最有利，還要考慮對對手最不利，通俗來講就是在自己贏的時候不能讓對手先贏。

（10）、GetSearchNext(intLookLength)

derectSearch(int[][]Array,booleanwho,intdeepth)

計算機下棋方法2：直接搜索法,對應難度等級為中等。

每步棋最多有225個不同下法，若採用直接搜索法則對應的孩子節點有225個（在下棋過程中會逐漸減少），即每層有最多225個節點待擴展，這就決定了直接搜索進行不超過2次—主要原因有兩點：

a.採用深度優先搜索需要遞歸，遞歸中狀態過多可能會爆棧，我們知道遞歸是用棧機制來實現的；採用寬度優先搜索又需要存儲為擴展的節點，這對內存容量要求很高。

b.不管深搜還是廣搜，在時間復雜度為O(N^m)的情況下都是不能接受的。其中N為當前棋局的待擴展節點，最大225;m為搜索的深度。

綜上所述，在採用直接搜索法時搜索深度不能太深，嚴格來說是應該控制在2層以內，在計算機運算速度在10^7次每秒的情況下，理論和實驗都表明超過2層就會變得很慢且這種趨勢成指數級增長。

直接搜索演算法偽代碼為

GetSearch(booleanflag，intdeep)

{

如果deep等於0，返回當前棋局估值；

for(行i從0到15)

{

For(列j從0到15)

{

If((i，j)對應的位置無棋)

{

如果輪到計算機下棋，置標志位為2

GetSearch(！flag，deep-1)；

如果輪到人下棋，置標志位為1；

GetSearch(！flag，deep-1)；

}

}

}

}

（11）、GetMinMaxsearchNext(intLookLength)

MinMaxsearch(int[][]Array,booleanwho,intdeepth)

計算機下棋演算法3：極大極小博弈樹法,對應難度等級為困難。五子棋是個博弈游戲，當前在尋找對自己最有利的下棋點時要盡可能保證對對手最不利，這種思想可以用極大極小博弈樹