Ratezahl 2 Delphi (leicht)

[andiak]

Ich schätze mal für euch ist es recht leicht sowas zu machen ,also wenn man es kann^^
Hier ist erstmal mein Ratespiel
www.andiak.ultimate-music.de/RateZahl.rar

Daran werdet ihr sehen das wir noch ganz am anfang sind.
grade mit if anweisungen angefangen.
Jetzt muss ich drei aufgaben hinzufügen vieleicht könnt ihr mir ja helfen

1. Anzahl der benötigten Versuche anzeigen
2.Zur besseren unterstüzung beim raten soll auf einem weiteren panel die botschaft kalt warm heiß usw erscheinen je nachdem wie nahe man an der zahl dran ist
3. Bei mehr als 10 versuchen soll das programm die lösung ausgeben und das weiterraten verweigern


Könnt ihr mir bitte helfen?

[mkinzler]

Zitat:

1. Anzahl der benötigten Versuche anzeigen

Einfach Variabel hochzählen.

Zitat:

2.Zur besseren unterstüzung beim raten soll auf einem weiteren panel die botschaft kalt warm heiß usw erscheinen je nachdem wie nahe man an der zahl dran ist

Eingegebene von der gesuchten zahl abziehen und dann die Abweichung Auswerten.

Zitat:

3. Bei mehr als 10 versuchen soll das programm die lösung ausgeben und das weiterraten verweigern

Zählvariable aus 1. Auswerten.

[dominikkv]

1: immer wenn du auf "Raten" klickst eine Variable hochzählen, bei erraten ausgeben und auf 0 setzen
2: du kannst ja schauen ob richtigeZahl-GerateneZahl > 10 usw ist
3: wie bei 1) nur wenn variable = 10 dann...

[cran7]

du könntest bei dem raten button folgendes einfügen:

Delphi-Quellcode:

var
 count : integer;
begin
// dein zeug
 count := count + 1
 if count = x then  // für x kannst du einfügen wieviel versuche
 // was du dann machn willst

[dominikkv]

Zitat von cran7:

du könntest bei dem raten button folgendes einfügen:

Delphi-Quellcode:

var
 count : integer;
begin
// dein zeug
 count := count + 1
 if count = x then  // für x kannst du einfügen wieviel versuche
 // was du dann machn willst

nö -.-
du deklarierst hier ne lokale variable

[leddl]

Zitat von cran7:

du könntest bei dem raten button folgendes einfügen:

Delphi-Quellcode:

var
 count : integer;
begin
// dein zeug
 count := count + 1
 if count = x then  // für x kannst du einfügen wieviel versuche
 // was du dann machn willst

Genau, und dann darf er sich wundern, warum da irgendein Quatsch rauskommt und das nie auch nur annähernd funktioniert
Zum ersten wird count nirgendwo initialisiert, kann also theoretisch alles sein Und zum zweiten: selbst wenn wir mal davon ausgehen, dass count 0 ist, wird die Abfrage nur dann true ergeben, wenn x=1 ist schließlich ist count nur lokal definiert

[andiak]

öhm ich kann mir daraus nicht besonders viel vorstellen wie mach ich das denn nun? kann mir das einer erklärren oder in meiner beispiel datei zeigen?
Ich bin noch ein ziemlicher noob in der ganzen sache

[mkinzler]

Ne lokale Variable ist nur während der Laufzeit der Prozedur/Funktion/Methode existent. Beim nächsten Klick handelt es sich um eine andere Variable mit dem selben Namen.

[cran7]

shame on me
dann mach bei form1 create noch

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  count := 1;
end;

(diesma net local xD)

Delphi-Quellcode:

var
  count : integer;

jetzt müssts gehn^^

@mkinzler weis ich, hab nur net nachgedacht^^

[andiak]

wo muss ich

var
count : integer;


enfügen?