Калькулятор бағдарламасы - бағдарламалаудың әдеттегі міндеттерінің бірі. Мұндай қосымшаны кез келген дерлік бағдарламалау тілінде жүзеге асыруға болады. Ең танымал бағдарламалау тілдерінің бірі - Delphi, оның көмегімен калькулятордың қарапайым және тиімді кодын жазуға болады.
Қажетті
Delphi бағдарламалау ортасы
Нұсқаулық
1-қадам
Сіз қолданатын Delphi бағдарламалау ортасын бастаңыз. Қосымшаңыздың интерфейсін жоспарлаңыз. Пішінде 26 батырма болады, оның 10-ы сандарға, ал қалғандары функцияларға жауап береді. Сонымен қатар, әрекеттің нәтижесі көрсетілетін TPanel компоненті болады.
2-қадам
Қолданушы енгізген сандарды сақтайтын және режимді анықтайтын кодқа 4 айнымалыны қосыңыз. Мысалға:
var
a, b, c: нақты; // қолданушы енгізетін сандар
d: бүтін сан; // калькулятор әрекеті
3-қадам
Құрылған айнымалылар қорғалғанға да, жекеге де қосылуы мүмкін. Енді OnClick оқиғасын әр сандық батырма үшін өңдеңіз. Барлық сандар үшін код бірдей болады:
TForm1. Button1Click процедурасы (Жіберуші: TObject);
баста
Panel1. Caption: = Panel1. Caption + 'сан'
Соңы;
«Санды» батырманың атымен ауыстырыңыз (егер ол 0 саны болса, онда Panel1. Caption + '0').
4-қадам
D айнымалысы бүтін форматта және кез-келген әрекеттің сәйкес сандық мәнінен тұрады. Егер көбейту жүзеге асырылатын болса, онда сіз әрекетті 1 мәніне, егер бөлу - 2 мәнге, егер қосу - 3 мәнге және т.с.с. орнатуға болады, көбейту әрекеті үшін код келесідей болады:
TForm1. ButtonMultiplyClick процедурасы (Sender: TObject); // әрекетті көбейту
баста
a: = StrToFloat (Panel1. Caption); // батырмасын басқаннан кейін а айнымалысының мәні сақталады
d: = 1; // әрекет айнымалысы сәйкес мәнге орнатылады
Панель 1. Сурет: = '';
Соңы;
5-қадам
Бөлу (ButtonDivClick), қосу (ButtonPlusClick), азайту (ButtonMinusClick) және дәрежелеу (ButtonPowerClick) үшін ұқсас операцияларды жасаңыз.
6-қадам
«=» Мәнін өңдеу үшін сізге жағдай жасау керек және әр әрекетті өз кезегінде қарастыру керек:
TForm1. ButtonClick процедурасы (Sender: TObject);
баста
жағдай d
1: begin // егер d = 1, яғни көбейту батырмасы басылған болса, онда тиісті әрекет пайда болады
b: = StrToFloat (Panel1. Caption);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
Соңы;
2: бастау
a: = StrToFloat (Panel1. Caption);
c: = a / b;
Panel1. Caption: = FloatToStr (c);
7-қадам
Қосу, азайту және дәрежелеуді дәл осылай басқарыңыз. Калькулятор дайын.
