Mein allererstes Progrämmchen. Wer lust auf PureGolf?

[Franky]

Hi Leute, ich hab grad meinen ultimativen MP3-Doppelplayer Scratchup wiedergefunden ( laut der Aboutbox stammt er von anno 2003)

Ich hab den Quelltext lediglich so überarbeitet, dass er auf PB4.0 keine Fehlermeldung verursacht. Da ich mich meiner Wurzeln und Programmierbandwürmer der anfangszeit nicht schäme, dachte ich mir, ich schmeiß ihn mal einfach in den Raum und wir veranstalten eine Art PureGolf.

Als Regeln gibt´s folgendes zu beachten:
-Der Code soll so kurz wie möglich sein was ZEILEN angeht
-: zählt als Zeilenumbruch
- Leerzeilen und Kommentarzeilen werden nicht gezählt
-Die GUI darf in ihrem Aussehen nicht verändert werden
-Die angezeigten Texte zählen zur GUI
-Was zwischen "Enumeration : EndEnumeration" steht, wird nicht gezählt.

Seht es einfach weniger als Wettbewerb ums kürzeste, als viel mehr als versuch, wer den Schönsten PureBasic-Code erstellen kann.

Naja, versucht halt euer glück

//EDIT: Da der Code nicht mehr kompilierbar ist, das Spiel wohl nichtmehr gespielt wird und er eigentlich nur einen schlechten Eindruck machen kann, wenn man den Rest des Beitrags nicht liest (siehe erste Antwort ), habe ich mich beschlossen, ihn hier raus zu nehmen. => Bitte Coden Sie weiter, hier gibt es nichts zu sehen


Fehlerbehebungen sind natürlich willkommen.

Zu Deutsch: MACHT WAS DRAUS

[LukasBanana]

Hallo Franky,

Wie lange programmierst du denn schon?
Ich will dir ja nicht zu nahe treten aber dein Programm ist nicht gerade professionell geschrieben!

Ich meine: so habe ich auch mal programmiert!

Aber hast du noch nichts von Arrays gehört?
Und deine Wahl der VariablenNamen sind auch nicht umbedingt sehr einleuchtend!

Aber muss schon sagen dein Programm errinert mich ein bischen an meine Anfänge! ^^

Falls du wirklich noch nichts von Arrays gehört haben solltest, hier ein kleines Beispiel:

Code: Alles auswählen

Dim var.l(10) ; Ich definiere einen Array mit dem Befehl Dim vom Typ Long (.l)
; Jetzt habe ich sotzusagen 11 Variablen (0-10)

For index = 0 To 10 ; Ich durchlaufe alle Elemente durch eine For-Schleife
  var(index) = Random(50) ; Ich fülle alle Elemente des Arrays mit einer Zufallszahl zwischen 0 und 50
Next

; Danach kann man die Zahlen wieder unter dem jeweiligen Index aufrufen!

For index = 0 To 10
  Debug var(index) ; Zeige mir alle Zahlen des Arrays var()
Next

[ts-soft]

@LukasBanana
http://www.mentaloverflow.de/purecontest/contest01.htm

Franky hat die Eierschalen bereits abgeworfen

[LukasBanana]

Dachte ich mir schon irgend wie,

Wollte aber endlich mal versuchen jemandem mit einem Beispiel zu helfen

[ts-soft]

Wollte aber endlich mal versuchen jemandem mit einem Beispiel zu helfen

Sehr gute Einstellung
Beim nächsten mal klappts bestimmt

[dllfreak2001]

Also das Conway-Spiel auf der Contest-Seite reizt mich da noch mehr...

Wenn man mit den Überlensparametern spielt erhält man interessante organisch anmutende Muster.

[Kaeru Gaman]

Conway's Game Of Life ist ein sehr interessantes Programm.

man könnte es durchaus mal weiterentwickeln, mit mehreren lebensphasen und nicht nur lebendig/tot.

ein PureGOLF interessiert mich persönlich nicht so sehr, da das streckenweise merkwürdige blüten treiben kann.
da ist ein 100-zeiler eher mein geschmack.

[dllfreak2001]

Aber ne komische Lebensform, braucht drei Partner um sich fotzupflanzen.

[Kaeru Gaman]

es sind auch keine beweglichen zellen.
das entspricht also eher einem Pilz oder einer Flechte, die sich durch sprossung vermehrt...

[ts-soft]

>> die sich durch sprossung vermehrt...
Ist Sprossing auch eine Form des Kamasutra