Разработка алгоритма программы "Таймер" на языке программирования C++
Работа из раздела: «
Программирование, компьютеры и кибернетика»
4
Департамент образования и науки Приморского края
Краевое государственное бюджетное образовательное учреждение
среднего профессионального образования
«Находкинский государственный гуманитарно-политехнический колледж»
КУРСОВАЯ РАБОТА (ПРОЕКТ)
По дисциплине: Системное программирования
На тему: «Разработка алгоритма программы «Таймер» на языке программирования C++
Студента Соловьева Евгения Андреевича
Группа 731 специальность 230115 Программирование в компьютерных системах
Находка 2013
Содержание
Введение
Раздел 1. Теоретическая часть
1.1 Язык программирование C++
1.2 Среда программирования Embarcadero RAD Studio
Раздел 2. Практическая часть
2.1 Создание окна, которое отображает системную дату и время
2.2 Разработка приложения таймер с функциями
2.2.1 Выполнение выбранного действия в определенный промежуток времени заданный пользователем
2.2.2Выполнение выбранного действия через определенный промежуток времени заданный пользователем
3. Руководство программиста
4. Руководство пользователя
Заключение
Список использованных источников
Приложение А. Программный Листинг
Введение
В современном мире язык программирования Си (C++) широко используется для разработки программного обеспечения, а также это язык программирования высокого уровня, который хорошо известный своей эффективностью, экономичностью, и переносимостью. Ведь первые Операционные системы были написаны именно на языке Си. Область его применения включает создание операционных систем, разнообразных прикладных программ, драйверов устройств, приложений для встраиваемых систем, высокопроизводительных серверов, а также развлекательных приложений (игр).
Цель данной курсовой работы - является систематизация, углубление и активное применение знаний по системному программированию, закрепление знаний, полученных в лекционном курсе, а также на практических занятиях.
Достижение цели обеспечивается решением следующей задачи:
Разработка приложения «Таймер» при помощи динамических библиотек С++
Использование полученных знаний на лекционном курсе
Раздел 1. Теоретическая часть
1.1 Язык программирование C++
Для разработки программы применялся язык программирования C++ .
Язык программирования С++ был разработан на основе языка Си Бьярном Страуструпом (Bjarne Stroustrup) и вышел за пределы его исследовательской группы в начале 80-х годов. Язык С++ является надмножеством языка Си, поэтому программы, написанные на языке Си могут обрабатываться компилятором языка С++. В программах на языке С++ можно использовать тексты на языке С и обращаться к библиотечным функциям языка Си. Язык С++ был создан с учетом следующих целей: улучшить язык Си, поддержать абстракцию данных и обеспечить объектно-ориентированное программирование.
Объектно-ориентированное программирование (ООП) -- это новый подход к созданию программ. ООП аккумулирует лучшие идеи, воплощенные в структурном и модульном программировании, и сочетает их с новыми мощными концепциями, которые позволяют оптимально организовывать программы. ООП позволяет разложить проблему на составные части наиболее естественным способом с учетом иерархии взаимосвязей. Каждая часть становится самостоятельным объектом, содержащим свои собственные данные, операции и функции, которые относятся к этому объекту. В результате процесс составления программ упрощается и программист получает возможность оперировать с большими по объему программами. Одна из главных особенностей ООП -- это возможность определять новые типы данных так, что их использование ничем не будет отличаться от использования встроенных в язык типов данных. Новые типы данных должны в большей мере соответствовать понятиям той прикладной области, для которой разрабатывается программа, чем встроенные типы, ориентированные на архитектуру компьютера.
Рассмотрим достоинства языка программирования C++:
Высокая совместимость с языком Си
Поддержка различных стилей программирования
Вычислительная производительность
Недостатки:
Синтаксис, провоцирующий ошибки
Некоторые преобразования типов неинтуитивны
Плохая поддержка модульности
Основные среды языка C++: Visual C++, C++ Builder, Borland C++, Embarcadero RAD Studio.
Таким образом, для разработки программы была выбрана среда программирования Embarcadero RAD Studio. Embarcadero RAD Studio была выбрана последующим возможностям:
подключение к локальным базам данных InterBase®, Blackfish™ SQL и MySQL в Delphi и C++Builder;
подключение к базам данных в VisualStudio с помощью ADO.NET, включая подключение к локальным базам данных InterBase и Blackfish в DelphiPrism;
развертывание Blackfish SQL в системах с одним пользователем и размером базы данных 512 МБ;
веб-библиотеку VCL с ограничением числа подключений (не более пяти);
набор характеристик и средств аудита кода начального уровня, помогающих проанализировать стиль программирования и состояние проекта;
визуализацию кода с использованием UML, упрощающую анализ исходного кода благодаря визуальному представлению.
1.2 Среда программирования Embarcadero RAD Studio
Embarcadero® RAD Studio 2010 - это комплексное решение для быстрой разработки приложений Windows®, .NET, веб-приложений и приложений баз данных. Оно включает в себя Delphi®, C++Builder® и Delphi ®Prism™, позволяя создавать приложения для различных платформ Windows и баз данных до 5 раз быстрее. Инструменты RAD Studio значительно ускоряют создание приложений для настольных компьютеров, рабочих станций, сенсорных дисплеев, информационных терминалов и Интернета, поэтому их использует уже более 2 миллионов разработчиков. В состав этих средств входят быстрые компиляторы, визуальная среда для разработки приложений с пользовательским интерфейсом, платформа визуальных компонентов (VCL), а также обширные возможности для подключения к базам данных и службам
Также RAD Studio работает со всеми типами баз данных, архитектур и протоколов.
Платформа RAD Studio DataSnap® и драйверы доступа к данным dbExpress™ позволяют создать одну систему и с ее помощью легко получать доступ к различным источникам данных. При этом обеспечивается поддержка специфических функций баз данных разных поставщиков без ухудшения их производительности и управляемости. В то время как другие средства быстрой разработки рассчитаны на определенную базу данных или архитектуру, либо используют 'универсальные' методы подключения к данным, которые ограничивают производительность и возможности управления, открытая среда RAD Studio обладает гибкостью и эффективностью, необходимыми для создания высококачественных приложений.
Основные возможности для разработки приложений Windows:
Интегрированная среда разработки Delphi и C++Builder с функцией перетаскивания мышью
Более 250 компонентов в VCL (Библиотека визуальных компонеентов (Visual Component Library) -- объектно-ориентированная библиотека)
Встроенная поддержка касаний и жестов (более 30 готовых жестов)
dbExpress с поддержкой 9 основных баз данных, включая InterBase®
Многоуровневое промежуточное ПО DataSnap с поддержкой JSON, REST, HTTP, COM и XML
Возможность отладки многопоточных приложений
UML/аудит кода и учет показателей
Единая система для работы с Windows 2000, Windows Xp, Windows Vista и Windows 7
Основные возможности для разработки приложений .NET:
Язык программирования Delphi Prism для .NET
Включена интегрированная среда разработки на основе Visual Studio либо установка в Visual Studio
Поддержка новейших технологий .NET
Стандартное подключение к базам данных с помощью ADO.NET, платформа dbExpress для баз данных InterBase и Blackfish SQL
Разработка клиентов DataSnap .NET
Разработка веб-приложений с помощью ASP.NET
Использование Mono с ОС Windows, Linux и Mac OS X
Раздел 2. Практическая часть
2.1 Создание окна, которое отображает системную дату и время
Для создания этого окна использовались компоненты GroupBox и Label.
Рисунок 2.1 Окно, отображающее системную дату и время
Листинг 2.1 Отображение текущей даты и время
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Label2->Caption = TimeToStr(Time()); // показать текущее время
Label5->Caption = DateToStr(Now()); //показать дату
if (DayOfWeek(Now()) == 1) {Label7->Caption= 'Воскресенье';}
if (DayOfWeek(Now()) == 2) {Label7->Caption = 'Понедельник';}
if (DayOfWeek(Now()) == 3) {Label7->Caption = 'Вторник';}
if (DayOfWeek(Now()) == 4) {Label7->Caption = 'Среда';}
if (DayOfWeek(Now()) == 5) {Label7->Caption = 'Четверг';}
if (DayOfWeek(Now()) == 6) {Label7->Caption = 'Пятница';}
if (DayOfWeek(Now()) == 7) {Label7->Caption = 'Суббота';}
2.2 Разработка приложения таймер с функциями
2.2.1 Выполнение выбранного действия в определенный промежуток времени заданный пользователем
Для разработки окна этой функции использовались компоненты GroupBox, button, label и timepicker. В этой функции задавался определенный промежуток времени и выбиралось одно из представленных действий (рисунок 2.2.1). После того как системное время совпадало с заданным, программа выполняла выбранное действие и издавала звуковой сигнал.
Рисунок 2.2.1 Окно в котором выбирается действие и задается время
Листинг 2.2.1 Выполнение выбранного действия в определенный промежуток времени заданный пользователем
oid __fastcall TForm1::Timer3Timer(TObject *Sender)
{
iHours=StrToInt(FormatDateTime('hh', Time()));
iMinutes=StrToInt(FormatDateTime('nn', Time()));
iSeconds=StrToInt(FormatDateTime('ss', Time()));
// …получим текущее время системы …
iAlarmHours=StrToInt(FormatDateTime('hh', Form1->timepicker->Time));
iAlarmMinutes=StrToInt(FormatDateTime('nn', Form1->timepicker->Time));
iAlarmSeconds=StrToInt(FormatDateTime('ss', Form1->timepicker->Time));
// Время срабатывания будильника, которое задал пользователь
if (Button2->Enabled == false) { //Если ктопка 'Старт' не видимая, то
if (iHours == iAlarmHours &&
iMinutes == iAlarmMinutes &&
iSeconds == iAlarmSeconds)
{ // и если оно совпало с заданным временем пользователем…
MediaPlayer1->Play(); // проигрываем мелодию
switch(RadioGroup1->ItemIndex) {
case 0: {ShellExecute(NULL, 'open', 'mspaint.exe', NULL, NULL, SW_SHOWNORMAL);break;}
case 1: {ShellExecute(NULL, 'open', 'notepad.exe', NULL, NULL, SW_SHOWNORMAL);break;}
case 2: {ShellExecute(NULL, 'open', 'calc.exe', NULL, NULL, SW_SHOWNORMAL);break;}
case 3: {ShellExecute(NULL, 'open', 'wmplayer.exe', NULL, NULL, SW_SHOWNORMAL);break;}
case 4: {ShellExecute(NULL, 'open', 'http://www.microsoft.com', NULL, NULL, SW_SHOWNORMAL);break;}
}
}
}
}
2.2.2 Выполнение выбранного действия через определенный промежуток времени заданный пользователем
В этой функции после того как время на таймере достигало начального значения, программа выполняла выбранное действие и выдавала звуковой сигнал(Рисунок 2.2.2).
Рисунок 2.2.2 Окно в котором выбирается действие и задается время
Листинг 2.2.2 Выполнение выбранного действия через определенный промежуток времени заданный пользователем
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
if (StrToInt(Edit5->Text)>0) {
Edit5->Text = IntToStr(StrToInt(Edit5->Text)-1);
}
if (Edit5->Text <= 0 &&
StrToInt(Edit4->Text)>0)
{
Edit4->Text = StrToInt(Edit4->Text)-1; //добавлено StrToInt - было: '59' is not valid date and time
Edit5->Text = 59; // Поле 'секунды' - без изменений
}
// Обратый отсчет, и проверка значения в 'Еdit4'
if (Edit4->Text <= 0 &&
StrToInt(Edit3->Text)>0)
{
Edit3->Text = StrToInt(Edit3->Text)-1; //добавлено StrToInt // Поле 'секунды'
Edit4->Text = 60; // было 59 - но 1 час = 60 минут, так и стартуем // Поле 'минуты'
}
if (Edit3->Text == 0 && // Поле 'секунды'
Edit4->Text == 0 && // Поле 'минуты'
Edit5->Text == 0) // Поле 'секунды'
{ // если значения в таймере равны 0, то
Timer2->Enabled=false;
MediaPlayer1->Play(); // проигрываем мелодию
switch(RadioGroup1->ItemIndex) {
case 0: {ShellExecute(NULL, 'open', 'mspaint.exe', NULL, NULL, SW_SHOWNORMAL);break;}
case 1: {ShellExecute(NULL, 'open', 'notepad.exe', NULL, NULL, SW_SHOWNORMAL);break;}
case 2: {ShellExecute(NULL, 'open', 'calc.exe', NULL, NULL, SW_SHOWNORMAL);break;}
case 3: {ShellExecute(NULL, 'open', 'wmplayer.exe', NULL, NULL, SW_SHOWNORMAL);break;}
case 4: {ShellExecute(NULL, 'open', 'http://www.microsoft.com', NULL, NULL, SW_SHOWNORMAL);break;}
Для разработки окна этой функции использовались компоненты GroupBox, edit, button, label и UpDown.
3. Руководство программиста
Листинг 3.1 Создание окна
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Form1->Position = poDesktopCenter;
Form1->Width = 265;
MediaPlayer1->Visible = false; // скрываем плеер
MediaPlayer1->FileName = 'alarm.mp3'; // указываем плееру файл
MediaPlayer1->Open(); // и открываем его для проигрывания
}
В данной функции можно изменить позицию, длину и звуковой сигнал программы.
Смена позиции:Form->Positon
Смена длины:Form->Width
Смена звукового сигнала:MediaPlayer1->FileName
Листинг 3.2 Выполнение выбранного действия в заданный промежуток времени
void __fastcall TForm1::Timer3Timer(TObject *Sender)
{
iHours=StrToInt(FormatDateTime('hh', Time()));
iMinutes=StrToInt(FormatDateTime('nn', Time()));
iSeconds=StrToInt(FormatDateTime('ss', Time()));
// …получим текущее время системы …
iAlarmHours=StrToInt(FormatDateTime('hh', Form1->timepicker->Time));
iAlarmMinutes=StrToInt(FormatDateTime('nn', Form1->timepicker->Time));
iAlarmSeconds=StrToInt(FormatDateTime('ss', Form1->timepicker->Time));
// Время срабатывания будильника, которое задал пользователь
if (Button2->Enabled == false) { //Если кнопка 'Старт' не видимая, то
if (iHours == iAlarmHours &&
iMinutes == iAlarmMinutes &&
iSeconds == iAlarmSeconds)
{ // и если оно совпало с заданным временем пользователем…
MediaPlayer1->Play(); // проигрываем мелодию
switch(RadioGroup1->ItemIndex) {
case 0: {ShellExecute(NULL, 'open', 'mspaint.exe', NULL, NULL, SW_SHOWNORMAL);break;}
case 1: {ShellExecute(NULL, 'open', 'notepad.exe', NULL, NULL, SW_SHOWNORMAL);break;}
case 2: {ShellExecute(NULL, 'open', 'calc.exe', NULL, NULL, SW_SHOWNORMAL);break;}
case 3: {ShellExecute(NULL, 'open', 'wmplayer.exe', NULL, NULL, SW_SHOWNORMAL);break;}
case 4: {ShellExecute(NULL, 'open', 'http://www.microsoft.com', NULL, NULL, SW_SHOWNORMAL);break;}
}
}
}
}
В данной функции можно изменить какую программу будет запускать таймер в определенный промежуток времени заданный пользователем.
Чтобы изменить названия действий нужно зайти в RadioGroup->Properties->Items и открыть Script List Editor при нажатии на троеточие.
Листинг 3.3 Выполнение выбранного действия через определенный промежуток времени
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
if (StrToInt(Edit5->Text)>0) {
Edit5->Text = IntToStr(StrToInt(Edit5->Text)-1);
}
if (Edit5->Text <= 0 &&
StrToInt(Edit4->Text)>0)
{
Edit4->Text = StrToInt(Edit4->Text)-1; //добавлено StrToInt - было: '59' is not valid date and time
Edit5->Text = 59; // Поле 'секунды' - без изменений
}
// Обратный отсчет, и проверка значения в 'Еdit4'
if (Edit4->Text <= 0 &&
StrToInt(Edit3->Text)>0)
{
Edit3->Text = StrToInt(Edit3->Text)-1; //добавлено StrToInt // Поле 'секунды'
Edit4->Text = 60; // было 59 - но 1 час = 60 минут, так и стартуем // Поле 'минуты'
}
if (Edit3->Text == 0 && // Поле 'секунды'
Edit4->Text == 0 && // Поле 'минуты'
Edit5->Text == 0) // Поле 'секунды'
{ // если значения в таймере равны 0, то
Timer2->Enabled=false;
MediaPlayer1->Play(); // проигрываем мелодию
switch(RadioGroup1->ItemIndex) {
case 0: {ShellExecute(NULL, 'open', 'mspaint.exe', NULL, NULL, SW_SHOWNORMAL);break;}
case 1: {ShellExecute(NULL, 'open', 'notepad.exe', NULL, NULL, SW_SHOWNORMAL);break;}
case 2: {ShellExecute(NULL, 'open', 'calc.exe', NULL, NULL, SW_SHOWNORMAL);break;}
case 3: {ShellExecute(NULL, 'open', 'wmplayer.exe', NULL, NULL, SW_SHOWNORMAL);break;}
case 4: {ShellExecute(NULL, 'open', 'http://www.microsoft.com', NULL, NULL, SW_SHOWNORMAL);break;}
}
}
}
В данной функции можно изменить какую программу будет запускать таймер через определенный промежуток времени заданный пользователем.
4. Руководство пользователя
алгоритм программа таймер
Минимальные системные требования:
- монитор с минимальным разрешением экрана 800 на 600 пикселей;
- наличие клавиатуры;
- среда MS-DOS, Windows 98/200/ME/XP/Vista/7/8
- процессор тактовой частотой не ниже 200МГц;
- видеокарта;
- минимальный объем оперативной памяти - 32 МБ.
Запуск приложения происходит при двойном нажатии левой кнопки мыши на ярлыке игры с расширением EXE.
Для того чтобы программа выполнила нужное действие в определенный промежуток времени, нужно выбрать действие нажатием левой кнопки мыши и задать время в которое будет выполняться действие, как это показано на Рисунке 3.1. И нажать кнопку старт.
Рисунок 3.1 Окно в котором выбрали действия и задали время
А также если пользователь желает, чтобы действие выполнилось через определенное время. То нужно выбрать действие и задать время, через которое будет запускаться, как это показано на Рисунке 3.2
Рисунок 3.2 Окно в котором выбрали действия и задали время
Заключение
При выполнении данной работы, потребовались знания языка программирования. В ходе написания программы требовалось обращаться к дополнительным источникам, чтобы разобраться с важными аспектами программирования, которые помогли создать приложение.
В целом данная работа помогла лучше освоить язык С++ и улучшить свои навыки программирования.
Список использованных источников
Б. Пахомов - C/C++ и MS Visual C++ 2008 для начинающих; БХВ-Петербург; 2008 - 624с
Герберт Шилдт - C++ from the Ground Up; Вильямс; 2008 - 624 с
Давыдов В.Г. Visual C++. Разработка Windows-приложений с помощью MFC и API-функций. -- СПб: БХВ-Петербург, 2008.
Дж. Коплиен - Программирование на C++; Питер; 2005 - 408 с
Дж. Либерти - Освой самостоятельно C++; 2099 - 820 с
Дьюхерст С.С. - C++. Священные знания. 2-е издание, исправленное; 2012 - 240 с
Зиборов В.В - MS Visual C++ 2010 в среде .NET; 2012 - 320 с
Лаптев В.В. - C++. Объектно-ориентированное программирование; Питер; 2008 - 464 с
Макс Шлее - Профессиональное программирование на C++; БХВ - Петербург; 2009 - 896с
Мэтью Уилсон - Расширение библиотеки STL для С++; ДМК Пресс, Б-П; 2008 - 608 с
Н.А. Литвиненко - Технология программирования на C++. Win32 API-приложения; БХВ-Петербург - 2010, 288с
Паола Франка - С++. Учебный курс; Питер; 2012 - 496 с
Паола Франка - С++. Учебный курс; Питер; 2012 - 496 с
Пахомов Б - Самоучитель C/C++ и C++ Builder; БХВ-Петербург; 2008 - 670 с
Прохоренок Н.А. - Программирование на C++ в VisualStudio 2010 Express; 2010 - 229 с
Роберт Лафоре - Объектно - ориентированное программирование в С++; Питер; 2011 - 928 с
Роберт Лафоре - Объектное - ориентированное программирование в С++; Питер; 2011 - 928 с
Саммерфилд М. - Qt. Профессиональное программирование. Разработка кроссплатформенных приложений на C++; 2011 - 560 с
Степаненко О.Е. - Visual C++/NET. Классика программирования; 2010 - 768 с
Стефан Рэнди Дэвис - С++ для «чайников»; Диалектика, Вильямс; 2009 - 336 с
Стивен Прата - Язык программирования С++. Леции и упражнения; Вильямс; 2012 - 1248 с
Стивен Прата - Язык программирования С++. Леции и упражнения; Вильямс; 2012 - 1248 с
Страуструп Б - Язык программирования C++; Бином - 2011, 1136
Уоллес Вонг - Основы программирования для «чайников»; М. -- ООО 'И.Д. Вильямс'; 2008 - 336 с
Федоренко Ю. - Алгоритмы и программы на C++ Builder; 2010 - 544 с
Приложение А. Программный Листинг
Project1.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM('Unit1.cpp', Form1);
//---------------------------------------------------------------------------
WINAPI Win Main(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception('');
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}
//---------------------------------------------------------------------------
Uni1.cpp
//---------------------------------------------------------------------------
#include <sys/timeb.h>
#include <vcl.h>
#include <windows.h>
#pragma hdrstop
#include 'Unit1.h'
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource '*.dfm'
TForm1 *Form1;
boolbIsTimerOn; // Таймер включён
intiHours; // Текущий час.
intiMinutes; // Текущая минута.
intiSeconds; // Текущая секунда
intiAlarmHours; // Час оповещения.
intiAlarmMinutes; // Минута оповещения.
intiAlarmSeconds; // Секунда оповещения
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Form1->Position = poDesktopCenter;
Form1->Width = 265;
MediaPlayer1->Visible = false; // скрываем плеер
MediaPlayer1->FileName = 'alarm.mp3'; // указываем плееру файл
MediaPlayer1->Open(); // и открываем его для проигрывания
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Button2->Enabled=false; // Кнопка 'Старт' невидима
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
bIsTimerOn=false; // Выключить будильник
Button2->Enabled=true;
timepicker->Time=StrToTime('0:00:00'); // Сброс на ноль.
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer3Timer(TObject *Sender)
{
iHours=StrToInt(FormatDateTime('hh', Time()));
iMinutes=StrToInt(FormatDateTime('nn', Time()));
iSeconds=StrToInt(FormatDateTime('ss', Time()));
// …получим текущее время системы …
iAlarmHours=StrToInt(FormatDateTime('hh', Form1->timepicker->Time));
iAlarmMinutes=StrToInt(FormatDateTime('nn', Form1->timepicker->Time));
iAlarmSeconds=StrToInt(FormatDateTime('ss', Form1->timepicker->Time));
// Время срабатывания срабатывания будильника, которое задал пользователь
if (Button2->Enabled == false) { //Если кнопка 'Старт' не видимая, то
if (iHours == iAlarmHours&&
iMinutes == iAlarmMinutes&&
iSeconds == iAlarmSeconds)
{ // и если оно совпало с заданным временем пользователем…
MediaPlayer1->Play(); // проигрываем мелодию
switch(RadioGroup1->ItemIndex) {
case 0: {ShellExecute(NULL, 'open', 'mspaint.exe', NULL, NULL, SW_SHOWNORMAL);break;}
case 1: {ShellExecute(NULL, 'open', 'notepad.exe', NULL, NULL, SW_SHOWNORMAL);break;}
case 2: {ShellExecute(NULL, 'open', 'calc.exe', NULL, NULL, SW_SHOWNORMAL);break;}
case 3: {ShellExecute(NULL, 'open', 'wmplayer.exe', NULL, NULL, SW_SHOWNORMAL);break;}
case 4: {ShellExecute(NULL, 'open', 'http://www.microsoft.com', NULL, NULL, SW_SHOWNORMAL);break;}
}
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
exit(0); // Выход с программы
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Label2->Caption = TimeToStr(Time()); // показать текущее время
Label5->Caption = DateToStr(Now()); //показать дату
if (DayOfWeek(Now()) == 1) {Label7->Caption= 'Воскресенье';}
if (DayOfWeek(Now()) == 2) {Label7->Caption = 'Понедельник';}
if (DayOfWeek(Now()) == 3) {Label7->Caption = 'Вторник';}
if (DayOfWeek(Now()) == 4) {Label7->Caption = 'Среда';}
if (DayOfWeek(Now()) == 5) {Label7->Caption = 'Четверг';}
if (DayOfWeek(Now()) == 6) {Label7->Caption = 'Пятница';}
if (DayOfWeek(Now()) == 7) {Label7->Caption = 'Суббота';}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::UpDown3Click(TObject *Sender, TUDBtnType Button)
{
if(Button == Comctrls::btNext) {
Edit3->Text = IntToStr(StrToInt(Edit3->Text)+1);
}
if(Button == Comctrls::btPrev) {
Edit3->Text = IntToStr(StrToInt(Edit3->Text)-1);
// Изменение значения в поле 'Edit1'
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::UpDown4Click(TObject *Sender, TUDBtnType Button)
{
if(Button == Comctrls::btNext) {
Edit4->Text = IntToStr(StrToInt(Edit4->Text)+1);
}
if(Button == Comctrls::btPrev) {
Edit4->Text = IntToStr(StrToInt(Edit4->Text)-1);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::UpDown5Click(TObject *Sender, TUDBtnType Button)
{
if(Button == Comctrls::btNext) {
Edit5->Text = IntToStr(StrToInt(Edit5->Text)+1);
}
if(Button == Comctrls::btPrev) {
Edit5->Text = IntToStr(StrToInt(Edit5->Text)-1);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
if (StrToInt(Edit5->Text)>0) {
Edit5->Text = IntToStr(StrToInt(Edit5->Text)-1);
}
if (Edit5->Text <= 0 &&
StrToInt(Edit4->Text)>0)
{
Edit4->Text = StrToInt(Edit4->Text)-1; //добавлено StrToInt - было: '59' is not valid date and time
Edit5->Text = 59; // Поле 'секунды' - без изменений
}
// Обратный отсчет, и проверка значения в 'Еdit4'
if (Edit4->Text <= 0 &&
StrToInt(Edit3->Text)>0)
{
Edit3->Text = StrToInt(Edit3->Text)-1; //добавлено StrToInt // Поле 'секунды'
Edit4->Text = 60; // было 59 - но 1 час = 60 минут, так и стартуем // Поле 'минуты'
}
if (Edit3->Text == 0 && // Поле 'секунды'
Edit4->Text == 0 && // Поле 'минуты'
Edit5->Text == 0) // Поле 'секунды'
{ // если значения в таймере равны 0, то
Timer2->Enabled=false;
MediaPlayer1->Play(); // проигрываем мелодию
switch(RadioGroup1->ItemIndex) {
case 0: {ShellExecute(NULL, 'open', 'mspaint.exe', NULL, NULL, SW_SHOWNORMAL);break;}
case 1: {ShellExecute(NULL, 'open', 'notepad.exe', NULL, NULL, SW_SHOWNORMAL);break;}
case 2: {ShellExecute(NULL, 'open', 'calc.exe', NULL, NULL, SW_SHOWNORMAL);break;}
case 3: {ShellExecute(NULL, 'open', 'wmplayer.exe', NULL, NULL, SW_SHOWNORMAL);break;}
case 4: {ShellExecute(NULL, 'open', 'http://www.microsoft.com', NULL, NULL, SW_SHOWNORMAL);break;}
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Timer2->Enabled = true; // Включить второй таймер
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
Timer2->Enabled = false; //Выключить второй таймер
Edit5->Text = '0'; // Значению в поле 'секунды' присвоить 0
Edit4->Text = '0'; // Значению в поле 'минуты' присвоить 0
Edit3->Text = '0'; // Значению в поле 'часы' присвоить 0
}
//---------------------------------------------------------------------------
Unit1.h
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:// IDE-managed Components
TButton *Button1;
TGroupBox *GroupBox1;
TLabel *Label2;
TLabel *Label3;
TLabel *Label4;
TLabel *Label5;
TLabel *Label6;
TLabel *Label7;
TGroupBox *GroupBox2;
TLabel *Label8;
TButton *Button2;
TButton *Button3;
TDateTimePicker *timepicker;
TGroupBox *GroupBox3;
TLabel *Label9;
TButton *Button4;
TButton *Button5;
TRadioGroup *RadioGroup1;
TTimer *Timer1;
TTimer *Timer2;
TTimer *Timer3;
TEdit *Edit3;
TUpDown *UpDown3;
TEdit *Edit4;
TUpDown *UpDown4;
TEdit *Edit5;
TUpDown *UpDown5;
TMediaPlayer *MediaPlayer1;
void __fastcall Button2Click(TObject *Sender);
void __fastcall Button3Click(TObject *Sender);
void __fastcall Timer3Timer(TObject *Sender);
void __fastcall Button1Click(TObject *Sender);
void __fastcall Timer1Timer(TObject *Sender);
void __fastcall Timer2Timer(TObject *Sender);
void __fastcall UpDown3Click(TObject *Sender, TUDBtnType Button);
void __fastcall UpDown4Click(TObject *Sender, TUDBtnType Button);
void __fastcall UpDown5Click(TObject *Sender, TUDBtnType Button);
void __fastcall Button4Click(TObject *Sender);
void __fastcall Button5Click(TObject *Sender);
void __fastcallFormCreate(TObject *Sender);
private:// User declarations
public:// User declarations
__fastcallTForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
