基于 VB6的猜拳游戏

1 欢迎页的制作

welcomeFrom

添加一个定时器

代码如下：

	Private Sub Form_Load()
    '定时器Timer1的时间间隔设置为1000毫秒
    Timer1.Interval = 1000
    Timer1.Enabled = True
	End Sub
	Private Sub Timer1_Timer()
	    '关闭当前窗体
	    Unload Me
	    ReadyFrom.Show
	End Sub

2 准备页的制作

放Image数组组件
下面再放一个Image，以便拖动选择头像
如下
设置图片拖动图标属性DragIcon
拖动头像代码如下

Public intIndex As Integer ' 当前图片索引
Public intFlag As Integer ' 标记变量，用于判断是否选择了图片
' 图片控件的鼠标按下事件
Private Sub Image1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Image1(Index).Drag vbBeginDrag ' 开始拖动图片
    intIndex = Index ' 记录当前图片的索引
End Sub
' 图片控件的放下事件
Private Sub Image2_DragDrop(Source As Control, X As Single, Y As Single)
    Image2.Picture = Image1(intIndex).Picture ' 将拖动的图片设置为目标图片
    intFlag = 1 ' 设置标记变量为1，表示已选择了图片
End Sub

加入一个按钮和文本框
代码如下

Private Sub nameEdit_KeyDown(KeyCode As Integer, Shift As Integer)
    ' 按下Enter键时触发事件
    If KeyCode = 13 Then
        Call playGame
    End If
End Sub


Private Sub playBtn_Click()
    Call playGame
End Sub

Private Sub playGame()
    ' 游戏开始逻辑
    If nameEdit.Text = "" Then
        MsgBox "お名前をご入力ください!" ' 提示输入用户名
    ElseIf intFlag = 0 Then
        MsgBox "アバターを選択してください" ' 提示选择一张图片
    Else
        strUserName = nameEdit.Text ' 获取用户输入的用户名
        ' 显示游戏主界面并关闭当前窗体
        gameFrom.Show
        Unload Me
    End If
End Sub

3 游戏页的制作

页面图

1 显示选择的头像和用户名

在这里插入图片描述
代码如下：

Dim strMyName As String ' 玩家名称
Private Sub Form_Load()
    Call pageInit
    ' 初始化界面控件状态
    '历史聊天框
    historyEdit.Locked = True
    '连接IP按钮
    connectBtn.Enabled = False
    '发送信息按钮
    sendBtn.Enabled = False
    '发送信息文本区
    textEdit.Enabled = False
    '选择石头剪刀按钮
    myChoiceBtn.Enabled = False

End Sub

' 页面初始化函数
Private Sub pageInit()
    If ReadyFrom.intIndex = 0 Then
        strImgPath = "\img\img0.jpg"
    ElseIf ReadyFrom.intIndex = 1 Then
        strImgPath = "\img\img1.jpg"
    ElseIf ReadyFrom.intIndex = 2 Then
        strImgPath = "\img\img2.jpeg"
    ElseIf ReadyFrom.intIndex = 3 Then
        strImgPath = "\img\img3.jpg"
    ElseIf ReadyFrom.intIndex = 4 Then
        strImgPath = "\img\img4.jpg"
    End If
    
    ' 加载图片到界面
    myImg.Picture = LoadPicture(App.Path & strImgPath)
    ' 设置玩家名称
    myNameLable.Caption = ReadyFrom.strUserName
    strMyName = ReadyFrom.strUserName
End Sub

2 石头剪刀布显示在我的选择框中

在这里插入图片描述代码如下：

Dim strChoosedImgPath As String ' 选择的图片路径
Dim boolImgFlag As Boolean ' 是否可以选择图片
Dim boolMePunches As Boolean ' 我的出拳情况

