Zahlenraten mit VB08

spasssssgi · 4. Dezember 2009, 13:34

Zahlenraten

Ich würde gern mein eigenes Zahleraten Programm schreiben. Dazu habe ich ein paar Probleme, da ich schon lange nicht mehr mit Visual Basic gearbeitet habe. Damit alle verstehen wie ich es am Ende haben will habe ich hier einiges Notiert.

Window 1
Hier sollte man seine 2 Zahlen eingeben. z.B 1 und 10, dann ratet man eine Zahl von 1 bis 10. Die zweite Zahl sollte höchstens 100 sein. Falls es höher sein sollte soll eine MsgBox kommen mit dem Text Bitte eine tiefere Zahl eingeben. Die beiden Felder sollte sobald eine Zahl eingegeben wird überprüft werden. Buchstaben sollte man nicht eingeben können. Bei Start geht die Applikation zum Window 2.

Window 2
Hier werden die in Klammern gesetzten Worte durch die vorherige eingaben ersetzt. Oben rechts sieht man eine Leiste mit schon eingegebenen Zahlen. Die letzt eingegebenen Zahlen sollte oben sein. In der Mitte sieht man ein Panel und dort steht der Tipp. Der Tipp überprüft ob die geratene Zahl mit der Zufallszahl übereinstimmt. Falls sie kleiner ist sollte dann im Panel gross "zu klein" stehen. Dasselbe für zu hoche Zahlen. Und der Abbrech Button sollte zum Window 1 zurückführen.

Window 3
Dies ist das letzte Window und dies kommt wenn die geratene Zahl mit der Zufallszahl übereinstimmt. Nochmals! sollte zum Window 1 führen und Schliessen sollte die Anwendung beenden.

_______________________________________________________________________________________________________________________________________________________________________________

Ich währe sehr froh wenn einige mir bei meinem Programm behilflich sein könnten. Einiges habe ich schon selber hingekriegt. Aber mein Hauptproblem ist im Moment die Inhaltskontrolle. Falls Ihr Ihr mal Zeit habt dann könnt Ihr mich vielleicht bei MSN hinzufügen oder schreibt hier.

Mit Freundlichen Grüssen

Spasssssgi

Mille25 · 4. Dezember 2009, 13:39

window 1:

nur zahlen eingeben findeste bei google
um zu überprüfen ob eine zahl kleiner als 100 eingegeben wurde kannste einfach mit textbox2.text < 101 prüfen. (gibt natürlich error wenn keine zahl eingetragen wurde! also vorsicht!)

window 2:

werte aus einer anderen form übernimmt man einfach indem man noch den formnamen davorsetzt... wenn du zB von form 2 auf form1 zugreifen willst schreibst du einfach zB. form1.textbox1.text
naja wenn man auf raten klickt musste dann auch wieder einfach prüfen ob die zahl grösser oder kleiner als die korrekte zahl wäre und dann eben den text entsprechend ändern

spasssssgi · 4. Dezember 2009, 15:56

Mille25 schrieb:

window 1:

nur zahlen eingeben findeste bei google
um zu überprüfen ob eine zahl kleiner als 100 eingegeben wurde kannste einfach mit textbox2.text < 101 prüfen. (gibt natürlich error wenn keine zahl eingetragen wurde! also vorsicht!)

window 2:

werte aus einer anderen form übernimmt man einfach indem man noch den formnamen davorsetzt... wenn du zB von form 2 auf form1 zugreifen willst schreibst du einfach zB. form1.textbox1.text
naja wenn man auf raten klickt musste dann auch wieder einfach prüfen ob die zahl grösser oder kleiner als die korrekte zahl wäre und dann eben den text entsprechend ändern

Ja das mit dem überprüfen ist ein bisschen blöd den es sollte ja erst prüfen wenn etwas eingegeben wurde. Wie soll ich das im Code schreiben? Und ich werde nur eine Form verwenden, da werde ich einfach die Elemente ein und ausblenden.

TiM_My · 4. Dezember 2009, 16:32

so:

VB.NET-Quellcode

Try
'normale befehle die du verwendest
Catch as Exception
'z.B. MsgBox("keine zahl")
End Try

wenn du nur schauen möchtest ob irgentwas eingegeben wurde gehts auch mit if.

VB.NET-Quellcode

if textbox1.text = "" then
'blala
End if

lG TiMMy

spasssssgi · 4. Dezember 2009, 16:50

Das hier ist mein "Code" :wacko: Der rote Bereich hat einen Umwandlungsfehler. Was ist den Falsch?

Könntest du mir zeigen wie du das meinsst mit If textbox.text = "" then WHAT? Mit Else?

Quellcode

