[-=C@$PeR=-]

Наверное полтора месяца писал не зная толком ничего в программировании, ну только разве что прочитал книжку "Библия Delphi"
Так купил всего 4 книги и в инете кучу всяких справок и советов накачал. Писал так, то в день час два посижу, то 5 часов. Ладно, что она просто работает, так она ещё и без ошибок... вроде... Короче если в настройках стоят галочки на автозапуск и на сохранение времени будильника, то если вдруг скачок напряжения и перезагрузка компа, то он грузится и продолжает работать. Не супер достижение, но когда писал прогу думал этого я никогда не сделаю.http://narod.ru/disk/14888263000/%D0%91%D1%83%D0%B4%D0%B8%D0%BB%D1%8C%D0%BD%D0%B8%D 0%BA%201.2.rar.html
Ссылка оновлена. Можно скачивать

[AleD]

когда я свой будильник написа, меня патом друзьядолго тыкали "во типа изобретатель нах, открывай компанию, будеш не хуже microsoft"

[-=C@$PeR=-]

Сообщение от AleD

когда я свой будильник написа, меня патом друзьядолго тыкали "во типа изобретатель нах, открывай компанию, будеш не хуже microsoft"

А я когда написал свой первый будильник и закачал его другу, так он с ним чуть на работу не проспал, я его делал по книжке, почти один в один, так как не знал почти ничего, забывал постоянно даже из строки в целое например переводить и т.д . И сидел часами ломал голову, что да как. В том будильнике использовалась какаято стандартная функция типа CompareTime и время сравнивалось, например сейчас 6 вечера, а установить надо на 5 утра, так он срабатывал сразу. а если на позже, то срабатывал позже. И ещё чёто там было не так не помню.

[NIch]

Пожелания...
1. Нет текущего времени,я должен искать часы...на компе или еще где то...
2. Осталось до сигнала в минутах, а можно было бы еще и в секундах...
Предупреждения...
1. Не пиши при помощи чего пишешь прогу...среда программирования ведь у тебя нелицензионная ведь так...значит и писать на ней права не имеешь...
2. Лично у меня проблема со шрифтом всплывающих сообщений, написаны крокозябры...Windows 7600...
3. Монитор не выключается...
4. И не стоит делать ее тестовой до 2010 г...все равно взломают)))а ссобщение кумарит)))
Пока все....ждем версию 1.3...

[-=C@$PeR=-]

1. Нет текущего времени,я должен искать часы...на компе или еще где то...

Об этом мне и брат например говорил, но думал, что это бессмысленно, так как есть часы в трее. Учту.

2. Осталось до сигнала в минутах, а можно было бы еще и в секундах...

Ну можно попробовать. Честно сказать не понимаю зачем такая точность. Почему говорю можно попробовать, посмотри на код расчёта времени:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83

procedure GetRemainedTime; var HourCount, MinCount : word;     HourENow, MinENow : word; //HourENow - тут будет текущие часы begin      HourENow := HourOf(Now);    MinENow := MinuteOf(Now);    if (HourENow > HourAlarm) and (MinENow <> 0) then    begin      HourCount := 24 - HourENow;      HourCount := HourCount + HourAlarm - 1;      MinCount := (60 - MinENow) + MinAlarm;      if MinCount > 59 then      begin        HourCount := HourCount + 1;        MinCount := MinCount - 60;        HourRemain := HourCount;        MinRemain :=MinCount;        exit;      end else      begin        HourRemain := HourCount;        MinRemain :=MinCount;        exit;      end;    end;      if (HourENow > HourAlarm) and (MinENow = 0) then    begin      HourCount := 24 - HourENow;      HourCount := HourCount + HourAlarm;      MinCount := MinAlarm;      HourRemain := HourCount;      MinRemain :=MinCount;      exit;    end;      if (HourENow < HourAlarm) and (MinENow <> 0) then    begin      HourCount := HourAlarm - HourENow - 1;      MinCount := (60 - MinENow) + MinAlarm;      if MinCount > 59 then      begin        HourCount := HourCount+1;        MinCount := MinCount - 60;        HourRemain := HourCount;        MinRemain :=MinCount;        exit;      end else      begin        HourRemain := HourCount;        MinRemain :=MinCount;        exit;      end;    end;    if (HourENow < HourAlarm) and (MinENow = 0) then    begin      HourCount := HourAlarm - HourENow;      MinCount := MinAlarm;      HourRemain := HourCount;      MinRemain :=MinCount;      exit;    end;    if (HourENow = HourAlarm) and (MinENow < MinAlarm) then    begin      HourRemain := 0;      MinRemain := MinAlarm - MinENow;      exit;    end;      if (HourENow = HourAlarm) and (MinENow > MinAlarm) then    begin      HourRemain := 23;      MinRemain := (60 - MinENow) + MinAlarm;      exit;    end;    if (HourENow = HourAlarm) and (MinENow = MinAlarm) then    begin      HourRemain := 0;      MinRemain := 0;      exit;    end; end;

