Указания к выполнению ЛР 1 - Создание приложения Калькулятор-редактор в RAD Studio
Описание файла
PDF-файл из архива "Указания к выполнению ЛР 1 - Создание приложения Калькулятор-редактор в RAD Studio", который расположен в категории "". Всё это находится в предмете "технология разработки программного обеспечения радиолокационных систем" из 11 семестр (3 семестр магистратуры), которые можно найти в файловом архиве МАИ. Не смотря на прямую связь этого архива с МАИ, его также можно найти и в других разделах. Архив можно найти в разделе "лабораторные работы", в предмете "технология разработки программного обеспечения радиолокационных систем" в общих файлах.
Просмотр PDF-файла онлайн
Текст из PDF
–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);}}//--------------------------------------------------------------------------Окно выполняющегося приложения «Калькулятор-редактор».