수다닷컴

Private Sub Command2_Click() If Form2.Text4.Text = 1 Then Text2.Text = 가위 Form2.Text4.Text = Form2.Text4.Text - 1 Else Form2.Text4.Text = 0 MsgBox 가위 카드가 부족합니다, , 대결 Unload Me Form2.Show End IfDim a As IntegerDim b As IntegerFor a = 1 To 3b = Int(Rnd * 3) + 1Next If b = 1 Then Text1.Text = 가위 End If If b = 2 Then Text1.Text = 바위 End If If b = 3 Then Text1.Text = 보 End If If Text1.Text = 가위 And Text2.Text = 가위 And Form2.Text2.Text = 1 Then MsgBox 비겼습니다, , 대결 MsgBox 돌아갑니다.., , 대결 Unload Me Form2.Show ElseIf Text1.Text = 가위 And Text2.Text = 바위 And Form2.Text2.Text = 1 Then MsgBox 이겼습니다, , 대결 MsgBox 별1개를 획득하였습니다, , 대결 Form2.Text2.Text = From2.Text2.Text + 1 Unload Me Form2.Show ElseIf Text1.Text = 가위 And Text2.Text = 보 And Form2.Text2.Text = 1 Then MsgBox 졌습니다, , 대결 MsgBox 별1개를 잃었습니다, , 대결 Form2.Text2.Text = From2.Text2.Text - 1 Unload Me Form2.Show ElseIf Text1.Text = 바위 And Text2.Text = 가위 And Form2.Text2.Text = 1 Then MsgBox 졌습니다, , 대결 MsgBox 별1개를 잃었습니다, , 대결 Form2.Text2.Text = From2.Text2.Text - 1 Unload Me Form2.Show ElseIf Text1.Text = 바위 And Text2.Text = 바위 And Form2.Text2.Text = 1 Then MsgBox 비겼습니다, , 대결 MsgBox 돌아갑니다.., , 대결 Unload Me Form2.Show ElseIf Text1.Text = 바위 And Text2.Text = 보 And Form2.Text2.Text = 1 Then MsgBox 이겼습니다, , 대결 MsgBox 별1개를 획득하였습니다, , 대결 Form2.Text2.Text = From2.Text2.Text + 1 Unload Me Form2.Show ElseIf Text1.Text = 보 And Text2.Text = 가위 And Form2.Text2.Text = 1 Then MsgBox 이겼퐔 이겼습니다, , 대결 MsgBox 별1개를 획득하였습니다, , 대결 Form2.Text2.Text = From2.Text2.Text + 1 Unload Me Form2.Show ElseIf Text1.Text = 보 And Text2.Text = 바위 And Form2.Text2.Text = 1 Then MsgBox 졌습니다, , 대결 MsgBox 별1개를 잃었습니다, , 대결 Form2.Text2.Text = From2.Text2.Text - 1 Unload Me Form2.Show ElseIf Text1.Text = 보 And Text2.Text = 보 And Form2.Text2.Text = 1 Then MsgBox 비겼습니다, , 대결 MsgBox 돌아갑니다.., , 대결 Unload Me Form2.Show End IfEnd Sub
가위바위보 모든 경우의 수를 다 충족시켜서
쫌 소스가 긴데
비슷한 소스 하나만 딱 올려서 질문할게여
form2.text2.text = from2.text2.text - 1
이 부분에서만 오류가 발생하네요;;
비겼을때는 그냥 폼2로 잘 돌아가지던데...
어떻하죠?

신청하기