Seite 1 von 4
Random letter
Verfasst: 30.09.2006 15:13
von onny
Hab mal mein Gehirn angestrengt und mich gefragt wie man einen zufälligen Buchstaben machen kann. Man könnte ja jeder Zahl einen Buchstaben zuordnen und dann diese Zahlen zufällig raussuchen. Alles viel zu kompliziert... So hatte ich eine Idee und diese gleich umgesetzt
Zufällig Großbuchstaben generieren:
Zufällig Kleinbuchstaben generieren:
Hier noch ein Code um zufällig Klein- und Großbuchstaben zu generieren:
Diese Codes generieren einen zufälligen Buchstabe, A-Z.
Mir ist klar das es nichts besonderes ist, aber vllt. gefällts jemanden
Ist übrigens mein erster Post hier in Code, Tipps und Tricks
Gruß oNNy
Verfasst: 30.09.2006 15:19
von Kaeru Gaman
nun, immerhin.
aller anfang ist schwer, aber soweit ist das doch schon ganz gut.
wie wärs, denk dir doch jetzt mal was aus,
womit man zufällig klein- und groß-buchstaben erzeugen kann,
ohne die sonderzeichen, die zwischen Z und a liegen,
und ohne ein If zu verwenden...
Verfasst: 30.09.2006 15:52
von onny
oha
okay ^^ dann grübel ich mal ide nacht durch
Verfasst: 30.09.2006 16:55
von rayman1970
Hi onny !
Danke für deinen Code, sowas habe ich schon immer gesucht
Gruss Rayman1970
Verfasst: 30.09.2006 17:49
von DataMiner
wie wärs, denk dir doch jetzt mal was aus,
womit man zufällig klein- und groß-buchstaben erzeugen kann,
ohne die sonderzeichen, die zwischen Z und a liegen,
und ohne ein If zu verwenden...
... ich kanns nicht lassen
Code: Alles auswählen
Dim buchstabe.s(51)
For i=0 To 25
buchstabe(i)=Chr(i+65)
buchstabe(i+26)=Chr(i+97)
Next
Debug buchstabe(Random(51))
Verfasst: 30.09.2006 17:53
von Kaeru Gaman
@DataMiner
nette idee, aber ich meine auch ohne Array.
eine einzige zuweisung genügt.
Verfasst: 30.09.2006 19:15
von rayman1970
Code: Alles auswählen
a = Random(1) - a
Debug ( Chr(65+a*32+Random( 25 ) ) )
Oder so
Verfasst: 30.09.2006 19:19
von DataMiner
rayman1970 hat geschrieben:Code: Alles auswählen
a = Random(1) - a
Debug ( Chr(65+a*32+Random( 25 ) ) )
Oder so
... nicht wirklich.
ohne die sonderzeichen, die zwischen Z und a liegen,
und ohne ein If zu verwenden...
(!)
Verfasst: 30.09.2006 19:24
von rayman1970
Code: Alles auswählen
For i= 1 To 100
Debug ( Chr(65+Random(1)*32+Random( 25 ) ) )
Next i
Verfasst: 30.09.2006 19:50
von onny
rayman1970 hat geschrieben:Code: Alles auswählen
For i= 1 To 100
Debug ( Chr(65+Random(1)*32+Random( 25 ) ) )
Next i
hey nice!