прога будильник

[Alex Cones]

Тяжелый случай. Составляй файл, в котором делай такие записи:

1 01 6:18 12:30 14:20 ...
2 01 6:17 12:30 16:41 ...
...

И так далее, 366 записей. Потом программно получать месяц и число и искать соответствующую строку в файле.Потом считывать в список времена в строке файла и делать проверку раз в минуту.

[betirsolt]

вот что у меня получилось

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Label1.Caption:=TimeToStr(Time);
 if formatdatetime('ddmmyy',date)='010109' then
begin
  if timetostr(time)='6:18:00' then
  begin
  MediaPlayer1.Open;
  MediaPlayer1.Play;
  done:=false;
  end;
  if timetostr(time)='12:30:00' then
  begin
  MediaPlayer1.Open;
  MediaPlayer1.Play;
  done:=false;
  end;
  if timetostr(time)='14:20:00' then
  begin
  MediaPlayer1.Open;
  MediaPlayer1.Play;
  done:=false;
  end;
  if timetostr(time)='16:40:00' then
  begin
  MediaPlayer1.Open;
  MediaPlayer1.Play;
  done:=false;
  end;
  if timetostr(time)='18:10:00' then
  begin
  MediaPlayer1.Open;
  MediaPlayer1.Play;
  done:=false;
  end;
end;

но это заготовка всего на один день....не могу же 365 раз написать так...у кого какие идеи????

[Alex Cones]

http://www.programmersforum.ru/showp...7&postcount=11
Проще не придумаешь. Разве, что формулу вывеести.

[betirsolt]

Сообщение от Alex Cones

Тяжелый случай. Составляй файл, в котором делай такие записи:

1 01 6:18 12:30 14:20 ...
2 01 6:17 12:30 16:41 ...
...

И так далее, 366 записей. Потом программно получать месяц и число и искать соответствующую строку в файле.Потом считывать в список времена в строке файла и делать проверку раз в минуту.

не думаю что я справлюсь с этим.....но если кто поможет буду рад

[Alex Cones]

Задай строку-маску:
1 01 6:18 12:30 14:20 16:40 18:10
Скопируй её 366 раз в текстовик. Просто нажимай стрелку вниз на нужной позиции, затем backspace и нужную цифру. Один столбик заполнить можно за 2 минуты.

[betirsolt]

Сообщение от Alex Cones

Задай строку-маску:
1 01 6:18 12:30 14:20 16:40 18:10
Скопируй её 366 раз в текстовик. Просто нажимай стрелку вниз на нужной позиции, затем backspace и нужную цифру. Один столбик заполнить можно за 2 минуты.

заполнить то не проблема...а зачем в начале писать 1 01???может просто 1?и что с этим дальше делать???

[DeKot]

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

[Alex Cones]

1 01 - число и месяц.

[betirsolt]

оптимизировать можно потому что второй параметр никогда не меняеться т.е 12:30 не меняеться...и так получаеться
1 01 6:18 14:20 16:40 18:10

[betirsolt]

ребят я все еще работаю над этим будильником вот до чего я дошел

procedure TForm1.FormCreate(Sender: TObject);
begin
maskedit1.Clear;
MediaPlayer1.FileName:='d:\0035.mp3';
currentmonth:=formatdatetime('m',date);
if currentmonth='1' then
begin
 currentday:=formatdatetime('d',date);
 m:=strtoint(currentday);
 k:=box1.Items.Strings[m-1];
 yira:=copy(k,1,8);
 malhbuza:=copy(k,10,8);
 markaja:=copy(k,19,8);
 phura:=copy(k,28,8);
end
else if currentmonth='2' then
begin
currentday:=formatdatetime('d',date);
 m:=strtoint(currentday);
 k:=box2.Items.Strings[m-1];
 yira:=copy(k,1,8);
 malhbuza:=copy(k,10,8);
 markaja:=copy(k,19,8);
 phura:=copy(k,28,8);
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 form1.Caption:='AZAN'+' '+TimeToStr(Time);
 if timetostr(time) = maskedit1.text  then
 begin
MediaPlayer1.Open;
MediaPlayer1.Play;
done:=false;
end;
if timetostr(time)='12:30:00' then
begin
MediaPlayer1.Open;
MediaPlayer1.Play;
done:=false;


end;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
 if timetostr(time)=yira then
begin
MediaPlayer1.Open;
MediaPlayer1.Play;
done:=false;
end;
if timetostr(time)=malhbuza then
begin
MediaPlayer1.Open;
MediaPlayer1.Play;
done:=false;
end;
if timetostr(time)=markaja then
begin
MediaPlayer1.Open;
MediaPlayer1.Play;
done:=false;
end;
if timetostr(time)=phura then
begin
MediaPlayer1.Open;
MediaPlayer1.Play;
done:=false;
end;
end;

как видите в переменные типа string я копирую времена по которым будильник должен сработать,но даже когда выражение if timetostr(time)=yira истинно будильник все равно не включается.что я делаю не так.два таймера я завел просто ради эксперимента потому что с одним таймером та же беда