[Скрипт] Исходник будильника

[daff26]

Вот решил сделать исходник будильника.
Может кому пригодиться. Ну допустим для того что бы в игре ПБ
Активировать карточки взрыва очков. Ну или для других целей.

Вам всего лишь понадобиться компилятор Visual Studio 2010,
его вы можете найти на офф-сайте.

В компиляторе создаете проект с Формой, наносите на нее нужные элементы
Ну и конечно главное это timer1 / contextMenuStrip1 / notifyIcon1/

Ну и дальше копируете код и компилируете.

Простите извините что нет скинов формы, я их обязательно выложу.

КОД :

Цитата: [System::Runtime::InteropServisces:llImport("winm m.dll")] extern bool PlaySound(String^ lpszName, int hModule, int dwFlags); // конструктор Form1(void) { InitializeComponent(); // настройка компонентов numericUpDown1->Maximum = 23; numericUpDown1->Minimum = 0; numericUpDown2->Maximum = 59; numericUpDown2->Minimum = 0; numericUpDown1->Value = DateTime::Now.Hour; numericUpDown2->Value = DateTime::Now.Minute+5; notifyIcon1->Visible = false; isSet = false; // настройка и запуск таймера timer1->Interval = 1000; timer1->Enabled = true; lebel4->Text = DateTimer::Now.ToLongTimeString(); } private: DataTime alarm; // Время сигнала bool isSet; // true- будильник установлен private: System::Void button1_Click(System::Object^ sender, System::EventArgs^ e) { // Установить время сигнала alarm = DateTime(DataTime::Now.Year, DateTime::Now.Month, DateTime::Now.Day, Convert::ToInt16(numericUpDown1->Value), Convert::ToInt16(numericUpDown2->Value), 0, 0); // Если установленное время будильника меньше текущего, // нужно увеличить дату срабатывания на единицу (+1 день) if (DateTime::Compare(DateTime::Now, alarm) > 0) alarm = alarm.AddDays(1); // подсказка указатель мыши на значке notifyIcon1->Text = "Будильник - " + alarm.ToShortTimeString() + "\n" + textBox1->Text; isSet = true; this->Hide(); notifyIcon1->Visible = true; } // сигнал от таймера private: System::Void timer1_Tick(System::Object^ sender, System::EventArgs^ e) { label4->Text = DateTime::Now.ToLongTimeString(); // будильник установлен if (isSet) { if (DateTime::Compare(DateTime::Now, alarm) > 0) // время срабатывания { isSet = false; if (checkBox1->Checked) { PlaySound(Application::StartupPath + "\\ring.wav", 0, 1); } Form2^ frm; // окно сообщения frm = gcnew Form2(DateTime::Now.ToShortTimeString(), this->textBox1->Text); frm->ShowDialog(); // показать окно сообщения this->Show(); } } } // Кнопка Показать private: System::Void toolStripMenuItem1_Click(System::Object^ sender, System::EventArgs^ e) { isSet = false; // остановка будильника this->Show(); notifyIcon1->Visible = false; } // Команда 0 private: System::Void toolStripMenuItem2_Click(System::Object^ sender, System::EventArgs^ e) { } // команда завершить private: System::Void toolStripMenuItem3_Click(System::Object^ sender, System::EventArgs^ e) { this->Close(); } // щелчок на значке private: System::Void notifyIcon1_Click(System::Object^ sender, System::EventArgs^ e) { // если нет контекстного меня, то открыть окно программы можно так: /* isSet = false; this->Show(); notifyIcon1->Visible = false; */ }

[ralex]

По-больше бы таких актуальных статей для начинающих, с особенностями Visual Studio 2010

[Roch]

Цитата: Сообщение от daff26 КОД :

а не цитата.

