Учимся вместе ::: Сделай на компьютере ::: Мини-калькулятор.

Несколько лет назад впервые задался вопросом: а как делается калькулятор? И вот как-то год назад натолкнулся на дельфи и сначала тыкал туда-сюда, но ничего не получалось. Только на кнопках тогда писать научился =). Ну а потом уроки по дельфи начались, и всё встало на свои места.



Сегодня я покажу урок, который называется «Мини-калькулятор». Почему «мини»? Да потому что он сможет только умножить, разделить, отнять и прибавить.

Сначала определимся с используемыми объектами, не буду сильно сам грузиться – скажу вполне нормальным языком:

1. Объект Edit – поле ввода текста с клавиатуры. Нам их надо 2.

2. Объект Button – кнопки, при нажатие на которые, выполняется определённая процедура, обозначенная в коде программы. Нам надо 6.

3. Объект Label – поле для вывода текста на экран. Нам надо 2.



Создайте новую форму. В Инспекторе Объектов в свойстве Caption напишите «Мини-калькулятор». Это будет имя вашей формы.

На форме поместите поля Edit1 и Edit2, желательно ровненько друг под другом. Опять же в Инспекторе Объектов (далее ИО) в свойстве Text у обоих сотрите всё.

Ещё ниже поместите объекты Button1, Button2, Button3, Button4, Button5, Button6. Лучше всего их размещать горизонтально. Назовите их «+», «-», «/», «*», «С» (очистить), «Выход». Название даётся в уже нам знакомом ИО в свойстве Caption.

Правее полей Edit1 и Edit2 поместите поле Label1 и в свойстве Caption напишите знак «=». А ещё правее поле Label2, у которого в свойстве Caption сотрите всё.

Приступим к основной работе:

Кликните дважды по созданной вами кнопке «+». Перед вами появится окно для ввода программного кода. Здесь уже введено

procedure TForm1.Button2Click(Sender: TObject);

begin

end;

На следующей строчке после Begin надо ввести label2.Caption:=inttostr(strtoint(edit1.text)+strtoint(edit2.text));

Что это обозначает: Имя поля Label2 приравнять к строковому варианту суммы натуральных чисел взятых из полей Edit1 и Edit2.

Также дело обстоит с кнопками «-» и «*», только не забудьте поменять знак действия.

А вот с делением несколько иначе. Вместо inttostr надо писать floattostr, а вместо strtoint – strtofloat. Ибо при деление должны использоваться вещественные числа.

Кнопка «С»:

label2.Caption:=';

edit1.Text:=';

edit2.text:=';

Здесь говорится, что при нажатие этой кнопки поля Edit1, Edit2 и Label2 приравниваются к постой строке.

Ну в кнопке «Выход» в процедуре напишите всего одно слово close и не забудьте поставить после него точку с запятой (;)

Проект готов. Проверить его работу можно нажав клавишу F9. Сохранять умеете, наверно.

С уважением Ваш Шевцов[Walet]Александр.
<<< Предыдущая работа

Вернуться в галерею "Учимся вместе"
Мини-калькулятор.
Автор: Walet
Город: Столица Мира

Дата: 03.07.2010  17:07
Комментариев: 4
Просмотров: 2848
Оценка: 3 (0|1|1|0|1) [1]

Вернуться на главную
  Работа опубликована администратором Walet  
Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:
Walet ::: комментарий от 17.05.2012 | 09:32
  Наставник (ур.16)
Очки: 27766
Город: Столица Мира
Тв. работ: 154
Рег: 30.10.2007 (6016)
Ответ для 06.01.2012 | 01:03:
Этого скрина уже давно не существует.


--------------------
Негодование рождает стих.
::: комментарий от 05.01.2012 | 21:03
  Дух (ур.1)
Очки:
Город:
Тв. работ:
Рег: 23.11.2017 ()
Очень хотелось бы посмотреть на скрин получившегося калькулятора, вообще хочется иллюстраций)
nafanya12 ::: комментарий от 16.11.2010 | 18:28
nafanya12 Ученик (ур.11)
Очки: 4509
Город: с. ульяновка
Тв. работ: 36
Рег: 19.10.2010 (16940)
Помню мы на дельфине тоже калькулятор делели на 1-м курсе. Разница в том, что наши могли еще извлекать корень, возводить в степень, производить вычисления по модулю. Вроде так.

Ответ для Darth Waiter 26.09.2010 | 10:46:

А мне нравится вечная война сишников и дельфинистов


--------------------
Навстречу мечте!
Администратор 1-го ранга (Координатор) Darth Waiter* ::: комментарий от 26.09.2010 | 14:46
Darth Waiter Герой (ур.14)
Очки: 14340
Город: На'Хталн
Тв. работ: 72
Рег: 15.04.2009 (10407)
Делфи забавная игрушка)
Единственная ошибка орфографическая - это "постая строка" (4-я с конца строка). Еще пара пожеланий касательно оформления: 1) вместо простого листинга, который даже шрифтом не выделяется из общего текста, луше было бы сделать скрин кода, ну или просто по-особенному оформить листинги (в помощи по галерее говорилось что-то про расширенные возможности форматирования) и 2)
цитирую:
label2.Caption:='';

edit1.Text:='';

edit2.text:='';
неискушенному сложно будет увидеть здесь две одинарных кавычки;)

Очень хотелось бы посмотреть на скрин получившегося калькулятора, вообще хочется иллюстраций)


--------------------
Император рад вас видеть