VB课程设-中国象棋复盘报告

《VB课程设-中国象棋复盘报告》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、中国象棋复盘设计报告学院机械学院班级机设076学号070501姓名康煦晖成绩一、设计思路1・要达到的目的①培养综合利用VB语言进行程序设计的能力②培养VB的标准控件进行界面设计的能力③用VB的文件功能读取文件内容并进行处理的能力2•关键问题的解决①棋子的载入②棋盘的更换③走棋，读棋④各个过程的建立三、部分程序关键源代码及注释PrivateSubForm_Load()Dimj%，k%DimX%,Y%Dimm%,n%,v%bs=1cishu=0time.Caption=Format(m,H00n)&&Format(s,H00u)ti=5，初始化时间间隔qp=n经典"qz=

2、"普通"CallqziCallqpa，载入棋盘坐标ForY=lTolObody(Y)=75+(Y-1)*682NextYForX=1To9bodx(X)=75+(X・1严680NextXlocate，定位棋子'定位棋路Forj=lTo9Fork=1To10bod(j,k)=board(j,k)bodbf(j,k)=board(j,k)NextkNextjEndSubPrivateSubForm_OLEDragDrop(DataAsDataObject,EffectAsLong,ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSi

3、ngle)Form_LoadCommandl_ClickEndSub'走棋方闪烁IfCommand6.Enabled=TrueThenImage4

4、henPicturel.ScaleLeft=6210・570Picturel.ScaleTop=6870-570ElsePicturel.ScaleLeft=0Picturel.ScaleTop=0EndIfPicturel.ScaleWidth=-(Picturel.ScaleWidth)Picturel.ScaleHeight=-(Picturel.ScaleHeight)EndSubPrivateSub暗夜—ClickOqp=”暗夜”CallqpaEndSubPrivateSub结束_Click()Dimi%Timerl.Enabled=TruestartTim

5、erl.Enabled=FalseListl.ClearCommandl.Enabled=TrueCommand2.Enabled=FalseCommand3.Enabled=FalseCommand4eEnabled==FalseCommandSeEnabled==FalseCommand6>Enabled==FalseEndSubSubmoe()，获得移动棋子的始末坐标Dimk%，h%，n%，sig%,xy%，xi初横坐标，yi初纵坐标，xy终量或增量，xx末横坐标，yy末纵坐标DimzhaoAsStringIfNotrobThensig=-1IfrobThenz

6、hao=Right(Listl.List(bs),4)Elsezhao=Right(List1.List(bs),4)，读取一行棋谱的招法，bs为步数，分析棋谱，获取横坐标,终量或增量,棋子种类xy=num(Mid(zhao,4,1))IfMid(zhao,1,1)=”前"OrMid(zhao,1,1)=”后"ThenSelectCaseMid(zhao,2,1)Casen±n,n仕"n=sig*2Case”相；像”n=sig*4Case”将舄”帅”n=sig*1Case”卒蔦”兵”n=sig*7Case'‘车"n=sig*5Case”炮”n=sig*6Case”马”

7、n=sig*3EndSelectIf(Mid(zhao,1,1)二”前"Androb)Or(Mid(zhao,1,1)=”后”AndNotrob)Then'判断棋子位置，即获取纵坐标k=1Forh=1To9Fork=1To10Ifbod(h,k)=nThenExitForEndIfNextkNexthElse，判断棋子位置，即获取纵坐标k=10Forh=1To9Fork=10TolStep-1Ifbod(h,k)=nThenyi=k:xi=hExitForEndIfNextkNexthEndIfElsejk=num(Mid(zhao92,1))xi=