Das deutsche QBasic- und FreeBASIC-Forum

[ThePuppetMaster]

So ... auf anraten von Mao hab ich jetzt mal n Topic eröffnet, zu einem "Kettenprogramm".

Ziel: Es soll ein Funktionsfehiges FreeBasic Programm entstehen. (Funktion ist ansich egal. jedoch wär es schon schön, wenn was sinnvolles daraus wird. Viren Torjaner usw. wären nicht wirklich wünschenswert )
Regeln: Gleiche Regeln wie in der Kettengeschichte. (Es darf immer nur 1 Wort geschrieben werden.)

Bin schon auf das ergebniss gespannt
-----------

Dim


MfG
TPM
_________________
[ WebFBC ][ OPS ][ ToOFlo ][ Wiemann.TV ]

[5T3PH4N]

dim name$

bin auch auf das ergebnis gespannt
_________________
<green> We vegetarians love the environment. carnivores are sick freaks.
<Frank> How can vegetarians possibly love the environment.. you keep eating all the fucking plants

[Mao]

[General]

[Flo]

Dim sName As String
Dim iZahlen (1 To 50) As Integer

input sName
_________________
MFG
Flo

Satoru Iwata: Wer Spaß am Spielen hat, fragt nicht nach Grafik.

zum korrekten Verstaendnis meiner Beitraege ist die regelmaessige Wartung des Ironiedetektors unerlaesslich.

[General]

[Mao]

[Jojo]

Dim sName As String
Dim iZahlen (1 To 50) As Integer

Input sName

Do While sName
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.

[General]

Dim sName As String
Dim iZahlen (1 To 50) As Integer

Input sName

Do While sName="Bernd"

[Jojo]

Dim sName As String
Dim iZahlen (1 To 50) As Integer

Input sName

Do While sName="Bernd"
Print "Bernd ist ein Blöder Name (nichts gegen Bernds... aber das macht nur so Sinn Also gib nen anders Namen ein!"
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.

[nemored]

[Jojo]

[ThePuppetMaster]

[Jojo]

gute idee

[nemored]

[Jojo]

Dim sName As String
Dim iZahlen (1 To 50) As Integer

Input sName

Do While sName="Bernd"
Print "Bernd ist ein Blöder Name (nichts gegen Bernds... aber das macht nur so Sinn happy Also gib nen anders Namen ein!"
randomize
iZahlen(1) = int(3000 * rnd)
Input "nochmal dein name?", sName
Loop
Print sName; " - Ein cooler name!"
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.

[nemored]

[PMedia]

[nemored]

Hmm ... PMedia, kann es sein, dass du noch eine alte Version des Programms benutzt?

[Jojo]