Ну вот и настало время разобраться с датой и временем на языке МидлетПаскаль. Для чего это нужно? Ну хотя бы для того, чтоб твоя прога знала который сейчас час и какой год? Вдруг прохожий спросит, а ты ему свою прогу засветишь! :) А вообще дата и время очень часто нужны. Например, если ты читал предыдущие статьи, то ты умеешь работать с ресурсами и музыкой, теперь ты узнаешь работу с датой и временем. Вот уже основа для написания своего будильника. Очень часто в играх приходится работать с временем, определять промежутки между какими-то событиями и, отталкиваясь от этой разницы, прога реагирует. Ну хватит разговоров, давай кодить! Создовай новый проект, сразу вводи две переменные типа integer, три текстовые переменные (string), и один массив строковых переменных (array [1..7] of string Здесь массив из семи чисел, для определения дня недели.). Я их назвал так : числовые - Time, DayOfWeek, текстовые - DateText, TimeText, DayText и массив - week. Из этих имён можно понять, для чего они предназначены - для хранения даты, времени, текста и др. Теперь переходи в тело программы и присваивай переменной Time функцию GetCurrentTime. Эта функция возвращает текущее время в течение секунд с полуночи первого января 1970. Возвращанная величина ( время в секундах), может быть использована как аргумент для вызова других функций по определению месяца, дня, минут и прочего. Про эти функции мы поговорим ниже. Итак, мы получили текущее время, это, как оказалось, ключ ко всем другим значениям. Теперь давай определимся каким образом прога будет оповещать нас. Ну я не стал заморачиваться и просто выводил текст функцией DrawText. А текст будет такой : Дата - ...дальше идёт дата... Время - ...дальше идёт время... День недели - ...дальше идёт день недели... Тепрерь надо получить текущую дату, а делается это вот так:
Первой строкой мы присваиваем текстовой переменной DateText слово Дата - и добовляем текущий день месяца функцией GetDay(Time). В качестве единственного параметра мы указываем значение переменной Time, полученное ранее. Эта переменная содержит текущее время, и оттталкиваясь от него функция GetDay(Time) выдаёт нам номер дня в месяце, значение колеблется от 1 до 31 (как в нормальных месецах :) ). Следующими двумя строками добовляем к переменной DateText значение месяца и года функциями GetMonth(Time) и GetYear(Time) соответственно. Функции эти идентичны GetDay(Time), только значения возвращают другие. Ну а в качестве разделителя между днём, месецем и годом используем знак двоеточия ":" Теперь займёмся текущим временем :
Здесь всё тоже самое, только работа идёт с минутами, часами и секундами. Думаю, ты разберёшься здесь и без моих слов. Перейдём сразу к определению текущего дня недели:
Здесь каждому значению массива присваиваем определённое значение, у нас это название дней недели. Потом, строкой DayOfWeek:=GetWeekDay(Time); , получаем и записываем в числовую переменную номер дня недели. Только функция это европейская, так что и начинается отсчёт дней по европейски с воскресенья, т.е. значение 1 будет означать "воскресенье", а не "понедельник". Ну а дальше записываем в текстовую пременную наш текущий день недели. И в конце пиши вот это:
Ну здесь ты и сам всё знаешь : выводим наш текст, перерисовываемся и делаем задержку. Вот и наш сегодняшний пример готов. Исходники забирай здесь. Только я ещё должен хоть немного сказать про таймер, ведь он так нужен для игр. Вот эта функция - function GetRelativeTimeMs: integer; Возвращает она текущее время в течение миллисекунд. Каждые 48 дней, эта величина восстанавливается и начинает считаются с 0. Не используй эту функцию, чтобы определять текущую дату, а используй для осуществления таймеров в приложении. Давай рассмотрим эту функцию на примере игры Tetris. Каждую секунду игра должна перемещать блок вниз или, если пользователь нажал кнопочки, вправо и влево. Вот примерный алгоритм:
... SavedTime := GetRelativeTimeMs; //инициализация таймера repeat { отслежка клавиатуры } key := GetKeyClicked; if KeyToAction(key) = GA_LEFT then moveLeft;//если нажали влево, то двигаем влево if KeyToAction(key) = GA_RIGHT then moveRight;//если нажали вправо, то двигаем вправо
{ проверяем, не прошла ли секунда } if ((GetRelativeTimeMs - SavedTime) > 1000) or (GetRelativeTimeMs < SavedTime) { учитываем, что таймер сбросится через 48 дней } then begin SavedTime := GetRelativeTimeMs; moveDown; //если ничего не нажали, то двигаемся вниз end; until gameOver;//конец игре :) ...
Это очень простой алгоритм, показывающий основы использования таймера. Объяснять я его не буду, из коментариев и так всё понятно. Надеюсь материал тебе понравился. Остальное позже...