Langeweile...
Buttons:
btnKugel
btnDrehen
btnNeu
btnEnde
Buttons:
btnKugel
btnDrehen
btnNeu
btnEnde
Code:
Public Class Form1
Private kugel As Byte
Private schacht As Byte
Private spielerZug As Boolean
Private Sub btnEnde_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnde.Click
End
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Randomize()
kugel = CByte((5 * Rnd()) + 1)
schacht = CByte((5 * Rnd()) + 1)
spielerZug = True
End Sub
Private Sub btnNeu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNeu.Click
Form1_Load(Nothing, Nothing)
End Sub
Private Sub btnDrehen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDrehen.Click
Randomize()
schacht = CByte((5 * Rnd()) + 1)
End Sub
Private Sub btnKugel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKugel.Click
If kugel = schacht Then
If spielerZug = True Then
MsgBox("Du hast Dich soeben umgebracht!", MsgBoxStyle.OkOnly, "HEADSHOT!!!")
Else
MsgBox("...und ist jetzt Schrott!", MsgBoxStyle.OkOnly, "CPUSHOT!!!")
End If
btnNeu_Click(Nothing, Nothing)
Exit Sub
Else
If spielerZug = True Then
MsgBox("Die Kammer war leer!", MsgBoxStyle.OkOnly, "KLACK")
spielerZug = False
Else
MsgBox("...und funktioniert noch.", MsgBoxStyle.OkOnly, "KLACK")
spielerZug = True
End If
End If
schacht += 1
If schacht = 7 Then
schacht = 1
End If
If spielerZug = False Then
ZugCPU()
End If
End Sub
Public Sub ZugCPU()
Randomize()
Dim zufall As Byte = CByte(1 * Rnd())
If zufall = 1 Then
MsgBox("Computer dreht...", MsgBoxStyle.OkOnly, "Drehen")
btnDrehen_Click(Nothing, Nothing)
End If
MsgBox("Computer drückt ab...", MsgBoxStyle.OkOnly, "Feuer frei!")
btnKugel_Click(Nothing, Nothing)
End Sub
End Class