Die sakrekenaarprogram is een van die tipiese programmeringstake. So 'n toepassing kan in byna enige programmeertaal geïmplementeer word. Een van die gewildste programmeertale is Delphi, wat gebruik kan word om eenvoudige en doeltreffende sakrekenaarkodes te skryf.
Nodig
Delphi-programmeringsomgewing
Instruksies
Stap 1
Begin die Delphi-programmeringsomgewing wat u gebruik. Beplan die koppelvlak vir u toepassing. Daar sal 26 knoppies op die vorm wees, waarvan 10 verantwoordelik is vir getalle en die res vir funksies. Daarbenewens sal daar 'n TPanel-komponent wees waarop die resultaat van die aksie vertoon word.
Stap 2
Voeg 4 veranderlikes by die kode wat die nommers wat deur die gebruiker ingevoer is, sal stoor en die modus sal bepaal. Byvoorbeeld:
var
a, b, c: regte; // nommers wat die gebruiker invoer
d: heelgetal; // sakrekenaar aksie
Stap 3
Die geskepde veranderlikes kan bygevoeg word vir beide beskerm en privaat. Hanteer nou die OnClick-gebeurtenis vir elke nommerknoppie. Die kode sal vir alle syfers identies wees:
prosedure TForm1. Button1Click (Sender: TObject);
begin
Panel1. Caption: = Panel1. Caption + 'nommer'
einde;
Vervang 'nommer' met die naam van die knoppie (as dit nommer 0 is, dan is Panel1. Caption + '0').
Stap 4
Die veranderlike d is in heelgetalformaat en bevat die ooreenstemmende numeriese waarde van enige aksie. As vermenigvuldiging uitgevoer sal word, kan u die aksie op waarde 1 stel, as deling - waarde 2, as optelling - waarde 3, ens. Vir die vermenigvuldigingsaksie sal die kode soos volg lyk:
prosedure TForm1. ButtonMultiplyClick (Sender: TObject); // vermenigvuldig aksie
begin
a: = StrToFloat (Panel1. Caption); // nadat die knoppie gedruk is, word die waarde van die veranderlike a gestoor
d: = 1; // aksieveranderlike word op die ooreenstemmende waarde gestel
Paneel1. Onderskrif: = '';
einde;
Stap 5
Doen soortgelyke bewerkings vir deling (ButtonDivClick), optel (ButtonPlusClick), aftrek (ButtonMinusClick) en eksponensiasie (ButtonPowerClick).
Stap 6
Om die waarde "=" te verwerk, moet u 'n saakvoorwaarde stel en elke handeling op sy beurt oorweeg:
prosedure TForm1. ButtonClick (Sender: TObject);
begin
geval d van
1: begin // as d = 1, d.w.z. op die vermenigvuldigingsknop gedruk word, dan vind die ooreenstemmende aksie plaas
b: = StrToFloat (Paneel1. Caption);
c: = a * b;
Paneel1. Caption: = FloatToStr (c);
einde;
2: begin
a: = StrToFloat (Panel1. Caption);
c: = a / b;
Paneel1. Caption: = FloatToStr (c);
Stap 7
Hanteer optel, aftrek en eksponentiasie op dieselfde manier. Die sakrekenaar is gereed.
