[buka-san]

Омномном, все, я буду флудить на тему программирования! xD Щет, кажется мне понравятся пары алгоритмизации и программирования *О*

Такое чудо - соорудить часики xDD Надеюсь, студентам понравится *О* Тем более, не сложно-то, особенно под чутким руководством *))

Сначала создать форму - впихнуть туда "таймер", добавить три лейбла (метка, она же графический объект - в данном контексте - формочка под цифры), указать нужные значения и свойства для форм и таймера (чтобы рассчитывал секунды правильно). И самое важное, но не сложное, КОД!!

В дирекции формы объявить эти формы, указать название формы (название окна, где будут отображаться часы), присвоить каждому лейблу нужное ему значение, тем более что просто вписать стандартные функции и все - Secon(Time), Minute(Time), Hour(Time), каждая из которых будет отображать нужное. Ну и еще указать свойство таймера - работать ему или нет (Истина и Ложь). В дирекции таймера всего-лишь написать одну строчку, чтобы он через указанные в свойствах промежутки прибавлял к предыдущему значению единицу - то есть чтобы секунды не стояли на месте, а считались.

Например: Значение А = Значение А + 1, где Значение А каждый раз увеличивается на единицу.

А дальше, самое интересное *О* Чтобы все работало правильно, всего-то нужно указать... Ммм.. что допустим Если секунд становится больше 59 счастчик обнулялся и при этом в форме для минут число увеличивалось на единицу. Точно так же с минутами - если число в форме больше 59, то форма обнуляется, начинает отсчет заново и число в форме часов тоже увеличивается на единицу. А если число в форме часов больше 23, то форма просто обнуляется и начинает новый отсчет. Уняня **

Выглядит примерно так, только на инглише:

Если Значение А > 59 Тогда
Значение А = 0
Значение Б = Значение Б + 1
Конец Если

Боже, как же оно все логично-то и восхитительно!! Аыыы!!

А, и еще, для того, чтобы в формах, когда единичные цифры - 1,2,3.. - были записаны как десятки - 01,02,03... создается новая процедура, в которой делается описание для каждого элемента формы, в данном случае - трех лейблов, в которых подсчитывается количество символов в строке, и если их число меньше 2, то автоматически дописывается 0.

Выглядит так:

Если Строка(Значение А) < 2 Тогда Значение А = "0" и Значение А
Конец если

Все, я свихнулся xDD