Долго ломал этой процедурой голову.

1. Не пиши при помощи чего пишешь прогу...среда программирования ведь у тебя нелицензионная ведь так...значит и писать на ней права не имеешь...

Я пока ничего не продавал, а скинул на ознакомление.
Сразу назревает несколько вопросов: Откуда такая увереность (лицензия)? Тебе не всё равно? Кстати под Window 7 полюбому куплю лицензию, ну под Delphi вроде 2010. Слава богу работаю )). Если я не буду писать этой средой разработки, то я вообще не буду писать, больше не на чём не умею. Для меня загадка как например интерфейс делать на паскале. Друг, а Windows у тебя лицензионный?

2. Лично у меня проблема со шрифтом всплывающих сообщений, написаны крокозябры...Windows 7600...

Всмысле подсказок или когда будильник срабатывает? Windows 7600 это чё за Windows такой? билд 7600? ХР? хотя у ХР вроде билд последний что я виде 2600. Не насмехаюсь, просто не понял.

3. Монитор не выключается...

У меня и у друзей выключается, у всех Windows XP Service Pack 3
Там используется API функция, вот код выключения монитора:

Код:

1 2 3 4 5 6 7 8 9 10

procedure MonitorOnOff(OnOff : boolean); //Выключить/включить монитор begin   if OnOff = True then //если в условии указано True, значит выключить монитор   begin     SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);   end else               //если False, значит включить   begin     SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);   end; end;

и кстати, если ты имеешь ввиду, что монитор не выключается, когда жмёшь на галочку, то он и не должен. Он должен выключаться когда ты его запускаешь, если галочка стоит, а так можно выключить выбрав соответствующий пункт в меню которое появляется при щелчке на значке в трее.

4. И не стоит делать ее тестовой до 2010 г...все равно взломают)))а ссобщение кумарит)))
Пока все....ждем версию 1.3...

Хотелось бы посмотреть на взломаную версию. По взлому кое что читал. При выводе сообщения не используется API их видно в той же Olly Debag. Не используется текст выводимый в окно открытым текстом, тоесть то что видно в окне, в переменной храниться в другом виде. защита была сделана наспех. Да и не особо нужна она. Просто не хочу недоделаное пускать в массы , ексешник сжат.

[NIch]

1 пункт. Написал свое мнение...Мне быхотелось видеть время в том же окне а не пререводить взгляд вниз на трей...
2 пункт. Будильник тогда можно будет использовать как таймер...

Я пока ничего не продавал, а скинул на ознакомление.
Сразу назревает несколько вопросов: Откуда такая увереность (лицензия)? Тебе не всё равно? Кстати под Window 7 полюбому куплю лицензию, ну под Delphi вроде 2010. Слава богу работаю )). Если я не буду писать этой средой разработки, то я вообще не буду писать, больше не на чём не умею. Для меня загадка как например интерфейс делать на паскале. Друг, а Windows у тебя лицензионный?

По поводу твоей лицензии мне все равно...а кому то нет...просто ты не просто не можешь продавать проги сделанные в нелицензионной среде, но и создавать их в ней...кто то когда то может спросить тебя, а ты платил за использование Делфи...мож помнишь случай про директора школы в глубинке, который купил компы с виндой...так его чуть не посадили...а винда лицензионная не более 10 % пользователй охватывает ИМХО из личных наблюдений...ИМХО на паскале конечно интерфейс не сделаешь, но и писать что на Delphi написал не стоит...лучше уж на Lazarus...
У меня винда 7 (build 7600) пока лицензионная...в смысле до 2010 года мелкософт такое позволяет...
А про защиту напишу так...через PeID (или что то другое) вычисляешь каким алгоритмом сжата прога...в сети полно описаний распаковки их...
запускаешь прогу через Olly Debug или при сложности SoftIce и твои процедуры как на ладони...меняешь к примеру je на jne и всё...
PS Критиковать нисколько не хотел просто написал свое мнение...т.е. не хотелось бы выяснений кто прав кто неправ и словесной перепалки...

[-=C@$PeR=-]

PS Критиковать нисколько не хотел просто написал свое мнение...т.е. не хотелось бы выяснений кто прав кто неправ и словесной перепалки...

Да всё нормально. Ты бы видел, что на другом форуме написал один человек про мою как он выразился "защиту". Незнаю, мне так по приколу, что он говорит, типа ненадо его недооценивать. Другие билды когда по нему клацаешь дабл кликами раз 5 он говорит: "Ну чего ты щёлкаешь как дятел" (сказочным, добрым голосом из ... хотя не скажу, опасно )

а винда лицензионная не более 10 % пользователй охватывает ИМХО

Где-то читал, что майкрософту даже выгодно, что у всех именно винда стоит, пусть пиратская, как бы реклама. А так лишь бы у компаний лицензионная стояла.

