Delphi. Пишем калькулятор
Сейчас мы с тобой напишем лёгкий калькулятор. Для этого открывай Дельфи, сохраняй созданный Delphi проэкт под именем kalkulator.
Затем измени имя формы на MainForm, а заголовок(caption) на Калькулятор.
С палитры компонентов Standart кинь на форму 2 TEdit`а
с именами _1 и _2, свойство Text поставь 0, затем 4 TButton
, с именами plus, minus, mnoj, delit и caption`ами естесственно +, -, *, /, и кинь ещё 1 TLabel
с именем
otvet, а кэпшн можешь стереть. Всё, все подготовления закончены, приступим к алгоритму.
Кликай 2 раза на кнопке + и процедуре клика пиши следующий текст:
Otvet.Caption:=FloatToStr(StrToFloat(_1.Text)+StrToFloat(_2.text));
Для тех кто не понял: FloatToStr - конвертирует текстовый формат в формат числа с плавающеи запятой, а StrToFloat наоборот, т.е. мы конвертировали текст в 1ом и 2ом Edit`ах, сложили их, а затем результат конвертировали в текстовый формат и положили его в Caption Label`a.
Теперь тоже самое напишем и про -, * и /, но на делении можно, даже нужно поставить условие:
if _2.Text <> '0'
then
Otvet.Caption:=FloatToStr(StrToFloat(_1.Text)/StrToFloat(_2.text))
else
ShowMessage('На ноль делить нельзя!');
для тех кто не понял зачем: если во 2ом Edit`е не стоит ноль то выполняем деление, иначе программа любезно скажет что на ноль делить нельзя.
Когда в Edit`ах мы напишем текст, Delphi начнёт ругаться, и поэтому я писал что, надо компилировать, а затем запускать! Можно конечно этого избежать. Как? Это в следующих статьях.
На всякий случай вот тебе исходнЯк(7,32 kb)