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 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 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]

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???