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