Кафедра Автоматизации производственных процессов
Кафедра Автоматизации производственных процессов
А.Б.Кикин
ТЕХНОЛОГИЯ ОБЪЕКТНО-ОРИЕНТИРОВАННОГО ПРОГРАММИРОВАНИЯ
ПРИМЕРЫ ПРОГРАММ НА С++
| Файл | СОДЕРЖАНИЕ | Стр. |
| FIGURES1.CPP | Одна окружность в центре экрана, наследование | |
| FIGURES2.CPP | Окружность и треугольник – конструкторы, чистая виртуальная функция, абстрактный класс | |
| FIGURES3.CPP | Две окружности и два треугольника | |
| FIGURES4.CPP | Использование указателя на базовый класс | |
| FIGURES5.CPP | Четыре указателя и цикл для вывода на экран | |
| FIGURES6.CPP | Интерфейс: изменение цвета - {Tab}, выход - {Esc} | |
| FIGURES7.CPP | Функция движения фигуры и интерфейс | |
| FIGURES8.CPP | Головная программа и заголовочный файл | |
| FIGURES8.H | Заголовочный файл с описанием классов | |
| 2-1.CPP | Пустое окно с полной функциональностью (Win API32) | |
| 8-3.CPP | Фигуры Лиссажу (Win API32) | |
| AMPER_A.CPP | Закон Ома: головная программа (C++Builder) | |
| AMPER_1.CPP | Закон Ома: обработчики (EXE требует библиотеку) | |
| AMPER1.CPP | Закон Ома: головная программа (C++Builder) | |
| AMPER1_.CPP | Закон Ома: обработчики с проверкой ввода |
Санкт-Петербург
// ПРОГРАММА FIGURES1
#include <graphics.h>
#include <bios.h>
Class TFigure
{ private:
int color;
int width;
public:
void setcolor ( int c );
void setwidth ( int w );
};
Void TFigure :: setcolor ( int c )
{ color = c; }
Void TFigure :: setwidth ( int w )
{ width = w; }
Class Circle : public TFigure
{ private:
int xC;
int yC;
int rad;
public:
void draw ( int x, int y, int r );
};
Void Circle :: draw (int x, int y, int r )
{ circle ( x, y, r );
}
Main ()
{ Circle c1;
int grmode, grdriver= DETECT;
initgraph ( &grdriver, &grmode, "" );
c1.setcolor ( WHITE );
c1.setwidth ( 1 );
c1.draw ( getmaxx()/2, getmaxy()/2, 50 );
bioskey(0);
closegraph();
return 0;
}
// ПРОГРАММА FIGURES2
#include <graphics.h>
#include <bios.h>
#define MAX_POINTS 4
Class TFigure
{ private:
int color;
int width;
int num_p;
int x[MAX_POINTS];
int y[MAX_POINTS];
public:
virtual void draw ( void ) = 0;
void setcol ( int c );
void setwidth ( int w );
void setnum_p ( int n );
void setxy ( int n, int xn, int yn );
int getcol ( void );
int getwidth ( void );
int getxn ( int n );
int getyn ( int n );
};
Void TFigure :: setcol ( int c )
{ color = c; }
Void TFigure :: setwidth ( int w )
{ width = w; }
void TFigure :: setnum_p ( int n )
{ num_p = n; }
Int TFigure :: getwidth ( void )
{ return width; }
Int TFigure :: getcol ( void )
{ return color; }
Void TFigure :: setxy ( int n, int xn, int yn )
{ x[n] = xn;
y[n] = yn;
}
Int TFigure :: getxn ( int n )
{ return x[n]; }
Int TFigure :: getyn ( int n )
{ return y[n]; }
Class Circle : public TFigure
{ private:
int rad;
public:
Circle ( int x, int y, int r );
virtual void draw ( void );
};
Circle :: Circle ( int a, int b, int r )
{ setnum_p ( 1 );
setxy ( 0, a, b );
rad = r;
}
Void Circle :: draw ( void )
{ setlinestyle ( 0, 0, getwidth() );
setcolor ( getcol() );
circle ( getxn ( 0 ), getyn ( 0 ), rad );
}
Class Triangle : public TFigure
{ public:
virtual void draw ( void );
Triangle ( int a1, int b1, int a2, int b2, int a3, int b3 );
};
Triangle :: Triangle ( int a1, int b1, int a2, int b2, int a3, int b3 )
{ setnum_p ( 3 );
setxy ( 0, a1, b1 );
setxy ( 1, a2, b2 );
setxy ( 2, a3, b3 );
}
Void Triangle :: draw ( void )
{ setlinestyle ( SOLID_LINE, 1, getwidth() );
setcolor ( getcol() );
line ( getxn(0), getyn(0), getxn(1), getyn(1) );
line ( getxn(1), getyn(1), getxn(2), getyn(2) );
line ( getxn(0), getyn(0), getxn(2), getyn(2) );
}
Main ()
{ Circle c1(320, 240, 150);
Triangle t1 = Triangle ( 100, 100, 400, 150, 250, 300 );
int grmode, grdriver=DETECT;
initgraph ( &grdriver, &grmode, "" );
c1.setcol ( MAGENTA );
c1.setwidth ( NORM_WIDTH );
c1.draw ();
t1.setcol ( YELLOW );
t1.setwidth ( THICK_WIDTH );
t1.draw ();
bioskey(0);
closegraph();
return 0;
}
// ПРОГРАММА FIGURES3
#include <graphics.h>
#include <bios.h>
#define MAX_POINTS 4
Class TFigure
{ private:
int color;
int width;
int num_p;
int x[MAX_POINTS];
int y[MAX_POINTS];
public:
virtual void draw ( void ) = 0;
void setcol ( int c );
void setwidth ( int w );
void setnum_p ( int n );
void setxy ( int n, int xn, int yn );
int getcol ( void );
int getwidth ( void );
int getxn ( int n );
int getyn ( int n );
};
Void TFigure :: setcol ( int c )
{ color = c; }
Void TFigure :: setwidth ( int w )
{ width = w; }
void TFigure :: setnum_p ( int n )
{ num_p = n; }
Int TFigure :: getwidth ( void )
{ return width; }
Int TFigure :: getcol ( void )
{ return color; }
Void TFigure :: setxy ( int n, int xn, int yn )
{ x[n] = xn;
y[n] = yn;
}
Int TFigure :: getxn ( int n )
{ return x[n]; }
Int TFigure :: getyn ( int n )
{ return y[n]; }
Class Circle : public TFigure
{ private:
int rad;
public:
Circle ( int x, int y, int r );
virtual void draw ( void );
};
Circle :: Circle ( int a, int b, int r )
{ setnum_p ( 1 );
setxy ( 0, a, b );
rad = r;
}
Void Circle :: draw ( void )
{ setlinestyle ( 0, 0, getwidth() );
setcolor ( getcol() );
circle ( getxn ( 0 ), getyn ( 0 ), rad );
}
Class Triangle : public TFigure
{ public:
virtual void draw ( void );
Triangle ( int a1, int b1, int a2, int b2, int a3, int b3 );
};
Triangle :: Triangle ( int a1, int b1, int a2, int b2, int a3, int b3 )
{ setnum_p ( 3 );
setxy ( 0, a1, b1 );
setxy ( 1, a2, b2 );
setxy ( 2, a3, b3 );
}
Main ()
{ Circle c1( 320, 240, 150 );
Circle c2( 320, 240, 50 );
Triangle t1( 100, 100, 400, 150, 250, 300 );
Triangle t2( 400, 400, 600, 400, 500, 300 );
int grmode, grdriver=DETECT;
initgraph ( &grdriver, &grmode, "" );
c1.setcol ( MAGENTA );
c1.setwidth ( NORM_WIDTH );
c1.draw ();
c2.setcol ( GREEN );
c2.setwidth ( THICK_WIDTH );
c2.draw ();
t1.setcol ( YELLOW );
t1.setwidth ( NORM_WIDTH );
t1.draw ();
t2.setcol ( BLUE );
t2.setwidth ( THICK_WIDTH );
t2.draw ();
bioskey(0);
closegraph();
return 0;
}
// ПРОГРАММА FIGURES4
#include <graphics.h>
#include <bios.h>
#define MAX_POINTS 4
Class TFigure
{ private:
int color;
int width;
int num_p;
int x[MAX_POINTS];
int y[MAX_POINTS];
public:
virtual void draw ( void ) = 0;
void setcol ( int c );
void setwidth ( int w );
void setnum_p ( int n );
void setxy ( int n, int xn, int yn );
int getcol ( void );
int getwidth ( void );
int getxn ( int n );
int getyn ( int n );
};
Main ()
{ Circle c1( 320, 240, 150 );
Circle c2( 320, 240, 50 );
Triangle t1( 100, 100, 400, 150, 250, 300 );
Triangle t2( 400, 400, 600, 400, 500, 300 );
TFigure *pf=&t2;
int grmode, grdriver=DETECT;
initgraph ( &grdriver, &grmode, "" );
c1.setcol ( MAGENTA );
c1.setwidth ( NORM_WIDTH );
c1.draw ();
c2.setcol ( GREEN );
c2.setwidth ( THICK_WIDTH );
c2.draw ();
t1.setcol ( YELLOW );
t1.setwidth ( NORM_WIDTH );
t1.draw ();
pf->setcol ( BLUE );
pf->setwidth ( THICK_WIDTH );
pf->draw ();
bioskey(0);
closegraph();
return 0;
}
// ПРОГРАММА FIGURES5
#include <graphics.h>
#include <bios.h>
#define MAX_POINTS 4
// *************************************
Class TFigure
{ private:
int color;
int width;
int num_p;
int x[MAX_POINTS];
int y[MAX_POINTS];
public:
virtual void draw ( void ) = 0;
void setcol ( int c );
void setwidth ( int w );
void setnum_p ( int n );
void setxy ( int n, int xn, int yn );
int getcol ( void );
int getwidth ( void );
int getxn ( int n );
int getyn ( int n );
};
Main ()
{ Circle c1( 320, 240, 150 );
Circle c2( 320, 240, 50 );
Triangle t1( 100, 100, 400, 150, 250, 300 );
Triangle t2( 400, 400, 600, 400, 500, 300 );
TFigure *pf[4];
int grmode, grdriver=DETECT, i, key;
initgraph ( &grdriver, &grmode, "" );
pf[0] = &c1;
pf[1] = &c2;
pf[2] = &t1;
pf[3] = &t2;
pf[3]->setcol ( BLUE );
pf[3]->setwidth ( THICK_WIDTH );
for (i=0; i<4; i++ )
{ pf[i]->setcol ( MAGENTA + i*2 );
pf[i]->setwidth ( NORM_WIDTH );
pf[i]->draw ();
}
key = bioskey(0);
closegraph();
return 0;
}
// ПРОГРАММА FIGURES6
#include <graphics.h>
#include <bios.h>
#define MAX_POINTS 4
// *************************************
Class TFigure
{ private:
int color;
int width;
int num_p;
int x[MAX_POINTS];
int y[MAX_POINTS];
public:
virtual void draw ( void ) = 0;
void setcol ( int c );
void setwidth ( int w );
void setnum_p ( int n );
void setxy ( int n, int xn, int yn );
int getcol ( void );
int getwidth ( void );
int getxn ( int n );
int getyn ( int n );
};
Main ()
{ Circle c1( 320, 240, 150 );
Circle c2( 320, 240, 50 );
Triangle t1( 100, 100, 400, 150, 250, 300 );
Triangle t2( 400, 400, 600, 400, 500, 300 );
TFigure *pf[NUM_F];
int grmode, grdriver=DETECT, i, key;
initgraph ( &grdriver, &grmode, "" );
pf[0] = &c1;
pf[1] = &c2;
pf[2] = &t1;
pf[3] = &t2;
for (i=0; i<NUM_F; i++ )
{ pf[i]->setcol ( MAGENTA + i*2 );
pf[i]->setwidth ( NORM_WIDTH );
pf[i]->draw ();
}
i = -1;
do { key = bioskey(0);
if ( key == 0x0F09 ) // Tab
{ i++;
if ( i == NUM_F )
i = 0;
pf[i]->setcol ( pf[i]->getcol() + 1 );
pf[i]->setwidth ( THICK_WIDTH );
pf[i]->draw ();
}
} while ( key != 0x011B ); // Esc
closegraph();
return 0;
}
// ПРОГРАММА FIGURES7
#include <graphics.h>
#include <bios.h>
#define MAX_POINTS 4
#define STEP 10
// *************************************
Class TFigure
{ private:
int color;
int width;
int num_p;
int x[MAX_POINTS];
int y[MAX_POINTS];
public:
virtual void draw ( void ) = 0;
void move ( int k );
void setcol ( int c );
void setwidth ( int w );
void setnum_p ( int n );
void setxy ( int n, int xn, int yn );
int getcol ( void );
int getwidth ( void );
int getxn ( int n );
int getyn ( int n );
};
Main ()
{ Circle c1( 320, 240, 150 );
Circle c2( 320, 240, 50 );
Triangle t1( 100, 100, 400, 150, 250, 300 );
Triangle t2( 400, 400, 600, 400, 500, 300 );
TFigure *pf[NUM_F];
int grmode, grdriver=DETECT, i, key, prev, col;
initgraph ( &grdriver, &grmode, "" );
pf[0] = &c1;
pf[1] = &c2;
pf[2] = &t1;
pf[3] = &t2;
for (i=0; i<NUM_F; i++ )
{ pf[i]->setcol ( MAGENTA + i*2 );
pf[i]->setwidth ( NORM_WIDTH );
pf[i]->draw ();
}
i = -1;
do { key = bioskey(0);
if ( key == 0x0F09 ) // Tab
{ if ( i == -1 )
;
Else
{ col = pf[prev]->getcol();
pf[prev]->setcol ( BLACK );
pf[prev]->draw ();
pf[prev]->setcol ( col );
pf[i]->setwidth ( NORM_WIDTH );
pf[prev]->draw ();
}
i++;
if ( i == NUM_F )
i = 0;
pf[i]->setwidth ( THICK_WIDTH );
pf[i]->draw ();
prev = i;
}
if ( i > -1 )
pf[i]->move ( key );
} while ( key != 0x011B ); // Esc
closegraph();
return 0;
}
// ПРОГРАММА FIGURES8
#include <graphics.h>
#include <bios.h>
#include "figures8.h"
#define NUM_F 4
Main ()
{ Circle c1( 320, 240, 150 );
Circle c2( 320, 240, 50 );
Triangle t1( 100, 100, 400, 150, 250, 300 );
Triangle t2( 400, 400, 600, 400, 500, 300 );
TFigure *pf[NUM_F];
int grmode, grdriver=DETECT, i, key, prev, col;
initgraph ( &grdriver, &grmode, "" );
pf[0] = &c1;
pf[1] = &c2;
pf[2] = &t1;
pf[3] = &t2;
for (i=0; i<NUM_F; i++ )
{ pf[i]->setcol ( MAGENTA + i*2 );
pf[i]->setwidth ( NORM_WIDTH );
pf[i]->draw ();
}
i = -1;
do { key = bioskey(0);
if ( key == 0x0F09 ) // Tab
{ if ( i != -1 )
{ col = pf[prev]->getcol();
pf[prev]->setcol ( BLACK );
pf[prev]->draw ();
pf[prev]->setcol ( col );
pf[i]->setwidth ( NORM_WIDTH );
pf[prev]->draw ();
}
i++;
if ( i == NUM_F )
i = 0;
pf[i]->setwidth ( THICK_WIDTH );
pf[i]->draw ();
prev = i;
}
if ( i > -1 )
pf[i]->move ( key );
} while ( key != 0x011B ); // Esc
closegraph();
return 0;
}
// ФАЙЛ ВКЛЮЧЕНИЯ (ЗАГОЛОВОЧНЫЙ) FIGURES8.H
#include <graphics.h>
#define MAX_POINTS 4
#define STEP 10
// *************************************
Class TFigure
{ private:
int color;
int width;
int num_p;
int x[MAX_POINTS];
int y[MAX_POINTS];
public:
void setcol ( int c ) { color = c; }
void setwidth ( int w ) { width = w; }
void setnum_p ( int n ) { num_p = n; }
int getcol ( void ) { return color; }
int getwidth ( void ) { return width; }
int getxn ( int n ) { return x[n]; }
int getyn ( int n ) { return y[n]; }
Virtual void draw ( void )
{ setlinestyle ( 0, 0, getwidth() );
setcolor ( getcol() );
circle ( getxn ( 0 ), getyn ( 0 ), rad );
}
};
// ***************************************
Virtual void draw ( void )
{ setlinestyle ( SOLID_LINE, 1, getwidth() );
setcolor ( getcol() );
line ( getxn(0), getyn(0), getxn(1), getyn(1) );
line ( getxn(1), getyn(1), getxn(2), getyn(2) );
line ( getxn(0), getyn(0), getxn(2), getyn(2) );
}
};
// 2-1.CPP
/* --- Простейшая программа с главным окном - 13.01.2003 [К.Г.Финогенов] */
#define STRICT
#include <windows.h>
#include <windowsx.h>
/* --- Прототип оконной функции пользователя */
LRESULT CALLBACK WndProc ( HWND, UINT, WPARAM, LPARAM );
/* --- Главная функция */
Switch ( msg )
{ case WM_DESTROY:
PostQuitMessage ( 0 );
return 0;
default:
return DefWindowProc ( hwnd, msg, wParam, lParam );
}
}
// File 8-3.cpp
#define STRICT
#include <windows.h>
#include <windowsx.h>
#include <commctrl.h>
#include <math.h> // sin(), acos()
#include "8-3.h"
/* --- Глобальные переменные прорграммы */
//int nPhase=0; // Сдвиг фаз
int nFreq=1; // Отношение частот
HINSTANCE hInstance;
HWND hwndGraph, hwndTrack, hwndScroll, hwndStatic;
HPEN hRedPen;
HBRUSH hGreyBrush;
SCROLLINFO sinfo;
/* --- Главная функция */
Switch ( msg )
{ HANDLE_MSG ( hwnd, WM_CREATE, OnCreate );
HANDLE_MSG ( hwnd, WM_HSCROLL, OnHScroll );
HANDLE_MSG ( hwnd, WM_GETMINMAXINFO, OnGetMinMaxInfo );
HANDLE_MSG ( hwnd, WM_DESTROY, OnDestroy );
default:
return DefWindowProc ( hwnd, msg, wParam, lParam );
}
}
/* --- Обработчик сообщения WM_CREATE */
10, 10, 220, 220,
hwnd, NULL, hInstance, NULL );
// --- Линейка с ползунком
hwndTrack = CreateWindowEx ( 0, TRACKBAR_CLASS, NULL,
WS_CHILD|WS_VISIBLE|TBS_AUTOTICKS,
250, 55, 208, 30,
hwnd, NULL, hInstance, NULL );
SendMessage ( hwndTrack, TBM_SETRANGE, TRUE, MAKELPARAM(1,10) );
SendMessage ( hwndTrack, TBM_SETPAGESIZE, 0, 1 );
SendMessage ( hwndTrack, TBM_SETPOS, TRUE, 1 );
// --- Поясняющие надписи на линейке с ползунком
CreateWindow ( "STATIC", "Отношение частот по осям",
WS_CHILD|WS_VISIBLE|SS_LEFT,
260, 25, 220, 22,
hwnd, NULL, hInstance, NULL );
CreateWindow ( "STATIC", "1 2 3 4 5 6 7 8 9 10",
WS_CHILD|WS_VISIBLE|SS_LEFT,
260, 85, 220, 22,
hwnd, NULL, hInstance, NULL );
// --- Линейка прокрутки
sinfo.cbSize = sizeof(SCROLLINFO);
sinfo.fMask = SIF_ALL;
sinfo.nMin = 0;
sinfo.nMax = 180;
sinfo.nPage = 15;
sinfo.nPos = 0;
hwndScroll = CreateWindow ( "SCROLLBAR", NULL,
WS_CHILD|WS_VISIBLE,
260, 160, 200, 20,
hwnd, NULL, hInstance, NULL );
SetScrollInfo ( hwndScroll, SB_CTL,&sinfo, TRUE );
// --- Поясняющие надписи для линейки прокрутки
CreateWindow ( "STATIC", "Сдвиг фаз в градусах",
WS_CHILD|WS_VISIBLE|SS_LEFT,
280, 130, 200, 22,
hwnd, NULL, hInstance, NULL );
CreateWindow ( "STATIC", "0",
WS_CHILD|WS_VISIBLE|SS_LEFT,
280, 180, 22, 22,
hwnd, NULL, hInstance, NULL );
CreateWindow ( "STATIC", "180",
WS_CHILD|WS_VISIBLE|SS_LEFT,
430, 180, 40, 22,
hwnd, NULL, hInstance, NULL );
// --- Статический элемент для вывода сдвига фаз
hwndStatic = CreateWindow ( "STATIC", "00",
WS_CHILD|WS_VISIBLE|SS_LEFT,
355, 200, 50, 20,
hwnd, NULL, hInstance, NULL );
return TRUE;
}
Switch ( msg )
{ HANDLE_MSG ( hwnd, WM_PAINT, GraphOnPaint );
default:
return DefWindowProc ( hwnd, msg, wParam, lParam );
}
}
/* --- Обработчик сообщения WM_PAINT окна графики */
Void OnDestroy ( HWND )
{
DeleteObject ( hGreyBrush );
DeleteObject ( hRedPen );
PostQuitMessage(0);
}
// Amper_A.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("Amper_A.res");
USEFORM("Amper_1.cpp", Form1);
//---------------------------------------------------------------------------
Try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------
// Amper_1.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Amper_1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
double u=10, i, r=5;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//u = StrToFloat ( Edit1->Text );
//r = StrToFloat ( Edit2->Text );
u = atof ( Edit1->Text.c_str() );
r = atof ( Edit2->Text.c_str() );
i = u/r;
Edit1->Text = FloatToStrF ( u, ffFixed, 7, 2 ) + " V";
Edit2->Text = FloatToStrF ( r, ffFixed, 7, 1 ) + " Om";
Label4->Caption = "Ток = " +
FloatToStr ( i ) + " А";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Edit1->Text = FloatToStr ( u ) + " V";
Edit2->Text = FloatToStr ( r ) + " Om";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit2Click(TObject *Sender)
{
u = atof ( Edit1->Text.c_str() );
Edit1->Text = FloatToStrF ( u, ffFixed, 7, 2 ) + " V";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Click(TObject *Sender)
{
r = atof ( Edit2->Text.c_str() );
Edit2->Text = FloatToStrF ( r, ffFixed, 7, 1 ) + " Om";
}
//---------------------------------------------------------------------------
// Amper1.cpp
//---------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------
USEFORM("amper1_.cpp", Form1);
//---------------------------------------------------------------
Try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------
/* Amper1_.cpp
Float u; // напряжение
Float r; // сопротивление
Float i; // ток
// проверим, введены ли данные в поля Напряжение и Сопротивление
if ( ((Edit1->Text).Length() == 0) || ((Edit2->Text).Length() == 0))
{
MessageDlg("Надо ввести напряжение и сопротивление",
mtInformation, TMsgDlgButtons() << mbOK, 0);
if ((Edit1->Text).Length() == 0)
Edit1->SetFocus(); // курсор в поле Напряжение
Else
Edit2->SetFocus(); // курсор в поле Сопротивление
return;
};
// получить данные из полей ввода
u = StrToFloat(Edit1->Text);
r = StrToFloat(Edit2->Text);
// вычислить ток
Try
{
i = u/r;
}
catch (EZeroDivide &e)
{
ShowMessage("Величина опротивления не должна быть равна нулю");
Edit2->SetFocus(); // курсор в поле Сопротивление
return;
}
// вывести результат в поле Label4
Label4->Caption = "Ток : " +
FloatToStrF(i,ffGeneral,7,2) + " A";
}
// нажатие клавиши в поле Напряжение
// коды запрещенных клавиш заменим нулем, в результате
// символы этих клавиш в поле редактирования не появятся
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
// Key - код нажатой клавиши
// проверим, является ли символ допустимым
if ( ( Key >= '0') && ( Key <= '9' ) ) // цифра
return;
// Глобальная переменная Decimalseparator
// содержит символ, используемый в качестве разделителя
// при записи дробных чисел
if ( Key == DecimalSeparator)
{
if ( (Edit1->Text).Pos(DecimalSeparator) != 0 )
Key = 0; // разделитель уже введен
return;
}
if (Key == VK_BACK) // клавиша <Backspace>
return;
if ( Key == VK_RETURN) // клавиша <Enter>
{
Edit2->SetFocus();
return;
};
// остальные клавиши запрещены
Key = 0; // не отображать символ
}
// нажатие клавиши в поле Сопротивление
void __fastcall TForm1::Edit2KeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if ( ( Key >= '0') && ( Key <= '9' ) ) // цифра
return;
if ( Key == DecimalSeparator) {
if ( (Edit2->Text).Pos(DecimalSeparator) != 0 )
Key = 0; // разделитель уже введен
return;
}
if (Key == VK_BACK) // клавиша <Backspace>
return;
if ( Key == VK_RETURN) // клавиша <Enter>
{
Button1->SetFocus(); // переход к кнопке Вычислить
// повторное нажатие клавиши <Enter>
// активизирует процесс вычисления тока
// см. Button1Click
return;
};
// остальные клавиши запрещены
Key = 0; // не отображать символ
}
// щелчок на кнопке Завершить
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Form1->Close(); // закрыть форму приложения
}
Кафедра Автоматизации производственных процессов
А.Б.Кикин