Räknarprogrammet är en av de typiska programmeringsuppgifterna. En sådan applikation kan implementeras på nästan vilket programmeringsspråk som helst. Ett av de mest populära programmeringsspråken är Delphi, som kan användas för att skriva enkel och effektiv miniräknarkod.
Nödvändig
Delphi-programmeringsmiljö
Instruktioner
Steg 1
Starta den Delphi-programmeringsmiljö du använder. Planera gränssnittet för din applikation. Det kommer att finnas 26 knappar på formuläret, varav 10 är ansvariga för siffror och resten är för funktioner. Dessutom finns det en TPanel-komponent som resultatet av åtgärden visas på.
Steg 2
Lägg till 4 variabler i koden som lagrar numren som användaren anger och bestämmer läget. Till exempel:
var
a, b, c: verklig; // nummer som användaren anger
d: heltal; // miniräknare
Steg 3
De skapade variablerna kan läggas till både skyddade och privata. Hantera nu OnClick-händelsen för varje sifferknapp. För alla siffror kommer koden att vara identisk:
procedur TForm1. Button1Click (Sender: TObject);
Börja
Panel1. Caption: = Panel1. Caption + 'nummer'
slutet;
Byt ut "nummer" med knappnamnet (om det är nummer 0, sedan Panel1. Kaption + '0').
Steg 4
Variabeln d är i heltal och innehåller motsvarande numeriska värde för alla åtgärder. Om multiplikation kommer att utföras kan du ställa in åtgärden till värde 1, om division - värde 2, om addition - värde 3 etc. För multiplikationsåtgärden kommer koden att se ut:
procedur TForm1. ButtonMultiplyClick (Sender: TObject); // multiplicera åtgärder
Börja
a: = StrToFloat (Panel1. Caption); // efter att du tryckt på knappen sparas värdet på variabeln a
d: = 1; // åtgärdsvariabel är inställd på motsvarande värde
Panel1. Kaption: = '';
slutet;
Steg 5
Gör liknande operationer för division (ButtonDivClick), addition (ButtonPlusClick), subtraktion (ButtonMinusClick) och exponentiering (ButtonPowerClick).
Steg 6
För att bearbeta värdet `` = '' måste du göra ett ärende och överväga varje åtgärd i tur och ordning:
procedur TForm1. ButtonClick (Avsändare: TObject);
Börja
fall d av
1: börja // om d = 1, d.v.s. multiplicera-knappen trycks in, inträffar motsvarande åtgärd
b: = StrToFloat (Panel1. Caption);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
slutet;
2: börja
a: = StrToFloat (Panel1. Caption);
c: = a / b;
Panel1. Caption: = FloatToStr (c);
Steg 7
Hantera addition, subtraktion och exponentiering på samma sätt. Räknaren är klar.
