Schritte zu einem Programm am Beispiel Quaderberechnung

1. Vorüberlegung

Zielgruppe; was will ich mit dem Programm erreichen; Formularentwurf; Schrittfolge; Struktogramm

Zielgruppe: Schüler der 5. Klasse; Nach der Eingabe der gegebenen Größen in LE, soll die Oberfläche und das Volumen ausgerechnet werden;

in der Version 2 soll das Programm die Flächendiagonale sowie die Raumdiagonale ausgeben,

in der Version 3 soll das Programm entweder mit einer Grafik versehen werden oder Garfikelemente z. B. Canvas eingebunden werden.

Eingabe Eingabe Länge; Breite; Höhe (Integer) a, b, c, V, AO : integer;
Verarbeitung Umwandlung der Texteingabe in ganze Zahlen StrToInt (Edit.text)
Berechnung Volumen; Oberfläche  V:=a*b*c; AO:=2*(a*b+a*c+b*c)
Umwandeln der Ergebnisse in einen Text zur Ausgabe IntToStr(V) bzw. IntToStr(AO)
Ausgabe Ausgabe des Ergebnisses V und AO in Form eines Labels (Text)

2. Formular erstellen; Objektinspektor verwenden

folgende Attribute ändern: Font, Height, Weidth, Left; Top, Text oder Caption; den Namen der Komponenten kann man ändern, muss man aber nicht, wenn man alles in einem neuen Ordner speichert

 

 3. Speichern     in einem neuen Ordner

MERKE:

Lege bei jedem neuem Projekt einen neuen Ordner an.

  !

 Ressourcen-Datei

 Delphi-Formular

 PascalDatei

 

 Delphi-Projektdatei

z.B. wird hier das Icon gespeichert, sowie Grafiken, Sound usw., diese werden beim Compilieren in die EXE-Datei mit eingebunden

hier werden alle Einstellungen gespeichert, die im Objektinspektor vorgenommen wurden, werden beim Compilieren in die EXE-Datei mit eingebunden

 Quelltext

enthält die Deklaration aller Objekte und Methoden des Formulars

enthaält die Compilereinstellung, die man unter dem Menüpunkt Optionen einstellen kann

verwaltet alle im Projekt eingebunden Formulare, aus ihr wird die EXE-Datei compiliert

4. Ereignisse erstellen / Quelltext bearbeiten

Doppelklick NUR auf die Buttons, Quelltextdatei öffnet sich

4. 1. Festlegen der Variablen zwischen procedure und begin

procedure TForm1.Button1Click(Sender: TObject);		{+++Berechnen+++}
var a,b,c,V,AO   integer;				{Festlegen der Variablen}
begin
end;
end.
Vergiss nicht zu Speichern STRG + S !

4.2. Umwandeln der Texteingaben in ganze Zahlen

procedure TForm1.Button1Click(Sender: TObject);		{+++Berechnen+++}
var a,b,c,V,AO :  integer;				{Festlegen der Variablen}
begin
     a := StrToint(edit1.text);
     b := StrToint(edit2.text);
     c := StrToint(edit3.text);				{nur der Eingabevariablen}
end;
end.
Vergiss nicht zu Speichern STRG + S !
4.3. Berechnungen
procedure TForm1.Button1Click(Sender: TObject);		{+++Berechnen+++}
var a,b,c,V,AO : integer;				{Festlegen der Variablen}
begin
     a := StrToint(edit1.text);
     b := StrToint(edit2.text);
     c := StrToint(edit3.text);				{nur der Eingabevariablen}
     V := a * b * c;
     AO:= 2 * (a*b + b*c + a*c);			{Berechnung}
end;
end.
Vergiss nicht zu Speichern STRG + S !
4.3. Umwandeln der Ergebnisse (ganze Zahlen) in einen Text (String) und Ausgabe
procedure TForm1.Button1Click(Sender: TObject);		{+++Berechnen+++}
var a,b,c,V,AO :  integer;				{Festlegen der Variablen}
begin
     a := StrToint(edit1.text);
     b := StrToint(edit2.text);
     c := StrToint(edit3.text);				{nur der Eingabevariablen}
     V := a * b * c;
     AO:= 2 * (a*b + b*c + a*c);			{Berechnung}
     Label8.Caption := 'Das Volumen beträgt  ' +IntToStr(V)+ '  LE';
     Label9.Caption := 'Die Oberfläche beträgt  ' + IntToStr(AO+ '  LE);
							{Umwandeln ganze Zahlen in einen Text}
end;
end.
Vergiss nicht zu Speichern STRG + S !
5. Ein erstes Compilieren
Gehe auf START, START		oder F9
Dabei entstehen neue Dateien:
DCU-Dateien:	Delphi Compiled Unit, diese enthält den in Maschinensprache übersetzten Quelltext der entsprechenden Unit.
Sicherheitskopien: *.~df;  *.~pa
EXE-Datei:	eigenständig lauffähiges Programm
 
Falls es fehlerlos ist, kann man jetzt schon die erste Berechnung durchführen, 
ansonsten Fehlermeldung lesen; Fehler entfernen; 
Vergiss nicht zu Speichern STRG + S !
neu Compilieren
6. Programm zu Ende programmieren
 Doppelklick auf 
procedure TForm1.Button2Click(Sender: TObject);
begin
     edit1.text :='';
     edit2.text :='';
     edit3.text :='';
     Label8.Caption := 'Antwort';
     Label9.Caption :='';
end;
 Doppelklick auf  
procedure TForm1.Button3Click(Sender: TObject);
begin
     close;
end;
 
Vergiss nicht zu Speichern STRG + S !
Quelltext
Weiter mit Maximum einer Zahl