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

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 9.6.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. варианты- двусемядольные двусемянодольные или Магнолиопси~ды класс покрытосеменных растений у которы
5. тема социального страхования населения
6. а и его органы на местах
7.  Укажите какими изменениями в организме характеризуется ответ острой фазы- активацией иммунной систе
8. индикаторы текущего и порождаемого подмножеств должны различаться всего в одном разряде
9. Социально-политические мотивы сатиры М Е Салтыкова-Щедрина
10. вічних двигунів