Программа Check_your_hands

[Sens]

Программа напоминает посмотреть на свои руки
каждые N секунд (число секунд можно задать самому).

Звуковой файл тоже можно свой вставить - главное чтоб в формате Wav был.

Есть возможность "отложенного старта" - например
чтобы программа начала работать когда вы заснёте

ссылку на программу вставлю при редактировании или в следующем сообщении. Прогу писал сам, на Дельфи 7

[Sens]

ссылка на программку эту - http://castaneda.ifolder.ru/15599133

[Масатек]

Исходный код включен в архив?

[Sens]

как то в голову не пришло исходник туда совать
вроде не программерский форум...

на себе испытывал несколько дней - заметил тока один эффект прикольный: вечером запускаю программу настроив начать воспроизводить WAV в 01:30 каждые 300 секунд. Просыпаюсь примерно в 6 утра сам, лежу, думаю о том о сём, прикидываю не пора ли вставать и тут с компа эта программа воспроизвводит WAV и я его слышу но НЕ ПОНИМАЮ СЛОВ! Вообще наглухо не понимаю хоть сам их на микрофон наговорил и сто раз слышал. Как будто слух мне оставили а некий "распознаватель речи" в мозгу отключили. При этом ВД присутствует в голове и я мыслю словами вроде бы.


Исходник:

unit Unit1;

interface

uses
SysUtils, Windows, ExtCtrls, ComCtrls, Controls, StdCtrls, Classes, //, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, MMsystem, Forms, IdTime; // , DateUtils,

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Button3: TButton;
Edit2: TEdit;
Label3: TLabel;
Label4: TLabel;
ProgressBar1: TProgressBar;
Timer1: TTimer;
Label5: TLabel;
Button4: TButton;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Edit3: TEdit;
Edit4: TEdit;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Button5: TButton;
Label12: TLabel;
Timer2: TTimer;
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure Edit3Change(Sender: TObject);
procedure Edit4Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
startH, startM, i, count, MaxC, zzz: Integer;
iMin, iSec, thetime, FileName: String;
Present: TDateTime;
Year, Month, Day, Hour, Min, Secondz, MSec: Word;
pora: boolean;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
PlaySound(PChar(Edit1.Text+'.wav'), 0, SND_FILENAME);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='Sound1';
Edit2.Text:='300';
ProgressBar1.Position:=0;
Button3.Enabled:=True;
Button1.Enabled:=False;
Timer1.Enabled:=True;
count:=1;
MaxC:=300;
// PlaySound(PChar(Edit1.Text+'.wav'), 0, SND_FILENAME);
Label5.Caption:=IntToStr(count);
startH:=0;
startM:=0;
Label11.Caption:='В '+IntToStr(startH)+' : '+IntToStr(startM);

Button5Click(nil);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Button3.Enabled:=True;
Button1.Enabled:=False;
Button5.Enabled:=False;
Timer1.Enabled:=True;
FileName:=Edit1.Text+'.wav';
count:=1;
MaxC:=StrToInt(Edit2.Text);
ProgressBar1.Position:=0;
Label5.Caption:=IntToStr(count);
Label6.Caption:='Текущий WAV файл - '+Filename;
Label7.Caption:='Текущий интервал - '+IntToStr(MaxC)+' сек.';
// PlaySound(PChar(FileName), 0, SND_FILENAME);
pora:=false;

end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Button3.Enabled:=True;
Button1.Enabled:=False;
Button5.Enabled:=False;
Timer1.Enabled:=True;
FileName:=Edit1.Text+'.wav';
count:=1;
MaxC:=StrToInt(Edit2.Text);
ProgressBar1.Position:=0;
Label5.Caption:=IntToStr(count);
Label6.Caption:='Текущий WAV файл - '+Filename;
Label7.Caption:='Текущий интервал - '+IntToStr(MaxC)+' сек.';

PlaySound(PChar(FileName), 0, SND_FILENAME);
pora:=true;

end;




procedure TForm1.Button3Click(Sender: TObject);
begin
Button1.Enabled:=True;
Button3.Enabled:=False;
Button5.Enabled:=True;
Timer1.Enabled:=False;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin

if pora then
begin
count:=count+1;
Label5.Caption:=IntToStr(count);
zzz:=100*count div MaxC;
ProgressBar1.Position:=zzz;
if (count>=MaxC) then
begin
count:=1;
PlaySound(PChar(FileName), 0, SND_FILENAME);
end;
end;

end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Present:= Now;
// DecodeDate(Present, Year, Month, Day);
// thetime :='Дата: '+IntToStr(Day)+'.'+IntToStr(Month)+'.'+IntToStr(Year);
DecodeTime(Present, Hour, Min, Secondz, MSec);
// i:=DayOfTheWeek(Now);
i:=Min;
iMin:='';
if (i<10) then iMin:='0';
iMin:=iMin+IntToStr(i);

i:=Secondz;
iSec:='';
if (i<10) then iSec:='0';
iSec:=iSec+IntToStr(i);

thetime :='Время: '+IntToStr(Hour)+':'+iMin+':'+iSec;
Label12.Caption:=thetime;

if (Hour=startH) and (Min=startM) and Timer1.Enabled and not pora then
begin
pora:=true;
PlaySound(PChar(FileName), 0, SND_FILENAME);
end;


end;

procedure TForm1.Edit3Change(Sender: TObject);
begin
if (Length(Edit3.Text)>0) then
begin
startH:=StrToInt(Edit3.Text);
Label11.Caption:='В '+IntToStr(startH)+' : '+IntToStr(startM);
end;
end;

procedure TForm1.Edit4Change(Sender: TObject);
begin
if (Length(Edit4.Text)>0) then
begin
startM:=StrToInt(Edit4.Text);
Label11.Caption:='В '+IntToStr(startH)+' : '+IntToStr(startM);
end;

end;

end.