Random laden

[Jakane]

Grüße liebe Leute

Ich hab mal wieder was vor und hab dabei Random(x) gefunden.
Ist auch eine lustige Sache... ausser es komm 6-stellige Zahlen raus, wo ich eigendlich nur von 0 - 30 will.
Ich will eine Art Glücksrad für Hausarbeit machen

Kann mir jemand sagen wie ich dem diese Grenze klar machen kann?

Wobei ich langsam glaube das ich das mit Random falsch begriffen habe...
Danke im vorraus.

[Jochen]

Code: Alles auswählen

RandomNumber := Random(31);

siehe auch http://www.freepascal.org/docs-html/rtl ... andom.html" onclick="window.open(this.href);return false;

Randomize vorher nicht vergessen!

[Jakane]

Code: Alles auswählen

RandomNumber := Random(31);

siehe auch http://www.freepascal.org/docs-html/rtl ... andom.html" onclick="window.open(this.href);return false;

Randomize vorher nicht vergessen!

hab ich auch grade in einem anderen Thema gefunden



Danke

jetzt würd ich das vielleicht gerne in eine Funktion packen
einfach um das auch mal begriffen zu haben

Code: Alles auswählen

sBlase_1.Left:= random(30) + 1;
sBlase_1.Top:= random(30) + 1;

Das ist ein Farb"ball" für einen Mitbewohner.
Ich weiss, bei so was kurzem lohnt keine funktion

[Jochen]

Kommt drauf an was/wieviel du noch damit vor hast. Bei zwei Zeilen ist das ja noch übersichtlich. Du könntest dir eine Prozedur schreiben der du dein Objekt übergibst, die Prozedur positioniert dein Objekt dann zufällig. Dann musst du nur die Prozedur ändern (min, max ,etc.).

[Jakane]

Kommt drauf an was/wieviel du noch damit vor hast. Bei zwei Zeilen ist das ja noch übersichtlich. Du könntest dir eine Prozedur schreiben der du dein Objekt übergibst, die Prozedur positioniert dein Objekt dann zufällig. Dann musst du nur die Prozedur ändern (min, max ,etc.).

Ich habs ja in einer Prozedur
Aber ich weiss das es auch funktionen gibt, hab aber glaube noch nie eine gemacht oder hinbekommen

[Eclipticon]

Code: Alles auswählen

function WheelOfFortune: integer;
begin
  Randomize;
  Result := Random(31);
end;

Wobei man Randomize eventuell separat initialisieren sollte, wenn diese Funktion haeufig aufgerufen wird ...

[Jakane]

Code: Alles auswählen

function WheelOfFortune: integer;
begin
  Randomize;
  Result := Random(31);
end;

Und wie bekomm ich da das Ergebnis in ein Button?

[Eclipticon]

Und wie bekomm ich da das Ergebnis in ein Button?

In ein Button? Ich weiss nicht genau, was du meinst ... sowas vielleicht?

Code: Alles auswählen

SomeButton.Caption := IntToStr(WheelOfForture);

[Jochen]

Und wie bekomm ich da das Ergebnis in ein Button?

Button auf, Ergebnis rein, Button zu. Eine genaue Beschreibung hilft den Helfenden ... vielleicht kannst du damit was anfangen:

Code: Alles auswählen

// zufälliger Rückgabewert zwischen min und max
function RandomMinMax(min, max: integer): integer;
begin
  Result := min + Random(max - min + 1); // +1 wegen oberer Schranke von Random
end;
 
//Button zwischen min und max positionieren 
procedure RandomPos(btn: TButton);
begin
  Randomize;
  btn.Left    := RandomMinMax(10, 100);
  btn.Top     := RandomMinMax(10, 100);
  btn.Caption := IntToStr(btn.left) + ' ' + IntToStr(btn.top);
end;
 
{ TForm1 }
 
// neue Position bei klick 
procedure TForm1.Button1Click(Sender: TObject);
begin
  RandomPos(Sender as TButton);
end;

Ich mag sowas ...

[Jakane]

Und wie bekomm ich da das Ergebnis in ein Button?

In ein Button? Ich weiss nicht genau, was du meinst ... sowas vielleicht?

Code: Alles auswählen

SomeButton.Caption := IntToStr(WheelOfForture);

äh... nein

ich habe ja jetzt da oben diese funktion mit einem resultat, das muss ich doch irgendwie benutzen

[MAC]

Und wie bekomm ich da das Ergebnis in ein Button?

einfach:

Button auf
Ergebnis rein
Button zu.

nein, was meinst du genau?
WIllst du das ergebnis ausgeben oder willst du die funktion aufrufen ? oder nochwas anderes ??

Ergebnis ausgeben hat Ecliption schon gezeigt.
Aufrufen hat er eigentlich auch schon gezeigt: du gehst in den objektinspektor erstellst ein onClick ereignis und schreibst den Code von Ecliption rein...

[Jakane]

hab vergessen was ich wollte und bin mal wieder ein anderen weg gegangen xD

[Maik81ftl]

Hmmm du willst ergo einen Zufälligen Wert auf einen Button ausgeben. der allerdings zw 0 und 30 liegt.

Code: Alles auswählen

// zufälliger Rückgabewert zwischen min und max
function RandomMinMax: integer;
begin
  Randomize;
  Result := Random(31); // +1 wegen oberer Schranke von Random
end;
 
// neue ButtonText bei klick 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Caption:= IntToStr(RandomButton);
end;

Wobei man Randomize eventuell separat initialisieren sollte, wenn diese Funktion haeufig aufgerufen wird

ist meiner Meinung nach Überflüssig. Result nimmt schon von haus aus den Rückgabewert der Funtion an. egal, ob char, Byte oder einen Selbst geschriebener Typ.

[Jim92]

Also wenn ich das richtig verstanden habe existiert in dem Form das Bild eines Glücksrades mit 30 Feldern. Es soll dann zufälig ausgewählt werden auf welchem Feld der Button erscheint, um zusätzliche Informationen zu der zu verrichtenden Arbeit abzurufen. In dem Fall würde ich das ganze etwa so umsetzen:

Code: Alles auswählen

var: Aufgaben: array [1..30,1..2] of integer;
       Aufgabe: byte;
begin
  for y:=1 to 30 do
    begin
       Aufgaben[y,1]:=Feldy.Left;
       Aufgaben[y,2]:=Feldy.Top;
    end;
  Aufgabe:=random(30)+1;
  Button1.Left:=Aufgaben[Aufgabe,1];
  Button1.Top:=Aufgaben[Aufgabe,2];
end;

So ungefähr hab ich das aus der Anfrage heraus verstanden
Ansonsten würde ichs auch so wie die anderen schon beschrieben haben machen.

[Eclipticon]

Wobei man Randomize eventuell separat initialisieren sollte, wenn diese Funktion haeufig aufgerufen wird

ist meiner Meinung nach Überflüssig. Result nimmt schon von haus aus den Rückgabewert der Funtion an. egal, ob char, Byte oder einen Selbst geschriebener Typ.

1.) Randomize <> Result

2.) In deinem Code heisst die function RandomMinMax, wird aber als RandomButton aufgerufen.