 |
|||
| HSG |
|
Ein Additionsprogramm
Aufgabe 1
Schreibe ein kleines "Additionsprogramm", dessen grafische Benutzeroberflä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.
|