'单机imgGame组件事件
Private Sub imgGame_Click(Index As Integer)
    If boolImgFlag Or boolMePunches = False Then
        ' 显示对手选择的默认图片
        FriChoiceImg.Picture = LoadPicture(App.Path & "\img\img5.jpg")

        If Index = 0 Then
            strChoosed = 1 ' 石头
            strChoosedImgPath = "\img\shi.jpg"
        ElseIf Index = 1 Then
            strChoosed = 2 ' 剪刀
            strChoosedImgPath = "\img\jian.jpg"
        ElseIf Index = 2 Then
            strChoosed = 3 ' 布
            strChoosedImgPath = "\img\bu.jpg"
        End If
        
        ' 启用确认按钮
        myChoiceBtn.Enabled = True
        MyChoiceImg.Picture = LoadPicture(App.Path & strChoosedImgPath)
    Else
        MsgBox "当前不能选择手势或已经出拳，请等待对手出拳完成后再操作"
    End If
End Sub

3 ip是否正确地址的检验，及利用Winsock进行udp连接作成简单聊天

引入Winsock，并设置protocol
检验文本框ip是否正确

Dim strIpAddress As String ' IP地址
'校验IP地址
Private Sub friendIpEdit_Change()
    connectBtn.Enabled = False  ' 禁用连接按钮

    ' 获取用户输入的IP地址
    strIpAddress = friendIpEdit.Text

    ' 检查IP地址是否合法
    If IsValidstrIpAddress(strIpAddress) Then
        connectBtn.Enabled = True  ' 若IP地址合法，则启用连接按钮
    End If
End Sub
' 校验IP地址是否合法的函数
Public Function IsValidstrIpAddress(ByVal strIpAddress As String) As Boolean
    ' 声明变量
    Dim parts() As String  ' 用于存储IP地址各部分的数组
    Dim i As Integer  ' 循环计数器
    Dim temp As Integer  ' 临时存储转换后的IP地址部分值

    ' 使用"."分割IP地址字符串并存入数组parts
    parts = Split(strIpAddress, ".")

    ' 判断IP地址部分数量是否为4
    If UBound(parts) <> 3 Then
        IsValidstrIpAddress = False  ' 返回False
        Exit Function  ' 退出函数
    End If

    ' 遍历IP地址的各个部分
    For i = LBound(parts) To UBound(parts)
        ' 判断是否为数字
        If Not IsNumeric(parts(i)) Then
            IsValidstrIpAddress = False  ' 返回False
            Exit Function  ' 退出函数
        End If

        ' 将IP地址部分转换为整数并判断是否在0~255范围内
        temp = CInt(parts(i))
        If temp < 0 Or temp > 255 Then
            IsValidstrIpAddress = False  ' 返回False
            Exit Function  ' 退出函数
        End If
    Next i

    ' 若通过上述检查，则IP地址合法，返回True
    IsValidstrIpAddress = True
End Function

udp的连接及聊天和状态显示

代码如下

Dim strImgPath As String ' 图片路径
Dim strDataName As String ' 数据名称
Dim boolConnectFlag As Boolean ' 是否连接状态
Dim boolImgFlag As Boolean ' 是否可以选择图片
' 发起连接按钮点击事件
Private Sub Form_Load()
    Dim ipname As String
    Dim Bind() As String

    ' 获取本地IP地址
    ipname = Winsock.LocalIP
    ' 将IP地址按点分割成数组
    Bind = Split(ipname, ".")
    ' 绑定本地IP和端口号，端口号为1000 + IP地址的最后一位
    Winsock.Bind (1000 + Bind(3))
    
    boolImgFlag = True
    boolConnectFlag = True
End Sub
Private Sub connectBtn_Click()
    On Error Resume Next
    ' 设置远程主机IP和端口号
    With Winsock
        .RemoteHost = strIpAddress
        Dim RemotePort() As String
        RemotePort = Split(strIpAddress, ".")
        .RemotePort = (1000 + RemotePort(3))
    End With
    ' 发送初始化消息包括玩家名称和图片路径
    Winsock.SendData "#InitSend#" & strMyName & "#" & strImgPath
    If Err.Number <> 0 Then
         MsgBox (Err.Description)
         Err.Clear
    End If
