Moin allerseits!
Ich hab vor nicht allzu langer Zeit Delphi und arbeite grad an einem Spaßprogramm, einem sogennanten Wahrscheinlichkeitsrechner. Man gibt etwas ein und per Zufallszahlen wird irgendeine Prozentzahl angezeigt, z.B. 63,54%.
Kann mir bitte jemand sagen wie ich erreiche, dass eine Zufallszahl, sobald sie angezeigt wird, nicht verändert werden kann bis man auf Neu klickt (im moment kann man schreiben was man will und so oft auf Ausrechnen klicken, bis einem die Wahrscheinlichkeit gefällt)?
Der Variablenteil ist:
Der Quelltext von Ausrechnen ist:
und der Quelltext von Neu ist:
Danke im voraus!
Ich hab vor nicht allzu langer Zeit Delphi und arbeite grad an einem Spaßprogramm, einem sogennanten Wahrscheinlichkeitsrechner. Man gibt etwas ein und per Zufallszahlen wird irgendeine Prozentzahl angezeigt, z.B. 63,54%.
Kann mir bitte jemand sagen wie ich erreiche, dass eine Zufallszahl, sobald sie angezeigt wird, nicht verändert werden kann bis man auf Neu klickt (im moment kann man schreiben was man will und so oft auf Ausrechnen klicken, bis einem die Wahrscheinlichkeit gefällt)?
Der Variablenteil ist:
Code:
var Form1: TForm1; Zahl1, Zahl2: Integer;
Code:
procedure TForm1.Button1Click(Sender: TObject); begin randomize; Zahl1 := random(100); Zahl2 := random(100); Label1.Caption := IntToStr (Zahl1) + ',' + IntToStr (Zahl2) + '%'; end;
Code:
procedure TForm1.Button2Click(Sender: TObject); begin Label1.Caption := ''; Edit1.Text := ''; Edit1.SetFocus;
Comment