Bußgeldkatalog

Michael78 · Beiträge: 20 WIN XP D7 Prof

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?

markieren

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 raziel: Quote- durch Delphi-Tags ersetzt

opfer.der.genauigkeit · Beiträge: 754 Erhaltene Danke: 1

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:

markieren

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.

_________________
Stellen Sie sich bitte Zirkusmusik vor.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme