AW: Listbox Zahlen erhöhen
Ähm ja, und?
|
AW: Listbox Zahlen erhöhen
Tolle Einstellung.
|
AW: Listbox Zahlen erhöhen
Zitat:
|
AW: Listbox Zahlen erhöhen
Hallo,
w1 := Random(6)+1; 1. Würfel (w1), Random(6) ergibt einen Wert von 0 bis 5, das +1 ergibt also eine Würfelzahl von 1 bis 6 w2 := Random(6)+1; 2. Würfel (w2), dito inc(summe[w1+w2]); w1+w2 ergibt die Würfelzahl von Würfel1 und Würfel2, also 2 bis 12 inc(summe[w1+w2]); ist das gleiche wie summe[w1+w2]:= summe[w1+w2]+1; Bsp: w1=1,w2=2 -> summe[1+2]:= summe[1+2]+1; oder summe[3]:= summe[3]+1; w1=2,w2=6 -> summe[2+6]:= summe[2+6]+1; oder summe[8]:= summe[8]+1 Es wird also immer der korrekte Array-Index benutzt und damit die richtige Würfelsumme um 1 erhöht. Man hätte es auch noch anders schreiben können: wuerfelsumme:= w1+w2; summe[wuerfelsumme]:= summe[wuerfelsumme]+1; Jetzt das ganze noch in eine Schleife (k=Anzahl der Würfe). |
AW: Listbox Zahlen erhöhen
Danke für die Tips, aber irgendwie glaub ich immer noch dass ich scheiße im erklären bin ... so sollte es sein:
Hier ein Link zu meinem Programm in Dropbox... https://www.dropbox.com/s/ikhi9fl52g...ation.zip?dl=0 |
AW: Listbox Zahlen erhöhen
NaJa, wenn das eine Musterlösung ist, die Form ist doch leicht verbesserungswürdig.
Wo fehlt denn da noch etwas? Gruß K-H |
AW: Listbox Zahlen erhöhen
So sollte es in etwa sein.
Rechts daneben soll später noch ein Diagramm hin, welches die Würfe grafisch Anzeigt (in PaintBox bzw. Bitmap). |
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:15 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz