[gelöst] Rnd() Problem -1
Verfasst: Do, 10.10.2013 20:06
Hallo Leutz,
nachdem ich mich nun lange mit BubbleSort beschäftigt habe und alles sortiert iss was zu sortieren war
muss ich nun wieder etwas Unordnung erzeugen
dazu verwende ich Basic Funktion Rnd die eine Zufallszahl 0-1 generieren soll und den folgenden Code
im Prinzip funktioniert diese DatenMischschleife auch prima, solange ich die Zeile mit der print Anweisung aktiv ist und alles langsam abläuf,
lass ich die Schleife ohne print im Schnelldurchlauf mischen gibt es oft Fehler weil eine Zufallszahl -1 ausgegeben wird und damit kann man ja kein array ansprechen.
Meine Methode Ganzzahlen zu erhalten durch festlegen der Variablen auf integer ist vieleicht nicht ganz sauber?
Die Frage ist wie kommt ein -1 zustande und wie verhindere negativ Werte, es soll aber auch 0 erzeugt werden also ein simples +1 tut es nicht?
nachdem ich mich nun lange mit BubbleSort beschäftigt habe und alles sortiert iss was zu sortieren war
muss ich nun wieder etwas Unordnung erzeugen
dazu verwende ich Basic Funktion Rnd die eine Zufallszahl 0-1 generieren soll und den folgenden Code
Code: Alles auswählen
dim rand1 as integer
dim rand2 as integer
for m=1 to myAnzahl
rand1 = rnd*myAnzahl-1
rand2 = rnd*myAnzahl/2
'print rand1 & ";" & rand2
chkcell.string = rand1 & ";" & rand2
chng1 = mData(rand1)
chng2 = mData(rand2)
mData(rand1) = chng2
mData(rand2) = chng1
next m
lass ich die Schleife ohne print im Schnelldurchlauf mischen gibt es oft Fehler weil eine Zufallszahl -1 ausgegeben wird und damit kann man ja kein array ansprechen.
Meine Methode Ganzzahlen zu erhalten durch festlegen der Variablen auf integer ist vieleicht nicht ganz sauber?
Die Frage ist wie kommt ein -1 zustande und wie verhindere negativ Werte, es soll aber auch 0 erzeugt werden also ein simples +1 tut es nicht?
