Programm zur Berechnung der Abiturnote

[Der René]

Ist das jetzt Schule oder Computer :rolleyes:

Ich finde es ist mehr Schule als Computer...

Ich hab aus reiner Langeweile mal ein Programm geschrieben, mit dem man aus seinen Halbjahres- und Prüfungsnoten seinen Abischnitt errechnen kann. Das Programm ist relativ komfortabel und ermöglicht es euch, mal zu schauen, auf welchen Abischnitt ihr zusteuert.

Ich hab den Setup (Ja! das Programm hat einen richtigen Setup!) mal online gestellt und hoffe, dass Lycos das nicht wieder löscht.

http://mitglied.lycos.de/ginrod/AbiSschnitt_Setup.exe

Mit dabei ist eine Hilfe und der Quellcode für Delphi. Ich bin jedem dankbar, der das mal austestet, vielleicht steckt ja doch noch der ein oder andere Fehler drin, der ausgemerzt werden könnte.

Der René

[Lodel]

Respekt! Um ehrlich zu sein, hat mir Der René das Programm schon vor einiger Zeit mal zum Testen gegeben. Leider war bis heute nichts aus dem Test geworden ... Asche auf mein Haupt! Aber jetzt!!
Macht alles erstmal einen gut durchdachten Eindruck. Allerdings ist es nicht ganz DAU-sicher. Ich hab natürlich auch mal 20 Punkte irgendwo geschrieben usw. Prüfungsergebnisse hatte ich auch noch keine eingetragen - nun hänge ich fest und komme weder vor noch zurück. Also Neustart. Ooops, wo sind denn meine Kurse? Speichern wär ganz praktisch. Für die Eingabe der Punkte könnte man auch die Tabulatorreihenfolge etwas anpassen. Aber das sind natürlich alles Nebensächlichkeiten (bis auf die 20 Punkte).
Ich befürchte aber auch, das Programm rechnet nicht immer ganz richtig. Vielleicht unterhalten wir uns bei Gelegenheit mal über dies und jenes.

Aber ums nochmal zu sagen, das ist schon eine beeindruckende Leistung. Rummeckern ist natürlich die eine Sache, besser machen eine andere ...

[Lodel]

Code:

procedure LK;
begin
LKN := 0;
LKN := 2*strtoint(Form1.LK1_11I.text)+2*strtoint(Form1.LK1_11II.text)+2*strtoint(Form1.LK1_12I.text)+strtoint(Form1.LK1_12II.text);
LKN := LKN+2*strtoint(Form1.LK1_11I.text)+2*strtoint(Form1.LK1_11II.text)+2*strtoint(Form1.LK2_12I.text)+strtoint(Form1.LK2_12II.text);
end;

Müsste es nicht LKN := LKN+2*strtoint(Form1.LK2_11I.text)+2*strtoint(Form1.LK2_11II.text)+.... heißen?

[rotspecht]

# Ich hatte René auch schon via pm angefragt, ob er aufgrund seiner Befürchtung, dass lycos wegen der Endung *.exe die Datei löscht, das ganze demnächst auf den Schulserver zu laden ... #

[Lodel]

# Ich hatte René auch schon via pm angefragt, ob er aufgrund seiner Befürchtung, dass lycos wegen der Endung *.exe die Datei löscht, das ganze demnächst auf den Schulserver zu laden ... #

Also ich hatte keinerlei Schwierigkeiten, die *.exe von Lycos zu downloaden (oder heißt es downzuloaden :rolleyes: ?).

[Der René]

Also ich hatte keinerlei Schwierigkeiten, die *.exe von Lycos zu downloaden (oder heißt es downzuloaden :rolleyes: ?).

es heißt herunterzuladen

Ich weis nicht, ob es gegen die Regeln bei Lycos ist ausfürbare Dateien zum Download anzubieten... keine Ahnung...
Ich werd mich nochmal in den Quellcode klemmen, is schon wieder lange her, aber ich denke ich find das schon...
danke für den Test!

