Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Zufallsfunktion

   
    by alzaimar, 12. Jul 2007
  Ehrlich gesagt, verstehe ich wirklich die Problematik nicht, Kharlanki.
  
  Du hast also ein Programm, das täglich(?) oder ab und gestartet wird. Sei X der Tag, an dem das letzte Mal 'das Ereignis' aufgetreten ist. Ergo wird das nächste Ereignis zum Zeitpunkt "X + 30 + Random (31)" auftreten. Das ist doch wohl klar. Wieso kannst Du das nicht im Voraus berechnen, irgendwo abspeichern und beim...
• Forum: Sonstige Fragen zu Delphi

  Re: Zufallsfunktion

   
    by alzaimar, 12. Jul 2007
  Aha.
  
  Also:
  Am 30.Tag : "If Random (31) = 0 then Ereignis_Ausloesen"
  Am 31.Tag : "If Random (30) = 0 then Ereignis_Ausloesen"
  ...
  Am 60.Tag : "If Random (1) = 0 then Ereignis_Ausloesen"
  
  So etwa, stimmts? Wenn dann 'Ereignis_Ausloesen' den Tageszähler wieder auf 0 setzt, dann solltest Du das doch hinbekommen...
• Forum: Sonstige Fragen zu Delphi

  Re: Zufallsfunktion

   
    by alzaimar, 12. Jul 2007
  Kharlaki, Du musst einen Fehler gemacht haben. Weiterhin sind es 11 Ereignisse (0..10) und dann erwartet man bei 10000 Durchläufen 909 Treffer. Passiert mir aber auch immer wieder.
  
  Hier, schau mal;
  
  1x Button, 1x Memo, Doppelklick auf Button und dann;
  
  Procedure TForm1.Button1Click (Sender : TObject);
  Const
  ccSamples = 1000000;