Die Fehlermeldung bei Zahlen unter 1 oder über 49 bleibt aus

J00 · Verfasst: Mi 07.12.05 15:24

Hi all!

Ich verstehe nicht wieso der "User Check" nicht geht?!
Wird eine Zahl unter 1 oder über 49 eingegeben wird die fehler procedure nicht gestartet!
Brauche Hilfe!

markieren

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:

procedure fehler;
begin
  Form1.Label1.Caption:=('FEHLER!!');
  Form1.Label2.Caption:=('Deine Zahlen sind nicht im Bereich von 1-49! Idiot!');
  Form1.Button1.Hide;
  Form1.Edit1.Hide;
  Form1.Edit2.Hide;
  Form1.Edit3.Hide;
  Form1.Edit4.Hide;
  Form1.Edit5.Hide;
  Form1.Edit6.Hide;
  Form1.Button2.Show;
end;

procedure userzahlencheck;
var
i:integer;
begin
//Userzahlen Check - Klappt irgendwie NOCH nicht :/
  for i:=1 to 6 do
  begin
    if userzahlen[i] < 1 then
    begin
      fehler;
      break;
    end;
  end;

  for i:=1 to 6 do
  begin
    if userzahlen[i] > 49 then
    begin
      fehler;
      break;
    end;
  end;
end;

Moderiert von Gausi: Code- durch Delphi-Tags ersetzt
Moderiert von Gausi: Topic aus VCL (Visual Component Library) verschoben am Mi 07.12.2005 um 15:35

* * *edit -> thx an den mod - ich habe deine Tips so weit es geht verwirklicht. Nur das mit der Funktion check ich nicht ganz. Könntest du ein Beispiel geben?

Gausi · Verfasst: Mi 07.12.05 15:35

Hallo und

in der Entwickler-Ecke!

Tjoah. Was klappt denn nicht. Mal abgesehen davon, dass man die for-Schleifen Variable nicht mit 0 initialisieren muss und dafür lieber ne lokale Variable nimmt, und für den Check lieber ne Funktion nehmen sollte, die das Array übergeben bekommt und nen Boolean zurückliefert...was läuft denn nicht so, wie du es möchtest?

Achja, nochwas: Bitte ändere den Titel etwas ab, so dass man schon aus dem Titel etwas zu dem Problem erfahren kann, danke!

_________________
We are, we were and will not be.

Miri · Beiträge: 657 Delphi 3 Prof., Delphi 2005 PE

Zeig doch mal, wo du userzahlen deklariert hast...

J00

Kompletter Programmquelltext:

Bitte helft mir jede Kleinigkeit, die falsch/komisch ist, zu verändern! Das ist erst mein 2. Delphiprogramm!

markieren

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:

unit Lotto;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Edit5: TEdit;
    Edit6: TEdit;
    Button2: TButton;
    Label3: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  userzahlen: array[1..6] of integer;
  lottozahlen: array[1..6] of integer;
  s, q, r: integer;
  r1:boolean;
implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin

//Standard Ansage
  Form1.Label1.Caption:=('Jetzt gehts Los! - Es wurden sechs Zahlen gezogen! Geben sie ihren Tip ab.');
  Form1.Label2.Caption:=('Wenn Sie alle sechs Zahlen bestimmt haben, drücken Sie Lotto!');
  Form1.Button2.Hide;
end;


procedure fehler;
begin
  Form1.Label1.Caption:=('FEHLER!!');
  Form1.Label2.Caption:=('Deine Zahlen sind nicht im Bereich von 1-49! Idiot!');
  Form1.Button1.Hide;
  Form1.Edit1.Hide;
  Form1.Edit2.Hide;
  Form1.Edit3.Hide;
  Form1.Edit4.Hide;
  Form1.Edit5.Hide;
  Form1.Edit6.Hide;
  Form1.Button2.Show;
end;

procedure userzahlencheck;
var
i:integer;
begin
//Userzahlen Check - Klappt irgendwie NOCH nicht :/
  for i:=1 to 6 do
  begin
    if userzahlen[i] < 1 then
    begin
      fehler;
      break;
    end;
  end;

  for i:=1 to 6 do
  begin
    if userzahlen[i] > 49 then
    begin
      fehler;
      break;
    end;
  end;
