Hi leute,
Hier mal ein Selbtsprogrammiertes Zahlenratenspiel 
Infos:
Vorteile:
Du kannst gemütlich Enter drücken um zu Bestätigen 
Nachteile:
Er zeigt dir nicht an ob du zu Tief liegts oder zu hoch!
Code:
Hier ist der Code für dass Programm , muss ja dabeigelegt werden o_O
Nur Code nicht .frm!
Code für dass einfache Programm:
Option Explicit
Private mintZahl As Integer
Private mintNewRound As Integer
Private Sub cmdOk_Click()
If IsNumeric(txtZahl.Text) = False Then
MsgBox "Nana, ich will schon wass Richtiges :D", vbExclamation, "Nene :p"
Else
If Not txtZahl.Text = mintZahl Then
MsgBox "Damit lagts du leider falsch", vbInformation, "Falsch"
txtZahl.Text = ""
lblInfo.Caption = "Falsch!"
Else
If txtZahl.Text = mintZahl Then
MsgBox "o.o" & vbCr & "Dass war auch noch die Richtige Zahl :D", vbInformation, "Richtig o_O"
lblInfo.Caption = "Richtig!"
mintNewRound = MsgBox("Möchtest du noch eine Runde mit neuer Zahl?", 36, "Neue Runde?")
If mintNewRound = vbYes Then
Unload Me
frmSpiel.Show
Else
End
End If
End If
End If
End If
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
MsgBox "Zahlenraten by [GRC]Flip!" & vbCr & "Im Zahlenraum 1 - 15 ", vbInformation, "1 - 15"
mintZahl = Zufallszahl(1, 30)
cmdOk.Visible = True
End Sub
Code für dass Schwierigere Programm:
Option Explicit
Private mintZahl As Integer
Private mintNewRound As Integer
Private Sub cmdOk_Click()
If IsNumeric(txtZahl.Text) = False Then
MsgBox "Nana, ich will schon wass Richtiges :D", vbExclamation, "Nene :p"
Else
If Not txtZahl.Text = mintZahl Then
MsgBox "Damit lagts du leider falsch", vbInformation, "Falsch"
txtZahl.Text = ""
lblInfo.Caption = "Falsch!"
Else
If txtZahl.Text = mintZahl Then
MsgBox "o.o" & vbCr & "Dass war auch noch die Richtige Zahl :D", vbInformation, "Richtig o_O"
lblInfo.Caption = "Richtig!"
mintNewRound = MsgBox("Möchtest du noch eine Runde mit neuer Zahl?", 36, "Neue Runde?")
If mintNewRound = vbYes Then
Unload Me
frmSpiel.Show
Else
End
End If
End If
End If
End If
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
MsgBox "Zahlenraten by [GRC]Flip!" & vbCr & "Im Zahlenraum 1 - 15 ", vbInformation, "1 - 15"
mintZahl = Zufallszahl(1, 15)
cmdOk.Visible = True
End Sub
Im Anhang befinden sich Zwei Datein die eine ist die Einfach Variante die andere die Schwere ( 1 - 30 )
Freue mich über Kritik!
Have fun,
[GRC]Flip - GRC Owner
