Построение электрических схем в С++Builder

Задание

программа графический электрическая схема Составить программу на языке программирования C++Builder для построения электрической схемы, изображенной на рис.1

Рисунок 1-Исходная схема

Теоретические сведения

Методы изображения графических элементов

Любая картинка, чертеж или схема могут рассматриваться как совокупность графических примитивов. Примитивы, условно можно разделить на группы: примитивы рисования контуров и площадные фигуры. К примитивам контуров относятся: линии (line), прямоугольники (rectangle)Б дуги (arc), окружности (circle), эллипсы (ellipse), многоугольники (drawpoly) и прочие не закрашиваемые внутри фигуры.

К площадным, заполняемым внутри фигурам, относятся закрашиваемые прямоугольники (FillRect), круговые и эллиптические секторы (Pie). Если у вас рисуемая фигура замкнута, но не закрашиваемая, например, многоугольник (Poligon), то его всегда можно заштриховать с помощью функций закраски (FloodFill, FillStyle). Для выбора цвета рисования применяется функция задания цвета графических примитивов (Pen->Color).

Линия

Вычерчивание прямой линии выполняет метод LineTo. Метод рисует линию из той точки, в которой в данный момент находится карандаш (эта точка называется текущей позицией карандаша или просто текущей), в точку, координаты которой указаны в инструкции вызова метода. Например, команда:

Image1->Canvas->LineTo (100,200);

Рисует линию в точку с координатами (100,200), после чего текущей становится точка с координатами (100,200).

Начальную точку линии можно задать, переместив карандаш в нужную точку графической поверхности. Это возможно сделать при помощи метода MoveTо, указав в качестве параметров, координаты точки начала линии. Например, операторы:

Image1->Canvas->MoveTo (10,10);

Image1->Canvas->LineTo (50,10);

Рисуют горизонтальную линию из точки (10,10) в точку (50,10).

Используя свойство текущей точки, можно нарисовать ломаную линию.

Например, операторы:

Image1->Canvas->MoveTo (10,10);

Image1->Canvas->LineTo (50,10);

Image1->Canvas->LineTo (10,20);

Image1->Canvas->LineTo (50,20);

Рисуют линию, похожую на букву Z.

Прямоугольник

Метод Rectangle вычерчивает прямоугольник. В инструкции вызова метода надо указать координаты двух точек — углов прямоугольника. Например, команда:

Image1->Canvas->Rectangle (10,10,50,50);

Рисует квадрат, левый верхний угол которого находится в точке (10,10), а правый нижний в точке (50,50).

Цвет, вид и ширину линии контура прямоугольника определяют значения свойства Pen, а цвет и стиль заливки области внутри прямоугольника — значение свойства Brush той поверхности, на которой метод рисует прямоугольник.

Есть еще два метода, которые вычерчивают прямоугольник. Метод FillRect вычерчивает закрашенный прямоуголник, используя в качестве инструмента только кисть (Brush), а метод FrameRect — только контур и использует только карандаш (Pen). У этих методов только один параметр — структура типа Rect.

Окружность в эллипс

Нарисовать эллипс или окружность (частный случай эллипса) можно при помощи метода Ellipse. Инструкция выхова метода в общем виде выглядит следующим образом:

Image1->Canvas->Ellipse (x1,y1,x2,y2)

Параметры x1, y1,x2,y2 определяют координаты прямоугольника, внутри которого вычерчивается эллипс или, если прямоугольник является квадратом, — окружность.

Вместо четырех параметров — координат диагональных углов прямоугольника — методу Ellipse можно передать один — объект типа Rect. Следующий фрагмент кода демонстрирует использование объекта TRect в качестве параметра метода Ellipse.

TRect rec=Rect (10,10,50,50);

Image1->Canvas->Ellipse (rec);

Как в случае вычерчивания других примитивов, вид контура эллипса (цвет, толщину и стильлинии) определяют значения свойства Pen, а цвет и стиль заливки области внутри эллипса — -значения свойства Brush той поверхности (Canvas), на которой метод чертит.

Дуга

Метод Arc рисует дугу — часть эллипса. Инструкция вызова метода в общем виде выглядит так:

Image1->Canvas->Arc (x1,y1,x2,y2,x3,y3,x4,y4);

Параметры x1, y1,x2,y2 определяют эллипс, частью которого является дуга. Параметры x3 и y3 задают начальную, а x4 и y4 — конечную точку дуги. Начальная (конечная) точка дуги — это точка пересечения границы эллипса и прямой, проведенной из центра эллипса в точку с координатами x3 и y3(x4,y4). Метод Arc вычерчивает дугу против часовой стрелки от начальной точки до конечной.

