PDA

View Full Version : Source Caro Người - Máy



quangvu
16-11-2002, 09:51
Hi All .
Mấy . . . tuần trước có bạn trong Box xin mình source Caro bằng Java ,nhưng mình khá bận nên không Post lên được .Mong các bạn thông cảm.
1. Chương trình viết bằng Java Applet ,vì vậy bạn chỉ cần chạy file "Caro Game.html" băng IE là có thể đánh caro với máy được rồi đó :)
2. Source Code của Caro la "JavaCaro.java" ,vân chỉ một file duy nhất.
3.Chương trình này của một tác giả nước ngoài ,xin vui lòng đừng sửa tên tác giả thành . . . tên mình.Nếu bạn phát triển thêm bạn phải ghi "Developed by" trước hoặc sau tên tác giả.
Chúc thành công .

phoenix
16-11-2002, 23:56
Cám ơn Quang Vũ nhá, nhưng anh có source viết bằng C ko vậy?

quangvu
19-11-2002, 09:30
Cũng có ,nhưng mất tích rùi .

anhcntt2000
19-11-2002, 16:10
bạn phoenix ơi!
ban muốn source caro bàng c uh!
không khó đâu bạn!
bạn không biết lập trình caro và cách lập trình ra sao không!
mình giúp cho bạn!

nmd
19-11-2002, 21:06
Các anh chị có thể nói giải thuật cho người và máy ra sao không?

phoenix
19-11-2002, 23:53
Phoenix muốn viết với heuristic, đã có thuật giải rồi nhưng chưa xây dựng được cấu trúc dữ liệu phù hợp. anhcntt2000 có thể mail cho phoenix để trao đổi thêm.
phoenix@ddth.com

quangvu
28-11-2002, 09:04
Thuật toán Caro chủ yếu dùng Alpha - Beta (dành cho các trò chới đối kháng đối kháng) ,các bạn có thể tìm đọc tài liệu ở đây : http://www.cecs.csulb.edu/~hill/cecs325/AI%20Game%20Theory.doc
Chúc thành công .

Khanh Ky
28-11-2002, 21:27
Mấy bồ ơi! Có ai có game viết bằng VC cho mình source được không ? Mình cần lắm cám ơn trước nha!!!

khanh_phunhuan
02-12-2002, 17:02
Gửi quangvu , file caro.zip của bạn khi tải về không thể bung nén được vì missing 2 bytes . Đề nghị gửi lại file này cho anh em.

phoenix
03-12-2002, 23:49
tui load về được mà, khanh_phunhuan down lại thử xem

TQ268
17-12-2002, 11:56
Ca rô bằng VC hả để nay mai tôi post lên cho ha,CT này chơi cũng khá.

assault
17-12-2002, 20:38
Ủa ,sao mình down không được,nó hiện ra 1 site nào rồi DOne luôn.

guardian
31-12-2002, 00:55
Quang Vũ oi, đề nghị upload lại file đi. Sao mình tải hoài hổng được. (không biết có phải do server bị down không nữa)

tinystar
31-12-2002, 20:43
Xin chào tất cả, đây là bài tham gia đầu tiên của mình nên có gì xai xót mong các bạn bỏ qua, hi hihi.

Caro hả ? VC++, Pascal, Java, vào đây tham khảo và cho ý kiến thử nhé, mình chỉ dùng heuristic không thôi, không cần dùng các thuật toán tìm kiếm,chạy lâu lắm.

Thân

dreamboy812002
01-01-2003, 15:48
Chào cả nhà,sao mình không download được cái file caro.zip của bác Quang Vũ nhỉ,khi down thì nó link tới 1 đống warnings,nói là server không có file nào như vậy??!!Có ai bị tình trạng giống như mình không vậy..??!!Ai download được thì làm ơn chỉ cách cho mình với,thanks a lot
Ah,xin hỏi bác TinyStar là bác nói "vào đây tham khảo và cho ý kiến " nghĩa là vào đâu vậy..??