[System::Runtime::InteropServisces::DllImport("winm m.dll")]
 extern
 bool PlaySound(String^ lpszName, int hModule, int dwFlags);

 // конструктор
 Form1(void)
 {
 InitializeComponent();

 // настройка компонентов

 numericUpDown1->Maximum = 23;
 numericUpDown1->Minimum = 0;

 numericUpDown2->Maximum = 59;
 numericUpDown2->Minimum = 0;


 numericUpDown1->Value = DateTime::Now.Hour;
 numericUpDown2->Value = DateTime::Now.Minute+5;

 notifyIcon1->Visible = false;

 isSet = false;

 // настройка и запуск таймера
 timer1->Interval = 1000;
 timer1->Enabled = true;

 lebel4->Text = DateTimer::Now.ToLongTimeString();

 }

 private:
 DataTime alarm; // Время сигнала
 bool isSet; // true- будильник установлен

 private: System::Void button1_Click(System::Object^ sender,
 System::EventArgs^ e)

 {

 // Установить время сигнала

 alarm = DateTime(DataTime::Now.Year,
 DateTime::Now.Month,
 DateTime::Now.Day,
 Convert::ToInt16(numericUpDown1->Value),
 Convert::ToInt16(numericUpDown2->Value),
 0, 0);

 // Если установленное время будильника меньше текущего,
 // нужно увеличить дату срабатывания на единицу (+1 день)

 if (DateTime::Compare(DateTime::Now, alarm) > 0)
 alarm = alarm.AddDays(1);
 // подсказка указатель мыши на значке

 notifyIcon1->Text = "Будильник - " + alarm.ToShortTimeString() + 
 "\n" + textBox1->Text;
 isSet = true;

 this->Hide();
 notifyIcon1->Visible = true;

 }

 // сигнал от таймера

 private: System::Void timer1_Tick(System::Object^ sender,
 System::EventArgs^ e)

 {

 label4->Text = DateTime::Now.ToLongTimeString();

 // будильник установлен

 if (isSet)

 {
 if (DateTime::Compare(DateTime::Now, alarm) > 0) // время срабатывания

 {
 isSet = false;

 if (checkBox1->Checked)

 {
 PlaySound(Application::StartupPath + "\\ring.wav", 0, 1);
 }

 Form2^ frm; // окно сообщения

 frm = gcnew Form2(DateTime::Now.ToShortTimeString(),
 this->textBox1->Text);
 frm->ShowDialog(); // показать окно сообщения
 this->Show();
 }
 }
 }

 // Кнопка Показать

 private: System::Void toolStripMenuItem1_Click(System::Object^ sender,
 System::EventArgs^ e)

 {

 isSet = false; // остановка будильника
 this->Show();
 notifyIcon1->Visible = false;
 }

 // Команда 0

 private: System::Void toolStripMenuItem2_Click(System::Object^ sender,
 System::EventArgs^ e)

 {

 }

 // команда завершить

 private: System::Void toolStripMenuItem3_Click(System::Object^ sender,
 System::EventArgs^ e)

 {

 this->Close();

 }

 // щелчок на значке

 private: System::Void notifyIcon1_Click(System::Object^ sender,
 System::EventArgs^ e)

 {

 // если нет контекстного меня, то открыть окно программы можно так:

 /*

 isSet = false;
 this->Show();
 notifyIcon1->Visible = false;

 */
 }

Да и будильников в сети интернет давольно таки много + исходников

Цитата: Сообщение от daff26 для того что бы в игре ПБ Активировать карточки взрыва очков.

После перезагрузки компьютера, будильник оф?

[[Na`Vi]DendI]

Цитата: Сообщение от Roch После перезагрузки компьютера, будильник оф?

Естественно.В коде не видно что бы программа записывалась в реестр и запускалась автоматически после перезагруза.

[Artem08022000]

ето с# а не С++ или С

[#mov]

Цитата: Сообщение от Artem08022000 ето с# а не С++ или С

Это CLR одна из надстроек над С++, жалкая попытка microsoft, переманить C++ разработчиков на .net

[Sinyss]

Цитата: Сообщение от Roch После перезагрузки компьютера, будильник оф?

Всегда можно прописать вручную

Цитата: Сообщение от #mov Это CLR одна из надстроек над С++, жалкая попытка microsoft, переманить C++ разработчиков на .net

Может все таки попытка дать им качественный инструмент? Плюсы можно использовать там где требуется быстродействие, а графику допустим на F# или VB или C#.
CLR по сути позволила работать в команде программистам которые пишут на разных языках и не заботится потом о синхронизации данных, типов и тд.

На C# уже написали реализацию пролога, то есть в .net теперь поддерживает еще и парадигму логического программирования, которая очень удобна для решения логических или переборных задач...