Lommeregnerprogrammet er en af de typiske programmeringsopgaver. En sådan applikation kan implementeres på næsten ethvert programmeringssprog. Et af de mest populære programmeringssprog er Delphi, som kan bruges til at skrive enkel og effektiv lommeregnerkode.
Nødvendig
Delphi programmeringsmiljø
Instruktioner
Trin 1
Start det Delphi-programmeringsmiljø, du bruger. Planlæg grænsefladen til din applikation. Der vil være 26 knapper på formularen, hvoraf 10 er ansvarlige for numre, og resten er for funktioner. Derudover vil der være en TPanel-komponent, som resultatet af handlingen vises på.
Trin 2
Føj 4 variabler til koden, der gemmer de numre, der er indtastet af brugeren, og bestemmer tilstanden. For eksempel:
var
a, b, c: ægte; // numre, som brugeren indtaster
d: heltal; // lommeregnerhandling
Trin 3
De oprettede variabler kan føjes til både beskyttede og private. Håndter nu OnClick-begivenheden for hver nummerknap. For alle cifre vil koden være identisk:
procedure TForm1. Button1Klik (Afsender: TObject);
begynde
Panel1. Caption: = Panel1. Caption + 'nummer'
ende;
Udskift “nummer” med knappenavnet (hvis det er nummer 0, så Panel1. Caption + '0').
Trin 4
Variablen d er i heltalformat og indeholder den tilsvarende numeriske værdi for enhver handling. Hvis der udføres multiplikation, kan du indstille handlingen til værdi 1, hvis division - værdi 2, hvis tilføjelse - værdi 3 osv. For multiplikationshandlingen vil koden se ud som:
procedure TForm1. ButtonMultiplyClick (Sender: TObject); // multiplicer handling
begynde
a: = StrToFloat (Panel1. Caption); // efter tryk på knappen gemmes værdien af variablen a
d: = 1; // handlingsvariabel er indstillet til den tilsvarende værdi
Panel1. Caption: = '';
ende;
Trin 5
Udfør lignende operationer for division (ButtonDivClick), addition (ButtonPlusClick), subtraktion (ButtonMinusClick) og eksponentiering (ButtonPowerClick).
Trin 6
For at behandle værdien `` = '' skal du gøre en sagsbetingelse og overveje hver handling efter hinanden:
procedure TForm1. ButtonClick (Afsender: TObject);
begynde
sag d af
1: start // hvis d = 1, dvs. multiplikationsknappen trykkes, så finder den tilsvarende handling sted
b: = StrToFloat (Panel1. Caption);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
ende;
2: begynde
a: = StrToFloat (Panel1. Caption);
c: = a / b;
Panel1. Caption: = FloatToStr (c);
Trin 7
Håndter addition, subtraktion og eksponentiering på samme måde. Regnemaskinen er klar.
