用VB6.0编写中国象棋游戏，需要什么控件？棋谱的代码怎么写？

picture数组

10多年建站经验， 成都网站制作、网站设计、外贸网站建设客户的见证与正确选择。创新互联提供完善的营销型网页建站明细报价表。后期开发更加便捷高效，我们致力于追求更美、更快、更规范。

可以用坐标来完成

用数组来记录坐标

棋谱代码 我想是靠自己写吧

比如

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

'还要判断你指定位子的坐标，是否远远超过一步距离，或远远小于一步距离

'可以用所画的线来判断位子

实际代码不是这样写的

只是希望你明白这个道理

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

用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

中国象棋的棋盘代码用VB语言怎么编写

记得以前上学的时候做过的，个人推荐：

先用线条画出棋盘，然后在棋盘的90的点都画好棋子（可以用image控件画圆，lable控件显示棋子内容），并编成10*9的二维数组，利用控件image的visible属性控制是否显示，控件lable控制显示的内容。

个人认为这个应该比利用坐标让控件移动的方法简单

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

如何用VC++.NET制作国际象棋,我学过C++语法,但是没学过可视化.越详细越好.

找本VC/MFC的书先扫扫忙再说吧。先明白界面怎么做，再去研究人工智能，以确定走哪一步棋。要向自己写出这东西非一日之功也

网站栏目：vb.net制作象棋,中国象棋编程
网页网址：http://kswjz.com/article/hoidgc.html