Skaičiuoklės programa yra viena iš tipinių programavimo užduočių. Tokią programą galima įdiegti beveik bet kuria programavimo kalba. Viena populiariausių programavimo kalbų yra „Delphi“, kuria galima parašyti paprastą ir efektyvų skaičiuoklės kodą.
Būtinas
„Delphi“programavimo aplinka
Nurodymai
1 žingsnis
Paleiskite naudojamą „Delphi“programavimo aplinką. Suplanuokite savo programos sąsają. Formoje bus 26 mygtukai, iš kurių 10 atsakingi už skaičius, o likę - už funkcijas. Be to, bus „TPanel“komponentas, kuriame bus rodomas veiksmo rezultatas.
2 žingsnis
Prie kodo pridėkite 4 kintamuosius, kurie išsaugos vartotojo įvestus skaičius ir nustatys režimą. Pavyzdžiui:
var
a, b, c: tikrasis; // numeriai, kuriuos įveda vartotojas
d: sveikasis skaičius; // skaičiuoklės veiksmas
3 žingsnis
Sukurtus kintamuosius galima pridėti tiek prie saugomų, tiek prie privačių. Dabar tvarkykite kiekvieno numerio mygtuko „OnClick“įvykį. Visų skaitmenų kodas bus identiškas:
procedūra TForm1. Button1Click (siuntėjas: TObject);
pradėti
Panel1. Caption: = Panel1. Caption + 'number'
galas;
Pakeiskite „skaičių“mygtuko pavadinimu (jei jis yra skaičius 0, tada „Panel1. Caption +“0 “).
4 žingsnis
Kintamasis d yra sveiko skaičiaus formatas ir jame bus atitinkama skaitinė bet kurio veiksmo vertė. Jei bus atliekamas dauginimas, tuomet veiksmą galite nustatyti kaip 1, jei padalijimas - 2, jei pridėjimas - 3 ir kt. Dauginimo veiksmo kodas atrodys taip:
procedūra TForm1. ButtonMultiplyClick (siuntėjas: TObject); // dauginti veiksmą
pradėti
a: = „StrToFloat“(„Panel1. Caption“); // paspaudus mygtuką, kintamojo a reikšmė išsaugoma
d: = 1; // veiksmo kintamasis yra nustatytas į atitinkamą vertę
Skydelis 1. Antraštė: = ;
galas;
5 žingsnis
Atlikite panašias skirstymo („ButtonDivClick“), pridėjimo („ButtonPlusClick“), atimties („ButtonMinusClick“) ir eksponavimo („ButtonPowerClick“) operacijas.
6 žingsnis
Norėdami apdoroti reikšmę „=“, turite nustatyti atvejo sąlygą ir paeiliui apsvarstyti kiekvieną veiksmą:
procedūra TForm1. ButtonClick (siuntėjas: TObject);
pradėti
D atvejis
1: prasideda // jei d = 1, t. Y. Paspaudžiamas daugybos mygtukas, tada atliekamas atitinkamas veiksmas
b: = „StrToFloat“(„Panel1. Caption“);
c: = a * b;
Skydelis 1. Antraštė: = „FloatToStr“(c);
galas;
2: pradėti
a: = „StrToFloat“(„Panel1. Caption“);
c: = a / b;
Skydelis 1. Antraštė: = „FloatToStr“(c);
7 žingsnis
Lygiai taip pat elkitės su pridėjimu, atimimu ir eksponavimu. Skaičiuoklė paruošta.
