已有23人关注
实战突击:Visual Basic第一章五子棋坐标问题,求高手赐教!
发表在VB答疑区 2016-09-27
是否精华
版块置顶:
Sub HuaQi()
Dim X, Y
    X = 3: Y = 2
    For i = 1 To 15
        For j = 1 To 15
            Select Case QiPan(i, j)
            Case 1
                BitBlt Form1.Picture1.hDC, X, Y, 20, 20, Form1.Picture2.hDC, 0, 0, srccopy
            Case 2
                BitBlt Form1.Picture1.hDC, X, Y, 20, 20, Form1.Picture3.hDC, 0, 0, srccopy
            End Select
            Y = Y + 20
        Next j
        Y = 2
        X = X + 21
    Next i
    Form1.Picture1.Refresh
End Sub
以上X=3,Y=2 是怎么确定的?怎么算它的初始坐标





Sub GetMyData(Size)
    Dim s, sx, sy, a
    Dim mydata As String
    Form1.Winsock1.GetData mydata, vbString
    Select Case Mid(mydata, 1, 1)
    Case "1"
        If bol = False Then bol = True
        If Player = 1 Then s = 2 Else s = 1
        sx = Asc(Mid(mydata, 2, 1))
        sy = Asc(Mid(mydata, 3, 1))
        QiPan(sx, sy) = s
        HuaQi
        a = GameOver(s)
        Form1.Picture1.Enabled = True
        If a = s Then
            Form1.Picture1.Enabled = False
            Lost(Player) = Lost(Player) + 1
            Win(s) = Win(s) + 1
            Form1.Label1(2).Caption = "战绩:" + Str(Win(1)) + "胜" + Str(Lost(1)) + "败"
            Form1.Label1(4).Caption = "战绩:" + Str(Win(2)) + "胜" + Str(Lost(2)) + "败"
            MsgBox "你输了,继续努力哦", vbOKOnly, "胜负信息"
        End If
    Case "2"
        If Player = 1 Then
            Form1.Label1(3).Caption = Mid(mydata, 2, Size - 1)
            Send "2" + Form1.Label1(1).Caption
        Else
            Form1.Label1(1).Caption = Mid(mydata, 2, Size - 1)
        End If
    Case "3"
        ResetGame
    Case "4"
        Form1.Label2.Caption = "对方断开链接"
        ResetGame
        Form1.Picture1.Enabled = False
        Form1.Cmd1(0).Enabled = False
        Form1.Cmd1(2).Enabled = False
        If Form1.Winsock1.State = 7 Then Form1.Winsock1.Close
        Form1.Winsock1.Listen
    Case "5"
        Form1.Text1.Text = Form1.Text1.Text & Mid(mydata, 2, Size - 1)
    Case Else
    End Select
End Sub
上面程序的 "bol"是指什么?
分享到:
精彩评论 1
淡.印象
学分:323 LV5
TA的每日心情
学习Python
2020-11-23 22:17:24
2016-10-09
沙发
读者您好:

bol是一个布尔型变量,用于判断网络连接状态.
首页上一页 1 下一页尾页 1 条记录 1/1页
手机同步功能介绍
友情提示:以下图书配套资源能够实现手机同步功能
明日微信公众号
明日之星 明日之星编程特训营
客服热线(每日9:00-17:00)
400 675 1066
mingrisoft@mingrisoft.com
吉林省明日科技有限公司Copyright ©2007-2022,mingrisoft.com, All Rights Reserved长春市北湖科技开发区盛北大街3333号长春北湖科技园项目一期A10号楼四、五层
吉ICP备10002740号-2吉公网安备22010202000132经营性网站备案信息 营业执照