end;


procedure zieheuserzahlen;
begin
//Hole Userzahlen
  userzahlen[1]:=strtoint(Form1.Edit1.Text);
  userzahlen[2]:=strtoint(Form1.Edit2.Text);
  userzahlen[3]:=strtoint(Form1.Edit3.Text);
  userzahlen[4]:=strtoint(Form1.Edit4.Text);
  userzahlen[5]:=strtoint(Form1.Edit5.Text);
  userzahlen[6]:=strtoint(Form1.Edit6.Text);
end;


procedure ziehelottozahlen;
var
i:integer;
begin
//Ziehe Lottozahlen ohne Doppelte!
  randomize;
  for i:=1 to 6 do
  begin
    lottozahlen[i]:=0;
    repeat
      r1:=false;
      s:=random(48)+1;
      for q:=1 to i do
        if lottozahlen[q]=s then begin
          r1:=true;
          break;
        end;
    until r1=false;
    lottozahlen[i]:=s;
  end;
end;


procedure lottoauswertung;
var
i:integer;
begin
//Vergleiche Lottozahlen mit den Userzahlen
  r:=0;
  for i:=1 to 6 do
  begin
    if lottozahlen[i] = userzahlen[i]
    then r:=r+1;
  end;

//Ausgabe der Richtigen
  Form1.Label1.Caption:=('Sie haben ' + inttostr(r) + ' von 6 Zahlen richtig erraten! ');

//Kommentar Ausgabe
  case r of
    0:Form1.Label2.Caption:=('OH MAN! DU LUSCHE!! 0 RICHITGE! ... sche****..');
    1:Form1.Label2.Caption:=('Naja... besser als 0!');
    2:Form1.Label2.Caption:=('Nächstes mal gibst du dir mehr Mühe, klar?');
    3:Form1.Label2.Caption:=('3 von 6 .. Das ist ok ;)');
    4:Form1.Label2.Caption:=('4 Richtige!! Das gibt Cash!');
    5:Form1.Label2.Caption:=('Jetzt bist du Bonze!');
    6:Form1.Label2.Caption:=('GRATULATION! DiE MiLLE IST DEiN!');
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
//Starte Lottoaktion+Verstecke Button 1 und zeige Button 2
 zieheuserzahlen;
 userzahlencheck;
 ziehelottozahlen;
 lottoauswertung;
 Form1.Button1.Hide;
 Form1.Edit1.Hide;
 Form1.Edit2.Hide;
 Form1.Edit3.Hide;
 Form1.Edit4.Hide;
 Form1.Edit5.Hide;
 Form1.Edit6.Hide;
 Form1.Label3.show;
 Form1.Label3.Caption:=('Die Zahlen waren: 1('+inttostr(lottozahlen[1])+') 2('+inttostr(lottozahlen[2])+') 3('+inttostr(lottozahlen[3])+') 4('+inttostr(lottozahlen[4])+') 5('+inttostr(lottozahlen[5])+') 6('+inttostr(lottozahlen[6])+') ');
 Form1.Button2.Show;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
//Noch mal!
  Form1.Label3.Hide;
  Form1.Label1.Caption:=('Jetzt gehts Los! - Es wurden sechs Zahlen gezogen! Geben sie ihren Tip ab.');
  Form1.Label2.Caption:=('Wenn Sie alle sechs Zahlen bestimmt haben, drücken Sie Lotto!');
  Form1.Button1.show;
  Form1.Edit1.show;
  Form1.Edit2.show;
  Form1.Edit3.show;
  Form1.Edit4.show;
  Form1.Edit5.show;
  Form1.Edit6.show;
  Form1.Button2.Hide;
end;
end.

Greetz J00!

_________________
—› Wir sind kognitiv suboptimiert!!
—› Der Atzen-Chatraum im Netz > #Atzenpower @ Quakenet.org!!

Miri · Beiträge: 657 Delphi 3 Prof., Delphi 2005 PE

Zugegebener maßen hab ich ne Weile lang davor gesessen, bis ich es nu raus hab... Hab mir mal deinen QC in nen Prog gepackt und debbuged, auch wenns letztenendes recht simpel is *g*
Dein Programm führt alles, was es ausführen soll ordentlich aus... nur hast du einen kleinen Denkfehler in der Sache...

In deiner Button1Click rufst du zuerst zieheuserzahlen auf, dann checkuserzahlen. Das läuft soweit alles richtig, es springt von dort aus nach "fehler", schreibt die Fehlermeldungen in Label1 und Label2. Dann läuft dein Programm aber weiter. Du hast zwar die for-Schleifen in "fehler" abgebrochen, aber die restliche Auswertung nicht. Also werden fröhlich die Lottozahlen gezogen, dann wird ausgewertet. Das, was gerade eben in Label1 geschrieben wurde, wird wieder überschrieben, genauso mit Label2. Daher glaubst, du, dass der Check nicht ausgeführt wurde.

Also, jetzt ganz langsam weiter.

Erstmal verstehe ich nicht, wieso du für all die Sachen einzelne Prozeduren brauchst, wo du doch eh nicht mit Parametern etc. arbeitest. (Anbei sei mal wieder der Crashkurs von Christian empfohlen, Link hab ich gerade nicht parat).

Mein Tip an dich wäre, das ganze in eine Prozedur zu packen. Dann fällt auch das Debuggen etwas leichter (man kann dann nämlich mit einem Breakpoint durchhüpfen

) aber was viel wichtiger ist: du selbst kannst von vornherein die Abläufe wesentlich besser nachvollziehen.

Ich denke mal, du machst das für die Schule?! (Und das man da die wichtigsten Sachen sowieso nicht gesagt kriegt, weiß ich aus eigener Erfahrung

) Dann muss ich dich an dieser Stelle aber doch mal loben... Du hast gleich dein Beispiel gebracht und gesagt, an welcher Stelle du nicht weiterkommst (und wenn bei anderen gesagt wird "Wir machen deine Hausaufgaben nicht, wenn du nicht mithilfst", muss hier auch mal das Gegenteil erwähnt werden

)
So... und bevor mir wer sagt, ich würde vom Thema abweichen, hüpf ich lieber gleich dahin zurück.
Will dein Lehrer, dass du für jeden einzelnen Vorgang eine Prozedur anlegst? Sonst würde ich dir nämlich wirklich raten, alles zusammen zu packen, um den Überblick besser zu behalten...

Wenn du willst, helf ich dir dabei, das Programm ein wenig besser zu strukturieren.
Du kannst z.B. die Überprüfung auf die Zahlen schon optimieren, in dem du nur einmal das Array durchläufst und gleichzeitig auf < 1 oder > 49 überprüfst:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

  for i:=1 to 6 do
  begin
    if (userzahlen[i] < 1) or (userzahlen[i] > 49) then
    begin
      fehler;
      break;
    end;
  end;

Also, meine Hilfe dabei sei dir angeboten...

Gruß
Miri

Moderiert von raziel: Delphi-Tags hinzugefügt.

J00 · Verfasst: Mi 07.12.05 21:46

ahhh!!! vielen dank! Ich wusste das man die beiden Vergleiche auch in einem machen kann hatte aber immmer nur "if userzahl[i] < 0 or userzahl[i] > 49" geschrieben! jetzt weiß ich wies richtig geht! danke!
Ich habe auch die ganzen kleinen unnötigen proceduren in eine große zusammengefasst, so wie du es mir geraten hast! Jetzt bleibt erst mal nur noch eine Frage übrig (wenn ich mich nicht irre): Wie mache ich das es bei der fehler procedure stehen bleibt und auf meinen klick auf button2 wartet?? Hier der neue Quelltext:

