Funny-Aktenvernichter

[Tumm]

Hi!

Falls ihr bei euch immer Zimmer auch immer soviel Müll wie ich rumliegen habt, dann wollt ihr sicher mal auch virtuell aufräumen. Aber erwartet nicht zuviel: Das Ding ist mein erstes Programm, es enthällt enige Bugs und es fliegen per Zufall sowieso immer nur maximal 2 Blätter/Akten rum.

Mit Papierschreddern (als Bild dargestellt) muss man sich dagegen wehren. Die Beta 0.4 hat nicht viel andere Funktionen, aber ich bin gerade dabei die 1.0 zu schreiben.

Tumm

[Nicodius]

die meldung "du bist entlassen worden kommt leider 100000000 mal -.-

bitte den timer danach ausschalten

[ferby]

Sehr Benutzerfreundlich!
Solche Programme kommen mir nicht auf die Platte.

[Cöster]

Zitat von Tumm:

Es ist sehr schwer Punkte zu kriegen. Die Punkte selbst werden in einem ziemlich komplizierten Term berechnet - u.a. spielt die Zufriedenheit eine sehr wichtige Rolle. Um Zufriedenheit zu gewinnen, kann man Schleimer einstellen. Es spielt auch eine Rolle, wie viele Akten schon geschreddert wurden:

Wie ist denn der Term? Das wäre schon sinnvoll zu wissen. Ziel des Spiels ist es ja, Punkte zu kriegen, dann sollte man auch wissen, wie genau man welche bekommt. Macht es Sinn "Strom aufladen" zu deaktivieren? Warum kommt am anfang die Meldung "In dieser Version nicht verfügbar"? Wie genau funktioniert das mit dem Aktenfresserchen? Manchmal bewegt es sich auf die Akte, auf die ich doppelklicke, manchmal bewegt es sich auf eine andere Akte, als die, auf die ich doppelklicke und manchmal passiert gar nix, wenn ich auf eine Akte doppelklicke??? Wieso kann sich der Papierkorb nicht komplett lehren (es bleiben immer mindestens 10 prozent)?

[Tumm]

Delphi-Quellcode:

counter5 := StrToInt(points.Caption) + happy.Progress;
counter5 := StrToInt(points.Caption) - Papierkorb.Progress;
counter5 := counter5 + (binakten * 5);

Da das Programm mein erstes war hab ich noch nicht gewusst, dass ich auch wie in der normalen Mathematik Terme berechnen kann:

counter5 := StrToInt(points.Caption) + happy.Progress - Papierkorb.Progress + binakten*5 (Punkt vor Strich, nix Klammer)

Beschreibung der Komponenten:
Happy(Gauge) = Zufriedenheit
points(Label) = Punkteanzeige
papierkorb(Gauge) = Füllung des Papierkorbs
binakten(Variable, SmallInt) = Füllung des Papierkorbs