Programu ya kikokotoo ni moja wapo ya kazi za kawaida za programu. Maombi kama haya yanaweza kutekelezwa karibu na lugha yoyote ya programu. Moja ya lugha maarufu zaidi za programu ni Delphi, ambayo inaweza kutumika kuandika nambari rahisi na bora ya kikokotoo.
Muhimu
Mazingira ya programu ya Delphi
Maagizo
Hatua ya 1
Anza mazingira ya programu ya Delphi unayotumia. Panga kiolesura cha programu yako. Kutakuwa na vifungo 26 kwenye fomu, 10 ambayo inawajibika kwa nambari, na zingine ni za kazi. Kwa kuongeza, kutakuwa na sehemu ya TPanel ambayo matokeo ya kitendo yataonyeshwa.
Hatua ya 2
Ongeza vigeuzi 4 kwa nambari ambayo itahifadhi nambari zilizoingizwa na mtumiaji na uamue hali. Kwa mfano:
var
a, b, c: halisi; // nambari ambazo mtumiaji huingia
d: nambari kamili; // hatua ya kikokotoo
Hatua ya 3
Vigezo vilivyoundwa vinaweza kuongezwa kwa wote wanaolindwa na wa faragha. Sasa shughulikia hafla ya OnClick kwa kila kitufe cha nambari. Kwa tarakimu zote, nambari hiyo itakuwa sawa:
utaratibu TForm1. Button1 Bonyeza (Sender: TObject);
anza
Jopo1. Caption: = Jopo1. Caption + 'idadi'
mwisho;
Badilisha nafasi ya "nambari" na jina la kitufe (ikiwa ni nambari 0, basi Jopo1. Caption + '0').
Hatua ya 4
Tofauti d iko katika fomati kamili na itakuwa na nambari inayolingana ya kitendo chochote. Ikiwa kuzidisha kutafanywa, basi unaweza kuweka kitendo kuthamini 1, ikiwa mgawanyiko - dhamana ya 2, ikiwa nyongeza - dhamana ya 3, n.k Kwa hatua ya kuzidisha, nambari itaonekana kama:
utaratibu TForm1. ButtonMultiplyBonyeza (Sender: TObject); // kuzidisha hatua
anza
a: = StrToFloat (Jopo1. Caption); // baada ya kubonyeza kitufe, thamani ya ubadilishaji a imehifadhiwa
d: = 1; // mabadiliko ya hatua imewekwa kwa thamani inayolingana
Jopo1. Caption: = ;
mwisho;
Hatua ya 5
Fanya shughuli sawa kwa kugawanya (ButtonDivClick), kuongeza (ButtonPlusClick), kutoa (ButtonMinusClick), na ufafanuzi (ButtonPowerClick).
Hatua ya 6
Ili kusindika thamani "=", unahitaji kufanya hali ya kesi na uzingatia kila kitendo kwa zamu:
utaratibu TForm1. ButtonBonyeza (Sender: TObject);
anza
kesi d ya
b: = StrToFloat (Jopo1. Caption);
c: = a * b;
Jopo1. Caption: = FloatToStr (c);
mwisho;
2: anza
a: = StrToFloat (Jopo1. Caption);
c: = a / b;
Jopo1. Caption: = FloatToStr (c);
Hatua ya 7
Ushughulikiaji wa kuongeza, kutoa, na ufafanuzi kwa njia ile ile. Kikokotoo iko tayari.
