Меню сайта
Форма входа

Категории раздела
Уроки по созданию игр [38]
Программирование игр разной сложности
Игровые алгоритмы [24]
Алгоритмы, которые уже реализованы для разных жанров игр
Графика [5]
Учимся работать с графикой в Делфи
Мультимедиа [3]
Работа с мультимедийными возможностями Делфи
Другие статьи [18]
Статьи не вошедшие не в один из разделов
Ошибки [4]
Всевозможные ошибки и пути их решения
Четверг, 09.01.2025, 07:14
Приветствую Вас Гость

Статьи по программированию

Главная » Статьи » Игровые алгоритмы
Измнение даты и времени по таймеру
День недели - label66
Число - label49
Месяц - label50
год - label51
Часы - label53
Минуты - label54





//data and vremya
if strtoint(label54.Caption)=60 then
  begin
  label54.Caption:='0';
  label53.Caption:=inttostr(strtoint(label53.Caption)+1);
  if (strtoint(label53.Caption)>23) or (strtoint(label53.Caption)=0) then
      begin
      label53.Caption:='0';


      if (strtoint(label50.Caption)=1)  and (strtoint(label49.Caption)<31) then
      begin
      label49.Caption:=inttostr(strtoint(label49.Caption)+1);
      end;

      if (strtoint(label50.Caption)=3) and (strtoint(label49.Caption)<31) then
      begin
      label49.Caption:=inttostr(strtoint(label49.Caption)+1);
      end;

      if (strtoint(label50.Caption)=5) and (strtoint(label49.Caption)<31) then
      begin
      label49.Caption:=inttostr(strtoint(label49.Caption)+1);
      end;

      if (strtoint(label50.Caption)=9) and (strtoint(label49.Caption)<30) then
      begin
      label49.Caption:=inttostr(strtoint(label49.Caption)+1);
      end;

      if (strtoint(label50.Caption)=7) and (strtoint(label49.Caption)<31) then
      begin
      label49.Caption:=inttostr(strtoint(label49.Caption)+1);
      end;

      if (strtoint(label50.Caption)=11)  and (strtoint(label49.Caption)<31) then
      begin
      label49.Caption:=inttostr(strtoint(label49.Caption)+1);
      end;

      if (strtoint(label50.Caption)=12)  and (strtoint(label49.Caption)<31) then
      begin
      label49.Caption:=inttostr(strtoint(label49.Caption)+1);
      end;

      if (strtoint(label50.Caption)=1) or (strtoint(label50.Caption)=3) or (strtoint(label50.Caption)=5) or (strtoint(label50.Caption)=7) or (strtoint(label50.Caption)=8) or (strtoint(label50.Caption)=11) or (strtoint(label50.Caption)=12) and (strtoint(label49.Caption)=31) then
      begin
      label49.Caption:='1';
      label50.Caption:=inttostr(strtoint(label50.Caption)+1);
      if strtoint(label50.Caption)>12 then
        begin
        label50.Caption:='1';
        label51.Caption:=inttostr(strtoint(label51.Caption)+1);
        end;
       end;

      if (strtoint(label50.Caption)=4) and (strtoint(label49.Caption)=30) then
      begin
      label49.Caption:='1';
      label50.Caption:=inttostr(strtoint(label50.Caption)+1);
      end;

      if (strtoint(label50.Caption)=6) and (strtoint(label49.Caption)=30) then
      begin
      label49.Caption:='1';
      label50.Caption:=inttostr(strtoint(label50.Caption)+1);
      end;

      if (strtoint(label50.Caption)=10) and (strtoint(label49.Caption)=30) then
      begin
      label49.Caption:='1';
      label50.Caption:=inttostr(strtoint(label50.Caption)+1);
      end;

      if (strtoint(label50.Caption)=9) and (strtoint(label49.Caption)=30) then
      begin
      label49.Caption:='1';
      label50.Caption:=inttostr(strtoint(label50.Caption)+1);
      end;


      if (strtoint(label50.Caption)=4) and (strtoint(label49.Caption)<30) then
      begin
      label49.Caption:=inttostr(strtoint(label49.Caption)+1);
      end;

      if (strtoint(label50.Caption)=6) and (strtoint(label49.Caption)<30) then
      begin
      label49.Caption:=inttostr(strtoint(label49.Caption)+1);
      end;

      if (strtoint(label50.Caption)=8) and (strtoint(label49.Caption)<31) then
      begin
      label49.Caption:=inttostr(strtoint(label49.Caption)+1);
      end;

      if (strtoint(label50.Caption)=10) and (strtoint(label49.Caption)<30) then
      begin
      label49.Caption:=inttostr(strtoint(label49.Caption)+1);
      end;

      if (strtoint(label50.Caption)=12) and (strtoint(label49.Caption)<30) then
      begin
      label49.Caption:=inttostr(strtoint(label49.Caption)+1);
      end;

      if (strtoint(label50.Caption)=2) and (strtoint(label49.Caption)<28) then
      label49.Caption:=inttostr(strtoint(label49.Caption)+1);

      if (strtoint(label50.Caption)=2) and (strtoint(label49.Caption)=28) then
      begin
      label49.Caption:='1';
      label50.Caption:=inttostr(strtoint(label50.Caption)+1);
      end;

      //dni nedeli
      y:=0;
      repeat
      if label66.Caption='Na' then begin label66.Caption:='An'; y:=1; end;
      if label66.Caption='Io' then  begin label66.Caption:='Na'; y:=1; end;
      if label66.Caption='?o' then  begin label66.Caption:='Io'; y:=1; end;
      if label66.Caption='N?' then  begin label66.Caption:='?o'; y:=1; end;

      if label66.Caption='Ao' then  begin label66.Caption:='N?'; y:=1; end;
      if label66.Caption='Ii' then  begin label66.Caption:='Ao'; y:=1; end;
      if label66.Caption='An' then  begin label66.Caption:='Ii'; y:=1; end;
      until (y=1);




end;
end;
label54.Caption:=inttostr(strtoint(label54.Caption)+1);

end;

Категория: Игровые алгоритмы | Добавил: Armageddets (05.07.2012)
Просмотров: 1054 | Рейтинг: 1.0/1
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Наш опрос
Оцените мой сайт
Результаты | Архив опросов
Всего ответов: 103
Мини-чат
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz
    • Статистика
    Онлайн всего: 4
    Гостей: 4
    Пользователей: 0