AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

RandomRange?

Ein Thema von fortuneNext · begonnen am 28. Aug 2007 · letzter Beitrag vom 28. Aug 2007
Antwort Antwort
fortuneNext

Registriert seit: 11. Aug 2007
Ort: Neuss
133 Beiträge
 
Delphi 7 Enterprise
 
#1

RandomRange?

  Alt 28. Aug 2007, 13:05
Hallo,
ich möchte gerne eine zufällige Zahl zwischen 50 und 100 generieren lassen, allerdings verstehe ich diese function nicht mal ansatzweie. Kann mir da jemand weiterhelfen, z.B. ein Beispiel zeigen?

Danke!
Tim
"Hilfe & Support konnte nicht geöffnet werden. Bitte öffnen sie Hilfe & Support, um das Problem zu beheben."
"No Keyboard found. Press F1 to continue."
  Mit Zitat antworten Zitat
angos

Registriert seit: 26. Mai 2004
Ort: Rheine
549 Beiträge
 
Delphi 11 Alexandria
 
#2

Re: RandomRange?

  Alt 28. Aug 2007, 13:15
Die FUnktion Random benötigt als übergabe einen integer "Range". Beispiel:

Du übergibst 10 an die funktion, also

Random(10); , dann wird eine Zufallszahl zwischen 0 und 9 erzeugt. wenn du jetzt eine Zahl zwischen 50 und 100 brauchst, rechne doch einfach mal 50 hinzu

Edit sagt: nicht aufgepasst... randomrange dürfte so funktionieren wie von alzaimer erklärt.... -.-

Gruß
angos
Ansgar
  Mit Zitat antworten Zitat
silver-moon-2000

Registriert seit: 18. Feb 2007
Ort: Schweinfurt
170 Beiträge
 
Delphi XE Professional
 
#3

Re: RandomRange?

  Alt 28. Aug 2007, 13:16
Zitat von fortuneNext:
Hallo,
ich möchte gerne eine zufällige Zahl zwischen 50 und 100 generieren lassen, allerdings verstehe ich diese function nicht mal ansatzweie. Kann mir da jemand weiterhelfen, z.B. ein Beispiel zeigen?

Danke!
Das machst Du mit random folgendermaßen:
1x
randomize; aufrufen, z.B. im onCreate Ereigniss

Deine Zufallszahl erzeugst Du dann mit
ZFZ := random(50)+51; wobei random(50) eine Zufallszahl im Bereich [0..49] erzeugt.
Tobias
Bitte nicht hauen , ich weiß es nicht besser
  Mit Zitat antworten Zitat
alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#4

Re: RandomRange?

  Alt 28. Aug 2007, 13:18
Entweder
MyRandom := 50 + Random (51); // Zufallszahlen zwischen 50 und 100, Random(X) liefert Zahlen zwischen 0 und X-1 oder eben
MyRandom := RandomRange (50,100) Was ist dara so schwer zu verstehen?
@silver-moon-2000: Kleiner Denkfehler bei Dir (51 + Random(50), er will aber Zahlen zwischen 50 und 100...)
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat
silver-moon-2000

Registriert seit: 18. Feb 2007
Ort: Schweinfurt
170 Beiträge
 
Delphi XE Professional
 
#5

Re: RandomRange?

  Alt 28. Aug 2007, 13:40
Zitat von alzaimar:
@silver-moon-2000: Kleiner Denkfehler bei Dir (51 + Random(50), er will aber Zahlen zwischen 50 und 100...)
Aaarrgh, wie peinlich
Tobias
Bitte nicht hauen , ich weiß es nicht besser
  Mit Zitat antworten Zitat
fortuneNext

Registriert seit: 11. Aug 2007
Ort: Neuss
133 Beiträge
 
Delphi 7 Enterprise
 
#6

Re: RandomRange?

  Alt 28. Aug 2007, 17:12
Ah, danke...
Das mit dem + wusst ich nich ^^ im Internet habn ich nur irgendwas mit wilden functions unso gefunden
Tim
"Hilfe & Support konnte nicht geöffnet werden. Bitte öffnen sie Hilfe & Support, um das Problem zu beheben."
"No Keyboard found. Press F1 to continue."
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:43 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz