Das Taschenrechnerprogramm gehört zu den typischen Programmieraufgaben. Eine solche Anwendung kann in fast jeder Programmiersprache implementiert werden. Eine der beliebtesten Programmiersprachen ist Delphi, mit der man einfachen und effizienten Taschenrechner-Code schreiben kann.
Notwendig
Delphi-Programmierumgebung
Anweisungen
Schritt 1
Starten Sie die von Ihnen verwendete Delphi-Programmierumgebung. Planen Sie die Schnittstelle für Ihre Anwendung. Es wird 26 Schaltflächen auf dem Formular geben, von denen 10 für Zahlen und der Rest für Funktionen zuständig sind. Zusätzlich wird es eine TPanel-Komponente geben, auf der das Ergebnis der Aktion angezeigt wird.
Schritt 2
Fügen Sie dem Code 4 Variablen hinzu, die die vom Benutzer eingegebenen Zahlen speichern und den Modus bestimmen. Beispielsweise:
var
a, b, c: echt; // Zahlen, die der Benutzer eingibt
d: ganze Zahl; // Taschenrechneraktion
Schritt 3
Die erstellten Variablen können sowohl geschützt als auch privat hinzugefügt werden. Behandeln Sie nun das OnClick-Ereignis für jede Ziffernschaltfläche. Für alle Ziffern ist der Code identisch:
Prozedur TForm1. Button1Click (Absender: TObject);
Start
Panel1. Caption: = Panel1. Caption + 'Nummer'
Ende;
Ersetzen Sie „Nummer“durch den Schaltflächennamen (wenn es die Nummer 0 ist, dann Panel1. Caption + '0').
Schritt 4
Die Variable d hat ein ganzzahliges Format und enthält den entsprechenden numerischen Wert jeder Aktion. Wenn eine Multiplikation durchgeführt wird, können Sie die Aktion auf den Wert 1 setzen, wenn Division - Wert 2, wenn Addition - Wert 3 usw. Für die Multiplikationsaktion sieht der Code wie folgt aus:
Prozedur TForm1. ButtonMultiplyClick (Absender: TObject); // Aktion multiplizieren
Start
a: = StrToFloat (Panel1. Caption); // nach Drücken der Taste wird der Wert der Variablen a gespeichert
d: = 1; // Aktionsvariable wird auf den entsprechenden Wert gesetzt
Panel1. Caption: = '';
Ende;
Schritt 5
Führen Sie ähnliche Operationen für Division (ButtonDivClick), Addition (ButtonPlusClick), Subtraktion (ButtonMinusClick) und Potenzierung (ButtonPowerClick) durch.
Schritt 6
Um den Wert `` = '' zu verarbeiten, müssen Sie eine Fallbedingung erstellen und jede Aktion der Reihe nach betrachten:
Prozedur TForm1. ButtonClick (Sender: TObject);
Start
Fall d von
1: begin // wenn d = 1, d.h. die Multiply-Taste wird gedrückt, dann erfolgt die entsprechende Aktion
b: = StrToFloat (Panel1. Caption);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
Ende;
2: beginnen
a: = StrToFloat (Panel1. Caption);
c: = a/b;
Panel1. Caption: = FloatToStr (c);
Schritt 7
Behandeln Sie Addition, Subtraktion und Exponentiation auf die gleiche Weise. Der Rechner ist fertig.
