Tippspiel!

[MrKnogge]

Diese Hilfedatei könnte dir hilfreich sein.

[jfheins]

Delphi-Quellcode:

 zahl := random (10); // zufallszahl erzeugen

 if strtoint(Edit1.Text) < zahl then Label1.Caption := 'größer !!';
 if strtoint(edit1.Text) > zahl then Label1.Caption := 'kleiner !!';
 if strtoint(edit1.Text) = zahl then label1.Caption := 'getroffen !!!';

 // überprüfen, ob richtig ...

Du brauchst:
Button1 (Zahl ausdenken)
Button2 (raten)
Edit1 (zahl)
Label1

und natürlich die prozeduren im objektmanager zuordnen ...

[delphi-noob]

Danke erstmal für die Hilfe und sory nochmal für den "etwas" dumm erstellten text!
Ich hänge komplett an dem Quelltext fest!
Also ich habe geschafft:

Label1 = Gebe eine Zahl zwischen 1 und 10 ein
edit1 = Dort soll die Zahl eingegeben werden!
button1 = Drauf drücken/ doppelklick code

Zitat:

procedure TForm1.ratenClick(Sender: TObject);

function Zufallszahl(Von, bis: Integer): Integer;
begin
Result := Random(Succ(0 - 10)) + Von;
end;


var eingabe : Integer;
begin
Eingabe:=StrToInt(Edit1.Text);
if Eingabe=3
then label2.Caption:='Das war ein sehr guter Tipp!'
else
if Eingabe<3
then label2.Caption:='die zahl ist leider kleiner als 1'
else label2.Caption:='die zahl ist leider groeßer als 10';

end;

end.

Label2 = Ausgabefeld für [Zahl zu groß oder zu klein],[Generierte Zahl] und [Richtig oder Falsch]

[MrKnogge]

Zitat von jfheins:

willkommen in der DP.

Eigendlich machen wir nicht andererleuts hausaufgwaben

Und warum machst's du dann
Steht immerhin in den Codec's.

PS: Ich würd aber noch ein randomize mit rein nehmen.

[delphi-noob]

ich gucke nochmal ein wenig in der Code-Library nach und guck was ich finden kann!

[Nikolas]

@ jfheins: Für was, meinst du, gibt's die AGB und den Kodex?
Hier soll man doch was lernen und nicht einfach den Code zugesteckt bekommen ohne zu wissen, warum/wie er funktioniert.
Ich sehe die DP als einen Tauschplatz an. Als Anfänger bekomm ich die Hilfe, die ich brauch um mich zu verbessern und wenn ich dann mehr kann, bin ich nicht mehr immer der, der fragt, sondern der der auch mal anderen hilft. Durch fertige Programme verbessert man sich aber kaum und ist so auch nicht in der Lage, anderen weiterzuhelfen und somit funzt das Prinzip nicht mehr.

[jfheins]

entschuldige mich vielmals, wollte nur helfen.

ausserdem war der code, den ich gepostet hatte noch arg verbesserungswürdig, sollte nur so ne art grundgerüst sein, das man dann verbessert ....

[Nicodius]

hmm bei random musst du noch randomize ins formcreate geben

[alcaeus]

Zitat von delphi-noob:

Ich möchte ein Tippspiel machen!

Richtig erfasst. DU willst es machen. Deshalb kriegst du jetzt mal von mir nur eine kleine Hilfe... Hier mal dein Code (ohne die Zufallszahl-Prozedur), wie er richtig formatiert ist. Verwende auch die delphi-Tags, dann wird er leichter lesbarer.

Delphi-Quellcode:

procedure TForm1.ratenClick(Sender: TObject);
var
  eingabe : Integer; 
begin 
  Eingabe:=StrToInt(Edit1.Text); 
  if Eingabe=3 then 
    label2.Caption:='Das war ein sehr guter Tipp!' 
  else 
    if Eingabe<3 then 
      label2.Caption:='die zahl ist leider kleiner als 1' 
    else 
      label2.Caption:='die zahl ist leider groeßer als 10'; 
end;

Nachdem du den ja anscheinend selbst geschrieben hast, kann ich dir hier gleich mal ein paar Sachen ausbessern. Anscheinend soll in Edit1.Text die geratene Zahl eingegeben werden. Wieso vergleichst du dann immer mit 3? Irgendwo muss da ein Fehler sein. Das gleiche gilt für die zweite Abfrage. Dort überprüfst du ja eigentlich nur, ob die Zahl verschieden von 3 ist. Eine Zahl kleiner 3 ist aber nicht automatisch kleiner als 1. Bessere das aus, wenn es wieder Probleme gibt, zeig den Code und die Stelle wo es Probleme gibt, dann wird dir sicher gerne geholfen!

Greetz
alcaeus