 |
|||
| HSG |
|
Aufgabe 1
Schreibe ein kleines "Additionsprogramm", dessen grafische Benutzungsoberfläche (GUI) etwa so aussieht:
Das Programm soll zwei ganze Zahlen (Datentyp: integer) addieren. Teste das Programm. Benutze mit F1 die Delphi-Hilfe. Erzeuge einen Laufzeitfehler.
Schritte:
- Projekt im Ordner "Addition" speichern, Namenskonvention beachten
- Komponenten (visuelle Objekte) einfügen, beschriften und benennen,
(Eigenschaften: caption, name, text), Namenskonventionen beachten - Ereignisbehandlungsroutine (Doppelklick !!!!) von Hand schreiben,
EVA-Prinzip beachten
Lösung
Beachte, dass in folgender Lösung nur die rot markierten Teile selbst geschrieben wurden. Der Großteil des Quell-Textes wurde von der Delphi-Entwicklungsumgebung (IDE) automatisch erzeugt. Die Ereignisbehandlungs-Prozedur bAddiereClick wurde durch Doppelklick auf den Button bAddiere erzeugt.
unit uAddition; { mk, 4.9.2003 } interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) eA: TEdit; lA: TLabel; lEingabe: TLabel; lVerarbeitung: TLabel; lAusgabe: TLabel; eB: TEdit; lB: TLabel; bAddiere: TButton; eS: TEdit; lS: TLabel; procedure bAddiereClick(Sender: TObject); private { Private-Deklarationen } public { Public-Deklarationen } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.bAddiereClick(Sender: TObject); var a,b,s : integer; { Variablen-Vereinbarung } begin a := StrToInt(eA.Text); b := StrToInt(eB.Text); { Eingabe } s := a + b; { Verarbeitung } eS.Text := IntToStr(s); { Ausgabe } end; end.
Aufgabe 2
Delphi-Projekt "Grundrechenarten" mit reellen Zahlen (Datentyp: real, StrToFloat, FloatToStr)