End Sub

Private Sub sendBtn_Click()
    ' 检查文本编辑框是否有内容
    If textEdit.Text <> "" Then
        historyEdit.Text = historyEdit.Text & "---mine---" & vbCrLf  ' 在历史记录中添加发送消息标识
        historyEdit.Text = historyEdit.Text & textEdit.Text & vbCrLf  ' 在历史记录中添加发送的文本内容
      
        ' 发送消息包括玩家名称和文本内容
        Winsock.SendData "@MsgSend@" & strMyName & "@" & textEdit.Text  ' 发送消息数据
        
        textEdit.Text = ""  ' 清空文本编辑框内容

    Else
        MsgBox "请输入要发送的消息内容"  ' 如果文本编辑框内容为空，弹出提示框
    End If
End Sub

'接受数据处理
Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String  ' 定义字符串变量用于存储接收的数据
    Dim strDatas() As String  ' 定义字符串数组用于存储分割后的数据
    Dim strDataTxt As String  ' 定义字符串变量用于存储文本数据
    Dim strDataImgPath As String  ' 定义字符串变量用于存储图片路径

    ' 接收数据
    Winsock.GetData strData

    If InStr(strData, "#InitSend#") Then
        ' 如果接收到初始化数据
        strDatas = Split(strData, "#")  ' 使用#符号分割数据
        strDataName = strDatas(2)  ' 获取对方名称
        strDataImgPath = strDatas(3)  ' 获取对方头像路径
        friendNameLable.Caption = strDataName  ' 设置对方名称标签显示内容
        Print (strDataImgPath)
        'friendImg.Picture = LoadPicture(App.Path & strDataImgPath)  ' 加载对方头像图片
        
        ' 如果是刚连接上，则回复初始化消息
        If boolConnectFlag Then
            Winsock.SendData "#InitSend#" & strMyName & "#" & strImgPath  ' 回复初始化消息
            boolConnectFlag = False  ' 将连接标志设为False
        End If
        
        sendBtn.Enabled = True  ' 启用发送按钮
        textEdit.Enabled = True  ' 启用文本编辑框
        
        
    ElseIf InStr(strData, "#MsgSend#") Then
        ' 如果接收到消息数据
        strDatas = Split(strData, "#")  ' 使用#符号分割数据
        strDataName = strDatas(2)  ' 获取对方名称
        strDataTxt = strDatas(3)  ' 获取消息内容
        
        historyEdit.Text = historyEdit.Text & "---" & strDataName & "---" & vbCrLf  ' 在历史记录中添加对方名称
        historyEdit.Text = historyEdit.Text & strDataTxt & vbCrLf  ' 在历史记录中添加消息内容
        historyEdit.SelStart = Len(historyEdit.Text)  ' 将光标定位到文本末尾
    End If
End Sub

猜拳游戏的完成
代码如下：

Dim strChoosed As String ' 选择的手势
Dim strMyName As String ' 玩家名称
Dim IntGameNumber As Integer ' 游戏局数
Dim strDataChoPath As String ' 数据路径
Dim strDataFriChoe As String ' 对手选择
Dim strGame As String ' 我和对手的选择

Dim boolFriPunches As Boolean ' 对手的出拳情况

Private Sub Form_Load()
   
    boolMePunches = False
    boolFriPunches = False
End Sub

Private Sub myChoiceBtn_Click()
    ' 禁用确认按钮
    myChoiceBtn.Enabled = False
    boolMePunches = True
    ' 发送游戏出拳消息包括玩家名称和选择的手势
    Winsock.SendData "@GameSend@" & strMyName & "@" & strChoosed & "@" & strChoosedImgPath
    historyEdit.Text = historyEdit.Text & "等待对手出拳..." & vbCrLf
    ' 如果双方都已出拳，则判断胜负
    If boolMePunches And boolFriPunches Then
        WinOrLose
    End If
    boolImgFlag = False
End Sub

Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String  ' 定义字符串变量用于存储接收的数据
    Dim strDatas() As String  ' 定义字符串数组用于存储分割后的数据
    Dim strDataTxt As String  ' 定义字符串变量用于存储文本数据
    Dim strDatastrImgPath As String  ' 定义字符串变量用于存储图片路径
    ' 接收数据
    Winsock.GetData strData
    If InStr(strData, "@InitSend@") Then
        ' 如果接收到初始化数据
        strDatas = Split(strData, "@")  ' 使用@符号分割数据
        strDataName = strDatas(2)  ' 获取对方名称
        strDatastrImgPath = strDatas(3)  ' 获取对方头像路径
        friendNameLable.Caption = strDataName  ' 设置对方名称标签显示内容
        friendImg.Picture = LoadPicture(App.Path & strDatastrImgPath)  ' 加载对方头像图片
        ' 如果是刚连接上，则回复初始化消息
        If boolConnectFlag Then
            Winsock.SendData "@InitSend@" & strMyName & "@" & strImgPath  ' 回复初始化消息
            boolConnectFlag = False  ' 将连接标志设为False
        End If
        
        sendBtn.Enabled = True  ' 启用发送按钮
        textEdit.Enabled = True  ' 启用文本编辑框
        
    ElseIf InStr(strData, "@GameSend@") Then
        ' 如果接收到游戏数据
        strDatas = Split(strData, "@")  ' 使用@符号分割数据
        strDataName = strDatas(2)  ' 获取对方名称
        strDataFriChoe = strDatas(3)  ' 获取对方选择
        strDataChoPath = strDatas(4)  ' 获取对方选择图片路径
        boolFriPunches = True  ' 对方已出拳标志设为True
        
        ' 如果双方都已出拳，则判断胜负
        If boolMePunches And boolFriPunches Then
            WinOrLose  ' 调用判断胜负函数
        End If   
    ElseIf InStr(strData, "@MsgSend@") Then
        ' 如果接收到消息数据
        strDatas = Split(strData, "@")  ' 使用@符号分割数据
        strDataName = strDatas(2)  ' 获取对方名称
        strDataTxt = strDatas(3)  ' 获取消息内容
        
        historyEdit.Text = historyEdit.Text & "---" & strDataName & "---" & vbCrLf  ' 在历史记录中添加对方名称
        historyEdit.Text = historyEdit.Text & strDataTxt & vbCrLf  ' 在历史记录中添加消息内容
        historyEdit.SelStart = Len(historyEdit.Text)  ' 将光标定位到文本末尾
        
    ElseIf InStr(strData, "@endSend@") Then
        ' 如果接收到结束连接数据
        MsgBox "对方已断开连接"  ' 弹出提示对话框
        friendImg.Picture = LoadPicture(App.Path & "\img\img5.jpg")  ' 加载默认对方头像
        friendNameLable.Caption = "???"  ' 设置对方名称为问号
        FriChoiceImg.Picture = LoadPicture(App.Path & "\img\img5.jpg")  ' 加载默认选择图片
        
        strDataChoPath = ""  ' 清空选择图片路径
        strDataFriChoe = ""  ' 清空对方选择
        strGame = ""  ' 清空游戏状态
        strDataName = ""  ' 清空对方名称
    End If
End Sub