Текст

Вывод текста на канву предельно прост. Требуется только задать характеристики шрифта (свойства Font канвы) и текст в формате AnsiString. Вывод текста на поверхность графического объекта обеспечивает метод канвы TextOut (). Инструкция вызова метода TextOut в общем виде выглядит следующим образом:

Image1->Canvas->TextOut (x, y, Текст) Параметр текст задает выводимый текст. Параметры x и y определяют координаты точки графической поверхности, от которой выполняется вывод текста.

Форма проекта

Текст программы

#include

#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)

{TPoint p[3];

p[0].x=150;p[0].y=40;

p[1].x=145;p[1].y=45;

p[2].x=155;p[2].y=45;

Image1->Canvas->Brush->Color=clBlack;

Image1->Canvas->Polygon (p, 2);//отображает многоульник

Image1->Canvas->MoveTo (150,45);

Image1->Canvas->LineTo (150,65);

Image1->Canvas->Brush->Color=clWhite;

Image1->Canvas->Rectangle (155,65,145,90);//отображает прямоугольник

Image1->Canvas->MoveTo (150,90);

Image1->Canvas->LineTo (150,105);

Image1->Canvas->Brush->Color=clBlack;

Image1->Canvas->Ellipse (147,105,153,111);//отображает точка

Image1->Canvas->MoveTo (150,108);

Image1->Canvas->LineTo (170,108);

Image1->Canvas->Brush->Color=clBlack;

Image1->Canvas->Ellipse (167,105,173,111);

Image1->Canvas->MoveTo (170,108);

Image1->Canvas->LineTo (210,108);

Image1->Canvas->Brush->Color=clBlack;

Image1->Canvas->Ellipse (207,105,213,111);

Image1->Canvas->MoveTo (210,108);

Image1->Canvas->LineTo (220,108);

Image1->Canvas->Brush->Color=clWhite;

Image1->Canvas->Rectangle (220,103,245,113);

Image1->Canvas->MoveTo (245,108);

Image1->Canvas->LineTo (265,108);

Image1->Canvas->MoveTo (265,101); //конденсатор

Image1->Canvas->LineTo (265,115);

Image1->Canvas->MoveTo (268,101);//конденсатор

Image1->Canvas->LineTo (268,115);

Image1->Canvas->MoveTo (268,108);

Image1->Canvas->LineTo (290,108);

TPoint p1[3];

p1[0].x=295;p1[0].y=108;

p1[1].x=290;p1[1].y=103;

p1[2].x=290;p1[2].y=113;

Image1->Canvas->Brush->Color=clBlack;

Image1->Canvas->Polygon (p1,2);

Image1->Canvas->MoveTo (210,108);

Image1->Canvas->LineTo (210,125);

Image1->Canvas->MoveTo (203,125);//конденсатор

Image1->Canvas->LineTo (217,125);

Image1->Canvas->MoveTo (203,128);//конденсатор

Image1->Canvas->LineTo (217,128);

Image1->Canvas->MoveTo (210,128);

Image1->Canvas->LineTo (210,145);

Image1->Canvas->MoveTo (210,145);

Image1->Canvas->LineTo (170,145);

Image1->Canvas->Brush->Color=clBlack;

Image1->Canvas->Ellipse (167,143,173,149);

Image1->Canvas->MoveTo (170,111);

Image1->Canvas->LineTo (170,116);

Image1->Canvas->Arc (162,116,178,124,170,124,170,116);// дуга

Image1->Canvas->Arc (162,124,178,132,170,132,170,124);//дуга

Image1->Canvas->Arc (162,132,178,140,170,140,170,132);//дуга

Image1->Canvas->MoveTo (170,140);

Image1->Canvas->LineTo (170,145);

Image1->Canvas->MoveTo (147,108);

Image1->Canvas->LineTo (140,108);

Image1->Canvas->Brush->Color=clBlack;

Image1->Canvas->Ellipse (137,105,143,111);

Image1->Canvas->MoveTo (140,108);

Image1->Canvas->LineTo (140,125);

Image1->Canvas->MoveTo (137,108);

Image1->Canvas->LineTo (120,108);

Image1->Canvas->MoveTo (120,108);

Image1->Canvas->LineTo (120,155);

Image1->Canvas->Brush->Color=clWhite;

Image1->Canvas->Rectangle (125,155,115,180);

Image1->Canvas->MoveTo (120,180);

Image1->Canvas->LineTo (120,190);

Image1->Canvas->Brush->Color=clBlack;

Image1->Canvas->Ellipse (117,187,123,193);

Image1->Canvas->MoveTo (120,190);

Image1->Canvas->LineTo (108,190);

Image1->Canvas->MoveTo (105,183);//конденсатор

Image1->Canvas->LineTo (105,197);

Image1->Canvas->MoveTo (108,183);// конденсатор

Image1->Canvas->LineTo (108,197);

Image1->Canvas->MoveTo (105,190);

Image1->Canvas->LineTo (94,190);

Image1->Canvas->MoveTo (94,190);

Image1->Canvas->LineTo (94,207);

Image1->Canvas->Brush->Color=clBlack;

Image1->Canvas->Ellipse (91,204,97,210);

Image1->Canvas->MoveTo (94,210);

Image1->Canvas->LineTo (94,231);

Image1->Canvas->MoveTo (94,231);

Image1->Canvas->LineTo (83,231);

Image1->Canvas->Arc (72,213,88,221,80,221,80,213);// дуга

Image1->Canvas->Arc (72,221,88,229,80,229,80,221);// дуга

Image1->Canvas->Arc (72,229,88,237,80,237,80,229);// дуга

Image1->Canvas->MoveTo (80,213);

Image1->Canvas->LineTo (80,206);

Image1->Canvas->MoveTo (80,237);

Image1->Canvas->LineTo (80,242);

Image1->Canvas->MoveTo (80,206);

Image1->Canvas->LineTo (60,206);

Image1->Canvas->MoveTo (60,206);

Image1->Canvas->LineTo (60,221);

Image1->Canvas->MoveTo (53,221);//конденсатор

Image1->Canvas->LineTo (67,221);

Image1->Canvas->MoveTo (53,224);//конденсатор

Image1->Canvas->LineTo (67,224);

Image1->Canvas->MoveTo (60,224);

Image1->Canvas->LineTo (60,242);

Image1->Canvas->MoveTo (60,242);

Image1->Canvas->LineTo (81,242);

Image1->Canvas->Brush->Color=clBlack;

Image1->Canvas->Ellipse (78,239,84,245);

Image1->Canvas->Brush->Color=clBlack;

Image1->Canvas->Ellipse (66,203,72,209);

Image1->Canvas->MoveTo (69,206);

Image1->Canvas->LineTo (69,194);

Image1->Canvas->MoveTo (62,192);//конденсатор

Image1->Canvas->LineTo (76,192);

Image1->Canvas->MoveTo (62,195);//конденсатор

Image1->Canvas->LineTo (76,195);

Image1->Canvas->MoveTo (69,192);

Image1->Canvas->LineTo (69,170);

Image1->Canvas->MoveTo (69,180);

Image1->Canvas->LineTo (74,170);

Image1->Canvas->MoveTo (69,180);

Image1->Canvas->LineTo (64,170);

Image1->Canvas->MoveTo (81,239);

Image1->Canvas->LineTo (81,250);

Image1->Canvas->MoveTo (76,250);

Image1->Canvas->LineTo (87,250);

Image1->Canvas->MoveTo (94,207);

Image1->Canvas->LineTo (105,207);

Image1->Canvas->MoveTo (105,200);//конденсатор

Image1->Canvas->LineTo (105,214);

Image1->Canvas->MoveTo (108,200);// конденсатор

Image1->Canvas->LineTo (108,214);

Image1->Canvas->MoveTo (108,207);

Image1->Canvas->LineTo (120,207);

Image1->Canvas->MoveTo (120,207);

Image1->Canvas->LineTo (120,187);

Image1->Canvas->MoveTo (123,190);

Image1->Canvas->LineTo (128,190);

Image1->Canvas->Pen->Width=2; //линия в толщину 2 пикселя

Image1->Canvas->MoveTo (128,180);

Image1->Canvas->LineTo (128,200);

Image1->Canvas->Pen->Width=1;

Image1->Canvas->MoveTo (128,188);

Image1->Canvas->LineTo (140,180);

Image1->Canvas->MoveTo (128,192);

Image1->Canvas->LineTo (140,200);

TPoint p2[3];

p2[0].x=140;p2[0].y=200;

p2[1].x=140;p2[1].y=197;

p2[2].x=137;p2[2].y=200;

Image1->Canvas->Brush->Color=clBlack;

Image1->Canvas->Polygon (p2,2);

Image1->Canvas->MoveTo (140,180);

Image1->Canvas->LineTo (140,168);

Image1->Canvas->MoveTo (140,207);

Image1->Canvas->LineTo (170,207);

Image1->Canvas->Brush->Color=clBlack;

Image1->Canvas->Ellipse (167,204,173,210);

Image1->Canvas->MoveTo (133,125);//конденсатор

Image1->Canvas->LineTo (147,125);

Image1->Canvas->MoveTo (133,128);//конденсатор

Image1->Canvas->LineTo (147,128);

Image1->Canvas->MoveTo (140,128);

Image1->Canvas->LineTo (140,146);

Image1->Canvas->Brush->Color=clBlack;

Image1->Canvas->Ellipse (137,143,143,149);

Image1->Canvas->MoveTo (143,146);

Image1->Canvas->LineTo (170,146);

Image1->Canvas->MoveTo (140,149);

Image1->Canvas->LineTo (140,170);

Image1->Canvas->Brush->Color=clBlack;

Image1->Canvas->Ellipse (137,162,143,168);

Image1->Canvas->MoveTo (140,165);

Image1->Canvas->LineTo (170,165);

Image1->Canvas->Brush->Color=clBlack;

Image1->Canvas->Ellipse (167,162,173,168);

Image1->Canvas->MoveTo (173,165);

Image1->Canvas->LineTo (191,165);

Image1->Canvas->MoveTo (191,158);//конденсатор

Image1->Canvas->LineTo (191,172);

Image1->Canvas->MoveTo (194,158);//конденсатор

Image1->Canvas->LineTo (194,172);

Image1->Canvas->MoveTo (194,165);

Image1->Canvas->LineTo (212,165);

Image1->Canvas->MoveTo (212,165);

Image1->Canvas->LineTo (212,175);

Image1->Canvas->Arc (204,175,220,183,212,183,212,175);// дуга

Image1->Canvas->Arc (204,183,220,191,212,191,212,183);// дуга

Image1->Canvas->Arc (204,191,220,199,212,199,212,191);// дуга

Image1->Canvas->MoveTo (212,199);

Image1->Canvas->LineTo (212,207);

Image1->Canvas->MoveTo (212,207);

Image1->Canvas->LineTo (170,207);

Image1->Canvas->MoveTo (170,168);

Image1->Canvas->LineTo (170,183);

Image1->Canvas->Brush->Color=clBlack;

Image1->Canvas->Ellipse (138,204,144,210);

Image1->Canvas->MoveTo (141,207);

Image1->Canvas->LineTo (141,213);

Image1->Canvas->Brush->Color=clWhite;

Image1->Canvas->Rectangle (146,213,136,238);//отображает прямоугольник

Image1->Canvas->MoveTo (141,238);

Image1->Canvas->LineTo (141,243);

Image1->Canvas->MoveTo (141,242);

Image1->Canvas->LineTo (80,242);

Image1->Canvas->MoveTo (140,207);

Image1->Canvas->LineTo (140,200);

Image1->Canvas->MoveTo (163,183);//конденсатор

Image1->Canvas->LineTo (177,183);

Image1->Canvas->MoveTo (163,186);//конденсатор

Image1->Canvas->LineTo (177,186);

Image1->Canvas->MoveTo (170,186);

Image1->Canvas->LineTo (170,210);

Image1->Canvas->TextOut (135,25," +4,5B");

Image1->Canvas->TextOut (120,60," 2.7K");

Image1->Canvas->TextOut (174,95," 35мГц");

Image1->Canvas->TextOut (225,85," 1.8K");

Image1->Canvas->TextOut (255,85," 10мк");

Image1->Canvas->TextOut (300,98," к УЗЧ");

Image1->Canvas->TextOut (225,120," 6,8н");

Image1->Canvas->TextOut (240,165," ВРЛ-100″);

Image1->Canvas->TextOut (205,210," 70мГц");

Image1->Canvas->TextOut (159,210," КТ315″);

Image1->Canvas->TextOut (148,223," 100″);

Image1->Canvas->TextOut (100,215," 6.8н");

Image1->Canvas->TextOut (30,199," 5.20″);

Image1->Canvas->TextOut (50,180," 10″);

Image1->Canvas->TextOut (50,155," 70мГц");

Image1->Canvas->TextOut (75,175," 10мк");

Image1->Canvas->TextOut (84,160," 100К*");

}

//—————————————————————————————————————;

void __fastcall TForm1: Button2Click (TObject *Sender)

{

Close ();

}

//—————————————————————————————————————;

Результат данной работы

Список литературы

1. Швайко И. Г., Буката Л. Н., Шаповаленко В. А. Технологии программирования. Модуль № 1. Часть 2. Графика в C++ Builder. Методические указания к лабораторным работам и выполнению комплексного задания./ Одесса 2012

2. О. Г. Трофименко. Основи программування. Теорія та практика./Одесса Фенікс 2010