Randombefehl in Basic

[sulu]

Hi Leute,
gibt es in Basic oder Bascom einen Befehl der zufällige Zahlen und Ziffernfolgen ausgibt.
Kann man dann auch eventuell bestimmen wieviele stellen diese zufälligen abfolgen haben?

[PicNick]

Bei Basic heißt das RND(limit) und bei Bascom ergibt es 16 Bit
limit kannst du in diesem Rahmen angeben (>0, logo)

[sulu]

Hab mich für Basic entschieden. Aber könntest du das nochmal genauer beschreiben?

Danke

[PicNick]

Example
Dim I As Integer
Do
I = Rnd(100) 'eine gestreute Zahlenfolge vom 0-99
Print I
Waitms 100
Loop
End

Vorsicht: Nach jedem "Reset" kommt die gleiche Folge. Da kann man sich aber helfen.

[sulu]

Ja das klappt schonmal.
Kann man jetzt unter die Zahle noch zufällige Buchstaben mischen?

[PicNick]

Das ist immer eine Zahl, du kannst aber (z.B) das dann auf druckbare Zeichen umlegen:
Dim I As Integer
Dim Z As byte
Do
I = Rnd(96) 'eine gestreute Zahlenfolge vom 0-95
Z = I + 32
Print chr(Z)
Waitms 100
Loop
End

[sulu]

Ja so wollt ich das.
Achso: Kann man auch die einzelnen Ziffern der Zufallszahlen "auslesen"?
Praktisch so:
Wenn die erste Ziffer 1 ist dann mach folgendes..

[sulu]

Ach ich vergaß:
hab jetzt ein Programm das di Zahlen 0-999 HOchzählt. Das mit dem auslesen ist darauf bezogen.

[PicNick]

Ganz hab ich es jetzt nicht, aber das Ergebnis von RND(x) ist eine ganz normale 16-Bit Zahl. Die kannst du vergleichen, multiplizieren und verwursten, wie du willst.

[sulu]

Ja aber die Zahl besteht ja aus 1er oder mehreren Ziffern.Es geht darum das er die einzelnen Ziffern erkennt