Private Sub WinOrLose()
    ' 显示对手选择的图片
    FriChoiceImg.Picture = LoadPicture(App.Path & strDataChoPath)

    ' 判断胜负
    strGame = strChoosed & strDataFriChoe
    Select Case strGame
        Case "11"
            MsgBox "平局"
            DisResults ("0")
        Case "12"
            MsgBox "你赢了"
            DisResults (strMyName)
        Case "13"
            MsgBox "对方赢了"
            DisResults (strDataName)
        Case "21"
            MsgBox "对方赢了"
            DisResults (strDataName)
        Case "22"
            MsgBox "平局"
            DisResults ("0")
        Case "23"
            MsgBox "你赢了"
            DisResults (strMyName)
        Case "31"
            MsgBox "你赢了"
            DisResults (strMyName)
        Case "32"
            MsgBox "对方赢了"
            DisResults (strDataName)
        Case "33"
            MsgBox "平局"
            DisResults ("0")
    End Select
    
    boolImgFlag = True
    IntGameNumber = 0
    strChoosed = ""
    strDataFriChoe = ""
    strDataChoPath = ""
    strDataFriChoe = ""
    strGame = ""
    boolFriPunches = False
    boolMePunches = False
    boolImgFlag = True
End Sub

Private Sub DisResults(str As String)
    If str = "0" Then
        historyEdit.Text = historyEdit.Text & vbCrLf & "--**平局**--" & vbCrLf & vbCrLf
    Else
        historyEdit.Text = historyEdit.Text & vbCrLf & "结果--" & str & "--胜利" & vbCrLf & vbCrLf
    End If
    historyEdit.Text = historyEdit.Text & "------------------------" & vbCrLf & vbCrLf
    historyEdit.SelStart = Len(historyEdit.Text)
End Sub

该页总代码

Dim strImgPath As String ' 图片路径
Dim strMyName As String ' 玩家名称
Dim strChoosedImgPath As String ' 选择的图片路径
Dim strIpAddress As String ' IP地址
Dim strDataName As String ' 数据名称
Dim boolConnectFlag As Boolean ' 是否连接状态

Dim strChoosed As String ' 选择的手势
Dim IntGameNumber As Integer ' 游戏局数
Dim strDataChoPath As String ' 数据路径
Dim strDataFriChoe As String ' 对手选择
Dim strGame As String ' 我和对手的选择

Dim boolFriPunches As Boolean ' 对手的出拳情况

Dim boolImgFlag As Boolean ' 是否可以选择图片
Dim boolMePunches As Boolean ' 我的出拳情况
Private Sub Form_Load()
    Call pageInit
    ' 初始化界面控件状态
    '历史聊天框
    historyEdit.Locked = True
    '连接IP按钮
    connectBtn.Enabled = False
    '发送信息按钮
    sendBtn.Enabled = False
    '发送信息文本区
    textEdit.Enabled = False
    '选择石头剪刀按钮
    myChoiceBtn.Enabled = False
    
    
    Dim ipname As String
    Dim Bind() As String

    ' 获取本地IP地址
    ipname = Winsock.LocalIP
    ' 将IP地址按点分割成数组
    Bind = Split(ipname, ".")
    ' 绑定本地IP和端口号，端口号为1000 + IP地址的最后一位
    Winsock.Bind (1000 + Bind(3))
    
    boolMePunches = False
    boolFriPunches = False
    boolImgFlag = True
    boolConnectFlag = True
End Sub






Private Sub myChoiceBtn_Click()
    ' 禁用确认按钮
    myChoiceBtn.Enabled = False

    boolMePunches = True
    ' 发送游戏出拳消息包括玩家名称和选择的手势
    Winsock.SendData "#GameSend#" & strMyName & "#" & strChoosed & "#" & strChoosedImgPath
    historyEdit.Text = historyEdit.Text & "等待对手出拳..." & vbCrLf

    ' 如果双方都已出拳，则判断胜负
    If boolMePunches And boolFriPunches Then
        WinOrLose
    End If

    boolImgFlag = False
End Sub








' 发起连接按钮点击事件
Private Sub connectBtn_Click()
    On Error Resume Next
    ' 设置远程主机IP和端口号
    With Winsock
        .RemoteHost = strIpAddress
        Dim RemotePort() As String
        RemotePort = Split(strIpAddress, ".")
        .RemotePort = (1000 + RemotePort(3))
    End With
    ' 发送初始化消息包括玩家名称和图片路径
    Winsock.SendData "#InitSend#" & strMyName & "#" & strImgPath
    If Err.Number <> 0 Then
         MsgBox (Err.Description)
         Err.Clear
    End If
End Sub



Private Sub sendBtn_Click()
    ' 检查文本编辑框是否有内容
    If textEdit.Text <> "" Then
        historyEdit.Text = historyEdit.Text & "---mine---" & vbCrLf  ' 在历史记录中添加发送消息标识
        historyEdit.Text = historyEdit.Text & textEdit.Text & vbCrLf  ' 在历史记录中添加发送的文本内容
      
        ' 发送消息包括玩家名称和文本内容
        Winsock.SendData "#MsgSend#" & strMyName & "#" & textEdit.Text  ' 发送消息数据
        
        textEdit.Text = ""  ' 清空文本编辑框内容

    Else
        MsgBox "请输入要发送的消息内容"  ' 如果文本编辑框内容为空，弹出提示框
    End If
End Sub

'接受数据处理
Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String  ' 定义字符串变量用于存储接收的数据
    Dim strDatas() As String  ' 定义字符串数组用于存储分割后的数据
    Dim strDataTxt As String  ' 定义字符串变量用于存储文本数据
    Dim strDataImgPath As String  ' 定义字符串变量用于存储图片路径

    ' 接收数据
    Winsock.GetData strData

    If InStr(strData, "#InitSend#") Then
        ' 如果接收到初始化数据
        strDatas = Split(strData, "#")  ' 使用#符号分割数据
        strDataName = strDatas(2)  ' 获取对方名称
        strDataImgPath = strDatas(3)  ' 获取对方头像路径
        friendNameLable.Caption = strDataName  ' 设置对方名称标签显示内容
        friendImg.Picture = LoadPicture(App.Path & strDataImgPath)  ' 加载对方头像图片
        
        ' 如果是刚连接上，则回复初始化消息
        If boolConnectFlag Then
            Winsock.SendData "#InitSend#" & strMyName & "#" & strImgPath  ' 回复初始化消息
            boolConnectFlag = False  ' 将连接标志设为False
        End If
        
        sendBtn.Enabled = True  ' 启用发送按钮
        textEdit.Enabled = True  ' 启用文本编辑框
        
    ElseIf InStr(strData, "#GameSend#") Then
        ' 如果接收到游戏数据
        strDatas = Split(strData, "#")  ' 使用#符号分割数据
        strDataName = strDatas(2)  ' 获取对方名称
        strDataFriChoe = strDatas(3)  ' 获取对方选择
        strDataChoPath = strDatas(4)  ' 获取对方选择图片路径
        boolFriPunches = True  ' 对方已出拳标志设为True
        
        ' 如果双方都已出拳，则判断胜负
        If boolMePunches And boolFriPunches Then
            WinOrLose  ' 调用判断胜负函数
        End If
        
    ElseIf InStr(strData, "#MsgSend#") Then
        ' 如果接收到消息数据
        strDatas = Split(strData, "#")  ' 使用#符号分割数据
        strDataName = strDatas(2)  ' 获取对方名称
        strDataTxt = strDatas(3)  ' 获取消息内容
        
        historyEdit.Text = historyEdit.Text & "---" & strDataName & "---" & vbCrLf  ' 在历史记录中添加对方名称
        historyEdit.Text = historyEdit.Text & strDataTxt & vbCrLf  ' 在历史记录中添加消息内容
        historyEdit.SelStart = Len(historyEdit.Text)  ' 将光标定位到文本末尾
        
    ElseIf InStr(strData, "#endSend#") Then
        ' 如果接收到结束连接数据
        MsgBox "对方已断开连接"  ' 弹出提示对话框
        friendImg.Picture = LoadPicture(App.Path & "\img\img5.jpg")  ' 加载默认对方头像
        friendNameLable.Caption = "???"  ' 设置对方名称为问号
        FriChoiceImg.Picture = LoadPicture(App.Path & "\img\img5.jpg")  ' 加载默认选择图片
        
        strDataChoPath = ""  ' 清空选择图片路径
        strDataFriChoe = ""  ' 清空对方选择
        strGame = ""  ' 清空游戏状态
        strDataName = ""  ' 清空对方名称
    End If
