Hier ist ein Teil meines Programms in dem noch Fehler sind un ich hoffe ihr könnt mir helfen.
Mein Programm ist ein Trinkspiel mit 5 Listboxen in die Namen der Spieler Getränke (untscheidung zwischen kurzen und normal) und Mengenangaben eingegeben werden.
Dann wird durch den Klich eines Buttons erst mal durch zufall eine der beiden listvoxen für Kurze und normale Getränke ausgewählt dann wird durch zufall in jeder listbox ein item ausgewählt und in einem Label wird das ergebnis ausgegeben.
Ich habe noch Radiobuttons eingebaut um die vorkommensweise von kurzen und normalen getränken auszuwählen aber die scheien nicht zu funktionieren. Denn wenn ich den Radiobutton 2 oder 3 auswähle wird anscheinend keine aktion mehr durchgeführt ich hoffe ihr könnt mir da helfen.
Außerdem kommt es oft mal vor das man zwei oder drei mal genau das gleiche ergebnis hintereinander unten hat da steht dann zum beisspiel drei mal hintereinander:
Dominik muss ein Glas Wodka Orange trinken.
Und das sollte ja nicht sein bei recht vielen Items in jeder listbox wodran liegt das?
Außerdem wollte ich noch mal ein countdown einbauen der durch klick auf den Button gestartet wird und wenn er abgelaufen ist soll erst das ergebnis ausgegeben werden?
Das ist aber erstmal nicht die erste Priorität für mich wichtiger sind mir die anderen sachen.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
| procedure TForm1.Button1Click(Sender: TObject);
var mode, mmh:integer;
begin
mmh:= Random(100) + 1;
mode:=random(2)+1;
if listbox1.Items.Count=0 then
begin
showmessage('Geben Sie bitte Namen ein!');
end
else if listbox4.items.Count=0 then
begin
showmessage('Geben Sie Mengenangaben ein!');
end
else if listbox2.items.Count=0 then
begin
showmessage('Geben Sie Getränke ein!');
end
else if listbox3.items.Count=0 then
begin
showmessage('Geben Sie Kurze ein!');
end
else
begin
If RadioButton1.Checked Then If mmh > 25 Then
begin
if mode=2 then
begin
label17.Caption:='Wer muss Trinken? ' + listbox1.Items[random(listbox1.items.count)]+' muss ' + listbox4.Items[random(listbox4.Items.Count)]+ ' ' + listbox2.items[random(listbox2.Items.Count)]+ ' trinken !';
end
else
begin
label17.Caption:='Wer muss Trinken? ' + listbox1.Items[random(listbox1.items.count)]+' muss einen Kurzen ' + listbox3.items[random(listbox3.Items.Count)]+ ' trinken !';
end;
If RadioButton2.Checked Then If mmh > 50 Then
begin
if mode=2 then
begin
label17.Caption:='Wer muss Trinken? ' + listbox1.Items[random(listbox1.items.count)]+' muss ' + listbox4.Items[random(listbox4.Items.Count)]+ ' ' + listbox2.items[random(listbox2.Items.Count)]+ ' trinken !';
end
else
begin
label17.Caption:='Wer muss Trinken? ' + listbox1.Items[random(listbox1.items.count)]+' muss einen Kurzen ' + listbox3.items[random(listbox3.Items.Count)]+ ' trinken !';
end;
If RadioButton3.Checked Then If mmh > 75 Then
begin
if mode=2 then
begin
label17.Caption:='Wer muss Trinken? ' + listbox1.Items[random(listbox1.items.count)]+' muss ' + listbox4.Items[random(listbox4.Items.Count)]+ ' ' + listbox2.items[random(listbox2.Items.Count)]+ ' trinken !';
end
else
begin
label17.Caption:='Wer muss Trinken? ' + listbox1.Items[random(listbox1.items.count)]+' muss einen Kurzen ' + listbox3.items[random(listbox3.Items.Count)]+ ' trinken !';
end;
end;
end;
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
end; |
Wenn ihr wollt kann ich auch zur hilfe mal ein Screenshot von meiner Programmoberfläche reinmachen.