Public Class Zahlenraten
Dim Zufallszahl As Integer
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Select Case Asc(e.KeyChar)
Case 48 To 57, 8, 32
' Zahlen, Backspace und Space zulassen
Case Else
' alle anderen Eingaben unterdrücken
e.Handled = True
End Select
End Sub
Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
Select Case Asc(e.KeyChar)
Case 48 To 57, 8, 32
' Zahlen, Backspace und Space zulassen
Case Else
' alle anderen Eingaben unterdrücken
e.Handled = True
End Select
End Sub
Public Function GetRandom(ByVal minimum As Integer, ByVal maximum As Integer) As Integer
Try
Dim nRandom As Integer
Randomize()
nRandom = CInt(TextBox1.Text + (TextBox2.Text - TextBox1.Text + 1) * Rnd())
While nRandom < TextBox1.Text OrElse nRandom > TextBox2.Text
Randomize()
nRandom = CInt(TextBox1.Text + (TextBox2.Text - TextBox1.Text + 1) * Rnd())
End While
Return nRandom
Catch ex As Exception
'ToDo Fehlerbehandlung
Return minimum
End Try
End Function
Private Sub Startbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Startbtn.Click
VonLabel.Visible = False
bisLabel.Visible = False
Zufallszahl = 25
TextBox1.Visible = False
Startbtn.Visible = False
ListBox1.Visible = True
Abbrechenbtn.Visible = True
Ratenbtn.Visible = True
Label1.Text = "Zahl zwischen " + TextBox1.Text + " und " + TextBox2.Text + " raten"
TextBox2.Text = ""
TextBox2.Location = New Point(274, 227)
End Sub
Private Sub Ratenbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ratenbtn.Click
If TextBox2.Text = Zufallszahl Then
MsgBox("Richtig!")
Label1.Text = "Wähle deine Zahlen"
TextBox1.Visible = True
Startbtn.Visible = True
ListBox1.Visible = False
bisLabel.Visible = True
VonLabel.Visible = True
Abbrechenbtn.Visible = False
Label2.Visible = False
TextBox2.Text = "100"
Else
TextBox2.Text = ""
ListBox1.Items.Add(TextBox2.Text)
If CInt(TextBox2.Text) < Zufallszahl Then
Label2.Text = "zu klein"
ElseIf CInt(TextBox2.Text) > Zufallszahl Then
Label2.Text = "zu gross"
End If
End If
End Sub
Private Sub Zahlenraten_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Abbrechenbtn.Visible = False
Ratenbtn.Visible = False
Label2.Visible = False
ListBox1.Visible = False
End Sub
End Class

Mit freundlichen Grüssen

Spasssssgi

TiM_My · 4. Dezember 2009, 17:13

Abbrechenbtn.Visible = False schreibst du in das Form Load ereignis (doppelklick auf die form)
du willst doch dass er beim laden der form unsichtbar ist oder?

(so deute ich das was du schreibst^^)
Ich empfehle dir eher "Try", weil if überprüft dann nur ob was eingegeben wurde, da könnte man einfach en leerzeichem eingeben und schon hätte man nen fehler oder nen buchstaben und es würde nicht klappen...
Nach dem if textbox1.text = "" then kommen deine befehle... :rolleyes:

z.B.:

VB.NET-Quellcode

If textbox.text = "" then
msgbox("du hast nix eingegeben")
end if

da ist übrigens nix rot

haste den code selbst geschrieben?
weil da kommen komponenten wie die if schleife und try schon vor

wie wärs mal damit:
*hust*

lG TiMMy

spasssssgi · 4. Dezember 2009, 17:22

TiM_My schrieb:

Abbrechenbtn.Visible = False schreibst du in das Form Load ereignis (doppelklick auf die form)
du willst doch dass er beim laden der form unsichtbar ist oder? (so deute ich das was du schreibst^^)
Ich empfehle dir eher "Try", weil if überprüft dann nur ob was eingegeben wurde, da könnte man einfach en leerzeichem eingeben und schon hätte man nen fehler oder nen buchstaben und es würde nicht klappen...
Nach dem if textbox1.text = "" then kommen deine befehle... z.B.:

VB.NET-Quellcode

If textbox.text = "" then

msgbox("du hast nix eingegeben")

end if

da ist übrigens nix rot
haste den code selbst geschrieben?
weil da kommen komponenten wie die if schleife und try schon vor
wie wärs mal damit:
*hust*

lG TiMMy

Das mit der Form hatte ich gerade selber gemerkt.. Sry habe einiges vergessen und ich habe alles selber geschrieben bis auf den Teil bei dem die Zufallszahl generiet wird.

Der Teil der rot sein sollte ist:

Quellcode

Else
TextBox2.Text = ""
ListBox1.Items.Add(TextBox2.Text)
If CInt(TextBox2.Text) < Zufallszahl Then
Label2.Text = "zu klein"
ElseIf CInt(TextBox2.Text) > Zufallszahl Then
Label2.Text = "zu gross"
End If

Und wie kann ich die eingegebene Zahl in die Listbox einfügen? mit listbox1.Items.Add(textbox1.Text)?

mit freundlichen Grüssen

Spasssssgi

PS: Die DVD habe ich schon mal geladen. Ich brauche nur noch Zeit zum Sie zu schauen.

TiM_My · 4. Dezember 2009, 17:54

mach mal bitte des rot(hier im forum) wasrot ist

(da oben des bunte ding überm textfeld von "antwort erstellen")
das mit der Listbox geht so wie dus geschrieben hast

kannst nächstes mal auch selbst ausprobieren^^
lG TiMMy :thumbsup:

spasssssgi · 4. Dezember 2009, 18:09

Else
TextBox2.Text = ""
ListBox1.Items.Add(TextBox2.Text)
If CInt(TextBox2.Text) < Zufallszahl Then
Label2.Text = "zu klein"
ElseIf CInt(TextBox2.Text) > Zufallszahl Then
Label2.Text = "zu gross"
End If

Hier ist ein Fehler. Zum vergleichen brauche ich ja den Text (String) in einen Integer umzuwandlen, dass geht aber nicht...
Ich habe nur so blöd gefragt weil es nicht funktioniert hier im VB...
Sry für unverständlichkeiten meinerseits xD

mit freundlichen Grüssen

Spasssssgi

TiM_My · 4. Dezember 2009, 18:59

Da kann ich dir ned helfen xD
ich habs mir jetzt einfacher gemacht

habe mir ne textbox genommen, 2 label, ne Listbox und nen button...
label 1 visible auf false setzten und dann ins form load ereignis schreiben:

VB.NET-Quellcode

Label1.Text = ""
Dim zufall As New Random
For i As Integer = 0 To 1 'zwei stellige Zahl
Label1.Text &= zufall.Next(0, 9)
Next

in den button hab ich dann geschrieben:

VB.NET-Quellcode

ListBox1.Items.Add(TextBox1.Text)
If TextBox1.Text > Label1.Text Then
label2.text = "zu groß"
End If
If TextBox1.Text < Label1.Text Then
label2.text = "zu klein"
End If

is natürlich en komplett andrer code, aber so hätt ichs gemacht

Viel Glück noch^^
lG TiMMy :thumbsup:

spasssssgi · 4. Dezember 2009, 21:47

OK nun haben sich alle Fragen geklährt bis auf 2.

1.

Ich würde gerne meine Beiden EingabeFelder überprüfen nachdem die Zahl eingegeben wurde. Die Prüfung soll genau dann ausgeführt werden wenn die Maus weggeht. Der Überprüfungscode stelle ich mir so vor:

Quellcode

If VonTextbox.Text > BisTextbox.Text Then
MsgBox("Das linke Eingabefeld muss eine kleinere Zahl beinhalten als das rechte!")
VonTextbox.Text = "0"
BisTextbox.Text = "100"
End If

Mir fehlt jetzt nur noch der Code für den Zeitpunkt der Ausführung.

2.

Mein Zufallszahlscript funktioniert nicht ganz. Dies sieht so aus:

Quellcode

Try
Dim nRandom As Integer
Randomize()
nRandom = CInt(BisTextbox.Text + (BisTextbox.Text - VonTextbox.Text + 1) * Rnd())
While nRandom < BisTextbox.Text OrElse nRandom > VonTextbox.Text
Randomize()
nRandom = CInt(BisTextbox.Text + (VonTextbox.Text - VonTextbox.Text + 1) * Rnd())
ZufallszahlLabel.Text = CInt(BisTextbox.Text + (VonTextbox.Text - BisTextbox.Text + 1) * Rnd())
End While
Return
Catch ex As Exception
'ToDo(Fehlerbehandlung)
Return
End Try

Das Label ZufallsLabel bekommt bei diesem Schritt gar keine Zufallszahl zugeteilt. Folge ist das man so viel raten kann wie man will weil es keine Zahl gibt.

Freundliche Grüsse

Spasssssgi

Digot · 4. Dezember 2009, 21:59

Hier ein Link

lg Digot

spasssssgi · 5. Dezember 2009, 11:41

Digot schrieb:

Hier ein Link

lg Digot

Ich brauch kein neues Script ich habe eines. Es wäre sehr hilfreich wenn mir jemand sagen könnte warum es nicht funktioniert und warum das Label nicht überschriben wird.
Das erste Problem habe ich nun selber herausgefunden.

Freundliche Grüsse

Spasssssgi

Zahlenraten mit VB08

Zahlenraten mit VB08

Mille25 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Quellcode

VB.NET-Quellcode

TiM_My schrieb:

VB.NET-Quellcode

Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Quellcode

Quellcode

Digot schrieb:

Benutzer online 1

Tags

Ähnliche Themen

2 Benutzer haben hier geschrieben