Перейти к публикации

LIKE|A|BOSS

  • записи
    2
  • комментария
    4
  • просмотров
    9 036

Делаем простой калькулятор в Delphi

epidemia

2 349 просмотров

"Я думаю все знают, что такое программирование и сегодня я расскажу как сделать самую простую программу, в одной из лучших сред программирования это Delphi! А делать я буду простой калькулятор с одним действием. В конечном итоге у нас должно получиться, что то вроде этого:

 

1364789824__746376.jpg

 

Шаг 1: Начало работы!

 

Откроем Delphi, по умолчанию у вас уже будет задан новый проект и открыта новая форма для редактирования.

 

Шаг 2: Подготовка нужных элементов.

 

Добавим на форму необходимые элементы, а именно:

 

2 поля для ввода (Edit)

1 кнопку (Button)

1 текстовое поле (Label)

 

В итоге получим в окне просмотра объекта такую картину:

 

Form1

Button1

Edit1

Edit2

Label1

 

Шаг 3: Настройка элементов.

 

Теперь нам нужно немного настроить наши элементы, это их расположения и начальные значения.

Расположить элементы на форме вы сможете просто передвинув их как вам нужно. Теперь познакомимся с основным окном с которым часто приходиться работать это Инспект Объектов(Object Inspector), именно тут настраиваются все свойства и действия элементов.

 

1) Сделаем активным элементом на форме Edit1 просто щелкнув по нему. В окне инспектора объектов перейдите на вкладку Свойства(Properties) и в значении Text оставьте поле пустым.

 

2) То же самое сделаем и с Edit2.

 

3) Переключимся на кнопку. Так же в свойствах найдите поле Caption(Текст на кнопке) и измените например на слово "Считать".

 

4) У элемента Label1 просто очистите поле Caption или поставьте 0 как начальное значение.

 

Шаг 4: Лезем в код!

 

Для начала переключимся в режим кода, для этого просто нажмем F12. У вас должно появиться окно с кодом Unit1.pas. При создание формы и добавлении на нее элементов, Delphi автоматически сгенирировал для нас код и прописал его в файлер unit. Он будет примерно таким:

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs;type  TForm1 = class(TForm)    Edit1: TEdit;    Edit2: TEdit;    Button1: TButton;    Label1: TLabel;  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}end.

Углубляться в код пока не будем. Нам понадобиться только нижний код самого действия формы.

var  Form1: TForm1;implementation{$R *.dfm}end.

Шаг 5: Определение формата.

 

В Delphi существует 2 основных формата это:

 

- integer (Целочислинный, челые числа)

- String (Строка, т.е текст)

 

Так же что бы вывести ответ в поле Label1(текст) нам нужно будет сделать перевод из числа в текст. Для этого существую команды:

 

IntToStr(N: Integer): String

Преобразует целое число N в строку.

StrToInt(S: String): Integer

Преобразует строку S в целое число.

 

Шаг 6: Задаем и описываем переменные.

 

Переходим на форму опять F12, щелкаем 2 раза по кнопке "Считать", и у нас автоматически сгенирируется код для действия кнопки:

procedure TForm2.Button1Click(Sender: TObject);beginend;end.

Переменные берем такие:

 

a - ее мы берем для первого поля Edit1

b - ее мы берем для второго поля Edit2

c - это поля для Label1 или ответа

 

Описать переменные можно только в разделе var, допишем:

procedure TForm2.Button1Click(Sender: TObject);var a,b,c: Integer;beginend;end.

 

Далее вспомним математику и построим простую формулу. Что бы получить C нужно сложить A и B. В математике это выглядело бы так: c=a+b, в программировании знак равно заменяется знаком присваивание :=. Значит формула в delphi будет выглядеть так: c:=a+b. Конкретно: мы элементу Label1 присвоили значение суммы чисел поля Edit1 и Edit2.

 

Пропишем формулы.

procedure TForm2.Button1Click(Sender: TObject);var a,b,c: Integer;begina:=StrToInt(Edit1.Text);b:=StrToInt(Edit2.Text);c:=a+b;Label1.Caption:=IntToStr(c);end;end.

Не теряемся, сейчас все объясню:) Мы работаем с телом программы т.е с оператором begin где вводится основной код действий.

 

a:=StrToInt(Edit1.Text)

 

Тут мы "говорим" программе, переменной a(Edit1) присвоить, перевод из строки в число(командой StrToInt) для из поля Text т.е то что мы ввели. То же самои и для переменной b.

 

c:=a+b

 

Это наша формула.

 

Label1.Caption:=IntToStr©

 

Тут мы присваиваем полю текст (Label1) изменить свое название, из переменной c которая переводит из числа в текст(командой IntToStr). Что бы в это поле выводился ответ!

 

Шаг 7: Запуск и сохранение.

 

Что бы на стадии разработки посмотреть, что у вас получилось можно нажать на зеленый треугольник(Run) или просто нажать F9. Откроется ваша форма, где вы и сможете протестировать вашу работу.

 

Для сохранения, перейдите на главное меню и выбирите:

 

File:::Save Project As..::: И сохраните в какой либо папке. Там появятся файлы проекта, и файл-приложения(exe) его вы и можете уже использовать!

 

 

Автор урока: Владимир Юрченков © epidemia



4 комментария


Рекомендованные комментарии

Да, Delphi намного сложнее, чем php, на пыхе с помощью $_GET можно сделать одной строкой такой "калькулятор", а тут...

// float или double числа в Delphi существуют?

Поделиться комментарием


Ссылка на комментарий

ge0r, нашёл, что сравнивать. Это ЯП разного назначения, потому различия такие большие.

> float или double числа в Delphi существуют?

В любом ЯП они есть.

Поделиться комментарием


Ссылка на комментарий

Создайте аккаунт или войдите в него для комментирования

Вы должны быть пользователем, чтобы оставить комментарий

Создать аккаунт

Зарегистрируйтесь для получения аккаунта. Это просто!

Зарегистрировать аккаунт

Войти

Уже зарегистрированы? Войдите здесь.

Войти сейчас
×
×
  • Создать...