Het rekenprogramma is een van de typische programmeertaken. Zo'n applicatie kan in bijna elke programmeertaal worden geïmplementeerd. Een van de meest populaire programmeertalen is Delphi, waarmee je eenvoudige en efficiënte rekenmachinecode kunt schrijven.
Noodzakelijk
Delphi programmeeromgeving
instructies:
Stap 1
Start de Delphi-programmeeromgeving die u gebruikt. Plan de interface voor uw toepassing. Er zullen 26 knoppen op het formulier staan, waarvan 10 verantwoordelijk zijn voor cijfers en de rest voor functies. Daarnaast komt er een TPanel-component waarop het resultaat van de actie wordt weergegeven.
Stap 2
Voeg 4 variabelen toe aan de code die de door de gebruiker ingevoerde cijfers opslaat en de modus bepaalt. Bijvoorbeeld:
var
a, b, c: echt; // nummers die de gebruiker invoert
d: geheel getal; // rekenmachine actie
Stap 3
De gemaakte variabelen kunnen zowel aan beschermd als privé worden toegevoegd. Behandel nu de OnClick-gebeurtenis voor elke cijferknop. Voor alle cijfers is de code identiek:
procedure TForm1. Button1Click (Afzender: TObject);
beginnen
Paneel1. Bijschrift: = Paneel1. Bijschrift + 'nummer'
einde;
Vervang "nummer" door de naam van de knop (als het nummer 0 is, dan Panel1. Caption + '0').
Stap 4
De variabele d heeft een geheel getal en bevat de bijbehorende numerieke waarde van elke actie. Als vermenigvuldiging wordt uitgevoerd, kunt u de actie instellen op waarde 1, indien deling - waarde 2, indien optelling - waarde 3, enz. Voor de vermenigvuldigingsactie ziet de code er als volgt uit:
procedure TForm1. ButtonMultiplyClick (Afzender: TObject); // vermenigvuldig actie
beginnen
a: = StrToFloat (Panel1. Caption); // na het indrukken van de knop wordt de waarde van de variabele a opgeslagen
d: = 1; // actievariabele is ingesteld op de bijbehorende waarde
Paneel1. Bijschrift: = '';
einde;
Stap 5
Voer vergelijkbare bewerkingen uit voor delen (ButtonDivClick), optellen (ButtonPlusClick), aftrekken (ButtonMinusClick) en machtsverheffing (ButtonPowerClick).
Stap 6
Om de waarde `` = '' te verwerken, moet u een case-voorwaarde maken en elke actie op zijn beurt overwegen:
procedure TForm1. ButtonClick (Afzender: TObject);
beginnen
geval d van
1: begin // als d = 1, d.w.z. de vermenigvuldigingsknop wordt ingedrukt, dan vindt de bijbehorende actie plaats
b: = StrToFloat (Panel1. Caption);
c: = een * b;
Panel1. Caption: = FloatToStr (c);
einde;
2: begin
a: = StrToFloat (Panel1. Caption);
c: = een / b;
Panel1. Caption: = FloatToStr (c);
Stap 7
Ga op dezelfde manier om met optellen, aftrekken en machtsverheffen. De rekenmachine is klaar.
