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

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 28.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. Курсовая работа печатается на компьютере на одной стороне белой бумаги формата А4 210 х 297 мм через полтора
2. Психологические истоки эгоизма (Психологічні витоки егоїзму)
3. Под методом в широком смысле понимается 1
4. Тема 2- Инструментальная диагностика и диапевтика в урологии
5. на тему- Классификация управленческих решений Выполнил
6. Реферат на тему- ldquo;Республіка Індія у період 19451996ррrdquo; учня 11Б класу загальноосв
7. цифровой преобразователь
8. Реферат- Совершенствование организации труда в учреждениях здравоохранения на основе принципов НОТ
9. Аудит расчетов по оплате труда и с подотчетными лицами
10. Новогодние старты 7 декабря Фамилия И