&>&C#围棋程序源代码下载
C#围棋程序源代码下载
上传大小：36KB
C#围棋程序源代码,在Visual C#速成版集成环境中编译通过,简单易用.
综合评分：4
下载个数：
{%username%}回复{%com_username%}{%time%}\
/*点击出现回复框*/
$(".respond_btn").on("click", function (e) {
$(this).parents(".rightLi").children(".respond_box").show();
e.stopPropagation();
$(".cancel_res").on("click", function (e) {
$(this).parents(".res_b").siblings(".res_area").val("");
$(this).parents(".respond_box").hide();
e.stopPropagation();
/*删除评论*/
$(".del_comment_c").on("click", function (e) {
var id = $(e.target).attr("id");
$.getJSON('/index.php/comment/do_invalid/' + id,
function (data) {
if (data.succ == 1) {
$(e.target).parents(".conLi").remove();
alert(data.msg);
$(".res_btn").click(function (e) {
var parentWrap = $(this).parents(".respond_box"),
q = parentWrap.find(".form1").serializeArray(),
resStr = $.trim(parentWrap.find(".res_area_r").val());
console.log(q);
//var res_area_r = $.trim($(".res_area_r").val());
if (resStr == '') {
$(".res_text").css({color: "red"});
$.post("/index.php/comment/do_comment_reply/", q,
function (data) {
if (data.succ == 1) {
var $target,
evt = e || window.
$target = $(evt.target || evt.srcElement);
var $dd = $target.parents('dd');
var $wrapReply = $dd.find('.respond_box');
console.log($wrapReply);
//var mess = $(".res_area_r").val();
var mess = resS
var str = str.replace(/{%header%}/g, data.header)
.replace(/{%href%}/g, 'http://' + window.location.host + '/user/' + data.username)
.replace(/{%username%}/g, data.username)
.replace(/{%com_username%}/g, data.com_username)
.replace(/{%time%}/g, data.time)
.replace(/{%id%}/g, data.id)
.replace(/{%mess%}/g, mess);
$dd.after(str);
$(".respond_box").hide();
$(".res_area_r").val("");
$(".res_area").val("");
$wrapReply.hide();
alert(data.msg);
}, "json");
/*删除回复*/
$(".rightLi").on("click", '.del_comment_r', function (e) {
var id = $(e.target).attr("id");
$.getJSON('/index.php/comment/do_comment_del/' + id,
function (data) {
if (data.succ == 1) {
$(e.target).parent().parent().parent().parent().parent().remove();
$(e.target).parents('.res_list').remove()
alert(data.msg);
//填充回复
function KeyP(v) {
var parentWrap = $(v).parents(".respond_box");
parentWrap.find(".res_area_r").val($.trim(parentWrap.find(".res_area").val()));
评论共有6条
画面简陋，而且不太符合打飞机这个主题，一般来说大炮是不会飞上天
虽然简单，但是能学到一些算法
比较简单的程序
VIP会员动态
CSDN下载频道资源及相关规则调整公告V11.10
下载频道用户反馈专区
下载频道积分规则调整V1710.18
spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip
资源所需积分/C币
当前拥有积分
当前拥有C币
输入下载码
为了良好体验，不建议使用迅雷下载
C#围棋程序源代码下载
会员到期时间：
剩余下载个数：
剩余积分：0
为了良好体验，不建议使用迅雷下载
积分不足！
资源所需积分/C币
当前拥有积分
您可以选择
程序员的必选
绿色安全资源
资源所需积分/C币
当前拥有积分
当前拥有C币
为了良好体验，不建议使用迅雷下载
资源所需积分/C币
当前拥有积分
当前拥有C币
为了良好体验，不建议使用迅雷下载
资源所需积分/C币
当前拥有积分
当前拥有C币
您的积分不足，将扣除 10 C币
为了良好体验，不建议使用迅雷下载
无法举报自己的资源
你当前的下载分为234。
你还不是VIP会员
开通VIP会员权限，免积分下载
你下载资源过于频繁，请输入验证码
您因违反CSDN下载频道规则而被锁定帐户，如有疑问，请联络:!
若举报审核通过，可返还被扣除的积分
被举报人：
举报的资源分：
请选择类型
资源无法下载 （ 404页面、下载失败、资源本身问题）
资源无法使用 （文件损坏、内容缺失、题文不符）
侵犯版权资源 （侵犯公司或个人版权）
虚假资源 （恶意欺诈、刷分资源）
含色情、危害国家安全内容
含广告、木马病毒资源
*详细原因：
C#围棋程序源代码下载(就酱看着你)
(ALLaboutJobs)
第三方登录：21路围棋简单源代码vb
Dim H_B As Boolean
Dim PosX%, PosY%
Private Sub DaJie(PosX, PosY)
& Static Pcolor, DJ As Single
& With PctQiPan
If Not H_B Then
Pcolor = RGB(0, 0, 0)
Pcolor = RGB(255, 255, 255)
If PosX = 1 And PosY = 1 Then
&&&&&&&&&&&
&&&&&&&&&&&
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
&&&&&&&&&&&
PosX = 1: PosY = 2
&&&&&&&&&&&
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
&&&&&&&&&&&&&
If DJ = 2 Then
&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&&
.ForeColor = .BackColor
&&&&&&&&&&&&&&&&
.FillStyle = 0
&&&&&&&&&&&&&&&&
.FillColor = .BackColor
&&&&&&&&&&&&&&&&
PctQiPan.Circle (1, 1), 0.3
&&&&&&&&&&&&&&&&
.ForeColor = RGB(0, 0, 0)
&&&&&&&&&&&&&&&&
.FillStyle = 0
&&&&&&&&&&&&&&&&
.FillColor = RGB(0, 0, 0)
&&&&&&&&&&&&&&&&
PctQiPan.Line (1, 1)-(1.4, 1)
&&&&&&&&&&&&&&&&
PctQiPan.Line (1, 1)-(1, 1.4)
&&&&&&&&&&&&&&&&
H_B = Not H_B
&&&&&&&&&&&&&
&&&&&&&&&&&
If PosX = 1 And PosY = 21 Then
&&&&&&&&&&&
&&&&&&&&&&&
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
&&&&&&&&&&&
PosX = 1: PosY = 20
&&&&&&&&&&&
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
&&&&&&&&&&&&&
If DJ = 2 Then
&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&&
.ForeColor = .BackColor
&&&&&&&&&&&&&&&&
.FillStyle = 0
&&&&&&&&&&&&&&&&
.FillColor = .BackColor
&&&&&&&&&&&&&&&&
PctQiPan.Circle (1, 21), 0.3
&&&&&&&&&&&&&&&&
.ForeColor = RGB(0, 0, 0)
&&&&&&&&&&&&&&&&
.FillStyle = 0
&&&&&&&&&&&&&&&&
.FillColor = RGB(0, 0, 0)
&&&&&&&&&&&&&&&&
PctQiPan.Line (1, 21)-(1.4, 21)
&&&&&&&&&&&&&&&&
PctQiPan.Line (1, 21)-(1, 20.6)
&&&&&&&&&&&&&&&&
H_B = Not H_B
&&&&&&&&&&&&&
&&&&&&&&&&&
If PosX = 21 And PosY = 1 Then
&&&&&&&&&&&
&&&&&&&&&&&
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
&&&&&&&&&&&
PosX = 21: PosY = 2
&&&&&&&&&&&
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
&&&&&&&&&&&&&
If DJ = 2 Then
&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&&
.ForeColor = .BackColor
&&&&&&&&&&&&&&&&
.FillStyle = 0
&&&&&&&&&&&&&&&&
.FillColor = .BackColor
&&&&&&&&&&&&&&&&
PctQiPan.Circle (21, 1), 0.3
&&&&&&&&&&&&&&&&
.ForeColor = RGB(0, 0, 0)
&&&&&&&&&&&&&&&&
.FillStyle = 0
&&&&&&&&&&&&&&&&
.FillColor = RGB(0, 0, 0)
&&&&&&&&&&&&&&&&
PctQiPan.Line (21, 1)-(20.6, 1)
&&&&&&&&&&&&&&&&
PctQiPan.Line (21, 1)-(21, 1.4)
&&&&&&&&&&&&&&&&
H_B = Not H_B
&&&&&&&&&&&&&
&&&&&&&&&&&
If PosX = 21 And PosY = 21 Then
&&&&&&&&&&&
&&&&&&&&&&&
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
&&&&&&&&&&&
PosX = 21: PosY = 20
&&&&&&&&&&&
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
&&&&&&&&&&&&&
If DJ = 2 Then
&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&&
.ForeColor = .BackColor
&&&&&&&&&&&&&&&&
.FillStyle = 0
&&&&&&&&&&&&&&&&
.FillColor = .BackColor
&&&&&&&&&&&&&&&&
PctQiPan.Circle (21, 21), 0.3
&&&&&&&&&&&&&&&&
.ForeColor = RGB(0, 0, 0)
&&&&&&&&&&&&&&&&
.FillStyle = 0
&&&&&&&&&&&&&&&&
.FillColor = RGB(0, 0, 0)
&&&&&&&&&&&&&&&&
PctQiPan.Line (21, 21)-(20.6, 21)
&&&&&&&&&&&&&&&&
PctQiPan.Line (21, 21)-(21, 20.6)
&&&&&&&&&&&&&&&&
H_B = Not H_B
&&&&&&&&&&&&&
&&&&&&&&&&&
& Rem 333333
If PosX = 1 Then
&&&&&&&&&&&
PosY = PosY - 1
&&&&&&&&&&&
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
&&&&&&&&&&&
PosY = PosY + 1: PosX = 2
&&&&&&&&&&&
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
&&&&&&&&&&&
PosY = PosY + 1: PosX = 1
&&&&&&&&&&&
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
&&&&&&&&&&&&&
If DJ = 3 Then
&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&&
.ForeColor = .BackColor
&&&&&&&&&&&&&&&&
.FillStyle = 0
&&&&&&&&&&&&&&&&
.FillColor = .BackColor
&&&&&&&&&&&&&&&&
PctQiPan.Circle (1, PosY - 1), 0.3
&&&&&&&&&&&&&&&&
.ForeColor = RGB(0, 0, 0)
&&&&&&&&&&&&&&&&
.FillStyle = 0
&&&&&&&&&&&&&&&&
.FillColor = RGB(0, 0, 0)
&&&&&&&&&&&&&&&&
PctQiPan.Line (1, PosY - 0.6)-(1, PosY - 1.6)
&&&&&&&&&&&&&&&&
PctQiPan.Line (1, PosY - 1)-(1.4, PosY - 1)
&&&&&&&&&&&&&&&&
H_B = Not H_B
&&&&&&&&&&&&&
&&&&&&&&&&&
If PosX = 21 Then
&&&&&&&&&&&
PosY = PosY - 1
&&&&&&&&&&&
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
&&&&&&&&&&&
PosY = PosY + 1: PosX = 20
&&&&&&&&&&&
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
&&&&&&&&&&&
PosY = PosY + 1: PosX = 21
&&&&&&&&&&&
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
&&&&&&&&&&&&&
If DJ = 3 Then
&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&&
.ForeColor = .BackColor
&&&&&&&&&&&&&&&&
.FillStyle = 0
&&&&&&&&&&&&&&&&
.FillColor = .BackColor
&&&&&&&&&&&&&&&&
PctQiPan.Circle (21, PosY - 1), 0.3
&&&&&&&&&&&&&&&&
.ForeColor = RGB(0, 0, 0)
&&&&&&&&&&&&&&&&
.FillStyle = 0
&&&&&&&&&&&&&&&&
.FillColor = RGB(0, 0, 0)
&&&&&&&&&&&&&&&&
PctQiPan.Line (21, PosY - 0.6)-(21, PosY - 1.6)
&&&&&&&&&&&&&&&&
PctQiPan.Line (21, PosY - 1)-(20.6, PosY - 1)
&&&&&&&&&&&&&&&&
H_B = Not H_B
&&&&&&&&&&&&&
&&&&&&&&&&&
If PosY = 1 Then
&&&&&&&&&&&
PosX = PosX - 1
&&&&&&&&&&&
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
&&&&&&&&&&&
PosX = PosX + 1: PosY = 2
&&&&&&&&&&&
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
&&&&&&&&&&&
PosX = PosX + 1: PosY = 1
&&&&&&&&&&&
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
&&&&&&&&&&&&&
If DJ = 3 Then
&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&&
.ForeColor = .BackColor
&&&&&&&&&&&&&&&&
.FillStyle = 0
&&&&&&&&&&&&&&&&
.FillColor = .BackColor
&&&&&&&&&&&&&&&&
PctQiPan.Circle (PosX - 1, 1), 0.3
&&&&&&&&&&&&&&&&
.ForeColor = RGB(0, 0, 0)
&&&&&&&&&&&&&&&&
.FillStyle = 0
&&&&&&&&&&&&&&&&
.FillColor = RGB(0, 0, 0)
&&&&&&&&&&&&&&&&
PctQiPan.Line (PosX - 0.6, 1)-(PosX - 1.6, 1)
&&&&&&&&&&&&&&&&
PctQiPan.Line (PosX - 1, 1)-(PosX - 1, 1.4)
&&&&&&&&&&&&&&&&
H_B = Not H_B
&&&&&&&&&&&&&
&&&&&&&&&&&
If PosY = 21 Then
&&&&&&&&&&&
PosX = PosX - 1
&&&&&&&&&&&
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
&&&&&&&&&&&
PosX = PosX + 1: PosY = 20
&&&&&&&&&&&
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
&&&&&&&&&&&
PosX = PosX + 1: PosY = 21
&&&&&&&&&&&
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
&&&&&&&&&&&&&
If DJ = 3 Then
&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&&
.ForeColor = .BackColor
&&&&&&&&&&&&&&&&
.FillStyle = 0
&&&&&&&&&&&&&&&&
.FillColor = .BackColor
&&&&&&&&&&&&&&&&
PctQiPan.Circle (PosX - 1, 21), 0.3
&&&&&&&&&&&&&&&&
.ForeColor = RGB(0, 0, 0)
&&&&&&&&&&&&&&&&
.FillStyle = 0
&&&&&&&&&&&&&&&&
.FillColor = RGB(0, 0, 0)
&&&&&&&&&&&&&&&&
PctQiPan.Line (PosX - 0.6, 21)-(PosX - 1.6, 21)
&&&&&&&&&&&&&&&&
PctQiPan.Line (PosX - 1, 21)-(PosX - 1, 20.6)
&&&&&&&&&&&&&&&&
H_B = Not H_B
&&&&&&&&&&&&&
&&&&&&&&&&&
Rem 444444
&&&&&&&&&&&
PosX = PosX - 1
&&&&&&&&&&&
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
&&&&&&&&&&&
PosX = PosX + 2
&&&&&&&&&&&
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
&&&&&&&&&&&
PosX = PosX - 1: PosY = PosY - 1
&&&&&&&&&&&
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
&&&&&&&&&&&
PosY = PosY + 2
&&&&&&&&&&&
If .Point(PosX + 0.2, PosY + 0.2) = Pcolor Then DJ = DJ + 1
&&&&&&&&&&&&&
If DJ = 4 Then
&&&&&&&&&&&&&&&&
PosY = PosY - 1
&&&&&&&&&&&&&&&&
.ForeColor = .BackColor
&&&&&&&&&&&&&&&&
.FillStyle = 0
&&&&&&&&&&&&&&&&
.FillColor = .BackColor
&&&&&&&&&&&&&&&&
PctQiPan.Circle (PosX, PosY), 0.3
&&&&&&&&&&&&&&&&
.ForeColor = RGB(0, 0, 0)
&&&&&&&&&&&&&&&&
.FillStyle = 0
&&&&&&&&&&&&&&&&
.FillColor = RGB(0, 0, 0)
&&&&&&&&&&&&&&&&
PctQiPan.Line (PosX - 0.4, PosY)-(PosX + 0.4, PosY)
&&&&&&&&&&&&&&&&
PctQiPan.Line (PosX, PosY - 0.4)-(PosX, PosY + 0.4)
&&&&&&&&&&&&&&&&
H_B = Not H_B
&&&&&&&&&&&&&
& End With
Private Sub QiPan()
&& With PctQiPan
H_B = False
.DrawWidth = 2
.DrawStyle = 0
.DrawMode = 13
.ForeColor = RGB(0, 0, 0)
.FillStyle = 0
For i = 1 To 21
PctQiPan.Line (1, i)-(21, i)
PctQiPan.Line (i, 1)-(i, 21)
PctQiPan.Circle (4, 4), 0.1
PctQiPan.Circle (4, 11), 0.1
PctQiPan.Circle (4, 18), 0.1
PctQiPan.Circle (11, 4), 0.1
PctQiPan.Circle (18, 4), 0.1
PctQiPan.Circle (11, 11), 0.1
PctQiPan.Circle (11, 18), 0.1
PctQiPan.Circle (18, 11), 0.1
PctQiPan.Circle (18, 18), 0.1
&& End With
Private Sub HuiFu()
&& With PctQiPan
If .Point(4 + 0.08, 4 + 0.08) = .BackColor Then
.DrawWidth = 2
.DrawStyle = 0
.DrawMode = 13
.ForeColor = RGB(0, 0, 0)
.FillStyle = 0
.FillColor = RGB(0, 0, 0)
PctQiPan.Circle (4, 4), 0.1
If .Point(4 + 0.08, 11 + 0.08) = .BackColor Then
.DrawWidth = 2
.DrawStyle = 0
.DrawMode = 13
.ForeColor = RGB(0, 0, 0)
.FillStyle = 0
.FillColor = RGB(0, 0, 0)
PctQiPan.Circle (4, 11), 0.1
If .Point(4 + 0.08, 18 + 0.08) = .BackColor Then
.DrawWidth = 2
.DrawStyle = 0
.DrawMode = 13
.ForeColor = RGB(0, 0, 0)
.FillStyle = 0
.FillColor = RGB(0, 0, 0)
PctQiPan.Circle (4, 18), 0.1
If .Point(11 + 0.08, 4 + 0.08) = .BackColor Then
.DrawWidth = 2
.DrawStyle = 0
.DrawMode = 13
.ForeColor = RGB(0, 0, 0)
.FillStyle = 0
.FillColor = RGB(0, 0, 0)
PctQiPan.Circle (11, 4), 0.1
If .Point(18 + 0.08, 4 + 0.08) = .BackColor Then
.DrawWidth = 2
.DrawStyle = 0
.DrawMode = 13
.ForeColor = RGB(0, 0, 0)
.FillStyle = 0
.FillColor = RGB(0, 0, 0)
PctQiPan.Circle (18, 4), 0.1
If .Point(11 + 0.08, 11 + 0.08) = .BackColor Then
.DrawWidth = 2
.DrawStyle = 0
.DrawMode = 13
.ForeColor = RGB(0, 0, 0)
.FillStyle = 0
.FillColor = RGB(0, 0, 0)
PctQiPan.Circle (10, 10), 0.1
If .Point(11 + 0.08, 18 + 0.08) = .BackColor Then
.DrawWidth = 2
.DrawStyle = 0
.DrawMode = 13
.ForeColor = RGB(0, 0, 0)
.FillStyle = 0
.FillColor = RGB(0, 0, 0)
PctQiPan.Circle (10, 16), 0.1
If .Point(18 + 0.08, 11 + 0.08) = .BackColor Then
.DrawWidth = 2
.DrawStyle = 0
.DrawMode = 13
.ForeColor = RGB(0, 0, 0)
.FillStyle = 0
.FillColor = RGB(0, 0, 0)
PctQiPan.Circle (18, 10), 0.1
If .Point(18 + 0.08, 18 + 0.08) = .BackColor Then
.DrawWidth = 2
.DrawStyle = 0
.DrawMode = 13
.ForeColor = RGB(0, 0, 0)
.FillStyle = 0
.FillColor = RGB(0, 0, 0)
PctQiPan.Circle (18, 18), 0.1
&& End With
Private Sub XiaZi(PosX, PosY)
&& Static Zcolor
Zcolor = .Point(PosX + 0.2, PosY + 0.2)
If Zcolor && .BackColor Then Exit Sub
If PosX = 0 Or PosY = 0 Or PosX = 22 Or PosY = 22 Then Exit
H_B = Not H_B
If H_B Then
&&&&&&&&&&
.FillColor = RGB(0, 0, 0)
&&&&&&&&&&
.ForeColor = RGB(0, 0, 0)
&&&&&&&&&&
.FillColor = RGB(255, 255, 255)
&&&&&&&&&&
.ForeColor = RGB(255, 255, 255)
&&&&&&&&&&
PctQiPan.Circle (PosX, PosY), 0.3
&&&&&&&&&&
&& End With
Private Sub TiZi1(PosX, PosY, Zcolor)
&& Static XPos%(1 To 461),
YPos%(1 To 461), PosI%, i%, j%, k%, XT As Boolean, OldPosI%
&& PosI = 1
&& XPos(1) = PosX
&& YPos(1) = PosY
&& PctQiPan.ForeColor =
PctQiPan.BackColor
&& Do While True
OldPosI = PosI
For i = 1 To 21
For j = 1 To 21
XT = False
For k = 1 To PosI
&&&&&&&&&&&
If i = XPos(k) And j = YPos(k) Then XT = True: Exit For
For k = 1 To PosI
&&&&&&&&&&&&&&&
If XT Then Exit For
&&&&&&&&&&&&&&&
If i + 1 && 22 And PctQiPan.Point(i + 0.2, j + 0.2) = Zcolor
And i + 1 = XPos(k) And j = YPos(k) Then
&&&&&&&&&&&&&&&&&&
PosI = PosI + 1
&&&&&&&&&&&&&&&&&&
XPos(PosI) = i
&&&&&&&&&&&&&&&&&&
YPos(PosI) = j
&&&&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&
If XT Then Exit For
&&&&&&&&&&&&&&&
If i - 1 && 0 And PctQiPan.Point(i + 0.2, j + 0.2) = Zcolor
And i - 1 = XPos(k) And j = YPos(k) Then
&&&&&&&&&&&&&&&&&&
PosI = PosI + 1
&&&&&&&&&&&&&&&&&&
XPos(PosI) = i
&&&&&&&&&&&&&&&&&&
YPos(PosI) = j
&&&&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&
If XT Then Exit For
&&&&&&&&&&&&&&&
If j + 1 && 22 And PctQiPan.Point(i + 0.2, j + 0.2) = Zcolor
And i = XPos(k) And j + 1 = YPos(k) Then
&&&&&&&&&&&&&&&&&&
PosI = PosI + 1
&&&&&&&&&&&&&&&&&&
XPos(PosI) = i
&&&&&&&&&&&&&&&&&&
YPos(PosI) = j
&&&&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&
If XT Then Exit For
&&&&&&&&&&&&&&&
If j - 1 && 0 And PctQiPan.Point(i + 0.2, j + 0.2) = Zcolor
And i = XPos(k) And j - 1 = YPos(k) Then
&&&&&&&&&&&&&&&&&&
PosI = PosI + 1
&&&&&&&&&&&&&&&&&&
XPos(PosI) = i
&&&&&&&&&&&&&&&&&&
YPos(PosI) = j
&&&&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&
&&& Next i
&&& If OldPosI =
PosI Then Exit Do
&& XT = False
&& For k = 1 To PosI
If PctQiPan.Point(XPos(k) + 1 + 0.2, YPos(k) + 0.2) =
PctQiPan.BackColor And XPos(k) + 1 && 22 Then XT = True: Exit
If PctQiPan.Point(XPos(k) - 1 + 0.2, YPos(k) + 0.2) =
PctQiPan.BackColor And XPos(k) - 1 && 0 Then XT = True: Exit
If PctQiPan.Point(XPos(k) + 0.2, YPos(k) + 1 + 0.2) =
PctQiPan.BackColor And YPos(k) + 1 && 22 Then XT = True: Exit
If PctQiPan.Point(XPos(k) + 0.2, YPos(k) - 1 + 0.2) =
PctQiPan.BackColor And YPos(k) - 1 && 0 Then XT = True: Exit
&& If XT Then Exit Sub
&& PctQiPan.FillColor =
PctQiPan.BackColor
&& For k = 1 To PosI
PctQiPan.ForeColor = PctQiPan.BackColor
PctQiPan.Circle (XPos(k), YPos(k)), 0.3
PctQiPan.ForeColor = RGB(0, 0, 0)
If XPos(k) = 1 Then
PctQiPan.Line (XPos(k), YPos(k))-(XPos(k) + 0.5, YPos(k))
ElseIf XPos(k) = 21 Then
PctQiPan.Line (XPos(k) - 0.5, YPos(k))-(XPos(k), YPos(k))
PctQiPan.Line (XPos(k) - 0.5, YPos(k))-(XPos(k) + 0.5,
If YPos(k) = 1 Then
PctQiPan.Line (XPos(k), YPos(k))-(XPos(k), YPos(k) + 0.5)
ElseIf YPos(k) = 21 Then
PctQiPan.Line (XPos(k), YPos(k) - 0.5)-(XPos(k), YPos(k))
PctQiPan.Line (XPos(k), YPos(k) - 0.5)-(XPos(k), YPos(k) +
&&& Next k
Private Sub TiZi(PosX, PosY)
& Static Zcolor
& With PctQiPan
If H_B Then
Zcolor = RGB(255, 255, 255)
Zcolor = RGB(0, 0, 0)
If .Point(PosX - 1, PosY) = Zcolor Then TiZi1 PosX - 1, PosY,
If .Point(PosX + 1, PosY) = Zcolor Then TiZi1 PosX + 1, PosY,
If .Point(PosX, PosY - 1) = Zcolor Then TiZi1 PosX, PosY - 1,
If .Point(PosX, PosY + 1) = Zcolor Then TiZi1 PosX, PosY + 1,
& End With
Private Sub End_Click()
Private Sub Form_Load()
&& PctQiPan.ScaleWidth = 22
&& PctQiPan.ScaleHeight =
&& Me.Show
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X
As Single, Y As Single)
&& XiaZi X \ 1, Y \ 1
&& TiZi X \ 1, Y \ 1
&& DoEvents
&& Call HuiFu
&& Call DaJie(X \ 1, Y \ 1)
Private Sub start_Click()
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。vb6.0编写围棋源代码_百度知道
vb6.0编写围棋源代码
一个双人围棋对弈软件，按规则模拟围棋比赛。可以进行围棋对弈。可以自动提子，自动对自杀，打劫进行判断。有复盘，计数，缓棋，自由落子,计时等功能。
具体实现简要说明：
用图片picChessboard做棋盘，用线控件LineX（），LineY（）做棋盘线，用线控...
我有更好的答案
算法和实现方案已经很详细了嘛，O(∩_∩)O~但实在懒得为了80分写一个围棋游戏了 :)
采纳率：43%
其实，这个没有什么实用价值的。作为一种乐趣，您要是有时间，还是自己搞吧。我敢肯定地说，没有人愿意花费大量的时间来帮您这个忙的。对不起了，实话实说了。
弈城的形势判断可以做评估函数另,最好使用分割法,将棋盘分割,他走那你选择该分割棋盘内最好的应手(递归)或其他区块最好应手(这个可以先计算好再保存)
为您推荐：
其他类似问题
您可能关注的内容
vb6的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。