51345

Рисование в C++ Builder

Лабораторная работа

Информатика, кибернетика и программирование

Цель работы: Написать программу, рисующую изображение по заданному на занятии образцу. Задание для варианта – рисование дома.

Русский

2014-02-09

74 KB

17 чел.

Лабораторная работа 3

Рисование в C++ Builder

Выполнил: Шуклецов М.А.

 ФРТ, гр. 2106

Цель работы: Написать программу, рисующую изображение по заданному на занятии образцу. Задание для варианта – рисование дома.

Общий вид программы следующий:

Здесь мы видим следующие элементы управления:

«Рисовать» - собственно по нажатию на кнопку рисуется изображение

Код программы:

//---------------------------------------------------------------------------

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

{

//Рисование неба

Canvas->Brush->Color=(TColor)RGB(0,150,255);  //Выбор цвета пера

Canvas->FloodFill(Width/2,Height/2, NULL, fsBorder);  //Заполнение экрана цветом

// Рисование травы(Широкая линия)

Canvas->Pen->Color=(TColor)RGB(150,255,0);  

Canvas->Pen->Width=200;     //Толщина пера

Canvas->MoveTo(0,Height-100);    //Переместить перо в точку

 Canvas->LineTo(Width,Height-100);    //Провести линию до точки

 // Рисование дома

Canvas->Brush->Color=(TColor)RGB(255,0,0);

TRect tRect(Width/2,Height-200,200,200);   //tRect с координатами

Canvas->FillRect(tRect);     //заполнение tRect цветом

 //Рисование крыши(треугольник) через TPoint с заданием координат каждой точки

Canvas->Brush->Color=(TColor)RGB(255,0,0);

Canvas->Pen->Width=10;

TPoint tPoints[3];   //Объявление точек

tPoints[0].x = 150;   //Задание координат

tPoints[0].y = 200;

tPoints[1].x = 320;

tPoints[1].y = 50;

tPoints[2].x = 500;

 tPoints[2].y = 200;

tPoints[3].x = 150;

tPoints[3].y = 200;

  Canvas->Polyline(tPoints,3);  //Соединение точек

//Рисование солнца(круг)

Canvas->Brush->Style=bsHorizontal;    //Стиль пера

Canvas->Pen->Color = (TColor)RGB(255,255,0);

Canvas->Pen->Width=50;

Canvas->Arc(0,0,50,50,250,0,250,0);   //Рисование круга

}

//---------------------------------------------------------------------------

Вывод: Мы научились рисовать через Canvas на форме произвольные изображения.


 

А также другие работы, которые могут Вас заинтересовать

79823. Разработка программного обеспечения контроллера камер со сверхмалым временем экспозиции 681 KB
  В данной дипломной работе было разработано программное обеспечение отладочной платы контроллера видеокамер НПК «Видеоскан», реализующее функции начальной загрузки и сборки компонентов ядра операционной системы для обработки изображений в режиме реального времени.
79824. Становление отечественной оперы во II половине XVIII века 279.5 KB
  Западноевропейская опера в России в XVIII веке. Общеевропейские тенденции развития музыкальной культуры итальянская опера в России. Французская опера в России. Становление отечественной оперы во II половине XVIII века. Начало русской оперы. Фомин и его вклад в развитие русского музыкального театра. Историческое значение русской комической оперы. Тематический анализ оперных спектаклей II половины XVIII века...
79827. Стратегия инновационного развития 75 KB
  Таким образом инновационная стратегия это план на весь процесс от исследований через производство и сбыт до использования инновационного продукта. Кроме того ИП представляет собой сложный неопределенный по своему исходу насыщенный неожиданностями на промежуточных участках трудно прогнозируемый процесс инновационная стратегия должна учитывать необходимость подготовки альтернативных планов. Следовательно стратегия означает программу постоянно учитывающую перспективную цель выбор путей и средств ведущих к ее достижению.
79828. ИСТОЧНИКИ И ЭФФЕКТИВНОСТЬ ФИНАНСИРОВАНИЯ ИННОВАЦИОННЫХ ПРОЦЕССОВ В УСЛОВИЯХ СМЕШАННОЙ ЭКОНОМИКИ 60.5 KB
  Для реализации инновационного проекта как и любого другого замысла требуются в наличии три основных фактора: люди готовые воплотить замысел в жизнь материальная база средства труда финансовые ресурсы. Поэтому ключевой вопрос реализации инновационного проекта вопрос о финансировании. В рамках такой системы в качестве источников финансирования инновационного проекта можно выделить: собственные средства основателей проекта; государственное бюджетные финансирование; кредитные ресурсы. а Собственные средства авторов проекта...
79829. МИРОВОЙ ОПЫТ И СХЕМЫ ФИНАНСИРОВАНИЯ ИННОВАЦИЙ 45.5 KB
  Однако общепризнанно что кредитным ресурсам принадлежит ведущая роль в мировой практике финансирования инновационной сферы. в Кредитный союз Кредитный союз объединение нескольких нуждающихся в финансировании фирм создающих общий фонд финансирования и пользующихся им в качестве залога или резерва совместно по очереди. чиновников и часто используется для финансирования в небольших масштабах.