End Sub
Private Sub WinOrLose()
    ' 显示对手选择的图片
    FriChoiceImg.Picture = LoadPicture(App.Path & strDataChoPath)

    ' 判断胜负
    strGame = strChoosed & strDataFriChoe
    Select Case strGame
        Case "11"
            MsgBox "平局"
            DisResults ("0")
        Case "12"
            MsgBox "你赢了"
            DisResults (strMyName)
        Case "13"
            MsgBox "对方赢了"
            DisResults (strDataName)
        Case "21"
            MsgBox "对方赢了"
            DisResults (strDataName)
        Case "22"
            MsgBox "平局"
            DisResults ("0")
        Case "23"
            MsgBox "你赢了"
            DisResults (strMyName)
        Case "31"
            MsgBox "你赢了"
            DisResults (strMyName)
        Case "32"
            MsgBox "对方赢了"
            DisResults (strDataName)
        Case "33"
            MsgBox "平局"
            DisResults ("0")
    End Select
    
    boolImgFlag = True
    IntGameNumber = 0
    strChoosed = ""
    strDataFriChoe = ""
    strDataChoPath = ""
    strDataFriChoe = ""
    strGame = ""
    boolFriPunches = False
    boolMePunches = False
    boolImgFlag = True
End Sub

Private Sub DisResults(str As String)
    If str = "0" Then
        historyEdit.Text = historyEdit.Text & vbCrLf & "--**平局**--" & vbCrLf & vbCrLf
    Else
        historyEdit.Text = historyEdit.Text & vbCrLf & "结果--" & str & "--胜利" & vbCrLf & vbCrLf
    End If
    historyEdit.Text = historyEdit.Text & "------------------------" & vbCrLf & vbCrLf
    
    historyEdit.SelStart = Len(historyEdit.Text)
End Sub

'单机imgGame组件事件
Private Sub imgGame_Click(Index As Integer)
    If boolImgFlag Or boolMePunches = False Then
        ' 显示对手选择的默认图片
        FriChoiceImg.Picture = LoadPicture(App.Path & "\img\img5.jpg")

        If Index = 0 Then
            strChoosed = 1 ' 石头
            strChoosedImgPath = "\img\shi.jpg"
        ElseIf Index = 1 Then
            strChoosed = 2 ' 剪刀
            strChoosedImgPath = "\img\jian.jpg"
        ElseIf Index = 2 Then
            strChoosed = 3 ' 布
            strChoosedImgPath = "\img\bu.jpg"
        End If
        
        ' 启用确认按钮
        myChoiceBtn.Enabled = True
        MyChoiceImg.Picture = LoadPicture(App.Path & strChoosedImgPath)
    Else
        MsgBox "当前不能选择手势或已经出拳，请等待对手出拳完成后再操作"
    End If
End Sub

'校验IP地址
Private Sub friendIpEdit_Change()
    connectBtn.Enabled = False  ' 禁用连接按钮

    ' 获取用户输入的IP地址
    strIpAddress = friendIpEdit.Text

    ' 检查IP地址是否合法
    If IsValidstrIpAddress(strIpAddress) Then
        connectBtn.Enabled = True  ' 若IP地址合法，则启用连接按钮
    End If
End Sub

