kostenloser Webspace werbefrei: lima-city

Textboxen auf Werte prüfen??

lima-city → Forum → Programmiersprachen → Basic

1. Autor dieses Themas

   k***************3

   10:51, 18.2.2007

   Hi Leute,
   ich hab folgendes Problem: Ich möchte das Spiel Yatzy in VB programmieren. Ich habe dafür für den Button "Würfeln" folgenden Code geschrieben:
   Public Sub Command1_Click()
   'Würfel 1
   Dim Würfel1
   Randomize
   Würfel1 = Int((6 * Rnd) + 1) 'Ganze Zufallszahl bis Wert 6 erzeugen
   Text19.Text = Würfel1
   
   'Würfel 2
   Dim Würfel2
   Randomize
   Würfel2 = Int((6 * Rnd) + 1) 'Ganze Zufallszahl bis Wert 6 erzeugen
   Text20.Text = Würfel2
   
   'Würfel 3
   Dim Würfel3
   Randomize
   Würfel3 = Int((6 * Rnd) + 1) 'Ganze Zufallszahl bis Wert 6 erzeugen
   Text21.Text = Würfel3
   
   'Würfel 4
   Dim Würfel4
   Randomize
   Würfel4 = Int((6 * Rnd) + 1) 'Ganze Zufallszahl bis Wert 6 erzeugen
   Text22.Text = Würfel4
   
   'Würfel 5
   Dim Würfel5
   Randomize
   Würfel5 = Int((6 * Rnd) + 1) 'Ganze Zufallszahl bis Wert 6 erzeugen
   Text23.Text = Würfel5
   End Sub
   Das heißt dass in die entsprechende Textbox eine Zufallszahl zwischen 1 und 6 erzeugt wird. Jetzt möchte ich einen Button für jede Kombination bei Yatzy machen, also für einer, zweier, etc...
   z.B.: Für den einer-Button möchte ich jetzt alle Textboxen von Text19-Text23 mit dem Wert 1 addieren und in eine weitere Textbox schreiben. Hierfür müsste ich ja prüfen welche Textbox den Wert 1 hat. Könnt ihr mir helfen wie ich das prüfen kann?
   Vielen Dank schonmal im voraus
   Erik

2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

3. cbhp

   Co-Admin

   cbhp hat kostenlosen Webspace.

   17:14, 19.2.2007

   Ich hab mir mal ein kleines Code-Tuning erlaubt:
   
   Private Sub Command1_Click()
   'Würfel 1
   Text19.Text = Würfeln()
   
   'Würfel 2
   Text20.Text = Würfeln()
   
   'Würfel 3
   Text21.Text = Würfeln()
   
   'Würfel 4
   Text22.Text = Würfeln()
   
   'Würfel 5
   Text23.Text = Würfeln()
   End Sub
   
   Function Würfeln() As Integer
   Randomize
   Würfeln = Int(6 * Rnd + 1) 'Ganze Zufallszahl bis Wert 6 erzeugen
   End Function
   
   
   Zweite Aufgabe: Prüfen, in welcher Textbox eine bestimmte Zahl steht und die Summe berechnen.
   
   Private Sub Command2_Click()
   'Alle Einser finden, addieren und die Summe in einer Meldung anzeigen.
   MsgBox "Summe der Zahlen 1: " & Addiere(1)
   
   'Alle Zweier finden, addieren und die Summe in einer Meldung anzeigen.
   MsgBox "Summe der Zahlen 2: " & Addiere(2)
   
   'Alle Dreier finden, addieren und die Summe in einer Meldung anzeigen.
   MsgBox "Summe der Zahlen 3: " & Addiere(3)
   End Sub
   
   Function Addiere(ByVal Zahl As Integer) As Integer
   Dim Summe As Integer
   If Me.Text19.Text = CStr(Zahl) Then Summe = Summe + Zahl
   If Me.Text20.Text = CStr(Zahl) Then Summe = Summe + Zahl
   If Me.Text21.Text = CStr(Zahl) Then Summe = Summe + Zahl
   If Me.Text22.Text = CStr(Zahl) Then Summe = Summe + Zahl
   If Me.Text23.Text = CStr(Zahl) Then Summe = Summe + Zahl
   Addiere = Summe
   End Function
4. Autor dieses Themas

   k***************3

   17:35, 19.2.2007

   Das ist genau das was ich brauche, vielen Dank!!!!!
   Jetzt möchte ich noch die Summe der Addierten 1er in Text1 ausgeben, wie könnte ich das machen, denn Text1.Text = Addiere(1) funktioniert irgendwie net.
   
   Beitrag geaendert: 19.2.2007 17:44:21 von kuschelbaerche123

5. cbhp

   Co-Admin

   cbhp hat kostenlosen Webspace.

   16:44, 21.2.2007

   Da die Funktion einen Integer-Typ zurückgibt und die Eigenschaft "Text" von der Textbox vom Typ String ist, solltest du den Wert in Text umwandeln:
   
   Me.Text1.Text = CStr(Addiere(1))
   

6. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?