quangvu
02-01-2003, 10:07
Híc ,Source Caro bạn liên hệ với Phoenix lấy Source đi .và nhắn Phoenix post Source lên DD luôn .

phoenix
03-01-2003, 19:57
source của Quang Vũ đây

phoenix
03-01-2003, 19:58
thử xem có down được ko?

quangvu
03-01-2003, 20:31
Thanks Phoenix ,mình down ngon lành .Chắc ổn rồi .

dreamboy812002
03-01-2003, 22:16
cool. Down ngon rồi...Thanks các bác nhiều nha..:)

psychotic
03-01-2003, 22:29
chà hay qúa....................tôi đang cần cái này đây :)
Tôi có viết một cái java caro applet nhưng không phải là người và máy mà là 2 người qua mạng dùng socket và thread có bác nào muốn lấy không.

tinystar
04-01-2003, 15:40
Xin lỗi các bác, em quên để lại link : www.geocities.com/masterthts
Trong đó có cả source của game Lines'98 viết bằng VB, VC++, Java (hic nhái thôi)

haji
05-01-2003, 02:44
hix , www.geocities.com bị VDC firewall rùi , ngại dùng proxy quá

tinystar
05-01-2003, 12:15
Em chưa có điều kiện chuyển chỗ, mong các bác thông cảm.

always_smile
05-01-2003, 18:51
bà con ui tui cũng down Ko được nè bạn gì đó ui kiểm tra lại xem
Một đống warning fo hèn bạn đã lỡ giúp rồi thì giúp cho tận tình đi mà bạn !!!!1 Cảm Ơn nhiều

Hẹn có dịp trao đổi thêm

Have a nice day
Nice to see you and See you again!

tinystar
05-01-2003, 19:22
Bác nào ở nước ngoài thì down rồi up lên cho bà con giùm đi, mình ở trong nước net chuối quá nên làm chậm lắm mà up hoài không được.

