Entwickler-Ecke

Sonstiges (Delphi) - Bußgeldkatalog


Michael78 - Mo 10.10.05 12:41
Titel: Bußgeldkatalog
Hallo sind hier in einer Klasse in der der Lehrer keine Ahnung hat! Wir sollen einen Bußgeldkatalog erstellen und wissen nicht genau wie, dass schlimme ist unser Lehrer auch nicht!

Es soll bei markieren der Radio Buttons und Eingabe einer Geschwindigkeit angegeben werden wieviel bußgeld man zahlen muss und wieviele Punkte es dafür gibt!

Kann uns jemand weiterhelfen?


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
 
begin
if RadioButton2.Checked then ShowMessage('');

        if RadioButton4.Checked then
                begin
                        if km >70 then ShowMessage('Sie müssen 375,- EUR bezahlen und erhalten 4 Punkte sowie 3 Monate Fahrverbot');
                        if km >61 then ShowMessage('Sie müssen 275,- EUR bezahlen und erhalten 4 Punkte sowie 2 Monate Fahrverbot');
                        if km >51 then ShowMessage('Sie müssen 150,- EUR bezahlen und erhalten 4 Punkte sowie 1 Monat Fahrverbot');
                        if km >41 then ShowMessage('Sie müssen 100,- EUR bezahlen und erhalten 3 Punkte sowie 1 Monat Fahrverbot');
                        if km >31 then ShowMessage('Sie müssen 75,- EUR bezahlen und erhalten 3 Punkte');
                        if km >26 then ShowMessage('Sie müssen 50,- EUR bezahlen und erhalten 3 Punkte');
                        if km >21 then ShowMessage('Sie müssen 40,- EUR bezahlen und erhalten 1 Punke');
                        if km >16 and km < 21 then ShowMessage('Sie müssen 30,- EUR bezahlen');
                        if km >11 and if km <=16 then ShowMessage('Sie müssen 20,- EUR bezahlen');
                end;
if RadioButton6.Checked then ShowMessage('');


Moderiert von user profile iconraziel: Quote- durch Delphi-Tags ersetzt


opfer.der.genauigkeit - Mo 10.10.05 12:47
Abgesehen davon, dass das sicherlich nicht die schönste Variante ist und aus Sicht der Logik bei über 70km/h jede Messagebox (bis auf die letzten Beiden) angezeigt werden, wo liegt denn genau das Problem?

Wollt ihr nur die entsprechende Message zeigen? Ich vermute mal ja:


Delphi-Quelltext 
1:
2:
3:
4:
 
if bla then begin
  showmessage('viel text');
  exit;
end;


Ist zwar unschön, aber funktioniert ohne großen Aufwand.

//Edit:
Eine schönere Variante wäre sicherlich eine ComboBox zu verwenden und dann per Index die Nachricht auszugeben.
Dazu empfehle ich einfach die Online-Hilfe, denn die Technik kann man sich selbst sehr leicht aneignen.


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!