Программа расчета биоритмов
Доброго времени суток всем!
Попросили меня давеча на работе тетушки наши сделать им утилитку для расчета биоритмов. Поскольку иногда у меня есть на работе и свободное время, просьба была уовлетворена. Хочу поделиться с вами исходниками на Delphi.
Итак, при запуске программа ищет Ini-файл с настройками; в случае его отсутствия вызывается окно с настройками программы.
Программа "висит" в трее, иконка представляет из себя три бара с физическим, эмоциональным и интеллектуальным уровнями. Отрисовывается иконка динамически - возможно, кому-то и пригодится как пример создания динамической иконки. Ниже приведена процедура отрисовки динамической иконки (использовался компонент TTrayIcon):
procedure TSettingsForm.CreateIcon(Phys, Intellect, Emotion: Integer);
var
Bmp: TBitmap;
Icon: TIcon;
IconInfo: TIconInfo;
begin
//Создаем битмап с рисунком баров
Bmp:=TBitmap.Create;
with Bmp do
begin
Width:=GetSystemMetrics(SM_CXICON);//Ширина иконок в трее
Height:=GetSystemMetrics(SM_CYICON);//Высота иконок в трее
Transparent:=True;
Canvas.FillRect(Rect(0,0,Width,Height));
//Отрисовываем физический уровень
Canvas.Brush.Color:=clGreen;
Canvas.FillRect(Rect(0,Height-Height*Phys div 100,Width div 3,Height));
//Отрисовываем эмоциональный уровень
Canvas.Brush.Color:=clBlue;
Canvas.FillRect(Rect(Width div 3,Height-Height*Emotion div 100,Width*2 div 3,Height));
//Отрисовываем интеллектуальный уровень
Canvas.Brush.Color:=clRed;
Canvas.FillRect(Rect(Width*2 div 3,Height-Height*Intellect div 100,Width,Height));
end;
//Создаем иконку
Icon:=TIcon.Create;
IconInfo.fIcon:=True;
IconInfo.xHotspot:=0;
IconInfo.yHotspot:=0;
IconInfo.hbmMask:=Bmp.Handle;
IconInfo.hbmColor:=Bmp.Handle;
Icon.Handle:=CreateIconIndirect(IconInfo);
//Уничтожаем битмап
Bmp.Free;
//Иконку назначаем компоненту TrayIcon
TrayIcon.Icon:=Icon;
//Перерисовываем иконку
InvalidateRect(Application.Handle,nil,True);
TrayIcon.Refresh;
Icon.Free;
end;
Левый клик мыши вызывает всплывающую подсказку, правый - контекстное меню. При клике на пункте "Показать" вызывается окно, в котором динамически (на Canvas) рисуются три графика с биоритмами за период +/- 5 дней. Обновление (пересчет) производится каждый час.
Сама формула расчета биоритмов проста:
B = (sin (2pi*t/P))*100%
B — состояния биоритма в %,выражается как состояние относительно нуля(+/-100%).
t — количество дней, прошедших с даты рождения до текущего (нужного) момента.
P — фаза биоритма: 23 - физич. цикл, 28 - эмоциональный, 33 - интеллектуальный.
Надеюсь, кому-то пригодится. С исходником можете делать что угодно
Доброго времени суток всем!
Попросили меня давеча на работе тетушки наши сделать им утилитку для расчета биоритмов. Поскольку иногда у меня есть на работе и свободное время, просьба была уовлетворена. Хочу поделиться с вами исходниками на Delphi.
Итак, при запуске программа ищет Ini-файл с настройками; в случае его отсутствия вызывается окно с настройками программы.
Программа "висит" в трее, иконка представляет из себя три бара с физическим, эмоциональным и интеллектуальным уровнями. Отрисовывается иконка динамически - возможно, кому-то и пригодится как пример создания динамической иконки. Ниже приведена процедура отрисовки динамической иконки (использовался компонент TTrayIcon):
procedure TSettingsForm.CreateIcon(Phys, Intellect, Emotion: Integer);
var
Bmp: TBitmap;
Icon: TIcon;
IconInfo: TIconInfo;
begin
//Создаем битмап с рисунком баров
Bmp:=TBitmap.Create;
with Bmp do
begin
Width:=GetSystemMetrics(SM_CXICON);//Ширина иконок в трее
Height:=GetSystemMetrics(SM_CYICON);//Высота иконок в трее
Transparent:=True;
Canvas.FillRect(Rect(0,0,Width,Height));
//Отрисовываем физический уровень
Canvas.Brush.Color:=clGreen;
Canvas.FillRect(Rect(0,Height-Height*Phys div 100,Width div 3,Height));
//Отрисовываем эмоциональный уровень
Canvas.Brush.Color:=clBlue;
Canvas.FillRect(Rect(Width div 3,Height-Height*Emotion div 100,Width*2 div 3,Height));
//Отрисовываем интеллектуальный уровень
Canvas.Brush.Color:=clRed;
Canvas.FillRect(Rect(Width*2 div 3,Height-Height*Intellect div 100,Width,Height));
end;
//Создаем иконку
Icon:=TIcon.Create;
IconInfo.fIcon:=True;
IconInfo.xHotspot:=0;
IconInfo.yHotspot:=0;
IconInfo.hbmMask:=Bmp.Handle;
IconInfo.hbmColor:=Bmp.Handle;
Icon.Handle:=CreateIconIndirect(IconInfo);
//Уничтожаем битмап
Bmp.Free;
//Иконку назначаем компоненту TrayIcon
TrayIcon.Icon:=Icon;
//Перерисовываем иконку
InvalidateRect(Application.Handle,nil,True);
TrayIcon.Refresh;
Icon.Free;
end;
Левый клик мыши вызывает всплывающую подсказку, правый - контекстное меню. При клике на пункте "Показать" вызывается окно, в котором динамически (на Canvas) рисуются три графика с биоритмами за период +/- 5 дней. Обновление (пересчет) производится каждый час.
Сама формула расчета биоритмов проста:
B = (sin (2pi*t/P))*100%
B — состояния биоритма в %,выражается как состояние относительно нуля(+/-100%).
t — количество дней, прошедших с даты рождения до текущего (нужного) момента.
P — фаза биоритма: 23 - физич. цикл, 28 - эмоциональный, 33 - интеллектуальный.
Надеюсь, кому-то пригодится. С исходником можете делать что угодно
. В результате экспериментов выяснил, что наиболее достоверные данные получаются, если взять среднее арифметическое от трех периодов, примерно 28.426125. Все остальные ритмы- физический, интеллектуальный - несущественны, а этот прямо в точку.