vào đây down rồi up lên đây cho bà con : (Caro, Demo Lines'98 : VB, VC++, Java)
www.geocities.com/masterthts

vison
06-01-2003, 00:34
Bà con có thể vào địa chỉ của chúng tôi :http://news.hut.edu.vn/fitweb/BKGames/Caro/ để download chương trình games có mã nguồn đầy đủ

tinystar
06-01-2003, 14:12
Các bác dùng thử rồi cho em ý kiến nhé.

tinystar
06-01-2003, 21:47
source đây

jellydn
24-01-2007, 10:51
bên diendantinhoc.org phần tutorial có hướng dẫn giải thuật mọi người qua đó đọc va thực hiện thử nghe

prehension
03-02-2007, 19:09
ai có source caro viết bằng c++ post lên cho mình xem với! đang cần gấp , gửi vào ledinhlong2202@yahoo.com.vn cũng được thx

chercercer
06-02-2007, 17:00
Các bạn xem qua game Caro của mình đi : http://ddth.com/showthread.php?t=97815

Nếu thấy hay và thích thì mình post code lên cho !

vmhuong
11-02-2007, 22:00
Bằng Java tui cũng có một bản góp với anh em

vmhuong
11-02-2007, 22:11
Bà con có thể vào địa chỉ của chúng tôi :http://news.hut.edu.vn/fitweb/BKGames/Caro/ để download chương trình games có mã nguồn đầy đủ

Sao tui không vào được địa chỉ này vậy

chercercer
13-02-2007, 22:01
Anitsoft Caro Chess - The best caro game

Anitsoft Caro Chess 4.0 Beta
http://anitsoft.googlepages.com

http://i100.photobucket.com/albums/m33/chercercer/image003.gif

Cờ caro là một trò chơi dân gian có từ lâu đời nay, hiện nay nó rất phổ biến trong giới học đường. Từ nhu cầu giải trí đó, đã có rất nhiều hãng đã sản xuất trò chơi caro trên máy tính, giúp cho việc chơi cờ caro được dễ dàng hơn, và bạn có thể đánh cờ với máy mà không cần một người bạn thực sự. Cũng với mục đích trên, chúng tôi đã sản xuất ra loạt game cờ caro mang tên : Anitsoft Caro Chess với một thiện ý cao đẹp và hoàn toàn miễn phí. Điểm đặc biệt trong Anitsoft Caro Chess 4 mà ít các game caro khác có được là tính năng đa luật và đa người chơi. Ngoài ra Anitsoft Caro Chess còn có rất nhiều tính năng ưu việt khác.

http://i100.photobucket.com/albums/m33/chercercer/ANIT01V4D0-SS01.png

Download tại : http://anitsoft.googlepages.com/ANIT01V4D0.exe ( 768 KB )
Xem thông tin chi tiết tại : http://anitsoft.googlepages.com/product_id%3D01

Đây là phần mềm của mình làm vất vả trong 2 tháng trời. Mong các bạn ủng hộ mình nha. Các bạn hãy tải về và chạy thử. Nếu phát hiện ra lỗi hoặc có góp ý thì hãy liên hệ với mình :
Email : anitsoft@gmail.com
Y!M : hieubm1989

-- Đây chỉ là bản Beta để mình và các bạn còn còn test lỗi. 18/02/2007 sẽ phát hành bản chính thức --

Nếu anh em thích thì tui sẽ upload mã nguồn cho tham khảo

homesweethome
18-07-2007, 21:00
Mấy link thì die hết cả
source code caro thì rõ dài mà đa số là trình độ bình thường .
source code caro của tôi chỉ 20 dòng mà trình độ cũng gần như thế.
Mà sao không ai thảo luận về thuật toán caro nhỉ ?
Như thế sẽ sôi nổi hơn nhiều đấy.

homesweethome
18-07-2007, 21:06
Luật caro cũ thì đi trước là surewin.
Thêm luật 5 chặn 2 đầu không thắng cũng không tạo ra sự công bằng.
Luật caro của tôi thì đảm bảo đi sau không bị thiệt :

Nước đầu tiên đánh 1 quân.
Các nước khác đánh 2 quân.
6 quân thẳng liền nhau là thắng.

Các bạn cùng nghiên cứu lập trình theo luật mới này nhé.

dat@
18-07-2007, 21:18
Bạn có thể post cái caro 20 dòng của bạn lên tôi test thử chút dc ko?

homesweethome
18-07-2007, 21:24
TC++3.0 caro.cpp

#include<dos.h>
#include<string.h>
#include<graphics.h>
#define f(a,b)for(a=-1;++a<b; )
#define j(z)_AX=z;geninterrupt(51);
#define t(e)f(j,9)s[j]=P(x+(j-4)*e)+65;r(0)r(1)
#define O(b,a)if(b){j(2)settextstyle(0,0,3);outtextxy\
(200,150,a);settextstyle(0,0,1);delay(999);clearde vice();goto B;}
#define o(a,d)setcolor(a);j(2)outtextxy(z%32*19+7,z/32*19+7,d);j(1)p[n++]=z;
#define b(F,e,a,G,L,I,T,C,M,K)l(x){j(3)a _BX==x;}char s[10],*v[20]={"BBBBB\
","ABBBBA","ABBBBC","CBBBBA","BABBB","BBBAB","AABBBAA","AABBABAA","AABABBA\
A","AABBAA","CCCCC","ACCCCA","ACCCCB","BCCCCA","CACCC","CCCAC","AACCCAA","\
AACCACAA","AACACCAA","AACCAA"};int n,z,m,x,y,i,j,d=0,*p,u[20]={M,60,23,23,\
20,20,13,13,13,9,K,40,9,9,7,7,5,5,5,4};P(k){d=n;e(--d&&(k-p[d]));F(d)a d%2\
+1;else a 0;}w(z){setviewport(z,z,11,11,0);f(i,25){L(0,I,K,I );L(I,0,I,K);}\
}main(){initgraph(&d,&d,"");setbkcolor(7);j(0)B:n=1;C(15);w(11);C(8);w(10)\
;outtextxy(100,63,"Copyright@ MINH HUONG DOAN BKTin4K49");\
j(1)e(1){r:e(l(1));e(!l(1))F(l(2))G E;j(3)x=_CX;y=_DX;F(P(z=(x-10)/19+(y-\
10)/19*32))G r;o(1,"X")x=z;m=0;T O((m>399)&&(m<M),"YOU WIN")y=0;f(i,576\
)F(!P(x=i+i/24*8)){m=0;T F(m>y){y=m;z=x;}}o(4,"O")O(y>=M,"I WIN")}E:}
#define r(e)s[4]=66+e;f(j,10)if(strstr(s,v[j+10*e]))m+=u[j+10*e];
b(if,while,return,goto,line,19*i,t(1)t(31)t(32)t(3 3),setcolor,999,456)

