Разработка калькулятора в среде разработки Delphi 7

2011 год

  Разработка калькулятора в среде Delphi

 

Разработка калькулятора  ставится целью закрепление навыков  использования арифметических операторов  в языке Object Pascal а также закрепление умений для создания типичных Delphi - приложений.

Пример построения программы с использованием арифметических операторов. Арифметические выражения будут использоваться в контексте рабочего Delphi - приложения, построенного на форме.

В программе  <<калькулятор>> использовано одно поле:  

Ввод оператора 

Вывод результата

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

string 

char 

real 

integer

   

Редактирование текстов 

Рисование 

Обработка информационных

массивов 

Help.txt 

Fon.jpg 

Im.bmp 

Skull1.jpg

Руководство пользователя

Данная программа предназначена для выполнения математических вычислений, имитируя действия калькулятора. Для работы с ней нужно запустить файл  Calc4win.exe. В каталоге, содержащем файл Calc4win.exe, есть графический файл использующийся для оформления информационной формы.

Горячие клавиши:

F1 - Вызов справки;

F10 - Выход из программы;

F2 - Обычный режим работы; 

Создание калькулятора 

1) Создается новый каталог  

2) новый проект, выбирая «Файл/ Создать/ Приложение» из главного окна Delphi.  
 

3) Сохранение нового проекта в созданном каталоге  FCALC.DPR, а модуль, поддерживающий основную форму приложения (Unit1 по умолчанию) FCALC1.PAS.  

Основные инструменты создание   калькулятора

Описание переменные  

var 
Form1 : TForm1; 
kod : char; 
x, y, z : real;

Процедура ввода чисел 

procedure  TForm1.BitBtn1Click(Sender: TObject);   
begin 
   edit1.Text:=edit1.Text+'1'  
end;

Создание процедуры нажатий кнопок

            <<+>>, <<->>, <<*>>, <</>> 

procedure TForm1.BitBtn16Click(Sender:  TObject); 
begin 
x:= strtofloat(edit1.text); 
kod := ‘+’; 
edit1.Clear; 
end;

procedureTForm1.BitBtn17Click(Sender:  TObject); 
begin 
if edit1.Text<>'' then x:=strtofloat(edit1.text);  
kod := ‘+’; 
edit1.Clear; 
end; 

Изменненая процедура обработки нажатия кнопки  «+» 

Создание процедуры обработки нажатие     кнопки <<=>>   

procedure TForm1.BitBtn19Click(Sender: TObject);                       
begin 
     if edit1.Text<>'' then  y:=strtofloat(edit1.text);      
    case kod of 
    '+': z:=x+y; 
    '-': z:=x-y 
    '*': z:=x*y; 
    '/': z:=x/y 
    end ; 
edit1.Text:=floattostr(z)   
end;

Создание меню  

procedure  TForm1.N2Click(Sender: TObject); 
begin 
   close                                                                   
end;

procedure  TForm1.N4Click(Sender: TObject); 
begin 
    Edit1.CopyToClipboard;     
end;

  procedure TForm1.N5Click(Sender: TObject); 
begin 
    Edit1.PasteFromClipboard; 
end;

Процедура открытия формы <<Справка>> 

procedure  TForm1.N8Click(Sender: TObject); 
begin 
   Form2.ShowModal           
end;

Аппаратные требования: мышь/клавиатура. Системные требования: 486 или совместимый процессор, 16 Mb RAM, ОС Windows 9x. Для работы программы требуется 707 kb дискового пространства.

Итоговый результат 

0