Seite 1 von 3

Wieviel Programmzeilen im ersten Projekt?

Verfasst: 12.01.2006 19:50
von hiltwin
Ich wollt mich auch mal in der Laberecke betätigen ;o)

Frdl. Gruss
Hiltwin
ICH wollte schon noch nen Kreuz für >= 10.000 anbieten, allerdings nicht das Board - das hat die Antwort irgendwie abgeschnitten und editieren der Antworten, wie das funktioniert, hab ich noch nicht gefunden. ;o)

Verfasst: 12.01.2006 20:04
von freedimension
Mehr als 10000 gibt es als Antwort nicht?

Verfasst: 12.01.2006 20:09
von Macros
Angeber :D

Mein erstes Projekt war, dass ich mir denn Weaponez II-Quellcode
vorgenommen habe, zuerst ein bisschen rumgespielt, dann die
Schüsse verbessert, die Screenresolution hochgesetzt Endgegner
eingebaut...
Nur auf die Rechenleistung habe ich nicht geschaut, und die ist letztendlich aus dem Ruder gelaufen. :D

Verfasst: 12.01.2006 20:11
von freedimension
Macros hat geschrieben:Angeber :D
Nein, ich habe mein Kreuz bei <5000 gemacht. Mir ist das nur aufgefallen, also dass die Umfrage nicht nach oben offen ist :|

Verfasst: 12.01.2006 20:16
von Macros
Ich glaube nicht, dass jemand gleich beim ersten Projekt mehr als 10000 Zeilen geschrieben hat.
(Außer er hats gemacht wie mein Freund, der hat ein Programm geschrieben, das für ihn Quellcode schreibt)

edit: auch bei <5000

Verfasst: 12.01.2006 20:20
von freedimension
Macros hat geschrieben:(Außer er hats gemacht wie mein Freund, der hat ein Programm geschrieben, das für ihn Quellcode schreibt)
Kann ich auch:

Code: Alles auswählen

  CreateFile(1, "bier.pb")
  For i=2 to 10002
    WriteStringN("Debug " + Str(i) + " Flaschen Bier")
  Next
  CloseFile(1)
:mrgreen:

Verfasst: 12.01.2006 20:26
von rolaf
freedimension hat geschrieben:
Macros hat geschrieben:(Außer er hats gemacht wie mein Freund, der hat ein Programm geschrieben, das für ihn Quellcode schreibt)
Kann ich auch:

Code: Alles auswählen

  CreateFile(1, "bier.pb")
  For i=2 to 10002
    WriteStringN(Debug Str(i) + " Flaschen Bier")
  Next
  CloseFile(1)
:mrgreen:
Da fehlt noch ne abschließende Zeile im KOT :lol:

WriteStringN(Debug "Prost...Gluck...Gluck...Gluck")

Edit: <100

Verfasst: 12.01.2006 20:30
von Macros
Naja,
ein bisschen mehr Sinn sollte es schon haben,
(Für jedes x auf dem Screen ein Pixelturm der Verwaltet wird)
nur leider hat das Programm 1024 mal Mist reingeschrieben.
Und mit dem korrigieren ist das dann nichts geworden.
(Frag mich nicht warum er keine Schleife machen "konnte")

Verfasst: 12.01.2006 20:31
von Kekskiller
Ich weiß es nicht mehr genau, aber mein erstes Projekt war glaube ich Ace Invaders. Ich hatte viele Kommentare benutzt, daher wurde der Quelltext mit ungefähr 500 Zeilen etwas groß...

Verfasst: 12.01.2006 20:36
von hiltwin
WriteStringN(Debug "Prost...Gluck...Gluck...Gluck")
Edit: <100
´

CreateFile(1, "bier.pb")
For i=2 to 10002
promille = promille + 1
WriteStringN(Debug Str(i) + " Flaschen Bier")
if promille > 8
debug "achtung verlust führerscheingefahr"
endif
if promille >20
debug "beste programmier-umgebung nun gegeben"
endif
Next
CloseFile(1)

[/quote]