[Gareth]

Написал будильник на делфи.
Опишу саму прогу:
на форму выведено системное время, 3 комбобокса (часы, минуты и секунды). Еще есть edit, в него попадают цифры из комбобоксов (часы:минуты:секунды). И уже с edit`a сравниваем время с системным, если равно то будильник срабатывает...
Всё работает как мне надо, кроме одного! Хотелось бы добавить кнопки быстрого набора, то-есть не копаться в комбобоксах, что бы выставить 5 минут, а сразу нажать на кнопку, которая указала бы в комбобоксе эти самые 5 минут.

Пробовал вот так:

Код:

1 2 3 4 5 6 7 8 9

var  dt: TDateTime;   Hours, Minutes, Seconds, Milliseconds: Word; begin dt := GetTime;   DecodeTime(dt, Hours, Minutes, Seconds, Milliseconds); cbb1.Text:=IntToStr(Hours); // выводит в первый комбобокс часы cbb2.Text:=IntToStr(Minutes+5); // выводит минуты и прибавляет 5 минут end;

Первое время думал что всё сделал правильно, но потом понял что нет. Если время будет к примеру 22:59, этот код нам приплюсует еще 5 минут, это будет 22:64, но как мы все знаем, минут в часах всего 60
Каким образом можно сделать подобные кнопки быстрого набора ? Не обязательно что бы это происходило через комбобоксы!
Посоветуйте что-нибудь. Спасибо.

похвастаться

[PhoeniX]

Во-первых, SpinEdit. Во-вторых, if...then. То-есть, если сумма текущих минут и того, что добавляем, больше 59, то вычесть 60. Аналогично с часами (только уже по модулю 24).

[Gareth]

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

Во-первых, SpinEdit. Во-вторых, if...then. То-есть, если сумма текущих минут и того, что добавляем, больше 59, то вычесть 60. Аналогично с часами (только уже по модулю 24).

По подробнее можно? Я практически ничего не понял. Я новичок еще в этом. Писать за меня код не прошу, просто объясните подробно пожалуйста.

Код:

1 2	if cbb2.ItemIndex >60 then cbb2.ItemIndex:=(-60);

Так?

[PhoeniX]

Замени ComboBox на SpinEdit, и сразу станет проще.

[lmikle]

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

Замени ComboBox на SpinEdit, и сразу станет проще.

А еще есть модуль DateUtils, в котором есть куча полезный функций работы с датой и временем.
А еще есть такой компонент - TDateTimePicker, который позволяет вводить время...

[Alegun]

Оффтоп:

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

А еще есть модуль DateUtils, в котором есть куча полезный функций работы с датой и временем...

Да не, думаю ТСу это будет пока сложно, судя по предыдущим постам, да и похоже, ему надо чтоб раздельно вводились часы, минуты etc.

По теме. УК, кидай прям по совету Феникса, на "похвастаться" три SpinEdit`а (компонента живет на вкладке Samples) и прикрути к ним одно на всех событие OnChange

Код:

1 2 3 4 5 6 7 8

procedure TForm1.SpinEdit1Change(Sender: TObject); begin  with (Sender as TSpinEdit) do   begin    if Value = MinValue then Value:= MaxValue - 1;    if Value = MaxValue then Value:= MinValue + 1;   end;{with} end;

так будет проще, единственное что ещё надо, так это у всех задать MinValue = -1, а MaxValue у первого = 24, а у двух других равным 60.

[Gareth]

Сделал всё как сказали. Заменил combobox на spinEdit, в каждом spinedit прописал

Код:

1 2 3 4 5 6 7 8

procedure TForm1.SpinEdit1Change(Sender: TObject); begin  with (Sender as TSpinEdit) do   begin    if Value = MinValue then Value:= MaxValue - 1;    if Value = MaxValue then Value:= MinValue + 1;   end;{with} end;

В первом spinEdit сделал maxvalue 24, в остальных 60.

На кнопке быстрого набора написал тот же код что и в первый раз

Код:

1 2 3 4 5 6 7 8 9

var  dt: TDateTime;   Hours, Minutes, Seconds, Milliseconds: Word; begin dt := GetTime;   DecodeTime(dt, Hours, Minutes, Seconds, Milliseconds); se1.Text:=IntToStr(Hours); // выводит  часы se2.Text:=IntToStr(Minutes+55); // выводит минуты и прибавляет 5 минут if se2.Value and Minutes >60 then

Минуты прибовляются выше 60.
Пробовал на кнопке написать

Код:

1 2	if spinedit2.Value >60 then spinedit2.Value:=(-60);

Не получается! Что делаю не так? Может что-то забыл ?

[Alegun]

Кой-чего нужно добавить

Код:

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm1.tsl(ds: integer); var  hour, min, sec: integer; begin  min := ds div 60;  hour:= min div 60;  if min > 60 then min:= min mod 60;  sec := ds mod 60;  SpinEdit1.Value:=hour;  SpinEdit2.Value:=min;  SpinEdit3.Value:=sec; end;

Для всех кнопок-прибавлялок задать такой клик

Код:

1 2 3 4

procedure TForm1.Button1Click(Sender: TObject); begin tsl((SpinEdit1.Value * 3600) + ((SpinEdit2.Value+ (Sender as TButton).Tag) * 60) + SpinEdit3.Value); end;

и не забыть в Tag этих кнопок записать сколько надо прибавлять, напр. 15 мин Tag=15, 1 час Tag=60

[M.A.D.M.A.N.]

Сделай стрелочный циферблат, типа потянул за минутную стрелку - накручиваются минуты, за часовую - часы.

З.Ы. Скрины не вижу, картинки отключены.

[Gareth]

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

Кой-чего нужно добавить

Код:

Для всех кнопок-прибавлялок задать такой клик

Ругается на

Код:

1	procedure TForm1.tsl(ds: integer);

[Error] Unit1.pas(178): Undeclared identifier: 'tsl'
[Error] Unit1.pas(182): Undeclared identifier: 'ds'
[Error] Unit1.pas(186): Undeclared identifier: 'SpinEdit1'
[Error] Unit1.pas(187): Undeclared identifier: 'SpinEdit2'
[Error] Unit1.pas(188): Undeclared identifier: 'SpinEdit3'
[Error] Unit1.pas(205): Undeclared identifier: 'tsl'
[Error] Unit1.pas(205): ')' expected but identifier 'Value' found
[Error] Unit1.pas(205): Statement expected, but expression of type 'Integer' found
[Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas'

[Alegun]

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

Ругается на

Код:

...

Прописать её в секции type нужно.

[M.A.D.M.A.N.]

Ну так че на счет круглого циферблата? Совсем слабО?

[Alegun]

Сообщение от M.A.D.M.A.N.

Ну так че на счет круглого циферблата? Совсем слабО?

Прикалываешься ?

[M.A.D.M.A.N.]

Ну так скопипиздить ума большого не надо, а вот самому наколбасить?
Вроде ж все проще простого.

[Alegun]

Оффтоп:

Сообщение от M.A.D.M.A.N.

...а вот самому наколбасить?Вроде ж все проще простого.

Ключевое слово "вроде" :-)