Указания к выполнению ЛР 1 - Создание приложения Калькулятор-редактор в RAD Studio (1015648)

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла

–1–Расположение компонентов в окне VCL-Form приложения«Калькулятор-редактор»Окно редактора главного менюИсходный код модуля unit2.cpp//--------------------------------------------------------------------------#include <vcl.h>#pragma hdrstop#include <graphics.hpp>#include "Unit2.h"#include <math.h>//---------------------------------------------------------------------------–2–#pragma package(smart_init)#pragma resource "*.dfm"TForm2 *Form2;float a, b, c;int indinput=1;AnsiString fname;//--------------------------------------------------------------------------__fastcall TForm2::TForm2(TComponent* Owner): TForm(Owner){}//--------------------------------------------------------------------------void __fastcall TForm2::Button1Click(TObject *Sender){a = StrToFloat(Edit1->Text);b = StrToFloat(Edit2->Text);switch (RadioGroup1->ItemIndex) {case 1:c = a - b;Label1->Caption="-";break;case 2:c = a * b;Label1->Caption="*";break;case 3:c = a / b;Label1->Caption=":";break;default:c = a + b;Label1->Caption="+";break;}Edit3->Text = FloatToStrF(c,ffGeneral,7,2);}//--------------------------------------------------------------------------void __fastcall TForm2::Edit1Focus(TObject *Sender){indinput=1;}//--------------------------------------------------------------------------void __fastcall TForm2::Edit2Focus(TObject *Sender){indinput=2;–3–}//--------------------------------------------------------------------------void __fastcall TForm2::Button2Click(TObject *Sender){if(indinput==1)Edit1->Text = M_PI;else if (indinput==2)Edit2->Text = M_PI;}//--------------------------------------------------------------------------void __fastcall TForm2::Button3Click(TObject *Sender){if(indinput==1)Edit1->Text=exp(1.0);else if (indinput==2) {Edit2->Text=exp(1.0);}}//--------------------------------------------------------------------------void __fastcall TForm2::N2Click(TObject *Sender){Form2->Close();}//--------------------------------------------------------------------------void __fastcall TForm2::Button4Click(TObject *Sender){if(OpenDialog1->Execute()){fname=OpenDialog1->FileName;Edit4->Text=fname;Memo1->Lines->LoadFromFile(fname);}}//--------------------------------------------------------------------------void __fastcall TForm2::Button5Click(TObject *Sender){if(SaveDialog1->Execute()){fname=SaveDialog1->FileName;Edit4->Text=fname;Memo1->Lines->SaveToFile(fname);}}//--------------------------------------------------------------------------void __fastcall TForm2::N3Click(TObject *Sender){–4–if(OpenDialog1->Execute()){fname=OpenDialog1->FileName;Edit4->Text=fname;Memo1->Lines->LoadFromFile(fname);}}//--------------------------------------------------------------------------void __fastcall TForm2::N4Click(TObject *Sender){if(SaveDialog1->Execute()){fname=SaveDialog1->FileName;Edit4->Text=fname;Memo1->Lines->SaveToFile(fname);}}//--------------------------------------------------------------------------Окно выполняющегося приложения «Калькулятор-редактор».

Характеристики

Тип файла PDF

PDF-формат наиболее широко используется для просмотра любого типа файлов на любом устройстве. В него можно сохранить документ, таблицы, презентацию, текст, чертежи, вычисления, графики и всё остальное, что можно показать на экране любого устройства. Именно его лучше всего использовать для печати.

Например, если Вам нужно распечатать чертёж из автокада, Вы сохраните чертёж на флешку, но будет ли автокад в пункте печати? А если будет, то нужная версия с нужными библиотеками? Именно для этого и нужен формат PDF - в нём точно будет показано верно вне зависимости от того, в какой программе создали PDF-файл и есть ли нужная программа для его просмотра.

Список файлов лабораторной работы