между делом, чтобы не создавать тему и т.д. Где взять инфу как правильно устанавливать компоненты?

[AllMaNi]

Неплохой будильник - тока размер для простенького будильника - великоват.

[-=C@$PeR=-]

Неплохой будильник - тока размер для простенького будильника - великоват.

Уже делаю опцию, чтобы было 2 разных размера будильника 533х400 и тот что вы все видели 800х600.

[-=C@$PeR=-]

Почти всё сделал, теперь в настройках можно менять, ну типа скин будильника на маленький, два дня сидел за этим делом, просто все компоненты раскидать по форме програмно надо, а это как минимум надо у каждого поменять Left, Top, Width, Height. Тестирую вылетает ошибка EAccessViolation.

Исключение генерируется при ошибочном доступе к памяти.



Модуль SysUtils

Описание:

Исключение класса EAccessViolation генерируется во время выполнения при возникновении следующих ситуаций:
Попытка разыменования нулевого указателя nil.
Попытка записи в кодовую страницу.
Попытка доступа к адресу вне памяти, распределенной приложению.
Исключение EAccessViolation автоматически генерируется при возникновении подобных ситуаций. Генерация его с помощью оператора raise не разрешается.

Все свойства и методы исключения EAccessViolation наследуются от базового класса Exception.

Вообще ничё не понял.


Я как понял это происходит при сохранении структуры содержащей множество настроек будильника в файл формата .dat с помощью TFileStream или чёто меди плэер тупит, много раз прогонял пошагово, то в одном месте затупит, то вдругом.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59

procedure SaveSettings; var Ini : TCustomIniFile;     reg : TRegistry;     FS : TFileStream; begin   SettingToRecord; //нужно чтобы все настройки загнать в переменные   Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Settings.cfg');     Ini.WriteString('Strings','Message',Setting.MessageAlarm);   Ini.WriteString('Strings','Musicway',Setting.MusicWayName);     Ini.WriteInteger('Colors', 'Message',Setting.ColorMsgFont);   Ini.WriteInteger('Colors','Time',Setting.LColorDigits);   Ini.WriteInteger('Colors','Date',Setting.LColorDate);   Ini.WriteInteger('Colors','LabelHM',Setting.LColorHourMin);   Ini.WriteInteger('Colors','ComboBoxFont',Setting.ColorCombBoxFont);   Ini.WriteInteger('Colors','ComboBoxBack',Setting.ColorCombBoxBack);     Ini.WriteBool('CheckSettings', 'AlarmClockReady',False);//чтобы будильник при   // следующем запуске был в не запущеном состоянии, если по среди работы программы   // вдруг сняли галочку в настройках, "сохранять время сигнала будильника"   Ini.WriteBool('CheckSettings', 'RepeatMusic', Setting.RepeatMusic);   Ini.WriteBool('CheckSettings', 'MonitorOff',Setting.CheckBoxMonitor);   Ini.WriteBool('CheckSettings', 'AutoRun', Setting.AutoRun);   Ini.WriteBool('CheckSettings','AutoRunParameters', Setting.AutoRunParameters);   Ini.WriteBool('FormStyle', 'AlwayOnTop', Setting.OnTop);     Ini.WriteInteger('Counters','CountRepeat', Setting.CountRepAlarm);   Ini.WriteInteger('Counters','CountRepeatMS', Setting.CountRepMilisecond);         if Setting.AutoRunParameters then   begin     Ini.WriteInteger('AlarmTime', 'Hours', HourAlarm);     Ini.WriteInteger('AlarmTime', 'Minutes', MinAlarm);     Ini.WriteBool('CheckSettings', 'AlarmClockReady',Form1.ACStarted);   end; //else - здесь можно поставить запись, что будильник не запущен, вместо той что сверху, будет тоже самое   Ini.Free;     FS := TFileStream.Create('Size.dat', fmOpenRead or fmCreate);   FS.Write(Setting, SizeOf(Setting));   FS.Free;     reg := TRegistry.Create;   reg.RootKey := HKEY_CURRENT_USER;   reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);   if Setting.AutoRun then //Если Автозагрузка выбрана то...   begin     reg.WriteString('AlarmClock',Application.ExeName);     reg.CloseKey;     reg.Free;   end else   begin     reg.DeleteValue('AlarmClock');     reg.CloseKey;     reg.Free;   end; end;

или вообще дело не в этом.

Всё разобрался, это всё косячил TFileStream, переписал, теперь сохраняю в ини и читаю от туда, перестало тупить

[НичегоНезнаю]

Сообщение от NIch

А про защиту напишу так...через PeID (или что то другое) вычисляешь каким алгоритмом сжата прога...

проведи программу через хороший exe compressor и никакой PeID не поможет.

//

а будильник это хорошо)

[Casper-Hacker]

Все мы когда то писали будильник 5+