Приветствую Вас Гость
Регистрация | Вход
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

  • Главная страница
  • Форум (Новoe на форуме)
  • Быстрый старт
  • Блог
  • Видео уроки
  • Каталог файлов
  • Статьи и уроки
  • Юзербары
  • FAQ
  • Обратная связь
  • Консоль [7]
    Работа с консолью
    Delphi и 39dll [1]

    Онлайн всего: 1
    Гостей: 1
    Пользователей: 0

    [ Кто нас сегодня посетил ]
    Главная » Статьи » Сервер на Delphi » Консоль

    Событие Степ(Step) в Delphi
    Мы привыкли к событию Step, но его в Delphi нет... Но его можно реализовать... Для этого нам нужен всего лишь таймер. Конечно если вам вообще нужен этот Step...

    Прописываем в uses windows;

    И переменные:
    Code

    var t1,t2: integer


    И вот наш таймер:
    Code

    while(true) do begin
    t1:=GetTickCount;
    if t1-t2>=1000 then begin
    writeln("AlarmA!");
    t2:=GetTickCount;
    end;
    end;


    Запускаем, увидим что через каждую секунду пишется строчка AlarmA!

    Code
    if t1-t2>=1000 then begin

    1000, это в миллисекундах, то есть одна секунда.

    Что бы сделать частоту, как в ГМ при скорости комнаты 30- нужно 1000 разделить на 30(room_speed)
    Но 30 для Делфи мало, так что дерзаем))
    Категория: Консоль | Добавил: zxc76 (07.06.2011)
    Просмотров: 1012 | Комментарии: 3 | Теги: Event, Step, делфи, таймер, Степ., событие, delphi | Рейтинг: 5.0/1
    Всего комментариев: 3
    3  
    Даа. В dark basic всё гарааздо проще.

    graphik mode 0,32,30//30 - room_speed
    do
    //это собственно стэп=)
    loop

    1  
    Хм, а я просто
    Code
    while(1){}

    использую 8)

    2  
    Вчера просто с "while(1){}" у меня фпс отпустился при 50 подключениях, и это толька локалхост))
    А когда поставил таймер, и в нём где-то 25 мсек: сер у doxl выдержал 410 (около) клиентов запущенных от меня. Больше не смогли, на серве фпс был низкий, и у меня в моих 3х окнах клиентов фпс был очень низкий, менее 2х /30
    Но это толька начало, буду дальше серв стряпать, а когда научусь всяким хитростям- напишу серв...

    Добавлять комментарии могут только зарегистрированные пользователи.
    [ Регистрация | Вход ]
    -->


    Логин:
    Пароль:

    Хостинг от uCoz