Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

zufallsgenerator

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu QBasic.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
hi
2x verwarnt


Anmeldungsdatum: 12.01.2005
Beiträge: 30

BeitragVerfasst am: 12.01.2005, 17:40    Titel: zufallsgenerator Antworten mit Zitat

wie kann man einen zufallsgenerator programmieren der nur zahlen von 1 bis 5000 angibt

ich steh im augenblick gedanklich an ner wand mit dem Kopf durch die Mauer wollen

deshalb

bitte antwortet wenn ihr euch da auskennt!!!!!!!!!!!!!
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Dusky_Joe



Anmeldungsdatum: 07.01.2005
Beiträge: 1007
Wohnort: Regensburg/Oberpfalz

BeitragVerfasst am: 12.01.2005, 17:45    Titel: Antworten mit Zitat

So ein Zufallsgenerator is einfach:

Zu anfang des Programms schreibt man einmal:
RANDOMIZE TIMER
damit nicht immer die selbe Zahlenfolge ausgegeben wird.
Und dann, wenns an die Wertabfrage geht:

wert% = RND * 5000 + 1

RND gibt nämlich einen Wert vom Typ SINLGE zurück, der zwischen 0 und unter 1 liegt. Also im Intervall [0; 1[.
Wenn du jetzt willst, dass der kleinste Wert nicht 1 sein soll, danns schreib einfach:

wert% = RND * Bereich + Minimum

Ich denke, der Code ist selbsterklärend, oder?

Wenn du noch fragen hast, meld dich noch mal cool

Für was brauchste den Generator eigentlich?
Für ein Spiel?
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
hi
2x verwarnt


Anmeldungsdatum: 12.01.2005
Beiträge: 30

BeitragVerfasst am: 12.01.2005, 17:51    Titel: antwort Antworten mit Zitat

ich machs für ne personenauswahl
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Jan



Anmeldungsdatum: 04.01.2005
Beiträge: 74

BeitragVerfasst am: 12.01.2005, 19:43    Titel: Antworten mit Zitat

könnte es sein das du vielleicht ganzzahlen brauchst??

dann benutz noch den Befehl INT davor:

Code:

dim wert as integer
wert = int (rnd * bereich + minimum)
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
hi
2x verwarnt


Anmeldungsdatum: 12.01.2005
Beiträge: 30

BeitragVerfasst am: 12.01.2005, 19:54    Titel: CODE Antworten mit Zitat

BITTE SCHREIB MIR DEN GANZEN CODE AUFSCHREIBEN
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Gremlin



Anmeldungsdatum: 12.12.2004
Beiträge: 142
Wohnort: Heinsberg

BeitragVerfasst am: 12.01.2005, 20:09    Titel: Antworten mit Zitat

Wenn du schon so """lieb""" darum bittest zwinkern

Code:
RANDOMIZE TIMER

Zahl% = INT(RND * 5000) + 1

'Gegebenenfalls:
PRINT Zahl%

_________________
Tja, hier konnte ihre Werbung stehen.
Pech gehabt. zwinkern
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Stormy



Anmeldungsdatum: 10.09.2004
Beiträge: 567
Wohnort: Sachsen - wo die schönen Frauen wachsen ;)

BeitragVerfasst am: 13.01.2005, 04:25    Titel: Re: antwort Antworten mit Zitat

hi hat Folgendes geschrieben:
ich machs für ne personenauswahl


Gremlin hat schon eine richtige Lösung gegeben. Aber um konkret deine Frage zu beantworten...

DIM Person$(5000) ' Falls das überhaupt möglich ist

' Namen vorgeben

FOR e = 1 TO 5000
Person$(e) = "Nr." + STR$(e)
NEXT e

RANDOMIZE TIMER

Zahl% = INT(RND * 5000) + 1

'Gegebenenfalls:
PRINT Zahl%

PRINT Person$(Zahl%)
_________________
+++ QB-City +++ Die virtuelle Stadt für jeden Freelancer - Join the community!
Projekte: QB-City,MysticWorld (RPG), 2D-OpenGL-Tutorial
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
hi
2x verwarnt


Anmeldungsdatum: 12.01.2005
Beiträge: 30

BeitragVerfasst am: 13.01.2005, 08:32    Titel: danke Antworten mit Zitat

ich danke euch allen ich habs endlich geschafft happy happy happy happy happy happy happy happy happy happy happy happy happy happy happy happy happy happy happy happy happy happy happy happy happy happy happy happy happy happy happy happy happy happy happy happy happy happy
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu QBasic. Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz