Скачиваний:
12
Добавлен:
30.05.2020
Размер:
670.78 Кб
Скачать

AB

 

 

 

 

 

F Tran

sf

 

 

 

 

 

D

 

 

 

 

 

Y

P

 

 

 

 

or

e

B

Y

 

 

 

 

 

 

 

m

 

 

 

 

 

 

buy

r

 

 

 

 

 

 

 

2

 

 

 

 

 

 

 

 

0

 

 

 

 

 

 

 

to

 

 

.

 

 

 

 

 

 

here

 

 

 

 

 

 

 

Click

 

 

 

 

w

 

 

 

 

 

m

 

 

 

 

 

 

 

 

 

w

w.

 

 

 

 

o

 

 

 

 

 

 

 

.

 

 

 

 

 

 

A BBYY

c

 

 

 

 

 

 

 

 

#include «Controls.hpp> #include <Stdctrls.hpp> #include <Forms.hpp>

class Tforml : public Tform

{

__published: // Ide-managed Components Tlabel *Label1;

Tlabel *Label2;

Tlabel *Label3;

Tedit *Editl;

Tedit *Edit2;

Tbutton *Buttonl;

Tbutton *Button2;

Tlabel *Label4;

void__fastcall Buttonlclick(Tobject *Sender); void__fastcall Button2click(Tobject *Sender);

private:

// User declarations

public:

// User declarations

__fastcall Tforml(Tcomponent* Owner); };

extern PACKAGE Tforml *Form1; #endif

Лістинг 2.7. Модуль форми (Amper_1.cpp)

#include <vcl.h>

AB

 

 

 

 

 

F Tran

sf

 

 

 

 

 

D

 

 

 

 

 

Y

P

 

 

 

 

or

e

B

Y

 

 

 

 

 

 

 

m

 

 

 

 

 

 

buy

r

 

 

 

 

 

 

 

2

 

 

 

 

 

 

 

 

0

 

 

 

 

 

 

 

to

 

 

.

 

 

 

 

 

 

here

 

 

 

 

 

 

 

Click

 

 

 

 

w

 

 

 

 

 

m

 

 

 

 

 

 

 

 

 

w

w.

 

 

 

 

o

 

 

 

 

 

 

 

.

 

 

 

 

 

 

A B BYY

c

 

 

 

 

 

 

 

 

51

AB

 

 

 

 

 

F Tran

sf

 

 

 

 

 

D

 

 

 

 

 

Y

P

 

 

 

 

or

e

B

Y

 

 

 

 

 

 

 

m

 

 

 

 

 

 

buy

r

 

 

 

 

 

 

 

2

 

 

 

 

 

 

 

 

0

 

 

 

 

 

 

 

to

 

 

.

 

 

 

 

 

 

here

 

 

 

 

 

 

 

Click

 

 

 

 

w

 

 

 

 

 

m

 

 

 

 

 

 

 

 

 

w

w.

 

 

 

 

o

 

 

 

 

 

 

 

.

 

 

 

 

 

 

A BBYY

c

 

 

 

 

 

 

 

 

#pragma hdrstop

#include "Amper_l.h" #ragma package(smart_init) #pragma resource "*.dfm" Tform1 *Form1;

__fastcall Tforml::tforml(Tcomponent* Owner) : Tform(Owner)

{

}

// клацання на кнопці Обчислити

void__fastcall Tforml::buttonlclick(Tobject *Sender)

{

float u; // напруга

AB

 

 

 

 

 

F Tran

sf

 

 

 

 

 

D

 

 

 

 

 

Y

P

 

 

 

 

or

e

B

Y

 

 

 

 

 

 

 

m

 

 

 

 

 

 

buy

r

 

 

 

 

 

 

 

2

 

 

 

 

 

 

 

 

0

 

 

 

 

 

 

 

to

 

 

.

 

 

 

 

 

 

here

 

 

 

 

 

 

 

Click

 

 

 

 

w

 

 

 

 

 

m

 

 

 

 

 

 

 

 

 

w

w.

 

 

 

 

o

 

 

 

 

 

 

 

.

 

 

 

 

 

 

A B BYY

c

 

 

 

 

 

 

 

 

float r; // опір

//отримати дані з полів введення

//можливе виключення

try

{

u = Strtofloat(Editl->text);

r = Strtofloat(Edit2->text);

}

catch (Econverterror &e)

{

Showmessage("При введенні дробових чисел використову кому.");

return;

52

AB

 

 

 

 

 

F Tran

sf

 

 

 

 

 

D

 

 

 

 

 

Y

P

 

 

 

 

or

e

B

Y

 

 

 

 

 

 

 

m

 

 

 

 

 

 

buy

r

 

 

 

 

 

 

 

2

 

 

 

 

 

 

 

 

0

 

 

 

 

 

 

 

to

 

 

.

 

 

 

 

 

 

here

 

 

 

 

 

 

 

Click

 

 

 

 

w

 

 

 

 

 

m

 

 

 

 

 

 

 

 

 

w

w.

 

 

 

 

o

 

 

 

 

 

 

 

.

 

 

 

 

 

 

A BBYY

c

 

 

 

 

 

 

 

 

}

//обчислити силу струму

//можливе виключення

AB

 

 

 

 

 

F Tran

sf

 

 

 

 

 

D

 

 

 

 

 

Y

P

 

 

 

 

or

e

B

Y

 

 

 

 

 

 

 

m

 

 

 

 

 

 

buy

r

 

 

 

 

 

 

 

2

 

 

 

 

 

 

 

 

0

 

 

 

 

 

 

 

to

 

 

.

 

 

 

 

 

 

here

 

 

 

 

 

 

 

Click

 

 

 

 

w

 

 

 

 

 

m

 

 

 

 

 

 

 

 

 

w

w.

 

 

 

 

o

 

 

 

 

 

 

 

.

 

 

 

 

 

 

A B BYY

c

 

 

 

 

 

 

 

 

try

{

i = u/r;

}

catch (Ezerodivide &e)

{

Showmessage("Опір не має дорівнювати нулю"); Edit1->setfocus(); // курсор в полі Опір return;

}

// вивести результат в полі влучні Label4->caption = "Струм : "

+

Floattostrf(i,ffgeneral,7,3);

}

// клацання на кнопці Завершити

void__fastcall Tforml::button2click(Tobject *Sender)

{

Forml->close(); // закрити вікно програми

}

Слід зазначити, що значну кількість роботи по генерації програмної коду виконав C++ Builder. Він повністю сформував головний модуль(Amper.cpp) заголовний файл

модуля форми (Amper_l.h) значну частину модуля форми (Amper_l.cpp). Крім того, C++

Builder, аналізуючи дії програміста, сформував опис форми, файл проекту і файл

ресурсів проекту.

53