' 校验IP地址是否合法的函数
Public Function IsValidstrIpAddress(ByVal strIpAddress As String) As Boolean
    ' 声明变量
    Dim parts() As String  ' 用于存储IP地址各部分的数组
    Dim i As Integer  ' 循环计数器
    Dim temp As Integer  ' 临时存储转换后的IP地址部分值

    ' 使用"."分割IP地址字符串并存入数组parts
    parts = Split(strIpAddress, ".")

    ' 判断IP地址部分数量是否为4
    If UBound(parts) <> 3 Then
        IsValidstrIpAddress = False  ' 返回False
        Exit Function  ' 退出函数
    End If

    ' 遍历IP地址的各个部分
    For i = LBound(parts) To UBound(parts)
        ' 判断是否为数字
        If Not IsNumeric(parts(i)) Then
            IsValidstrIpAddress = False  ' 返回False
            Exit Function  ' 退出函数
        End If

        ' 将IP地址部分转换为整数并判断是否在0~255范围内
        temp = CInt(parts(i))
        If temp < 0 Or temp > 255 Then
            IsValidstrIpAddress = False  ' 返回False
            Exit Function  ' 退出函数
        End If
    Next i

    ' 若通过上述检查，则IP地址合法，返回True
    IsValidstrIpAddress = True
End Function

' 页面初始化函数
Private Sub pageInit()
    If ReadyFrom.intIndex = 0 Then
        strImgPath = "\img\img0.jpg"
    ElseIf ReadyFrom.intIndex = 1 Then
        strImgPath = "\img\img1.jpg"
    ElseIf ReadyFrom.intIndex = 2 Then
        strImgPath = "\img\img2.jpeg"
    ElseIf ReadyFrom.intIndex = 3 Then
        strImgPath = "\img\img3.jpg"
    ElseIf ReadyFrom.intIndex = 4 Then
        strImgPath = "\img\img4.jpg"
    End If
    
    ' 加载图片到界面
    myImg.Picture = LoadPicture(App.Path & strImgPath)
    ' 设置玩家名称
    myNameLable.Caption = ReadyFrom.strUserName
    strMyName = ReadyFrom.strUserName
End Sub


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    ' 若仍处于连接状态则发送断开消息
    If strDataName <> "" Then
        Winsock.SendData "@endSend@"
    End If
    frmBye.Show
    Unload Me
    
End Sub

页面4，结束页面

在这里插入图片描述

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    ' 若仍处于连接状态则发送断开消息
    If strDataName <> "" Then
        Winsock.SendData "@endSend@"
    End If
    Unload Me
	frmBye.Show
End Sub

frmBye

Private Sub Form_Load()
    Timer1.Interval = 1500
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Unload Me
    End
End Sub

基于 VB6的猜拳游戏

基于 VB6的猜拳游戏

1 欢迎页的制作

2 准备页的制作

3 游戏页的制作

1 显示选择的头像和用户名

2 石头剪刀布显示在我的选择框中

3 ip是否正确地址的检验，及利用Winsock进行udp连接作成简单聊天

相关文章

一键换脸的facefusion

Leaflet 中创建一个二维地图

2024年上半年数学建模竞赛一览表（附赠12场竞赛的优秀论文+格式要求）[电工、妈杯、数维、五一等12场]

SpringBoot学习笔记一、SpringBoot应用初创建以及应用

一款比 K8S 更好用的编排工具——Nomod 单机部署

STM32收发HEX数据包

学点儿数据库_Day11_多表、等值连接、内连接、模糊查找

真机笔记（3）真机需求讲解

AI Agent（LLM Agent）入门解读

React和Vue.js的有什么区别

全国草地资源类型分布图

2024/03/27(C++·day3)

力扣Lc23--- 290. 单词规律(java版）-2024年3月27日

Oracle数据库管理：从基础到高级应用【文末送书-45】

数据结构之单链表的详细实现(图解)

【业界动态】Digital Twin-数字孪生

【MATLAB源码-第170期】基于matlab的BP神经网络股票价格预测GUI界面附带详细文档说明。

chrome 浏览器报错 This page will not function without javascript enabled

产品经理进阶：抖音电商的商业逻辑（抖店）

Openstack创建和操作实例，实现与外部网络通信