Пишем простенький таймер

Пишем простенький таймер

Тема в разделе "Темы со старого форума", создана пользователем Бэкап, 31.07.2015.

Загрузка...
Ответов: 0 Просмотров: 453 Ответить в теме
Воспользуйтесь функцией автоматического продвижения темы для увеличения числа просмотров темы, продаж платного контента и узнаваемости Вашего бренда. Услуга продвижения действует на протяжении 3-х дней и стоит всего 50 STF Wallet.

Продвинуть тему
  1. Бэкап
    Ещё одна статейка. Напишем таймер ? -Да, капитан!! Приступаем!

    Делаем ввод кол-во секунд
    Код:
    a=InputBox ("Введите секунды")

    Проверяем на сколько человек в адеквате (ввёл ли он вообще что-то)
    Код:
    if a="" then MsgBox "Ты ничего не ввёл"

    И на зло такому человеку закрываем "программу"
    Код:
    If a="" then Wscript.quit

    Так как VBS считает милисекундами, нам нужно перевести введённое нами число. Тобишь умножить на 1000. К примеру мы ввели 5 секунд и нам их нужно умножить на 1000, получить 5000 мили.сек.
    Код:
    b=a*1000

    Ну и главная функция таймера - ждать определённое время. Делаем "sleep программы" на наши уже переведённые секунды.
    Код:
    Wscript.sleep b

    Остаётся вывести сообщение по истечению этого времени.
    Код:
    MsgBox a & " " & "секунд прошло"

    Минутка доп.инфы: Знак & - это объединение.
    Вот ещё код в полном виде
    Код:
    a=InputBox ("Введите секунды")
    If a="" then MsgBox "Ты ничего не ввёл"
    If a="" then Wscript.quit
    b=a*1000
    Wscript.sleep b
    MsgBox a & " " & "секунд прошло"

    Спасибо за внимание. Не забудь про лайк.
     
    31.07.2015 Сообщений: Симпатий:
В этой теме всего одна страница
Вам, как гостю, ограничены возможности взаимодействия с темами. Пройдите бесплатную регистрацию и откройте для себя море возможностей.