Wieso funktioniert das mit dem Zufall nicht?

[fabgo]

Hallo,

Wieso funktioniert das mit dem Zufall nicht? Es wird immer der 2. Wert ausgeführt!!!

Delphi-Quellcode:

procedure TAmpel2.Timer1Timer(Sender: TObject);      
begin
  if ImAuto1.Left <= 620                               
    then begin                                         
      ImAuto1.Left := ImAuto1.Left +2;
      Timer1.Interval := 10;                    
    end;
  if ImAuto1.Left >= 620                               
    then begin
      ImAuto1.Left := -20;
      Timer1.Interval := 10;                              
    end
      else if (ImAuto1.Left > 88) and (ImAuto1.Left < 174) and (Imgelblinks.Visible = True)
        then begin
          if random(2) >= 1
            then begin
              Timer1.Interval := 10;
            end
              else begin
                Timer1.Interval := 1000;
              end;        end
          else if (ImAuto1.Left > 124) and (ImAuto1.Left < 174)and (Imrotlinks.Visible)
            then begin
              Timer1.Interval := 30;
            end;
end;

habe zusätzlich noch folgendes:

Delphi-Quellcode:

procedure TAmpel2.FormCreate(Sender: TObject);
begin
  randomize;
end;

Wieso funzt das nicht.
Bitte helft mir.
Bastel schon den ganzen Tag!!!

Danke

fabgo

[ripper8472]

und wo zum geier soll da zufall herkommen, wenn ich mal so fragen darf?

ah ich sehs. random(2) >= 1
nun, das kann 0 oder 1 sein, also solltest du bei 100 versuchen etwa 50 treffer je moeglichkeit haben.

[Pseudemys Nelsoni]

[delphi]if random(2) >= 1 [delphi]

da.

[fabgo]

wenn ich es gleich setze, also

if random(2) = 1

funktioniert es auch nicht.

Was ist also falsch???

[ripper8472]

geh mit dem debugger rein, dann siehst du es vielleicht.

keiner wird sich die muehe machen, deinen code auseinanderzunehmen. da stecken sicher einfache logikfehler drin, die du selbst loesen musst. ich denke, im programmablauf kommts garnicht erst in die naehe des random() aufrufes.

[ichbins]

du kannst ja mit showmessage abtesten, wo du dich gerade befindest und Variablenwerte ausgeben.

[Sharky]

Zitat:

Zitat von ripper8472

und wo zum geier soll da zufall herkommen, wenn ich mal so fragen darf? ...

Hai ripper8472,

ich denke das kann man auch wesentlich freundlicher sagen!.

Zitat:

Zitat von ripper8472

.... keiner wird sich die muehe machen, deinen code auseinanderzunehmen. da stecken sicher einfache logikfehler drin, die du selbst loesen musst. ich denke, im programmablauf kommts garnicht erst in die naehe des random() aufrufes.

Ich glaube schon das die User der DP sich "die mühe machen". Wenn Du einen Fehler in dem Code von fabgo siehst dann sage bitte wo der Fehler ist. Alles andere ist unnötig.

Danke.

[ManuMF]

Delphi-Quellcode:

if (Odd(Random(100))) then ...

würde ich stattdessen probieren.

Gruß,
ManuMF

[franktron]

ManuMFs idee ist schon gut weil dir Random Funktion auf der Systemzeit beruht (sowiet das noch so ist) könnte es sein das dein Prog so lange braucht das Random immer den gleichen Wert ausgibt.

Lösung erhöhe den Wert von Random z.b. If Random(1000)>500 then xxxx else xxxx

[fabgo]

Ich glaub ich weiß jetzt worin der Fehler besteht.

Ich möchte ja, das Random mir nur einmal eine zahl rauswirft und das nicht wiederholt.

Wis kann man das aufhalten???

[k-weddige]

Hast du evtl. Randomize vergessen?

k-w

PS: Einfach "Randomize;" ins OnCreate schreiben. :wink:

[Khabarakh]

Zitat:

Zitat von k-weddige

Hast du evtl. Randomize vergessen?

Lies dir bitte den ersten Post nochmal durch.

