У вас вопросы?
У нас ответы:) SamZan.net

Тема Програма привітання

Работа добавлена на сайт samzan.net: 2016-03-13

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 5.4.2025

 

МІНІСТЕРСТВО АГРАРНОЇ ПОЛІТИКИ ТА ПРОДОВОЛЬСТВА УКРАЇНИ

ВСП ТАЛЬНІВСЬКИЙ БУДІВЕЛЬНО-ЕКОНОМІЧНИЙ КОЛЕДЖ

УМАНСЬКОГО НУС

 

Звіт

По виконанню практичної роботи № 7

З дисципліни Інструментальні засоби візуального програмування

Виконав:

Студент групи ПС-47

Мудрагель Євгеній

Перевірив:

Бойко С.В.

Тальне 2014

Тема: Програма привітання.

Мета: Засвоїти методику створення та використання програми привітання.

Розвязок програми :

Лістинг програми:

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

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "DateUtils.hpp"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

Graphics::TBitmap *bgp;

AnsiString sMonth[] = {"", "січня", "лютого", "березня", "квітня", "травня",

"червня", "липня", "серпня", "вересня", "жовтня", "листопада", "грудня"};

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

__fastcall TForm1::TForm1(TComponent* Owner)

       : TForm(Owner)

{

       bgp = new Graphics::TBitmap();

       try {

       bgp->LoadFromFile("01.bmp");

}

catch (EFOpenError &e){

}

}

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

void __fastcall TForm1::FormPaint(TObject *Sender)

{

       int h;

       AnsiString mes;

       int wt, ht;

       int x, y;

       h = HourOf( Now() );

       if (h<=4)

       {

               mes = "Доброї ночі!";

               Form1->Font->Color = clWhite;

       }

       else if (h<12)

       {

               mes = "Доброго ранку!";

               Form1->Font->Color = clBlue;

       }

       else if (h<=16)

       {

               mes = "Добрий день!";

               Form1->Font->Color = clBlack;

       }

       else mes = "Добрий вечір!";

       Form1->Font->Name = "Times New Roman";

       //Form1->Font->Color = clWhite;

       Form1->Canvas->Font->Size = 20;

       wt = Canvas->TextWidth(mes);

       ht = Canvas->TextHeight(mes);

       x = (ClientWidth - wt) / 2;

       y = ClientHeight / 2 - ht;

       Canvas->Draw(0, 0, bgp);

       Canvas->Brush->Style = bsClear;

       Canvas->TextOutA(x, y, mes);

       y = y + ht;

       if(sMonth[MonthOf(Now())] == "червня", "липня", "серпня")

       bgp->LoadFromFile("01.bmp");

       if(sMonth[MonthOf(Now())] == "вересня", "жовтня", "листопада")

       bgp->LoadFromFile("02.bmp");

       if(sMonth[MonthOf(Now())] == "грудня", "січня", "лютого")

       bgp->LoadFromFile("04.bmp");

       if(sMonth[MonthOf(Now())] == "березня", "квітня", "травня")

       bgp->LoadFromFile("03.bmp");

       mes = FormatDateTime("Сьогодні d", Now());

       mes = mes + " " + sMonth[MonthOf(Now())] + ", " +

FormatDateTime("dddd", Now());

       Canvas->Font->Size -=4;

       wt = Canvas->TextWidth(mes);

       ht = Canvas->TextHeight(mes);

       x = (ClientWidth - wt) / 2;

       y = y +6;

       Canvas->TextOutA(x, y, mes);

       }

void __fastcall TForm1::FormResize(TObject *Sender)

{

       Form1->Refresh();

}

Висновок:

Під час виконання роботи я засвоїв методику створення та використання програми привітання.




1. Путем анализа договоров спецификаций накладных поставщиков актов оприходования материалов созд
2. Перенос полей на форму из редактора полей
3. Функции маркетинга на предприятии
4. 217. Маркс Карл 1818~1883 ~ немецкий ученый и революционер
5. ВАРИАНТ РАЗМЕЩЕНИЯ ГОСТИНИЦА ЗАВТРАКОБЕДУЖИН Номер Студия Номе
6. Статья- Перспективы рекреационного освоения Российского Севера
7. Системы связи
8. за воодушевляющие беседы в утренние часы; Бранта Кови за идеи по оформлению книги; Мегги Ривс за постоян.html
9. Курсовая работа- Расчет характеристик электропривода насоса Д5000-32-2 для 2-х способов регулирования производительности
10. темами Отчет по теме- Характеристика социальнотехнических систем на примере судоходной грузовой