正文
vb.net制作象棋,中国象棋编程
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
用VB6.0编写中国象棋游戏，需要什么控件？棋谱的代码怎么写？
picture数组
可以用坐标来完成
用数组来记录坐标
棋谱代码 我想是靠自己写吧
比如
Private Sub Form_Load()
Picture1(1).Picture = LoadPicture("") '这图是兵
End Sub
Private Sub Picture1_Click(Index As Integer)
If Index = 1 Then
If Picture1(1).Top = 1000 Then '没过河
Picture1(1).Left = 500 '保持不变 意思就是不能左右移动,当用鼠标指定他的位子就可以上前一步
ElseIf Picture1(1).Top = 700 Then '已经过河
'可以就解除限制
End If
End If
End Sub
'还要判断你指定位子的坐标，是否远远超过一步距离，或远远小于一步距离
'可以用所画的线来判断位子
实际代码不是这样写的
只是希望你明白这个道理
相关问答
Q1: vb 编写中国象棋车的规则
贴保存棋局和读取棋局部分的，你先看看：
Rem 读取棋局
Private Sub mnuRead_Click()
Dim s As String, i As Integer, t
If Dir(App.Path "\cchess.che") = "" Then MsgBox "没有棋局文件可以读入！请先保存棋局！", , "中国象棋": Exit Sub
Open App.Path "\cchess.che" For Input As #1
Input #1, s
Close #1
s = Replace(s, vbCrLf, "")
s = Trim(s)
t = Split(s, " ")
If UBound(t) 89 Then MsgBox "棋局文件已遭到破坏！请重新保存棋局！", , "中国象棋": Exit Sub
For i = 0 To 89
a(i) = Val(t(i))
Next
MsgBox "棋局文件已成功读入！", , "中国象棋"
End Sub
Rem 保存棋局
Private Sub mnuSave_Click()
Dim s As String, i As Integer
s = ""
For i = 0 To 89
s = s " " a(i)
Next
s = Trim(s)
Open App.Path "\cchess.che" For Output As #1
Print #1, s;
Close #1
MsgBox "当前棋局已成功保存！", , "中国象棋"
End Sub
Q2: 用VB语言编写代码 在象棋的的棋盘第一格放一颗麦粒,第二格放两颗麦粒,第三格放四颗麦粒,每？
Private Sub Command1_Click()
s = 1
t = 1
For i = 2 To 64
t = t + t
s = s + t
Next i
Print "64个格子全部放完麦子，"
Print "总共为"; s; "粒"
End Sub
Q3: 中国象棋的棋盘代码用VB语言怎么编写
记得以前上学的时候做过的，个人推荐：
先用线条画出棋盘，然后在棋盘的90的点都画好棋子（可以用image控件画圆，lable控件显示棋子内容），并编成10*9的二维数组，利用控件image的visible属性控制是否显示，控件lable控制显示的内容。
个人认为这个应该比利用坐标让控件移动的方法简单
Q4: VB绘制国际象棋棋盘，要求用line方法实现
不知道你是不是就画这样一个棋盘,请在窗体上加入Picture1控件.
Private Const CELL_SIZE = 60 '格子大小,单位像素
Private Sub Form_Load()
Picture1.AutoRedraw = True
Picture1.ScaleMode = vbPixels '以像素为单位,作图
Picture1.BorderStyle = 0 '无边框
Picture1.Height = 15 * CELL_SIZE * 8 '棋盘大小,*15表示单位由像素变成缇
Picture1.Width = Picture1.Height '长宽相同
Picture1.BackColor = vbWhite '背景色,白色
Dim i As Integer
For i = 1 To 8 Step 2 '先画黑色竖格4条
Picture1.Line (i * CELL_SIZE, 0)-(i * CELL_SIZE + CELL_SIZE, Picture1.ScaleHeight), vbBlack, BF
Next
Picture1.DrawMode = vbInvert '下面画上去的与原有颜色相反,即黑色变成白色
For i = 1 To 8 Step 2 '横格4条
Picture1.Line (0, i * CELL_SIZE)-(Picture1.ScaleWidth, i * CELL_SIZE + CELL_SIZE), vbBlack, BF
Next
Picture1.DrawMode = vbCopyPen '画图模式变了缺省值
End Sub
Q5: 如何用VC++.NET制作国际象棋,我学过C++语法,但是没学过可视化.越详细越好.
找本VC/MFC的书先扫扫忙再说吧。先明白界面怎么做，再去研究人工智能，以确定走哪一步棋。要向自己写出这东西非一日之功也