Zum Problem: Da benötigst du eine globale Boolean-Variable, die angibt, ob es der erste "Kontakt" mit der Ampel ist. Der Default-Wert ist natürlich false. Sobald das Auto in den Bereich der Ampel kommt, setzt du sie auf true. Gleichzeitig setzt du das Timerintervall hoch, falls Random zutrifft. Im nächsten Timeraufruf (Variable = false, im Bereich der Ampel) setzt du das Intervall wieder auf den Standardwert. Wenn das Auto die Ampel hinter sich gelassen hat, musst du sie wieder auf true stellen.

[alzaimar]

Zitat:

Zitat von franktron

ManuMFs idee ist schon gut weil dir Random Funktion auf der Systemzeit beruht (sowiet das noch so ist)

Wann war das denn mal? Eigentlich kann das nicht sein, weil ein Random-Generator deterministisch sein muss. Wenn ich ihn wohldefiniert initialisiere, dann soll er mir immer die selbe Folge von Pseudozufallszahlen liefern. Ohne Randomize macht er das. Randomize selbst ist abhängig von der Zeit.

[marabu]

Hallo fabgo,

wenn du den Zufallswert nur einmal pro Fahrt haben möchtest, dann musst du ihn beim Fahrtbeginn (ImgAuto1.Left = -20) bestimmen und in einer private Variable deiner Form (TAmpel2) ablegen. Außerdem musst du etwas aufpassen, wenn du IF-ELSE-IF Strecken kodierst, besonders wenn du an verschiedenen Stellen weitere Bedingungen knüpfst. Die Intervalle müssen immer klar zu erkennen sein:

Delphi-Quellcode:

interface

type
  TAmpel2 = class(TForm)
    ...
  private
    GibGas: boolean;
  end;

implementation

procedure TAmpel2.Timer1Timer(Sender: TObject);     
begin
  with ImAuto1 do
  begin
    Left := (Left + 20 + 2) mod 640 - 20;
    if Left = -20 then
      GibGas := Odd(Random(2));

    if (Left >= 174) then 
      Timer1.Interval := 10 
    else
    if (Left > 124) then
    begin
      if ImRotLinks.Visible then
        Timer1.Interval := 30
    end 
    else if Left > 88 then
    begin
      if ImGelbLinks.Visible then 
        if GibGas
          then Timer1.Interval := 10
          else Timer1.Interval := 1000;
    end
    else 
      Timer1.Interval := 10;
  end;
end;

Schreibfehler inbegriffen...

Grüße vom marabu

[fabgo]

VIELEN DANK!!!

[himitsu]

Zitat:

Zitat von franktron

ManuMFs idee ist schon gut weil dir Random Funktion auf der Systemzeit beruht (sowiet das noch so ist)

Zitat:

Zitat von alzaimar

Wann war das denn mal? Eigentlich kann das nicht sein, weil ein Random-Generator deterministisch sein muss. Wenn ich ihn wohldefiniert initialisiere, dann soll er mir immer die selbe Folge von Pseudozufallszahlen liefern. Ohne Randomize macht er das. Randomize selbst ist abhängig von der Zeit.

Stimmt genau ... nur in Randomize findet man etwas Zeitabhängiges ^^

Delphi-Quellcode:

Var RandSeed: LongInt;

Procedure Randomize;
  Var Count: LargeInt;

  Begin
    If QueryPerformanceCounter(Count) Then RandSeed := Count
    Else RandSeed := GetTickCount;
  End;

Function Random(Range: LongInt): LongInt; Overload;
  // Borland Delphi v7.0 Build 4453 
  Begin
    RandSeed := RandSeed * 134775813 + 1;
    //Result := LargeInt(Range) * LongWord(RandSeed) div LargeInt($100000000);
    Result := TLargeIntRec(LargeInt(Range) * LongWord(RandSeed)).Hi;
  End;

Function Random: Extended; Overload;
  // Borland Delphi v7.0 Build 4453 
  Begin
    RandSeed := RandSeed * 134775813 + 1;
    //Result := 1.0 * LongWord(RandSeed) / LargeInt($100000000);
    Result := LongWord(RandSeed) / LargeInt($100000000);
  End;