[rotspecht]

Ich weis nicht, ob es gegen die Regeln bei Lycos ist ausfürbare Dateien zum Download anzubieten... keine Ahnung...

Natürlich, noch. Die Frage ist für wie lange. Ich denke das Lycos regelmäßig die Server nach bestimmten Dateiendungen abscannt und diese Datein löscht. Ich meinte es also als Vorsichtsmaßname.

[Der René]

Ich hab den Fehler behoben und nen neuen Setup hochgeladen - Verdammt mein Schnitt ist jetzt sogar besser als Vorher

Danke für den Hinweis und vor allem Danke fürs raussuchen aus'm code... is schon ne ziemliche copy-paste-wüste :rolleyes:

Das mit der Tab-reihenfolge hab ich auch gemacht. Benutzerfreundlicher Kleinkram ist nicht mein Ding , aber war sozusagen das Dankeschön, weil die Frau Quarch die Infoolympiade so großzügig korrigiert hat :cool:.

Zu den anderen Sachen:
Wenn man ne Eingabe ändern will, nachdem der Schnitt schon berechnet ist, dann muss man bei einem der Fächer-Pull-Down-Teile was neues auswählen, dann springt das Programm zurück. Ist nicht elegant und nur für insider, aber erstmal reichts. Mal schauen, was die Zeit zulässt.

Was das Speichern angeht: Das währe auf jeden Fall total genial. Am besten währe eine schön sauber formatierte Textdatei, in der auch die Berechnung mit drin steht, aber das währe nochmal viel Arbeit. Es gibt hier doch noch andere Delphi-Freunde... hätte nicht jemand lust mal ne Speicherfunktion für das Prog zu schrieben? Ich würde mir sogar die Mühe machen ne Dokumentation für den Quelltext zu machen!

Der René

Ach ja: die 20-Punkte Grenze: Ich mag die Sportfreunde zwar nicht, aber "Man wird doch wohl noch träumen dürfen". Das war nicht so einfach, weil ich das nur über ein OnChange Ereigniss für jedes Edit-Feld machen könnte. NEE!!!
Irgendwie hatte ich was probiert, was die erlaubten Tasten begrenzt. Damit hab ichs geschaft Buchstabeneingaben auszuschließen (die Funktion ist auch nur irgendwoher kopiert.). Wenn Sie ne Möglickeit wissen generell für viele Felder die Eingabe von mehr als 15 zu verhindern, dann währe das natürlich cool, aber jeder Schüler der Sek2 sollte wissen, dass bei 15 Schluss ist.

[easteregg]

bau das mal paar try execpt schleifen ein!
damit du sone meldungen wie "kein gültiger integer wert" schöner aussehen lässt.
sprich

try
 a:=strtoint(edit1.text);
except
 showmessage('bitte gültige werte eintippen');
 {fehleranweißungen}
end;

das ist ziemlich praktisch!

[Der René]

wie geil ist das denn! wieder was gelernt. Sollte ich mich mal langweilen sollte werde ich das realisieren.
kommt 'n bissel komisch: wenn ich das Programm direkt aus Delphi Starte kommt dann immer ne Fehlermeldung, wenn ich die Exe normal starte futzt alles...


P.S.: könnte ich vielleicht auf das Angebot zurückkommen, das Programm auf den Schulwebspace zu laden? Manchmal scheint es ein Problem zu sein das Prog von Lycos zu ziehen :rolleyes:

[easteregg]

jo in delphi werden die fehler ausgegeben,
das weiter, du musst mal nach edit.mask oda sowas suchen, damit kannst du bestimmte eingaben von vorn herein ausschliesen (zb nur zahlen erlauben).
und das mit dem schulwebspace dürfte nicht das problem sein!

[KleinAlex]

http://www.cuxabi.de/abi/
http://www.treptow-kolleg.de/htm/abirechner.htm

