수다닷컴

Private Sub Command1_Click(Index As Integer)
If Text1.Text = -100 Then
MsgBox -100원이 되어 게임을 진행할 수 없습니다.
Exit Sub
Else
End If
Dim i As Integer
Randomize
i = Int(Rnd * 3) + 1
Select Case Index
Case 0
Label3.Caption = 가위
If i = 1 Then
Label5.Caption = 가위
MsgBox 비겼습니다. , ,
ElseIf i = 2 Then
Label5.Caption = 바위
MsgBox 졌습니다. , ,
Text1.Text = Val(Text1.Text) - 100
ElseIf i = 3 Then
Label5.Caption = 보
MsgBox 이겼습니다. , ,
Text1.Text = Val(Text1.Text) + 100
End If
Case 1
Label2.Caption = 바위
If i = 1 Then
Label5.Caption = 바위
MsgBox 비겼습니다. , ,
ElseIf i = 2 Then
Label5.Caption = 보
MsgBox 졌습니다. , ,
Label4.Caption = Label4.Caption - 100
Text1.Text = Val(Text1.Text) - 100
ElseIf i = 3 Then
Label5.Caption = 가위
MsgBox 이겼습니다. , ,
Label4.Caption = Label4.Caption + 100
Text1.Text = Val(Text1.Text) + 100
End If
Case 2
Label5.Caption = 보
If i = 1 Then
Label5.Caption = 보
MsgBox 비겼습니다. , ,
ElseIf i = 2 Then
Label5.Caption = 가위
MsgBox 졌습니다. , ,
Label4.Caption = Label4.Caption - 100
Text1.Text = Val(Text1.Text) - 100
ElseIf i = 3 Then
Label5.Caption = 바위
MsgBox 이겼습니다. , ,
Label4.Caption = Label4.Caption + 100
Text1.Text = Val(Text1.Text) + 100

End If
End Select
End Sub

이 소스에서, 체력바(목숨)을 나타내고 싶고.

목숨을 3개로 한 다음 3번 지면 게임을 닫게 하고 싶은데.

이게 안되서 답답하네요.

이것만 하면 더이상 모르는건 없는데 ㅠ

실력 한번만 더 빌려봅니다

신청하기