《vb60五子棋代码.docx》由会员分享,可在线阅读,更多相关《vb60五子棋代码.docx(5页珍藏版)》请在三一办公上搜索。
1、vb60五子棋代码option explicitconsult subwidth=400 定义画五子棋表格的每个长度和宽度private P2playcolor as integer实现黑白棋子的交替进行private mycolor as integer表示是否胜利private ifsucceed as booleanconsult pi=3.14159定义字符常量private centerx as single private centery as singleprivate radius as singleprivate dataArray(14,14) as integer 保存棋
2、盘中棋子的位置信息private sumtime as integer记录总时间来判断谁超时private ifstarteasy as boolean标记简单难度下计时功能是否可以开启private ifstartnormal as boolean标记中等难度下计时功能是否可以开启private sub picqipan_mousedown(button as integer,shift as integer, x as integer,x as single, y as single)dim x as integerdim y as integerdim i as integerdim j
3、 as integerif x<subwidth or y>14.5*subwidth then msgbox超出棋盘界限,请重新下。exit subend ifif abs(int(x/subwidth)-x/subwidth)<0.5 thenx0=int(x/subwidth)elsex0=int(x/subwidth)+1end ifend subif dataarray(x0,y0)<>3 thenmsgbox当前位置已经有棋子了,请重新走。,vbcritical,NOTE!exit subend ifsumtime=-1call remenbercrossdat
4、a(x0,y0) 记录棋子信息call whowin 判断谁赢判断是否开启相应难度计时功能if ifstarteasy=true thentimer2.enabled=trueqipan.fillcolor=vbblackend ifif ifstartnormal=true thentimer3.enabled=trueend if if ifstarthard=true thentimer4.enabled=trueend if end sub画棋子private sub drawpill(xx as ineger.yy as integer)if p2playcolor thenpicq
5、ipan.forecolor=vbwhitedoecentspicqipan.fillcolor=vbwhitepicqipan.fillstyle=0mycolor=0elsepicqipan.forecolor=vbblackdoeventspicqipan.fillstyle=0mycolor=1end ifp2playcolor=not p2playcolorpicqipan.circle(xx0*subwidth.y0*subwidth),subwidth*0.5end sub以下ABC三个事件共同实现下棋的同时听音乐功能Aprivate sub dir1_chagne(0file1
6、.path=dir1.pathend subBprivate sub drv_changedir1.path=drv.driveend subCprivatessub qipanstylefurA_clickpicqipan.backcolor=$HCOFFFFcall cmdstart_clickend subprivate sub qipanstylefurB_clickpicqipan.backcolor=&HC0C000call cmdstart_clickend subprivate sub qipanstylelefurD_clickpicqipan.backcolor=&H8080FFcall cmdstart_clickend sub添加四种背景音乐