dat@
19-07-2007, 07:40
Hix gởi file exe đi bạn :(

homesweethome
19-07-2007, 07:54
Có thể 0 chạy dc trên Vista đâu

phanmemmamnon@gm
13-08-2007, 11:24
caro.zip chơi dzơ lắm đừng down

mykenty
13-08-2007, 13:14
lập trình gì dễ ăn wa' bạn làm thuật toán sao khó khó lên nhé :emlaugh: máy chặn theo cảm tính ko ah hay là mình đánh ghê wa':noexpress

hondacodonbk
14-08-2007, 01:37
hic,sao em down mấy cái code game caro của mấy bác hông đc vậy,mấy pác up lên boxnet hay rapid dùm em đc hông.do đang học C++ nên cần code để nghiên cứu thêm
thank

nnck
15-08-2007, 09:47
Cho minh xin code di nha!

phamduong
05-10-2007, 03:29
Có thể 0 chạy dc trên Vista đâu
Làm ơn cho xin cái code duoc Ko ?

whitepenguin
05-10-2007, 07:39
To HomeSweetHome : Chươhg trình của bạn bị lỗi về thuật toán rồi
Mình đánh nhau với máy 1 trận và cố tình chặn nó hết đường , cu6oi1 cùng nó đi nước bậy ,đến nỗi mình có 6 con liền nhau theo đường chéo mà nó vẫn không cho mình Win :D ,ấy thế mà mình cố tình đánh không chặn nó ván đó ,nó để 5 con liền nhau ăn mình luôn .
Sang ván sau mình đánh với nó tiếp ,nhưng lần này thì cứ 2 con liền nhau nắm trên đường chéo là no cho win

Và cứ thế sang trận khác cũng quy luật "Sudden Death" ,2 con nằm trên đường chéo là ăn :D, cuối cùng đến ván thứ 5 nó chịu không nỗi ,văng luôn
Mình xài windows XP

Mình tính chụp cái Screen Shot để bạn coi những Mình không chụp đưỡc bằng PrintScreen

whitepenguin
05-10-2007, 08:05
Huhuhu nó ăn gian quá ,đánh không lại em , chơi đểu

taonekat
13-11-2007, 22:44
Cho mình xin cái source java với, sao down hoài kô được vậy??

haimai
16-11-2007, 19:36
Có thể 0 chạy dc trên Vista đâu

Víta cũng chơi tốt bạn ah

quandaica
11-04-2008, 22:25
Có thể 0 chạy dc trên Vista đâu
bó tay quá hok thể down dc ah ,up len boxnet di ban oi

hotboy659
03-05-2008, 20:19
mình đang lam niên luận về cảo nguoi va máy nè??? hic hic.. nhưng minh ko hiểu giai thuat, ban nao co source cảo nguoii va may viet bằng c++ thì cho minh nhe.. thank u vẻy much,,,

ntnlan_6th1
10-07-2008, 12:35
tui lấy source line k dược có thể gửi cho tui k vitxauxi1986@yahoo.com.vn. Cám ơn nhìu ^^

ntrongdangkhoa
11-07-2008, 21:04
#include <stdio.h>
#include <conio.h>
#include <math.h>
#include <stdlib.h>
#include "dos.h"
int longpro=0;
void Writesxy(int x,int y,char *ch,int col)
{
gotoxy(x,y);
textcolor(col);
cprintf("%s",ch);
}
int DemChanThu(int A[10][100],int m,int n,int x,int y,int nx,int ny,int flag)
{
int demchan=1;
int tx=x+nx,ty=y+ny;
while ((A[ty][tx]!=flag || A[ty][tx]==0)&& ty>=0 && ty<n && tx>=0 && tx<m)
{
demchan++;
tx=tx+nx;
ty=ty+ny;
}
tx=x-nx,ty=y-ny;
while ((A[ty][tx]!=flag || A[ty][tx]==0)&& ty>=0 && ty<n && tx>=0 && tx<m)
{
demchan++;
tx=tx-nx;
ty=ty-ny;
}
return demchan;
}
int DemChanCong(int A[10][100],int m,int n,int x,int y,int nx,int ny,int flag)
{
int demchan=1;
int tx=x+nx,ty=y+ny;
while ((A[ty][tx]==flag || A[ty][tx]==0)&& ty>=0 && ty<n && tx>=0 && tx<m)
{
demchan++;
tx=tx+nx;
ty=ty+ny;
}
tx=x-nx,ty=y-ny;
while ((A[ty][tx]==flag || A[ty][tx]==0)&& ty>=0 && ty<n && tx>=0 && tx<m)
{
demchan++;
tx=tx-nx;
ty=ty-ny;
}
return demchan;
}
int DemThu(int A[10][100],int m,int n,int x,int y,int nx,int ny,int flag)
{
int dem=0;
int tx=x+nx,ty=y+ny;
while (A[ty][tx]!=flag && A[ty][tx]!=0 && ty>=0 && ty<n && tx>=0 && tx<m)
{
dem=dem+2;
tx=tx+nx;
ty=ty+ny;
}
if (A[ty][tx]==0 && ty>=0 && ty<n && tx>=0 && tx<m)
{
dem=dem+1;
}
tx=x-nx,ty=y-ny;
while (A[ty][tx]!=flag && A[ty][tx]!=0 && ty>=0 && ty<n && tx>=0 && tx<m)
{
dem=dem+2;
tx=tx-nx;
ty=ty-ny;
}
if (A[ty][tx]==0 && ty>=0 && ty<n && tx>=0 && tx<m)
{
dem=dem+1;
}
return dem;
}
int DemCong(int A[100][100],int m,int n,int x,int y,int nx,int ny,int flag)
{
int dem=0;
int tx=x+nx,ty=y+ny;
while (A[ty][tx]==flag && ty>=0 && ty<n && tx>=0 && tx<m)
{
dem=dem+2;
tx=tx+nx;
ty=ty+ny;
}
if (A[ty][tx]==0 && ty>=0 && ty<n && tx>=0 && tx<m)
{
dem=dem+1;
}
tx=x-nx,ty=y-ny;
while (A[ty][tx]==flag && ty>=0 && ty<n && tx>=0 && tx<m)
{
dem=dem+2;
tx=tx-nx;
ty=ty-ny;
}
if (A[ty][tx]==0 && ty>=0 && ty<n && tx>=0 && tx<m)
{
dem=dem+1;
}
return dem;
}
float mu4(int n)
{
long T=1;
for (int i=1;i<n/2;i++)
{
T=T*4;
}
if (n%2!=0)
{
T=T*2;
}
return T;
}
float ValueThu(int A[100][100],int m,int n,int x,int y,int flag)
{
int dem;
long S;
dem=DemThu(A,m,n,x,y, 1, 0,flag);
if (DemChanThu(A,m,n,x,y, 1, 0,flag)<5)
{
dem=dem-4;
}
if (dem>=9)
{
dem=dem+4;
}
S=mu4(dem);
dem=DemThu(A,m,n,x,y, 0, 1,flag);
if (DemChanThu(A,m,n,x,y, 0, 1,flag)<5)
{
dem=dem-4;
}
if (dem>=9)
{
dem=dem+4;
}
S=S+mu4(dem);
dem=DemThu(A,m,n,x,y, 1, 1,flag);
if (DemChanThu(A,m,n,x,y, 1, 1,flag)<5)
{
dem=dem-4;
}
if (dem>=9)
{
dem=dem+4;
}
S=S+mu4(dem);
dem=DemThu(A,m,n,x,y, 1,-1,flag);
if (DemChanThu(A,m,n,x,y, 1, -1,flag)<5)
{
dem=dem-4;
}
if (dem>=9)
{
dem=dem+4;
}
S=S+mu4(dem);
return S;
}
float ValueCong(int A[100][100],int m,int n,int x,int y,int flag)
{
int dem;
long S;
dem=DemCong(A,m,n,x,y, 1, 0,flag);
if (DemChanCong(A,m,n,x,y, 1, 0,flag)<25)
{
dem=dem-4;
}
if (dem>=9)
{
dem=dem+4;
}
S=mu4(dem);
dem=DemCong(A,m,n,x,y, 0, 1,flag);
if (DemChanCong(A,m,n,x,y, 0, 1,flag)<5)
{
dem=dem-4;
}
if (dem>=9)
{
dem=dem+4;
}
S=S+mu4(dem);
dem=DemCong(A,m,n,x,y, 1, 1,flag);
if (DemChanCong(A,m,n,x,y, 1, 1,flag)<5)
{
dem=dem-4;
}
if (dem>=9)
{
dem=dem+4;
}
S=S+mu4(dem);
dem=DemCong(A,m,n,x,y, 1,-1,flag);
if (DemChanCong(A,m,n,x,y, 1, -1,flag)<5)
{
dem=dem-4;
}
if (dem>=9)
{
dem=dem+4;
}
S=S+mu4(dem);
return S;
}
int CapDo(long A)
{
return int (log(A)/log(4));
}
void ComPlay(int A[100][100],int m,int n,int flag)
{
if (longpro==0)
{
int cx,cy;
int i,j;
int a=0;
for (i=0;i<n;i++)
{
for (j=0;j<m;j++)
{
if (A[i][j]!=0)
{
if (j>m/2)
cx=j-1;
else
cx=j+1;
if (i>n/2)
cy=i-1;
else
cy=i+1;
A[cy][cx]=flag;
longpro=1;
a=1;
break;
}
if (a==1)
{
break;
}
}
}
if (a==0)
{
A[n/2-1][m/2-1]=flag;
longpro=1;
}
}
else
{
int Cx,Cy;
int i,j;
unsigned long Cv,Ctv;
for (i=0;i<n;i++)
{
for (j=0;j<m;j++)
{
if (A[i][j]==0)
{
Cx=j;
Cy=i;
Cv=ValueCong(A,m,n,j,i,flag);
Ctv=ValueThu(A,m,n,j,i,flag);
break;
}
}
}
int Tx,Ty;
unsigned long Tv,Tcv;
for (i=0;i<n;i++)
{
for (j=0;j<m;j++)
{
if (A[i][j]==0)
{
Tx=j;Ty=i;
Tv=ValueThu(A,m,n,j,i,flag);
Tcv=ValueCong(A,m,n,j,i,flag);
break;
}
}
}
for (i=0;i<n;i++)
{
for (j=0;j<m;j++)
{
if (A[i][j]==0)
{
unsigned long Nc=ValueCong(A,m,n,j,i,flag);
unsigned long Ntv=ValueThu(A,m,n,j,i,flag);
if(( CapDo(Cv)==CapDo(Nc) && CapDo(Ctv)<CapDo(Ntv) )||(Cv<Nc))
{
Cv=Nc;
Cx=j;
Cy=i;
Ctv=Ntv;
}
unsigned long Nt=ValueThu(A,m,n,j,i,flag);
unsigned long Ncv=ValueThu(A,m,n,j,i,flag);
if(( CapDo(Tv)==CapDo(Nt) && CapDo(Tcv)<CapDo(Ncv) )||(Tv<Nt))
{
Tv=Nt;
Tx=j;
Ty=i;
Tcv=Ncv;
}
}
}
}
if (CapDo(Tv)>CapDo(Cv))
{
A[Ty][Tx]=flag;
}
else
{
A[Cy][Cx]=flag;
}
}
}
void BanCo(int m,int n)
{
Writesxy(1,1,"Ú",7);
Writesxy(m*2+2,1,"Ä¿",7);
Writesxy(1,n+2,"À",7);
Writesxy(m*2+2,n+2,"ÄÙ",7);
for (int i=1;i<=m;i++)
{
Writesxy(i*2,1,"ÄÂ",7);
}
for (i=1;i<=m;i++)
{
Writesxy(i*2,n+2,"ÄÁ",7);
}
for (i=2;i<=n+1;i++)
{
Writesxy(1,i,"Ã",7);
}
for (i=2;i<=n+1;i++)
{
Writesxy(2*m+2,i,"Ä´",7);
}
for (i=1;i<=m;i++)
{
for (int j=2;j<=n+1;j++)
{
Writesxy(i*2,j,"ÄÅ",7);
}
}
gotoxy(1+m/2*2,1+(n/2));
}
/*
ÚÄÂÄ¿
ÃÄÅÄ´
ÀÄÁÄÙ
*/
void ManPlay(int A[100][100],int m,int n,int& x,int& y,char& ch)
{
do
{
gotoxy(x*2+3,y+2);
ch=getch();
switch (ch)
{
case 72:if (y>0) { y--;} break;
case
80:if (y<n-1) { y++;} break;
case 75:if (x>0) { x--;} break;
case 77:if (x<m-1) { x++;} break;
case 27:exit(0);break;
}
}
while ((ch!=32 || A[y][x]!=0) && ch!=27);
A[y][x]=2;
}
void ConCo(int A[100][100],int m,int n)
{
for (int i=0;i<n;i++)
{
for (int j=0;j<m;j++)
{
if (A[i][j]==1)
{
Writesxy(j*2+3,i+2,"O",12);
}
if (A[i][j]==2)
{
Writesxy(j*2+3,i+2,"X",14);
}
}
}
}
void main()
{
int m=30,n=20;
int x=m/2;
int y=n/2;
char ch;
int A[100][100]={0};
textmode(3);
clrscr();
BanCo(m,n);
do
{
ManPlay(A,m,n,x,y,ch);
ConCo(A,m,n);
ComPlay(A,m,n,1);
ConCo(A,m,n);
}
while (ch!=27);
getch();
}
Cái này hy vọng có ích

phuckitty
14-07-2008, 15:09
Cảm ơn bạn. Cái này đúng là cái mình cần.

caibang9tui
17-07-2008, 00:24
Cờ ca rô thì cứ giải thuật Alpha - Beta mà giã. Đảm bảo đánh ổn ngay

Yukiyaro
18-07-2008, 21:18
thế pác có viết dc cái Caro = C++ dc k nhỉ???

[=========> Bổ sung bài viết <=========]

cái sourse này hình như chưa hoàn chỉnh.Mình chạy thử thì chương trình báo tồn tại 5 lỗi.

liem_nguyen
22-12-2008, 13:48
bac nao co soure C# game Truc xanh send cho nminh nha email:liem_nguyen50@yahoo.com

wantto
29-12-2008, 22:52
sao link chẳng co j vậy bác tinystar?

chieclasat
24-06-2010, 12:36
Bằng Java tui cũng có một bản góp với anh em
hic, seo em hổng tải được nhỉ T_T

thachthucquy
06-11-2010, 20:21
ai còn source code ct này ko ,up lên dùm mình với
link bị die òy

dinhnhi
09-11-2010, 08:30
caro offline
link : http://sourceforge.net/projects/caro/

Chienthan1612
17-05-2012, 17:44
bạn nào có biết code caro theo thuật toán negascout+surewin k? hay bạn nào có source bcaro,gomoku teminator,fiver share mình tham khảo với

Chienthan1612
18-05-2012, 17:19
Sao mấy file đính kèm k download được vậy