Vb制作围棋

阿尔宙斯谢谢 2021-04-13 09:54:27

我卡住了，还请大佬们多多指教

...全文

310 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

脆皮大雪糕 2021-04-16

打赏
举报

回复

你这个问题卡在没人知道你卡哪了

制作很漂亮的VB围棋游戏,vb游戏源码哟

可实现两人对弈，但不能人机对弈！！！！！！！！！！！

计算机二级（VB）教程，全面、系统、细致地介绍了计算机二级（VB）的相关知识点。课程能够帮助学习者快速入门。该课程面向对象：备考计算机二级（VB）的课程备课期末考试自学VB程序设计课程注意提高学习者实战技巧，授课过程中以实际操作演示为主，帮助学习者快速地掌握编程的实际方法和技巧。课程以2019年计算机二级大纲为主线，详细介绍了VB的相关知识点。

Private Sub Timer1_Timer() Dim ms As Boolean Dim Info, temp As String Dim p, p1, p2, i As Integer Dim Ch ' Begin of Time Show Process If ModemState <> LOGIN And SocketState <> CONNECTED Then 'it is not a multiusers game Exit Sub Else If (S_R = 1) And (TURN = BLACKP) Then Black_Time = Black_Time + Time - Start_Time TimeB.Caption = CDate(Black_Time / 200) Else If (S_R = 1) And (TURN = WHITEP) Then White_Time = White_Time + Time - Start_Time TimeW.Caption = CDate(White_Time / 200) Else If (S_R = 0) And (TURN = WHITEP) Then Black_Time = Black_Time + Time - Start_Time TimeB.Caption = CDate(Black_Time / 200) Else If (S_R = 0) And (TURN = BLACKP) Then White_Time = White_Time + Time - Start_Time TimeW.Caption = CDate(White_Time / 200) End If End If End If End If End If 'End If ' End of Time Show Process

内容索引:VB源码,游戏编程,围棋　　第二次编写的VB围棋游戏程序，增加[帮助]项、增加.cmn文件格式的支持、增加棋格平坦/弹起/凹陷样式、增加劫争的判断等。本程序由ben1222编写制作。　　主菜单说明：　　|-棋局　　| |-重新开始:开始一局新的棋　　| |------ 　　| |-保存棋局:将现在的棋局保存,支持.txt,.cmn文件　　| |-载入棋局:读取棋局文件,支持.txt,.cmn文件　　| |------ 　　| |-退出:退出游戏　　|-悔棋:悔一子　　|-棋盘样式:棋盘样式,可以更换　　| |-棋盘灰色　　| |-棋盘木:每

741

社区成员

26,925

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章