Հաշվիչ ծրագիրը տիպիկ ծրագրավորման առաջադրանքներից մեկն է: Նման դիմումը կարող է իրականացվել գրեթե ցանկացած ծրագրավորման լեզվով: Popularրագրավորման ամենատարածված լեզուներից մեկը Delphi- ն է, որով կարելի է գրել պարզ և արդյունավետ հաշվիչ ծածկագիր:
Անհրաժեշտ է
Դելֆիի ծրագրավորման միջավայր
Հրահանգներ
Քայլ 1
Սկսեք Delphi ծրագրավորման միջավայրը, որն օգտագործում եք: Պլանավորեք ձեր դիմումի միջերեսը: Ձևի վրա կլինեն 26 կոճակ, որոնցից 10-ը պատասխանատու են թվերի համար, իսկ մնացածը ՝ գործառույթների համար: Բացի այդ, կգտնվի TPanel բաղադրիչ, որի վրա կցուցադրվի գործողության արդյունքը:
Քայլ 2
Կոդին ավելացրեք 4 փոփոխական, որոնք պահելու են օգտվողի կողմից մուտքագրված համարները և որոշում են ռեժիմը: Օրինակ:
var
a, b, c: իրական; // համարներ, որոնք մուտքագրում է օգտագործողը
d: ամբողջ թիվ; // հաշվիչի գործողություն
Քայլ 3
Ստեղծված փոփոխականները կարող են ավելացվել ինչպես պաշտպանված, այնպես էլ մասնավոր: Այժմ կարգավորեք OnClick իրադարձությունը յուրաքանչյուր համարի կոճակի համար: Բոլոր թվանշանների համար կոդը նույնական է.
կարգը TForm1. Button1Click (Ուղարկող ՝ TObject);
սկսել
Վահանակ 1. վերնագիր. = Վահանակ 1. վերնագիր + 'համար'
վերջ;
Փոխարինեք «համարը» կոճակի անունով (եթե դա թիվ 0 է, ապա Panel1. Caption + '0'):
Քայլ 4
D փոփոխականը թվերի ամբողջ ձևաչափով է և պարունակում է ցանկացած գործողության համապատասխան թվային արժեք: Եթե բազմապատկում կիրականացվի, ապա գործողությունը կարող եք սահմանել 1 արժեք, եթե բաժանումը ՝ արժեք 2, եթե գումարումը ՝ արժեք 3 և այլն: Բազմապատկման գործողության համար կոդը նման կլինի.
կարգը TForm1. ButtonMultiplyClick (Ուղարկող ՝ TObject); // բազմապատկել գործողությունը
սկսել
a: = StrToFloat (վահանակ 1. վերնագիր); // կոճակը սեղմելուց հետո a փոփոխականի արժեքը պահվում է
դ: = 1; // գործողության փոփոխականը դրված է համապատասխան արժեքի վրա
Վահանակ 1. վերնագիր ՝ = '';
վերջ;
Քայլ 5
Նմանատիպ գործողություններ կատարեք բաժանման համար (ButtonDivClick), գումարման (ButtonPlusClick), հանումից (ButtonMinusClick) և արտահայտման համար (ButtonPowerClick):
Քայլ 6
«=» Արժեքը մշակելու համար հարկավոր է գործի պայման դնել և յուրաքանչյուր գործողություն հերթով դիտարկել.
կարգը TForm1. ButtonClick (Ուղարկող ՝ TObject);
սկսել
դեպք դ
1: սկսել // եթե d = 1, այսինքն `բազմապատկելու կոճակը սեղմված է, ապա տեղի է ունենում համապատասխան գործողություն
բ: = StrToFloat (վահանակ 1. վերնագիր);
c: = a * b;
Վահանակ 1. Նկար. = FloatToStr (գ);
վերջ;
2: սկսել
a: = StrToFloat (վահանակ 1. վերնագիր);
c: = a / b;
Վահանակ 1. վերնագիր. = FloatToStr (գ);
Քայլ 7
Նույն կերպ կարգավորել հավաքագրումը, հանումը և արտահայտումը: Հաշվիչը պատրաստ է:
