51345

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

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

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

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

Русский

2014-02-09

74 KB

32 чел.

Лабораторная работа 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 на форме произвольные изображения.


 

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

15088. Ортағасырлық Түркі ғалымдары мен жазушылары 57 KB
  ӘӨЖ 951/959 ОРТАҒАСЫРЛЫҚ ТҮРКІ ҒАЛЫМДАРЫ МЕН ЖАЗУШЫЛАРЫ Ф.М. Махашова №36 қазақ орта мектебі Тараз қ. Ғалымдар Қайта өрлеу дәуірін Ренессанс деп атайды өйткені бұл кезеңде антикалық дәстүрлер қайта жаңғырып ғылым мен мәдениетте әдебиетте өрлеу өркендеу ба...
15089. Өлең аудармасының теориясы мен поэтикасы 264.5 KB
  Адамзат аударма арқылы араласып-құраласады. Біз өмір сүріп жатқан әлемнің іштей белгілі бір жүйеге құрылғандығы, адам тіршілігінің кез келген қимыл-қарекеті өзінше шағын жүйе екендігі, онсыз әлемнің тұтас жүйесі жасалмайтындығы белгілі.
15090. Өлеңге тоқтамайды Шал дегенің 60 KB
  ӨЛЕҢГЕ ТОҚТАМАЙДЫ ШАЛ ДЕГЕНIҢ Шал ақын аталып кеткен Тiлеуке Құлекеұлы қазiргi Ақмола облысы жерiнде Азат темiр жол станциясының маңында 1748 жылы дүниеге келген. Әкесi Құлеке қазаққалмақ соғысының атақты батырларының бiрi. Анасы атақты Төле бидiң қызы. Құлеке мен оның а
15091. Пушкин және Қазақ әдебиеті 357 KB
  Әрбір ұлт әдебиетінің тарихында туған халқының мәдени өмірінде жеке өзі бір кезең – дәуірді түзеп, соңына ұмытылмас, өшпес із-мұра қалдыратын заңғар суреткерлер болады. Сондай тұлға, әлем әдебиетіндегі аса ғажайып орыс ақыны
15092. СҰЛТАНМАХМҰТ ТОРАЙҒЫРОВ РОМАНДАРЫНДАҒЫ ОБРАЗДАР ЖҮЙЕСІ 55 KB
  СҰЛТАНМАХМҰТ ТОРАЙҒЫРОВ РОМАНДАРЫНДАҒЫ ОБРАЗДАР ЖҮЙЕСІ М. Абизенова М.Х Коржумбаева Б.Ахметов атындағы Павлодар педагогикалық коледжі Павлодар қ. Кейіпкерлердің тілдік мінездемесін бір бірімен салыстыра талдау табиғат суретін кейіпкерлер портретін жа
15093. Сәбит Мұқановтың поэзиясы 45 KB
  Сәбит Мұқанов 1900-1973 Сәбит Мұқанов қазақтың әйгілі жазушысы қазақ әдебиетінің көрнекті қайраткері Қазақ КСР Ғылым академиясының академигі. Оның есімін жалпы қазақ оқырманына кеңінен танытқан Сұлушаш дастаны Адасқандар романы осы кезде өмірге келді. Осыларғ...
15094. Сәкен Сейфуллиннің Көкшетау поэмасын оқыту 36 KB
  Сәкен Сейфуллиннің Көкшетау поэмасын оқыту Ғ.А. Қазанбаева №136 орта мектеп Алматы қаласы Тақырыбы: Сәкен Сейфуллин. Көкшетау поэмасының мазмұны мен идеясы. Мақсаты: а білімділік: Поэманың мазмұнын қайталай отырып жазылу тарихына көтерге...
15095. Сәкен Сейфуллиннің поэзиясы 62.5 KB
  Жаңа тұрмыс жырлары Сәкен Сейфуллинннің поэзиясы Жиырмасыншы жылдары қоғамдық өмірде болған түбегейлі өзгерістер жаңа заман дамуының қарқындылығы тарихи оқиғалардың жедел ауысып отыруы Сәкен поэзиясында сол дәуір бейнесін берерлік екінші образ жүйрік пойыз...
15096. Түркі халықтарының жазба ескерткіші және оның көздері 70.5 KB
  ТҮРКІ ХАЛЫҚТАРЫНЫҢ ЖАЗБА ЕСКЕРТКІШІ ЖӘНЕ ОНЫҢ КӨЗДЕРІ С. Тәжіғұлова Ғ. Мұратбаев атындағы № 17 орта мектеп Тараз қ. Әрбір дәуірдің елеулі кезеңді оқиғаларын заманының белгілі ақынжазушылары дастанжырларға ойшылдары тарихшежіреге айналдыры