[Gareth]

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

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

Код:

 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).

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

Код:

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

Так?

[PhoeniX]

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

[lmikle]

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

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

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

[Alegun]

Оффтоп:

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

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

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

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

Код:

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 прописал

Код:

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.

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

Код:

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.
Пробовал на кнопке написать

Код:

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

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

[Alegun]

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

Код:

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;

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

Код:

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

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

Код:

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;

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

Ругается на

Код:

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

Ругается на

Код:

procedure TForm1.tsl(ds: integer);

...

Прописать её в секции 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.

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

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