Hallo.
Bin ein ziemlicher Delphi Neuling. Bis auf die Schulischen Übungen habe ich nicht viel Erfahrung im Programmieren. Nur jetzt in der Uni.
Eine Aufgabe ist jetzt das Erstellen eine Bußgeldrechners.
Dabei sind die zulässige Höchstgeschwindigkeit, die gefahrene Geschwindigkeit einzugeben. Weiterhin ist einzugeben, ob es in einer Ortschaft war oder nicht (habe ich durch eine Radiogroup versucht zu realisieren)
Auszugeben sind das Bußgeld, evtl. Punkte und Fahrverbot.
Zunächst habe ich versucht durch eine if-then anweisung den bußgeldrechner zu programmieren. das heißt, wenn ein auto zwischen 50 und 60 fährt, dann gibt es 15 euro bußgeld usw.
das programm läuft allerdings nicht mal, irgendein gleitkommawertfehler soll vorliegen. Hab da natürlich nicht so den plan davon.
Hier mal der Quelltext. Sieht noch ziemlich spärlich aus, wie gesagt bin Neuling.
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var zulgesch, gefgesch, bußgeld, inort, punkte, fahrverbot : real;
begin
case radiogroup1.itemindex of
0 : inort := 'ja';
1 : inort := 'nein';
end;
begin
zulgesch:= StrToFloat(Edit1.Text);
gefgesch:= StrToFloat(Edit2.Text);
bußgeld:= StrToFloat(Edit3.Text);
if (gefgesch >= 50) and (gefgesch <=60) then
bußgeld:= 15;
if (gefgesch >= 60) and (gefgesch <=65) then
bußgeld:= 25;
end;
end;
end.
Vielleicht habt ihr Tips, Tricks oder schonmal sowas programmiert?
Mfg rhesusaffe
[edit=Matze][delphi]-Tags gesetzt. MfG, Matze[/edit]