Основное меню
Главная
Написать мне
Гостевая
Новости сайта

Статьи
О Языках программирования
Delphi
Visual Basic
JavaScript
VBScript

Мои программы
CLOCK
CD-organizer
Delphi. Пишем калькулятор

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)

Rambler's Top100
Сайт создан в системе uCoz