btw. natürlich nehme ich deine Hilfe an! Ich bin froh wenn ich etwas mehr erfahre als das was unser verpeilter Lehrer uns mitteilt^^
(Programmtext beginnt dieses mal mit den VAR's)

markieren

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:

var
  Form1: TForm1;
  userzahlen, lottozahlen: array[1..6] of integer;
  s, q, r: integer;
  r1:boolean;
implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
//Standard Ansage
  Form1.Label1.Caption:=('Jetzt gehts Los! - Es wurden sechs Zahlen gezogen! Geben sie ihren Tip ab.');
  Form1.Label2.Caption:=('Wenn Sie alle sechs Zahlen bestimmt haben, drücken Sie Lotto!');
  Form1.Button2.Hide;
end;


procedure fehler;
begin
//Fehlerausgabe
  Form1.Label1.Caption:=('FEHLER!!');
  Form1.Label2.Caption:=('Deine Zahlen sind nicht im Bereich von 1-49! Idiot!');
  Form1.Button1.Hide;
  Form1.Edit1.Hide;
  Form1.Edit2.Hide;
  Form1.Edit3.Hide;
  Form1.Edit4.Hide;
  Form1.Edit5.Hide;
  Form1.Edit6.Hide;
  Form1.Button2.Show;
end;


procedure lottostart;
var
i:integer;
begin
//Hole Userzahlen
  userzahlen[1]:=strtoint(Form1.Edit1.Text);
  userzahlen[2]:=strtoint(Form1.Edit2.Text);
  userzahlen[3]:=strtoint(Form1.Edit3.Text);
  userzahlen[4]:=strtoint(Form1.Edit4.Text);
  userzahlen[5]:=strtoint(Form1.Edit5.Text);
  userzahlen[6]:=strtoint(Form1.Edit6.Text);

//Userzahlen Check - Klappt irgendwie NOCH nicht :/
  for i:=1 to 6 do
  begin
     if (userzahlen[i] < 1) or (userzahlen[i] > 49) then
    begin
      fehler;
      break;
    end;
  end;

//Ziehe Lottozahlen ohne Doppelte!
  randomize;
  for i:=1 to 6 do
  begin
    lottozahlen[i]:=0;
    repeat
      r1:=false;
      s:=random(48)+1;
      for q:=1 to i do
        if lottozahlen[q]=s then begin
          r1:=true;
          break;
        end;
    until r1=false;
    lottozahlen[i]:=s;
  end;

//Vergleiche Lottozahlen mit den Userzahlen
  r:=0;
  for i:=1 to 6 do
  begin
    if lottozahlen[i] = userzahlen[i]
    then r:=r+1;
  end;

//Ausgabe der Richtigen
  Form1.Label1.Caption:=('Sie haben ' + inttostr(r) + ' von 6 Zahlen richtig erraten! ');

//Kommentar Ausgabe
  case r of
    0:Form1.Label2.Caption:=('OH MAN! DU LUSCHE!! 0 RICHITGE! ... sche****..');
    1:Form1.Label2.Caption:=('Naja... besser als 0!');
    2:Form1.Label2.Caption:=('Nächstes mal gibst du dir mehr Mühe, klar?');
    3:Form1.Label2.Caption:=('3 von 6 .. Das ist ok ;)');
    4:Form1.Label2.Caption:=('4 Richtige!! Das gibt Cash!');
    5:Form1.Label2.Caption:=('Jetzt bist du Bonze!');
    6:Form1.Label2.Caption:=('GRATULATION! DiE MiLLE IST DEiN!');
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
//Starte Lottoaktion+Verstecke Button 1 und zeige Button 2
 lottostart;
 Form1.Button1.Hide;
 Form1.Edit1.Hide;
 Form1.Edit2.Hide;
 Form1.Edit3.Hide;
 Form1.Edit4.Hide;
 Form1.Edit5.Hide;
 Form1.Edit6.Hide;
 Form1.Label3.show;
 Form1.Label3.Caption:=('Die Zahlen waren: 1('+inttostr(lottozahlen[1])+') 2('+inttostr(lottozahlen[2])+') 3('+inttostr(lottozahlen[3])+') 4('+inttostr(lottozahlen[4])+') 5('+inttostr(lottozahlen[5])+') 6('+inttostr(lottozahlen[6])+') ');
 Form1.Button2.Show;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
//Noch mal!
  Form1.Label3.Hide;
  Form1.Label1.Caption:=('Jetzt gehts Los! - Es wurden sechs Zahlen gezogen! Geben sie ihren Tip ab.');
  Form1.Label2.Caption:=('Wenn Sie alle sechs Zahlen bestimmt haben, drücken Sie Lotto!');
  Form1.Button1.show;
  Form1.Edit1.show;
  Form1.Edit2.show;
  Form1.Edit3.show;
  Form1.Edit4.show;
  Form1.Edit5.show;
  Form1.Edit6.show;
  Form1.Button2.Hide;
end;
end.

(Sorry, ich hab jetzt echt kein bock auf rechtschreibfehler oder sonstiges zu achten

)

_________________
—› Wir sind kognitiv suboptimiert!!
—› Der Atzen-Chatraum im Netz > #Atzenpower @ Quakenet.org!!

Miri · Beiträge: 657 Delphi 3 Prof., Delphi 2005 PE

also, break bricht die Schleife ab, abort würde die ganze Prozedur abbrechen. (Ob das so sauber ist, weiß ich nicht, aber es funktioniert

)

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

  for i:=1 to 6 do  
  begin  
     if (userzahlen[i] < 1) or (userzahlen[i] > 49) then  
    begin  
      fehler;  
      abort;  
    end;  
  end;

Du könntest auch in der For-Schleife wo fehler aufgerufen wird, eine vorher deklarierte Boolean-Variable auf true setzen und nach der Schleife abfragen und mit dem rest nur weiter machen, wenn sie noch false ist...

also so:

markieren

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:

procedure lottostart;  
var  
i:integer; 
hatfehler:boolean; 
begin 
  hatfehler:=false; 
{...}
  for i:=1 to 6 do  
  begin  
     if (userzahlen[i] < 1) or (userzahlen[i] > 49) then  
    begin  
      fehler;
      hatfehler:=true;  
      break;  
    end;  
  end;
  if hatfehler:=false then
    begin
      randomize;  
      for i:=1 to 6 do  
      begin  
        lottozahlen[i]:=0;  
        repeat  
          r1:=false;  
          s:=random(48)+1;  
          for q:=1 to i do  
            if lottozahlen[q]=s then begin  
              r1:=true;  
              break;  
            end;  
        until r1=false;  
        lottozahlen[i]:=s;  
      end;  
{...}
    end;
end;

kann sein, das irgendwo kleine flüchtigkeitsfehler sind, habs gerade so geschrieben und nicht getestet

J00 · Verfasst: Mi 07.12.05 22:14

ah! sehr gut! das mit dem abort funktioniert ohne Fehler! Aber wie meinst du das mit "ob das so sauber ist" ?? Wo ist den der "nicht so saubere" Unterschied zur 2. Variante?

-> Auf jeden Fall schon mal danke! Beide Varianten leuchten mir ein!

Thx!!

_________________
—› Wir sind kognitiv suboptimiert!!
—› Der Atzen-Chatraum im Netz > #Atzenpower @ Quakenet.org!!

Miri · Beiträge: 657 Delphi 3 Prof., Delphi 2005 PE

Also, ich hab Delphi ja selbst auch nur inner Schule "gelernt", und mir dann jetzt - seit ich auffer Arbeit auch nich mehr drumherum komme - alles so ein wenig zusammengetüftelt, und da kommen dann schon mal Sachen bei rum, bei denen manchen Leuten, die das einfach besser drauf haben, das kalte Gruseln kommt *g* und ich war mir halt nicht sicher, ob das mit "abort" auch sowat is, aber da bisher keiner mit "Oh je, was machst du denn da" reagiert hat, geh ich mal davon aus, dass es so ok ist

J00 · Verfasst: Mi 07.12.05 23:12

OK! Ich habe mich jetzt einfach mal für die erste der beiden Varianten entschieden, da die Umsetzung kürzer war (pure Faulheit

)

Greetz J00

und NOCHMALS danke für die sehr guten Hilfestellungen! Danke!

_________________
—› Wir sind kognitiv suboptimiert!!
—› Der Atzen-Chatraum im Netz > #Atzenpower @ Quakenet.org!!

Miri · Beiträge: 657 Delphi 3 Prof., Delphi 2005 PE

Kein Thema, helfe immer gerne

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme