Hallo Forum,
Versuche als Anfänger seit ne knappe Monat einen Mastermind klon mit zahlen zu erstellen
bin mit der Prog FAST fertig ( auch mit der nerven ) an einer stelle habe ich einen Bug festgestellt und krieg den irgendwie nicht korrigiert.
Ablauf des Spiels ist...
beim start des spiels wird 5 separate zahlen von comomputer generiert dieser
vom spieler in 5 edit felder erraten werden müssen.
bsp.
von comp. generierte zahl ( gleiche Zahlen sind erlaubt )
5 6 1 8 5
vom spieler angegebene zahl
6 5 8 5 5
ergebniss sollte so sein
0 richtige 3 falsche position
vorkommende ergebniss ist bei mir
0 richtige 8 falsche pos.
die vom spieler gegebene zahl 5 wird 3 mal vergleicht sollte aber NUR einmal vergleicht werden ....
Delphi-Quellcode:
begin
richtig:=0;
for i:=1 to 5 do
If code[i] = geraten[i] Then inc(richtig);
Label6.Caption:=IntToStr(richtig); // richtige Zahl richtige Position
if richtig=5 then
begin
Image1.Visible:=True;
ListBox2.Items.Insert(ListBox2.Items.Count-0,' '+Edit6.Text+' '+' '+Label16.Caption+' '+' '+Counter.Text+'.'+Label18.Caption+' '+' '+Label17.Caption); //Bewertung abgeben
end;
falsch:=0; // Zähler zurück setzen
for i:=1 To 5 Do // zahlen vergleich
If code[i]<>geraten[i] Then
for j:= 1 to 5 do
if geraten[i]=code[j] then inc(falsch);
Label7.Caption:=IntToStr(falsch);
ListBox1.Items.Insert(Listbox1.Items.Count-1,' '+Edit1.Text+' '+Edit2.Text+' '+Edit3.Text+' '+Edit4.Text+' '+Edit5.Text+' '+' '+' '+' '+' '+' '+' '+' '+' '+' '+' '+' '+Label6.Caption+' '+' '+' '+' '+' '+' '+' '+Label7.Caption);
if count=10 then
begin
counter.Color:=clred;
if Application.MessageBox('noch ein Versuch?','VERLOREN',36)= 7 then Close //Nochmal versuchen
else
Edit6.Enabled:=True;
Counter.Color:=clWhite;
Count:=0;
Label6.Caption:=IntToStr(richtig);
Label7.Caption:=IntToStr(falsch);
ListBox2.Items.Insert(ListBox2.Items.Count-0,' '+Edit6.Text+' '+' '+Label16.Caption+' '+' '+Counter.Text+'.'+Label18.Caption+' '+' '+Label17.Caption);
end;
end;
end;
habe vieles probiert leider ohne erfolg....
würde mich für eure antworten sehr freuen
danke schonmal im voraus...
[edit=Dax][delphi]-Tags... 
Mfg, Dax[/edit]