Suchergebnisse

Visual Basic-Quellcode (1 Zeile) Dann kommt erstmal in der TextBox die Kombination aus den anderen Texten zusammen. Wenn Du den dann wieder aufteilen willst: Visual Basic-Quellcode (2 Zeilen)

Zeile 18 und 19 unter das Next: Visual Basic-Quellcode (14 Zeilen) sonst wird C pro Klick immer 6x um 1 erhöht Randomize timer sollte doch auch außerhalb der Würfel-Click-Prozedur reichen.

Ok, Next gehört natürlich immer zu einem For. Ich wollt nur klarmachen, dass Counter = Counter + 1 nicht in eine For-Schleife gehört, weil ja dann zu oft gezählt wird. Command1 setzt den Counter auf 1. Ok Würfeln_Knopf_Click sollte den Counter immer um 1 erhöhen. Laut Code tut er dies. btw: Text1.Text = (Counter & " " & "Wurf ergab" & " " & w) => Text1.Text = (Counter & ". Wurf ergab " & w)

Gegenfrage: Zu welchem Zweck willst/brauchst Du eine? Sinn der For-Schleife: Irgendwas x-mal wiederholen. Visual Basic-Quellcode (3 Zeilen)

Na, das sieht doch sinnvoll aus. Passt doch. Dazu müssen natürlich alle Shapes »Shape1« heißen und deren Index passend von 0 bis ... ach Stop! Du hast 6 Figuren => i muss von 0 bis 5 gehen: 0, 1, 2, 3, 4, 5 = 6 Figurenindizes Wenn Du von 0-6 zählst, kommt es zu Crash.

Was genau erklären?

Visual Basic-Quellcode (6 Zeilen) *es wird hier nur von Null bis Fünf gezählt, da Du 6 Figuren hast, die hoffentlich alle Shape1 heißen und im Index mit Null bis Fünf durchnummeriert sind Figur 1: Name = Shape1, Index = 0 Figur 2: Name = Shape1, Index = 1 Figur 3: Name = Shape1, Index = 2 Figur 4: Name = Shape1, Index = 3 Figur 5: Name = Shape1, Index = 4 Figur 6: Name = Shape1, Index = 5

Achso. Die Shapes sind Deine Punkte auf der Würfelseite! Jetze. Aber das mit dem Counter kapier ich echt nicht. Bleibt Counter immer bei 1? Ist das Gezeigte der vollständige Code?

Ja, statt mit Text1 zu arbeiten, kannst Du auch gleich mit List1.AddItem(Counter & ". Wurf ergab " & w) arbeiten. Das einzige, was jetzt noch nicht klappt, ist der Counter, richtig? Wird die Liste korrekt befüllt oder wird die nach jedem Würfel geleert? Nur zur Sicherheit: Der Counter wird (gegen Deinen Willen) während der Programmausführung immer wieder auf Null gesetzt? Falls ja, kommentier mal die Zeile 7 und 8 testweise aus und proier es nochmal.

Hm... Ich dächt, dass da VB sehr ... ach Moment mal. Au, Kopfschmerz. Dass ich das jetzt erst sehe. Counter ist ja lokal in Form_Load deklariert. Das muss global, also über Private Sub Würfel_Load() stehen, sonst können die anderen Subs damit nix anfangen.

Nein, wie gesagt, Dim Counter As Byte muss aus allen Prozeduren raus, am besten als allererste Zeile im Programm. Sonst wird beim Anklicken von Würfeln_Knopf_Click die Variable Counter immer wieder neu erstellt und auf Null gesetzt. Probier mal: Visual Basic-Quellcode (62 Zeilen)