zur kontrolle

[KleinAlex]

hm, also ich finds irgendwie komisch.

wenn man felder frei lässt, weil man die noten ja noch nicht kennt, kommt
" ist kein gültiger wert.
oder so.

dann soll man noch irgendwie grundkurse anklicken, aber aus irgendnem grund zählt das programm die p3 und p4 fächer nicht mit.

[Der René]

also:
Man kann seine Abinote schlecht berechnen, wenn man noch nicht alle seine Noten kennt. Das währe dann komisch
Also musst du schon etwas kreativ sein, oder dich einfach mal selbst ein bisschen einschätzen um ne Orientierung zu kriegen, was mit deinen bisherigen Noten noch möglich ist. Die hässliche Fehlermeldung ist in der Version, wo man auch nur Zahlen bis 15 und so weiter eingeben kann verschwunden.

Grundkurse kannst du nur die Auswählen, wo es was zu wählen gibt. Da du die P3 und P4 Kurse (genauso wie die eine Naturwissenschaft) zwingend einbringen musst sind die automatisch gewählt (siehst du auch an der Anzeige "12 von 22 GK gewählt"). Ich werde das mal so machen, dass die auch noch entsprechend markiert werden.

Ich hoffe damit habe ich deine Bedenken geklärt.

der René


P.S.: Mir ist garde noch was eingefallen:
Gibt es den Fall, dass jemand zwei Naturwissenschaften (Bio,Ch,Phy) über 4 Halbjahre belegt und in keinem der beiden ne Prüfung schreibt und auch keine NatW als LK belegt???

[Der René]

DAS IST EIN DOPPELPOST - BITTE SCHLAGT MICH NICHT DAFÜR!!!


so, ich hab noch'n paar Kanten weggefeilt (DAU-Kompatibilität) und die neue Version hochgeladen:

Verbesserungen in der 9/13
-Bei Eingaben von mehr als 15P meckert das Programm jetzt und ändert den Wert auf 15 runter. Ungültige Eingaben sind nichtmehr möglich.
-Wenn man auf Bestätigen drückt ohne alles eingegeben zu haben kommt ne schön formulierte Fehlermeldung.
Danke Richi für den try-except-tip, wahnsinnig praktisch, hab ich wieder was gelernt!
-Es gibt jetzt einen richtigen Zurück-Button, nachdem man das Ergebniss berechnen lassen hat.
-Ein kleiner Bug in Verbindung mit Geschichte als 3.GK ist pestizitiert worden.
-Kompression sei dank ist der Setup 100kB kleiner (spart bei DSL etwa 0,78s)


Anregungen für weiteres aufbrezeln:
- Speicherfunktion
- Automatische Auswahl der besten Kurse

Frage an die Cracks in der Runde:
Gäbe es ne elegante Möglichkeit den kompletten Inhalt des Formulars zu speichern? ein Formular ist ja ähnlich aufgebaut wie ein Record, also müsste man des doch auch komfortabel speichern können, oder???

Die Automatische Kursauswahl wollte ich am Anfang schon machen, das war mir aber dann zu komplex für den Anfang. Wenn ich von den relativ vielen GK Feldern, aus denen man beim einbringen (Klammerung heißt das, oder???) wählen könnte, die  Notenpunkte einfach in ne Liste packe und die Liste sortiere kann ich zwar sehr einfach die Punkte der X besten Fächer ermitteln, aber das Programm kann nicht ausgeben, welche Kurse es schlussendlich eigentlich gewählt hat. Gibt es eine möglichkeit zwei Listen zu machen (eine, wo die Punktezahlen stehen und eine wo steht, von welchem GK und welchen Halbjahr die Punktzahl kommt) und die dann beide nach den Werten der Punktzahlen zu sortieren???

mit Copy-Past-Programmierung könnte man das alles machen, aber dann wird der Code noch länger und das Prog ist jetzt ja schon bei über 500kB...