Funktion optimieren und kürzen

Übersicht

BlitzBasic

Beginners-Corner

	Woody the woodiest Betreff: Funktion optimieren und kürzen	Mo, Dez 20, 2004 19:05 Antworten mit Zitat
Gibt es eine kürzere Variante dieser Funktion, die irgendwie in einer Schleife oder so verpackt ist? Code: [AUSKLAPPEN] [EINKLAPPEN] const Ersterbuchstabe=97 const Letzterbuchstabe=122 const Namenanzahl=79 dim Namen$(Namenanzahl) Function Namensgenerierung(Laenge) for a=0 to Namenanzahl if Laenge=2 then Namen$(a)=chr$(rand(Ersterbuchstabe,Letzterbuchstabe))+chr$(rand(Ersterbuchstabe,Letzterbuchstabe)) end if if Laenge=3 then Namen$(a)=chr$(rand(Ersterbuchstabe,Letzterbuchstabe))+chr$(rand(Ersterbuchstabe,Letzterbuchstabe))+chr$(rand(Ersterbuchstabe,Letzterbuchstabe)) end if e.t.c. bis Laenge=14 end function
Am Sonntag sind die Autobahnen leer, so kann man ruhig in Urlaub fahren. Würden alle so denken, wären die Autobahnen am Sonntag voll. Warum sind sie es trotzdem nicht? Weil der Großteil der Bevölkerung gar nicht denken KANN.

Woody the woodiest

Betreff: Funktion optimieren und kürzen

Mo, Dez 20, 2004 19:05
Antworten mit Zitat

Gibt es eine kürzere Variante dieser Funktion, die irgendwie in einer Schleife oder so verpackt ist?

Code: [AUSKLAPPEN]

const Ersterbuchstabe=97
const Letzterbuchstabe=122
const Namenanzahl=79

dim Namen$(Namenanzahl)

Function Namensgenerierung(Laenge)
for a=0 to Namenanzahl

if Laenge=2 then
Namen$(a)=chr$(rand(Ersterbuchstabe,Letzterbuchstabe))+chr$(rand(Ersterbuchstabe,Letzterbuchstabe))
end if

if Laenge=3 then
Namen$(a)=chr$(rand(Ersterbuchstabe,Letzterbuchstabe))+chr$(rand(Ersterbuchstabe,Letzterbuchstabe))+chr$(rand(Ersterbuchstabe,Letzterbuchstabe))
end if

e.t.c. bis Laenge=14

end function

Am Sonntag sind die Autobahnen leer, so kann man ruhig in Urlaub fahren.
Würden alle so denken, wären die Autobahnen am Sonntag voll.
Warum sind sie es trotzdem nicht?
Weil der Großteil der Bevölkerung gar nicht denken KANN.

	Kryan	Mo, Dez 20, 2004 19:15 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] const Ersterbuchstabe=97 const Letzterbuchstabe=122 const Namenanzahl=79 dim Namen$(Namenanzahl) Function Namensgenerierung(Laenge) for a=0 to Namenanzahl for b=1 To laenge Namen$(a)=Namen$(a)+chr$(rand(Ersterbuchstabe,Letzterbuchstabe)) next next end function
Webspaceanbieter? Klick hier! Kultige Spieleschmiede? Klick hier!

Kryan

Mo, Dez 20, 2004 19:15
Antworten mit Zitat

Code: [AUSKLAPPEN]

const Ersterbuchstabe=97
const Letzterbuchstabe=122
const Namenanzahl=79

dim Namen$(Namenanzahl)

Function Namensgenerierung(Laenge)
for a=0 to Namenanzahl
for b=1 To laenge
Namen$(a)=Namen$(a)+chr$(rand(Ersterbuchstabe,Letzterbuchstabe))
next
next
end function

Webspaceanbieter?
Klick hier!
Kultige Spieleschmiede?
Klick hier!

	Woody the woodiest	Mo, Dez 20, 2004 19:18 Antworten mit Zitat
Aber hier werden die Buchstaben doch nicht miteinander addiert und überschreiben sich gegenseitig wenn sie ins Array kommen, oder?
Am Sonntag sind die Autobahnen leer, so kann man ruhig in Urlaub fahren. Würden alle so denken, wären die Autobahnen am Sonntag voll. Warum sind sie es trotzdem nicht? Weil der Großteil der Bevölkerung gar nicht denken KANN.

Woody the woodiest

Mo, Dez 20, 2004 19:18
Antworten mit Zitat

Aber hier werden die Buchstaben doch nicht miteinander addiert und überschreiben sich gegenseitig wenn sie ins Array kommen, oder?

	Kryan	Mo, Dez 20, 2004 19:27 Antworten mit Zitat
nein, sie werden addiert AUSPROBIEREN!
Webspaceanbieter? Klick hier! Kultige Spieleschmiede? Klick hier!

Kryan

Mo, Dez 20, 2004 19:27
Antworten mit Zitat

nein, sie werden addiert

AUSPROBIEREN!

Webspaceanbieter?
Klick hier!
Kultige Spieleschmiede?
Klick hier!

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

Funktion optimieren und kürzen

Woody the woodiest

Betreff: Funktion optimieren und kürzen

Kryan

Woody the woodiest

Kryan