'Ein tolles Stein Schere Papier Programm
Sub pe()
Dim Zahl1 As Integer
Dim Zahl2 As Integer
Dim Eingabe As String
'Zahl1 = (3 * Rnd) + 1
Zahl2 = (3 * Rnd) + 1
Eingabe = InputBox("Schere, Stein oder Papier?", "Schnick,Schnack,Schnuck")
If Eingabe = "Schere" Then
Zahl1 = 1
ElseIf Eingabe = "Stein" Then
Zahl1 = 2
ElseIf Eingabe = "Papier" Then
Zahl1 = 3
End If
'1 = Schere, 2 = Stein, 3 = Papier
If Zahl1 = Zahl2 Then
MsgBox "Unentschieden!"
'Schere
ElseIf Zahl1 = 1 And Zahl2 = 3 Then
MsgBox "Du hast gewonnen, Schere schlägt Papier" & vbCrLf & _
"Du hattest Schere!"
ElseIf Zahl1 = 1 And Zahl2 = 2 Then
MsgBox "Du hast verloren, Stein schlägt Schere" & vbCrLf & _
"Du hattest Schere!"
'Stein
ElseIf Zahl1 = 2 And Zahl2 = 1 Then
MsgBox "Du hast gewonnen, Stein schlägt Schere" & vbCrLf & _
"Du hattest Stein!"
ElseIf Zahl1 = 2 And Zahl2 = 3 Then
MsgBox "Du hast verloren, Papier schlägt Stein" & vbCrLf & _
"Du hattest Stein!"
'Papier
ElseIf Zahl1 = 3 And Zahl2 = 2 Then
MsgBox "Du hast gewonnen, Papier schlägt Stein." & vbCrLf & _
"Du hattest Papier!"
ElseIf Zahl1 = 3 And Zahl2 = 1 Then
MsgBox "Du hast verloren, Schere schlägt Papier" & vbCrLf & _
"Du hattest Papier!"
End If
End Sub
|