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

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

Подписываем
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
МІНІСТЕРСТВО АГРАРНОЇ ПОЛІТИКИ ТА ПРОДОВОЛЬСТВА УКРАЇНИ
ВСП ТАЛЬНІВСЬКИЙ БУДІВЕЛЬНО-ЕКОНОМІЧНИЙ КОЛЕДЖ
УМАНСЬКОГО НУС
Звіт
По виконанню практичної роботи № 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();
}
Висновок:
Під час виконання роботи я засвоїв методику створення та використання програми привітання.