Random letter

[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:

Code: Alles auswählen

Debug Chr(65 + Random(25))

Zufällig Kleinbuchstaben generieren:

Code: Alles auswählen

Debug Chr(32 + Random(25))

Hier noch ein Code um zufällig Klein- und Großbuchstaben zu generieren:

Code: Alles auswählen

Debug Chr(65 + 32*Random(1) + Random(25))

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

[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...

[onny]

oha
okay ^^ dann grübel ich mal ide nacht durch

[rayman1970]

Hi onny !

Danke für deinen Code, sowas habe ich schon immer gesucht

Gruss Rayman1970

[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))

[Kaeru Gaman]

@DataMiner

nette idee, aber ich meine auch ohne Array.
eine einzige zuweisung genügt.

[rayman1970]

Code: Alles auswählen

a = Random(1) - a
Debug ( Chr(65+a*32+Random( 25 ) ) ) 

Oder so

[DataMiner]

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...

(!)

[rayman1970]

Code: Alles auswählen

For i= 1 To 100
Debug ( Chr(65+Random(1)*32+Random( 25 ) ) )
Next i

[onny]

Code: Alles auswählen

For i= 1 To 100
Debug ( Chr(65+Random(1)*32+Random( 25 ) ) )
Next i

hey nice!