Программа таймер

[gsl180]

Хочу написать программу, которая через определенный период времени подавала сигнал. Пока смог сделать, чтоб она подавала сигнал один раз, но как сделать цыкл не могу понять.

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include"Sysutils.hpp"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 int m,am,sa;
AnsiString st; int Day;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
Timer1->Enabled=true;
Timer1->Interval=1000;
Edit1->Enabled=false;
Button1->Enabled=false;
int Day=DayOfWeek(Date());
switch(Day){
case 1:
st="Воскресенье";
break;
case 2:
st="Понедельник";
break;
case 3:
st="Вторник";
break;
case 4:
st="Среда";
break;
case 5:
st="Четверг";
break;
case 6:
st="Пятница";
break;
case 7:
st="Суббота";
break;}
Label2->Caption=st;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CheckBox1Click(TObject *Sender)
{
if(CheckBox1->Checked){
Edit1->Enabled=true;
Edit1->SetFocus();
Button1->Enabled=true;
}
else{
Edit1->Enabled=false;
Button1->Enabled=false;
if(MediaPlayer1->Mode==mpPlaying)
MediaPlayer1->Stop();
Edit1->Text = "";}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Label1->Caption=Now().CurrentTime();
m=StrToInt(FormatDateTime("nn",Time()));
if(CheckBox1->Checked){
if(sa==m)
MediaPlayer1->Play();

}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
Form1->Caption=Now().CurrentDate();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::GroupBox1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
Form1->Caption="Таймер оповещения";        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::GroupBox2MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
Form1->Caption="Таймер оповещения";        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
Form1->Caption="Таймер оповещения";        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
Form1->Caption="Таймер оповещения";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(OpenDialog1->Execute()){
MediaPlayer1->FileName=OpenDialog1->FileName;}
if(MediaPlayer1->FileName==""){
Application->MessageBoxA("Нада выбрать мелодию оповещения","Таймер",MB_OK+MB_ICONWARNING); }
am=StrToInt(Edit1->Text);
sa=am+m;
MediaPlayer1->Open();

}
//---------------------------------------------------------------------------

Подскажите, что можно сделать.

[Stilet]

но как сделать цыкл не могу понять.

А разве твой таймер не срабатывает каждую секунду иммитируя цикл?

[gsl180]

Срабатывает один раз. Если в поле Edit ввести 10, то через 10 минут подаст сигнал. Но как сделать, чтоб через следующие 10 снова подавал сигнал?

[Stilet]

А можеш прикрепить сюда весь проект в архиве?
Что-то я не могу понять почему твой таймер как ты говоришь останавливается.

[gsl180]

Как я не пытался в обработчике таймера установить цыкл ничего не получалось.

[Stilet]

А вот скажи: Зачем тебе это условие?:

if(sa==m)

Твой таймер срабатывает в срок - поставь на него точку прерывания и убедись, но судя по всему это условие не дает проигрышу музни.

[gsl180]

Это у меня условие сравнения, того что ввел в поле Edit с минутами текущего времени. Музыку он играет, но так как переменная sa никак не изменяется, музыку проигрывает только один раз. А мне нужно, чтоб после того как сработал плеер, эта переменная увеличивалась на значение переменной am. Пытался делать цыкл в обработчике таймера типа
for(int x=sa; x<=59; x+=am)
if(x==m)
MediaPlayer1->Play(); Программа компилируется, но зависает.

[Stilet]

Уверен что именно это условие тебе и мешает.
Зачем тебе изменять sa?

[gsl180]

Изменять sa хочу для того, чтоб сигнал подавался каждые 10 минут к примеру. Скажите какое условие там можно реализовать?

[evg_m]

Хочу написать программу, которая через определенный период времени подавала сигнал. Пока смог сделать, чтоб она подавала сигнал один раз, но как сделать цыкл не могу понять.

зачем цикл. в момент срабатывания сигнала (if sa==m) надо определить(вычислить) время нового срабатывания (sa =....)

if(sa==m) {
sa = <когда сработать снова> ;
MediaPlayer1->Play(); }