|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
19.02.2009 15:32:28 |
Eddie |
|
|
|
19.02.2009 16:55:25 |
Holger |
|
|
|
19.02.2009 17:16:58 |
Eddie |
|
|
|
19.02.2009 17:18:10 |
Eddie |
|
|
 Aw:Aw:Aw:Aw:Problem |
20.02.2009 14:55:14 |
Holger |
|
|
|
21.02.2009 14:10:35 |
Eddie |
|
|
|
19.02.2009 17:37:21 |
Eddie |
|
|
Von:
Holger |
Datum:
20.02.2009 14:55:14 |
Views:
992 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Aw:Problem |
Hallo Eddie,
jetzt für 14 Stellen und Kommentar:
Sub Zufallszahl()
Randomize 'erzeugt neue Zufallszahlenreihe
b="" 'b so das ergebnis aufnehmen und wird hier initialisiert
For i = 0 To 3 'äußere Schleife. Läuft 3 1/2 mal durch und erzeugt mit den
'inneren Schleifen paarweise gerade und ungerade Zufallszahlen
For j = 0 To 1 '1. innere Schleife
start: 'Sprungadresse. Falls erste Zahl nicht Null sein darf, wird die
'Erzeugung einer Zufallszahl ggf. wiederholt
a = Int(Int(Rnd * 10) / 2) * 2 'Erzeugung einer geraden Zufallszahl
'Rnd liefert Zufallszahl zwischen 0 und 1, die nächstkleinere ganze Zahl'
'als das Argument, falls dieses nicht bereits ganz ist
If b = "" And a = 0 Then GoTo start 'wenn b noch leer ist, wird die erste
'Zufallszahl bestimmt. Diese soll nicht verschwinden, deshalb ggf. ein
'Sprung nach Start, um die Erzeugung zu wiederholen
b = b + CStr(a) 'Die Zufallszahl wird mit CStr in eine Textvariable umgeformt
Next j 'Ende der 1. inneren Schleife
if i=3 then exit for 'beim 4. Durchlauf hier aufhören, um nur 14 Ziffern zu erzeugen
For j = 0 To 1 '2. innere Schleife
a = Int(Int(Rnd * 10) / 2) * 2 - 1 'ungerade Ziffern
If a = -1 Then a = 9 'dabei kann -1, aber nicht 9 herauskommen, deshalb umwandeln
b = b + CStr(a)
Next j 'Ende der 2. inneren Schleife
Next i 'Ende der äußeren Schleife
MsgBox b 'Anzeige des Ergebnisses
End Sub
Gruß
Holger
Eddie schrieb am 19.02.2009 17:18:10:
ach ja könnten sie es vielleicht ein wenig näher beschreiben, weil ich versteh das nicht so ganz..es hat auf jeden fall funktioniert, aber ich würde gerne den ablauf verstehen
Holger schrieb am 19.02.2009 16:55:25:
Hallo Eddie,
schlicht und leicht verständlich:
Sub Zufallszahl()
Randomize 'erzeugt neue Zufallszahlenreihe
b=""
For i = 0 To 2
For j = 0 To 1
'start:
a = Int(Int(Rnd * 10) / 2) * 2
'If b = "" And a = 0 Then GoTo start
b = b + CStr(a)
Next j
For j = 0 To 1
a = Int(Int(Rnd * 10) / 2) * 2 - 1
If a = -1 Then a = 9
b = b + CStr(a)
Next j
Next i
MsgBox b
End Sub
Wenn die erste Ziffer keine Null sein darf, entferne einfach die beiden Apostrophe.
Gruß
Holger
Eddie schrieb am 19.02.2009 15:32:28:
Ich wollte einen zufallsgenerator erstellen in dem die ersten beiden ziffern gerade zahlen sind ,die nächsten beide ungerade und immer so weiter bis auf 12 stellen.
Nun habe ich keinen ahnung wie ich das anstellen soll...ich bin nämlich anfänger..
wenn jmd eine idee hat oder mir vllt einen kleinen gedanken geben kann wär ich sehr dankbar |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
19.02.2009 15:32:28 |
Eddie |
|
|
|
19.02.2009 16:55:25 |
Holger |
|
|
|
19.02.2009 17:16:58 |
Eddie |
|
|
|
19.02.2009 17:18:10 |
Eddie |
|
|
Aw:Aw:Aw:Aw:Problem |
20.02.2009 14:55:14 |
Holger |
|
|
|
21.02.2009 14:10:35 |
Eddie |
|
|
|
19.02.2009 17:37:21 |
Eddie |
|
|