3. Проаналізувати заданий фрагмент коду програмного модуля і визначити:
- загальне призначення модуля;
- склад візуальних компонетів та іх призначення;
- склад процедур – обробників подій та їх призначення;
- засоби контролю введення та обробки даних.
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
float k;
Edit5->Text=FloatToStrF(StrToFloat(Edit1->Text)*StrToFloat(Edit4->Text)/100,ffGeneral,5,2);
k=StrToFloat(Edit1->Text)*StrToFloat(Edit4->Text);
Edit7->Text=FloatToStrF(k*StrToFloat(Edit6->Text)/100,ffCurrency,5,2);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{AnsiString s;
s=Edit2->Text + " " + Edit2->Text + " " + ComboBox1->Text +" "+
Edit4->Text+" " + Edit7->Text;
Memo1->Lines->Add(s);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Edit1->Text="0";
Edit4->Text="0";
Edit6->Text="0";
Edit2->Text="";
Edit3->Text="";
ComboBox1->Text="";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Memo1->Lines->SaveToFile("protocol.txt");
}
4. Для заданого графічного інтерфейсу користувача описати призначення програмного модуля, перелік візуальних і невізуальнихз компонентів та принципи їх використання.
5. Проаналізувати заданий фрагмент коду програмного модуля і визначити:
- загальне призначення модуля;
- склад візуальних компонетів та іх призначення;
- склад процедур – обробників подій та їх призначення;
- засоби контролю введення та обробки даних.
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
AnsiString MyFName = "";
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
MyFName = "" ;
RichEdit1->Lines->Clear();
Form1->Caption="Мій редактор: "+MyFName;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N8Click(TObject *Sender)
{
if (MyFName != "")
RichEdit1->Lines->SaveToFile(MyFName);
else if(SaveDialog1->Execute())
{
MyFName = SaveDialog1->FileName;
RichEdit1->Lines->SaveToFile(SaveDialog1->FileName);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N7Click(TObject *Sender)
{
if (OpenDialog1->Execute())
{
MyFName = OpenDialog1->FileName;
RichEdit1->Lines->LoadFromFile(OpenDialog1->FileName);
}
Form1->Caption="Мій редактор: "+MyFName;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton2Click(TObject *Sender)
{
if (MyFName != "")
RichEdit1->Lines->SaveToFile(MyFName);
else if(SaveDialog1->Execute())
{
MyFName = SaveDialog1->FileName;
RichEdit1->Lines->SaveToFile(SaveDialog1->FileName);
}
Form1->Caption="Мій редактор: "+ MyFName;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton4Click(TObject *Sender)
{
RichEdit1->CutToClipboard();
}
//---------------------------------------------------------------------------
6. Для заданого графічного інтерфейсу користувача описати призначення програмного модуля, перелік візуальних компонентів та принципи їх використання.
Записати процедуру для кнопки «Додавання вузла».
