|
#2
renxiaoyao362017-01-16 20:03
现在项目处于初始阶段，所以核心还没做出来，我先把现在做了5%不到的版本发上来，里面有两大问题：一个是一楼说的通信问题
还有一个是关于棋子之前互相连线的算法问题，我没想到如何做这个算法 我棋子是用按钮数组代替的，应为我计划以后移动棋子是按按钮之后出现菜单进行移动操作的。 只有本站会员才能查看附件，请 登录 不想下载的可以直接看下面的代码，不过不大完整。  程序代码：Private Sub Timer1_Timer() 代码的整理非常差，将就着看吧Form4.Show Dim i As Integer For i = 0 To 239 DoEvents On Error Resume Next Load 棋子(i) With 棋子(i) .Visible = True .Height = Form2.Height / (竖) .Width = Form2.Width / (横) .Left = Int(i Mod (横 / 2)) * (Form2.Width / (横 / 2)) '设置棋子所在位置 .Top = Int(i / (横 / 2)) * (Form2.Height / (竖 / 2)) '这段算法还是不要尝试理解了吧，我折腾了半天乱试出来的，测试可行才用的 Debug.Print .Left Debug.Print .Top End With Form4.Label1.Caption = "正在加载棋子" & i & "请稍等" Next i For i = 0 To 239 '理论上没有那么一点，我现在的算法大家可以运行看看结果非常的不如人意，最好是除了第4列的第4行，8行，以及第八列的4行，8行外，所有格子相邻的连线，这四个格子对角线也连线，大家有想法帮忙想想 DoEvents On Error Resume Next Load Line1(i): Debug.Print i With Line1(i) .X1 = 棋子(i).Left + 棋子(i).Width / 2 .Y1 = 棋子(i).Top + 棋子(i).Height / 2 .X2 = 棋子(i + 1).Left + 棋子(i + 1).Width / 2 .Y2 = 棋子(i + 1).Top + 棋子(i + 1).Height / 2 .Visible = True End With Form4.Label1.Caption = "正在加载线条" & i & "请稍等" Next i Unload Form4 Timer1.Enabled = False End Sub [此贴子已经被作者于2017-1-16 20:04编辑过] |
这次我给自己设定的项目比较大，想来不会像以前那样一个项目才一到两个问题，每个问题开个帖子不麻烦，现在我要做的项目是一个军棋游戏
光是现在做了5%就有好多问题了，于是专门开个新帖子，实时跟踪我的项目进程，有一些成果了就在这里发布，顺便在这里提出一些问题。
先把之前的一个帖子发布的一个问题连接传上来，尚未解决https://bbs.bccn.net/thread-473409-1-1.html关于通信的问题。大家看看能不能帮忙解决。
二楼开始放程序代码
