T
TIMEcrus3r
HI Leutz,
ich habe hier ein Programm, welches auch funktioniert.
Nun soll ich versuchen dort noch eine Grafik (z.B. ein Diagramm, welches ausgibt, wieviele Versuche man benötigt hat grafisch dastellt)
Könnt ihr mir bitte helfen!
Mein Quellcode bisher:
------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var Zahl, Versuch, ZufallsZahl: Byte;
begin
Versuch:= 0;
Zahl:= 0;
ZufallsZahl:= Random(20)+1; // Hier wird die Zahlenspanne definiert
Repeat
zahl:= StrToInt(InputBox('Rate mal','Bitte Zahl eintippen!' ,IntToStr(Zahl))); // Erzeugt ein Pop-up Fenster, in das dann die Zahl eingegeben werden muss!
If Zahl < ZufallsZahl Then
begin
Label1.Caption:= 'Die richtige Zahl ist größer!'; // Ausgabe, wenn die richtige Zahl größer als die eingegebene ist
inc(versuch); // inc addiert 1 oder N zu der mit X angegebenen Variable (laut Delphi-Hilfe)
end;
If Zahl > Zufallszahl Then
begin
Label1.Caption:= 'Die richtige Zahl ist kleiner!'; // Ausgabe, wenn die richtige Zahl kleiner als die eingegebene ist
inc(Versuch);
end;
Until Zahl = zufallszahl;
Label1.Caption:= 'Die eingegebene Zahl ist korrekt!'; // Ausgabe, wenn die richtige Zahl mit der eingegebene übereinstimmt
Label2.Caption:= IntToStr(Versuch);
end;
end.
--------------------
Würde mich freuen, wenn mir jemand helfen könnte!
Es sollte ein Diagramm sein, welches anzeigt, wieviele versuche man nun benötigt hat!
Ich hab gehört, dass das mit einer TProgressBar funktionieren soll, aber ich weiß nicht, wie ich diese in meinen Quelltext einbauen soll!
Bitte helft mir
MfG
TIMEcrus3r
ich habe hier ein Programm, welches auch funktioniert.
Nun soll ich versuchen dort noch eine Grafik (z.B. ein Diagramm, welches ausgibt, wieviele Versuche man benötigt hat grafisch dastellt)
Könnt ihr mir bitte helfen!
Mein Quellcode bisher:
------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var Zahl, Versuch, ZufallsZahl: Byte;
begin
Versuch:= 0;
Zahl:= 0;
ZufallsZahl:= Random(20)+1; // Hier wird die Zahlenspanne definiert
Repeat
zahl:= StrToInt(InputBox('Rate mal','Bitte Zahl eintippen!' ,IntToStr(Zahl))); // Erzeugt ein Pop-up Fenster, in das dann die Zahl eingegeben werden muss!
If Zahl < ZufallsZahl Then
begin
Label1.Caption:= 'Die richtige Zahl ist größer!'; // Ausgabe, wenn die richtige Zahl größer als die eingegebene ist
inc(versuch); // inc addiert 1 oder N zu der mit X angegebenen Variable (laut Delphi-Hilfe)
end;
If Zahl > Zufallszahl Then
begin
Label1.Caption:= 'Die richtige Zahl ist kleiner!'; // Ausgabe, wenn die richtige Zahl kleiner als die eingegebene ist
inc(Versuch);
end;
Until Zahl = zufallszahl;
Label1.Caption:= 'Die eingegebene Zahl ist korrekt!'; // Ausgabe, wenn die richtige Zahl mit der eingegebene übereinstimmt
Label2.Caption:= IntToStr(Versuch);
end;
end.
--------------------
Würde mich freuen, wenn mir jemand helfen könnte!
Es sollte ein Diagramm sein, welches anzeigt, wieviele versuche man nun benötigt hat!
Ich hab gehört, dass das mit einer TProgressBar funktionieren soll, aber ich weiß nicht, wie ich diese in meinen Quelltext einbauen soll!
Bitte helft mir
MfG
TIMEcrus3r
