Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - Wie Wetteinsatz und Guthaben beim Autorennen umsetzen?
Sputyyy - Di 11.01.11 19:31
Titel: Wie Wetteinsatz und Guthaben beim Autorennen umsetzen?
Hallo Leute!
Ich habe ein Autorennen programmiert (ganz einfaches ;D) und möchte gerne wissen, wie man das Guthaben berechnet.
Ich habe folgende Felder erstellt:
Wetteinsatz; Wählen Sie ein Auto aus auf das sie wetten wollen; Guthaben; Ergebnis.
Das Auto, das als erstes durch das Ziel fährt ist der Gewinner und wenn man richtig gewettet hat bekommt man den gewetteten Einsatz gutgeschrieben, sonst wird er vom Guthaben abgezogen. Ich habe leider keine Ahnung wie ich das programmieren soll^^
Bitte um ein paar Tipps ;D
Vielen Dank im Voraus..
Moderiert von 
Martok: Topic aus Multimedia / Grafik verschoben am Di 11.01.2011 um 18:49
Moderiert von Narses: Titel geändert, war: "Autorennen programmieren".
ALF - Di 11.01.11 19:55
als Beispiel
Delphi-Quelltext
1:
2:
3:
4:
| if ergebnis then
Guthaben:= Guthaben + Ensatzt
else
Guthaben:= Guthaben -Einsatz |
so auf die schnelle. ist aber eigentlich einfache Mathematik, selbst in delphi :wink:
Gruss Alf
elundril - Di 11.01.11 19:59
Einmal brauchst du mal ne Integer-Variable die dir sagt wieviel guthaben du noch hast. Diese wäre entweder im Private-Feld gut aufgehoben oder in einer eigenen klasse. Aber ich glaube bei dir eher erstere Möglichkeit.
Dann brauchen wir einen Dialog wieviel derjenige denn setzen möchte. Da kann man dann den InputDialog verwenden. (Einfach in der Hilfe suchen).
Dann müssen wir mit if abfragen ob derjenige noch genügend guthaben hat um den wetteinsatz zu tätigen. wenn nicht, gehe einen schritt zurück.
Dann muss er ein auto auswählen. Entweder mit einem Klick aufs auto, wo du dir dann irgendwie merken musst welches auto geklickt wurde, oder irgendwie anders.
Dann musst du einfach nur schauen welches auto gewinnt. Wenn das auto gewonnen hat auf das er geklickt hat, wir im der einsatz aufgebucht aufs guthaben, ansonsten abgebucht.
und dann entweder aufhören oder zurück zum anfang.
lg elundril
Sputyyy - Mi 12.01.11 14:55
also das verstehe ich nicht. Kann mir das vielleicht jemand schicken? (Muss leider bis Freitag fertig sein)..
Sputyyy - Mi 12.01.11 15:04
das kenn ich alles schon .. aber ich komme trotzdem nicht auf die Lösung ..
spacemanspiff - Mi 12.01.11 15:12
Also wenn Du was bis Freitag abgeben sollst, wird das wohl für die Schule oder so sein. Ich vermute auch mal, dass dies vielleicht nicht die letzte Abgabe sein wird??
Das was Du da vorhast, ist wirklich sehr sehr simpel und am Besten setzt Du Dich daran und versuchst das zu verstehen. Oder kommst Du sonst immer fragen, ob Dir hier einer die Lösung rüber reicht? Wenn Du den Start verpasst, kannst Du es gleich vergessen, denn die folgenden Aufgaben werden vom Schwierigkeitsgrad sicherlich nicht einfacher...
Im Prinzip willst Du lediglich für jeden Wettenden prüfen: Auf wen wurde gewettet? Ist derjenige auch der Gewinner? Wenn ja, rechne Wettender Guthaben + Einsatz, sonst Wettender Guthaben - Einsatz
Sputyyy - Mi 12.01.11 15:17
Ich suche schon seit fast 5 Stunden nach der Lösung und schön langsam rennt mir die Zeit davon ;D
Ich will auch gar nicht das mir jemand anderes die Hausübung macht, ich möchte es verstehen.
Necaremus - Mi 12.01.11 15:19
nen anderer gedanke, wie man das problem "einfacher" lösen könnte... und noch die bemerkung: "wtf, was'n das für'n wett-sys?"^^
zieh beim setzen schon direkt den einsatz vom guthaben ab.
die gewinner bekommen am ende des rennen einfach einsatz*2 auf ihr guthaben, fertig.
ALF - Mi 12.01.11 16:02
Sputyyy hat folgendes geschrieben  : |
Hallo Leute!
Ich habe ein Autorennen programmiert (ganz einfaches ;D)..... |
Wie hast Du das geschafft :gruebel: wenn Du die Hinweise nicht verstehst und sie nicht umsetzen kannst!!!
Gruss ALf
Sputyyy - Mi 12.01.11 17:32
Das Autorennen selbst funktioniert ja .. es geht nur mehr um die Berechnung des Guthabens ..
jaenicke - Mi 12.01.11 17:36
| Sputyyy hat folgendes geschrieben : |
| Ich suche schon seit fast 5 Stunden nach der Lösung |
Also entweder suchst du im Internet ne fertige Lösung statt es zu versuchen (was nicht klappen wird) oder du musst schon etwas haben wo du nicht weiterkommst. Und wenn das so ist schreib das halt wo du nicht weiterkommst und warum.
Wenn du nur allgemein schreibst, dass du nichts findest, kann dir auch niemand konkret helfen. :nixweiss:
Sputyyy - Mi 12.01.11 17:45
okay, also:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
| betrag:= strtoint(GuthabenAntwort_label.Caption);
If Wetteinsaetze_combobox.text = '10 Euro' then
begin
betrag := betrag - 10
end;
If Wetteinsaetze_combobox.text = '20 Euro' then
begin
betrag := betrag -20
end;
If Wetteinsaetze_combobox.text = '50 Euro' then
begin
betrag := betrag -50
end;
If Wetteinsaetze_combobox.text = '100 Euro' then
betrag := betrag -100
end;
If Wetteinsaetze_combobox.text = '200 Euro' then
betrag := betrag -200
end; |
Leider funktioniert diese Formel nicht. Wenn das Rennen zu Ende ist, wird das Guthaben nicht weniger oder mehr ..
Guthaben :300
Das ist das einzige was nicht funktioniert, doch ich komm nicht darauf was Falsch sein könnte.
Moderiert von Narses: Delphi-Tags hinzugefügt
haentschman - Mi 12.01.11 17:47
:gruebel: und wo zeigst du die Änderungen des Betrages an ?
jaenicke - Mi 12.01.11 17:49
Zudem wäre es sinnvoller den ItemIndex der ComboBox auszuwerten als Textvergleiche zu machen.
Delphi-Quelltext
1:
2:
3:
4:
5:
| case Wetteinsaetze_combobox.ItemIndex of
0: ...
1: ...
...
end; |
jasocul - Mi 12.01.11 17:49
Vielleicht solltest du den neuen Wert auch in GuthabenAntwort_label.Caption eintragen.
Sputyyy - Mi 12.01.11 17:51
hmm .. aber wie soll ich das eingeben? *auf dem Schlauch steh ;D*
jaenicke - Mi 12.01.11 17:54
Wie hast du es denn ausgelesen? Du hast es in einen Integerwert umgewandelt und in betrag gelegt. Und jetzt musst du das genau umgekehrt machen.
ALF - Mi 12.01.11 17:56
so wie du die 300 auf das label angezeigt hast, so setzt Du eben die Variable Betrag dafür ein!
Gruss ALf
jasocul - Mi 12.01.11 17:57
Das wird mir jetzt zu albern. Hier die Lösung:
Delphi-Quelltext
1:
| GuthabenAntwort_label.Caption := IntToStr(betrag); |
Wenn du das Rennen wirklich selbst programmiert hast (nicht abgetippt oder Copy und Paste), hätte das für dich aber klar sein müssen.
Sputyyy - Mi 12.01.11 18:07
Dies funktioniert aber trotzdem noch nicht.
Und ja ich habe es selbst programmiert!^^
---
Moderiert von Narses: Beiträge zusammengefasst---
Delphi-Quelltext
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:
| Delphi-Quelltext:
procedure TVCL.Auto1_timerTimer(Sender: TObject);
begin
Randomize;
car1.left := car1.left + Random(10);
If Car1.left >= 620 then
begin
Auto1_timer.enabled := false;
Auto2_timer.enabled := false;
Auto3_timer.enabled := false;
Auto4_timer.enabled := false;
ErgebnisAntwort_label.Caption := 'Gewonnen hat der Ferrari 288 GTO';
betrag:= strtoint(GuthabenAntwort_label.Caption);
If Wetteinsaetze_combobox.text = '10 Euro' then
begin
betrag := betrag - 10 ;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end;
If Wetteinsaetze_combobox.text = '20 Euro' then
begin
betrag := betrag -20 ;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end;
If Wetteinsaetze_combobox.text = '50 Euro' then
begin
betrag := betrag -50 ;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end;
If Wetteinsaetze_combobox.text = '100 Euro' then
betrag := betrag -100;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end;
If Wetteinsaetze_combobox.text = '200 Euro' then
betrag := betrag -200 ;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end; |
Dies ist mein derzeitiger Code.
Ich habe keine Ahnung was dabei nicht stimmt.
Es wird einfach nichts angezeigt im Feld GuthabenAntwort_label, immer nur 0.
Moderiert von Narses: Highlight- durch Delphi-Tags ersetzt
jaenicke - Mi 12.01.11 18:11
Du hast für jedes Auto denselben Code? :shock: Nun gut, es gibt da auch Prozeduren und so, da kannst du den Code auch auslagern, der identisch ist. Dann rufst du nur noch die Prozedur auf.
| Sputyyy hat folgendes geschrieben : |
| Dies funktioniert aber trotzdem noch nicht. |
Und was sagt der Debugger, wenn du zeilenweise durchgehst? Dann siehst du ja schließlich was passiert.
ALF - Mi 12.01.11 18:15
Ich würde mal sagen das Du aber die 300 erst mal auf Dein label haben must!! Wo passiert den das?
Gruss Alf
haentschman - Mi 12.01.11 18:18
selbst dann müßte er negative Zahlen im Label stehen haben...
Ich tippe mal:
1. die 300 nicht richtig ins Label gelegt
2. die ComboBoxeinträge stimmen nicht, deswegen wird nix abgezogen
Der allgemeine Hinweis: GUI und Daten trennen. Niemals mit Captions oder ähnlichem rechnen. Lieber gleich angewöhnen. Umgewöhnen ist schwerer.
Sputyyy - Mi 12.01.11 18:26
Doch die Combobox einträge stimmen . ich habe sie gerade nocheinmal kontrolliert.
haentschman - Mi 12.01.11 18:30
- inclusive Breakpoint hier z.B. : betrag := betrag -20 ; ?
- hält der Debugger an, wenn du die Combobox auf 20 Euro stellst ?
- Breakpoint auf die IF Abfrage und schauen wie der Combobox.Text wirklich ausschaut ?
Sputyyy - Mi 12.01.11 18:34
Hier ist mein Programm (Grafik ändere ich noch)
haentschman - Mi 12.01.11 18:41
Wie wärs denn mit dem Quelltext... oder befürchtest du, daß Programmteile wiedererkannt werden könnten ? :gruebel:
Ganz im Ernst. Wenn du das selbst gemacht hättest würdest du genau wissen wo das Problem liegt. Sei einfach ehrlich.
Ich mach dann jetzt den Zuschauer... :roll:
HenryHux - Mi 12.01.11 18:42
So..
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
| If Wetteinsaetze_combobox.text = '10 Euro' then
begin
betrag := betrag - 10 ;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end;
If Wetteinsaetze_combobox.text = '20 Euro' then
begin
betrag := betrag -20 ;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end;
If Wetteinsaetze_combobox.text = '50 Euro' then
begin
betrag := betrag -50 ;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end;
If Wetteinsaetze_combobox.text = '100 Euro' then
betrag := betrag -100;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end;
If Wetteinsaetze_combobox.text = '200 Euro' then
betrag := betrag -200 ;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end; |
Ich will ja nichts sagen aber guck mal ob da nicht ein oder 2 begins fehlen
Sputyyy - Mi 12.01.11 18:43
Ja ich habe es selbst gemacht, sonst wär ja nicht soviel falsch ;DD
elundril - Mi 12.01.11 18:45
Das forum hier hat 1-2 Benutzer die beweisen das man auch Copy&Paste falsch anwenden kann...
lg elundril
HenryHux - Mi 12.01.11 18:46
Bei dem Programm, denke ich aber mal, dass du mehr als nur ein paar Fehler bekommen hast.
Und bei dem Fehler dürfte der Compiler sogar recht genau an die fehlerhafte Stelle sprigen, sodass du direkt erkennen müsstest, was falsch ist.
Hier sind 2 ends zuviel, bzw 2 begins zu wenigs.
Sputyyy - Mi 12.01.11 18:49
Delphi-Quelltext
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:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, jpeg, MPlayer;
type
TVCL = class(TForm)
Ueberschrift1: TLabel;
Ueberschrift2: TLabel;
Start_button: TButton;
Garage_button: TButton;
Wetteinsaetze_combobox: TComboBox;
Wetteinsaetze_label: TLabel;
Guthaben_label: TLabel;
GuthabenAntwort_label: TLabel;
Ergebnis_label: TLabel;
ErgebnisAntwort_label: TLabel;
Hintergrund1: TShape;
Auto1_timer: TTimer;
Auto2_timer: TTimer;
Auto3_timer: TTimer;
Auto4_timer: TTimer;
Garage1: TShape;
Garage2: TShape;
Garage3: TShape;
Garage4: TShape;
Linie4: TShape;
Linie1: TShape;
Linie2: TShape;
Linie3: TShape;
car2: TImage;
car1: TImage;
car3: TImage;
car4: TImage;
Zeittimer: TTimer;
Zeitmesser_label: TLabel;
GeheimerButton: TButton;
Comicbild: TImage;
Ziellinie: TImage;
Box1_bezeichnung: TLabel;
Box2_bezeichnung: TLabel;
Box3_bezeichnung: TLabel;
Box4_bezeichnung: TLabel;
Siege: TLabel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
btn1: TRadioButton;
btn2: TRadioButton;
btn3: TRadioButton;
btn4: TRadioButton;
Label9: TLabel;
procedure ZeittimerTimer(Sender: TObject);
procedure Auto1_timerTimer(Sender: TObject);
procedure Auto2_timerTimer(Sender: TObject);
procedure Auto3_timerTimer(Sender: TObject);
procedure Auto4_timerTimer(Sender: TObject);
procedure Start_buttonClick(Sender: TObject);
procedure Garage_buttonClick(Sender: TObject);
procedure GeheimerButtonClick(Sender: TObject);
private
public
end;
var
VCL: TVCL;
Betrag : Integer ;
implementation
{$R *.dfm}
procedure TVCL.Auto1_timerTimer(Sender: TObject);
begin
Randomize;
car1.left := car1.left + Random(10);
If Car1.left >= 620 then
begin
Auto1_timer.enabled := false;
Auto2_timer.enabled := false;
Auto3_timer.enabled := false;
Auto4_timer.enabled := false;
ErgebnisAntwort_label.Caption := 'Gewonnen hat der Ferrari 288 GTO';
betrag:= strtoint(GuthabenAntwort_label.Caption);
If Wetteinsaetze_combobox.text = '10 Euro' then
begin
betrag := betrag - 10 ;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end;
If Wetteinsaetze_combobox.text = '20 Euro' then
begin
betrag := betrag -20 ;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end;
If Wetteinsaetze_combobox.text = '50 Euro' then
begin
betrag := betrag -50 ;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end;
If Wetteinsaetze_combobox.text = '100 Euro' then
begin
betrag := betrag -100;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end;
If Wetteinsaetze_combobox.text = '200 Euro' then
begin
betrag := betrag -200 ;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end;
end;
end;
procedure TVCL.Auto2_timerTimer(Sender: TObject);
begin
Randomize;
car2.left := car2.left + Random(10);
If Car2.left >= 620 then
begin
Auto2_timer.enabled := false;
Auto1_timer.Enabled := false;
Auto3_timer.enabled := false;
Auto4_timer.enabled := false;
ErgebnisAntwort_label.Caption := 'Gewonnen hat der Ferrari F40';
betrag:= strtoint(GuthabenAntwort_label.Caption);
If Wetteinsaetze_combobox.text = '10 Euro' then
begin
betrag := betrag - 10;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end;
If Wetteinsaetze_combobox.text = '20 Euro' then
begin
betrag := betrag -20 ;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end;
If Wetteinsaetze_combobox.text = '50 Euro' then
begin
betrag := betrag -50 ;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end;
If Wetteinsaetze_combobox.text = '100 Euro' then
begin
betrag := betrag -100 ;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end;
If Wetteinsaetze_combobox.text = '200 Euro' then
begin
betrag := betrag -200 ;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end;
end;
end;
procedure TVCL.Auto3_timerTimer(Sender: TObject);
begin
Randomize;
car3.left := car3.Left + Random(10);
If Car3.left >= 620 then
begin
Auto3_timer.enabled := false;
Auto1_timer.enabled := false;
Auto2_timer.enabled := false;
Auto4_timer.enabled := false;
ErgebnisAntwort_label.Caption := 'Gewonnen hat der Ferrari F50' ;
betrag:= strtoint(GuthabenAntwort_label.Caption);
If Wetteinsaetze_combobox.text = '10 Euro' then
begin
betrag := betrag - 10 ;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end;
If Wetteinsaetze_combobox.text = '20 Euro' then
begin
betrag := betrag -20;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end;
If Wetteinsaetze_combobox.text = '50 Euro' then
begin
betrag := betrag -50 ;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end;
If Wetteinsaetze_combobox.text = '100 Euro' then
begin
betrag := betrag -100 ;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end;
If Wetteinsaetze_combobox.text = '200 Euro' then
begin
betrag := betrag -200 ;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end;
end;
end;
procedure TVCL.Auto4_timerTimer(Sender: TObject);
begin
Randomize;
car4.left := car4.left + Random (10);
If Car4.left >= 620 then
begin
Auto4_timer.enabled := false;
Auto1_timer.enabled := false;
Auto2_timer.enabled := false;
Auto3_timer.Enabled := false;
ErgebnisAntwort_label.Caption := 'Gewonnen hat der Ferrari Enzo' ;
betrag:= strtoint(GuthabenAntwort_label.Caption);
If Wetteinsaetze_combobox.text = '10 Euro' then
begin
betrag := betrag - 10;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end;
If Wetteinsaetze_combobox.text = '20 Euro' then
begin
betrag := betrag -20 ;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end;
If Wetteinsaetze_combobox.text = '50 Euro' then
begin
betrag := betrag -50;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end;
If Wetteinsaetze_combobox.text = '100 Euro' then
begin
betrag := betrag -100 ;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end;
If Wetteinsaetze_combobox.text = '200 Euro' then
begin
betrag := betrag -200;
GuthabenAntwort_label.Caption:= IntToStr(betrag);
end;
end;
end;
procedure TVCL.Garage_buttonClick(Sender: TObject);
var
Zahl : Integer ;
begin
Car1.Left := 9;
Car2.Left := 9;
Car3.Left := 9;
Car4.Left := 9;
end;
procedure TVCL.GeheimerButtonClick(Sender: TObject);
begin
ShowMessage(FormatDateTime('dddd, d. mmmm yyyy - hh:mm:ss', Now));
ShowMessage('Viel Glück beim Rennen');
end;
procedure TVCL.Start_buttonClick(Sender: TObject);
begin
Auto1_timer.enabled := true;
Auto2_timer.enabled := true;
Auto3_timer.enabled := true;
Auto4_timer.enabled := true;
end;
procedure TVCL.ZeittimerTimer(Sender: TObject);
var
Zahl : Integer ;
begin
Zahl := StrToInt(Zeitmesser_label.Caption);
Zahl := Zahl + 1;
Zeitmesser_label.Caption := IntToStr(Zahl);
end;
end. |
Moderiert von Narses: Delphi-Tags hinzugefügt
HenryHux - Mi 12.01.11 18:54
Am besten wäre es
1. Den Quelltext einzurücken, das ist so recht unleserlich
2. Die Delphi Tags zu benutzen -> Bei Antwort schreiben unter Bereiche
3. Das ganze Projekt hochzuladen
Lg
Sputyyy - Mi 12.01.11 18:58
oh okay ..
guinnes - Mi 12.01.11 19:00
und 4. Randomize nur einmal zu benutzen
5. Wie schon gesagt, die Berechnung in eine eigene Procedure auszulagern ( sonst musst du 4 mal ändern )
6. Die globale Variable Betrag als Feld in dein Form zu deklarieren
7. Nur einen Timer zu verwenden
Sputyyy - Mi 12.01.11 19:10
ich versteh das nicht ;D
wie soll ich das alles auf einmal in einen Timer bringen .. was ist da eigentlich falsch ( wie gesagt: Bin Anfänger ^^)
guinnes - Mi 12.01.11 19:13
| Sputyyy hat folgendes geschrieben : |
ich versteh das nicht ;D
wie soll ich das alles auf einmal in einen Timer bringen .. was ist da eigentlich falsch ( wie gesagt: Bin Anfänger ^^) |
Wo ist das Problem, in einer Timer-Procedure alle 4 Autos zu bewegen ?
Dazu fehlt auch noch die Auswertung, ob denn das Auto gewonnen hat, auf das ich gesetzt habe
Und was da falsch ist ? Vollkommen überflüssiger Resourcenverbrauch ( oder kaufst du dir für jeden Wochentag ein extra Auto ?
jasocul - Do 13.01.11 09:16
Dass der Source schlecht ist, darüber muss hier nicht diskutiert werden. Theoretisch sollte es trotzdem funktionieren, soweit ich den Source jetzt angesehen habe.
Wenn der Wert nicht gesetzt wird, dann kann es meiner Ansicht nach nur daran liegen, dass der Vergleich mit dem ComboBox-Text nicht funktioniert.
Irgendwo hat in diesem Thread schon jemand geschrieben, wie man das mit einer Case-Struktur macht. Setz das um und teste das Programm nochmal.
Der Hinweis mit Breakpoints und dem Debugger mal zu testen was dein Programm macht, solltest du ebenfalls dringend beachten.
Sputyyy - Do 13.01.11 12:11
Ja endlich habe ich es geschafft! Jetzt brauche ich nur noch, dass es wenn das richtige Pferd gewinnt, nach oben zählt .. (:
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!