Показать сообщение отдельно
Старый 05.05.2014, 06:15   #1 (permalink)
Debianer
Member
 
Регистрация: 07.08.2012
Адрес: Находка, Приморский край
Сообщений: 336
Сказал(а) спасибо: 14
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1671
По умолчанию Программа расчета биоритмов

Доброго времени суток всем!
Попросили меня давеча на работе тетушки наши сделать им утилитку для расчета биоритмов. Поскольку иногда у меня есть на работе и свободное время, просьба была уовлетворена. Хочу поделиться с вами исходниками на 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 - интеллектуальный.

Надеюсь, кому-то пригодится. С исходником можете делать что угодно
Вложения
Тип файла: zip Biorhytm.zip (974.2 Кб, 164 просмотров)
Debianer вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070