Geldrückgabeautomat programmieren, aber wie?

[steffi20021]

Erstmal DANKE für eure Tipps und Infos!

@s14: Ich blick bei deinem quellcode überhaupt nich durch, wenn du Zeit und Lust hast, kannst mir ja ma erklären

Ich hab jetzt mal die Dinge die ich so einigermaßen verstanden hab zusammengeworfen und probiert das Programm zu schreiben...
-->viele Fehlermeldungen, hab es aber hinbekommen

NUR der Quellcode is extrem lang!
Weil:

Code:

case rest of
                    50000..100000:begin anz:=rest div 50000;
                                       rest:=rest mod 50000;
                                       label4.caption:=''+inttostr(anz)+' x 500€';
                                       label4.color:=clred;
                                 end;
                    20000..49999:begin anz:=rest div 20000;
                                       rest:=rest mod 20000;
                                       label5.caption:=''+inttostr(anz)+' x 200€';
                                       label5.color:=clred;
                                 end;

                .....

und ich muss am Anfang der Prozedur die label alle so zu sagen wieder auf 0 setzen (17 Stück)

Ich glaub mir muss echt ma jemand den Quellcode von s14 erklären

ich werd wohl morgen auch nochma probieren das ganze bissl zu vereinfachen, ma sehn ob ich nen weg finde. Nur ich weiß halt nochnich so viel und da is das bissl schwerer (verständlich, oder?)

Oh und noch ein Problem. Ich hab öfters mal "Lust" zu programmieren, aber mir fehlen die Ideen. Gibt es da Seiten, wo so Vorschläge vorgestellt sind? Oder was habt ihr so gern als "Anfänger" gemacht?

Nochma Danke, dass ihr mir geholfen habt und mich so freundlich aufgenommen habt!

Steffi