Пишем / Разбираем на примере «Калькулятор»

Пишем / Разбираем на примере «Калькулятор»

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

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

Продвинуть тему
  1. Бэкап
    Добрый день форумчани. Если вы посетили эту тему вы хотите обучится писать на VBScript, в этом я вам и помогу. Сейчас мы будем писать и разбирать калькулятор.
    Для начала сделаем ввод знака действия с помощью InputBox


    Код:
    d=InputBox ("Введите знак действия" &vbcrlf& "+ Сложение" &vbcrlf& "- Вычитание" &vbcrlf& "* Умножение" &vbcrlf& "/ Деление" &vbcrlf& "^ поднесение в степень (Shift+6)" &vbcrlf& "sqrt Корень")
    Посмотреть вложение 57


    Готово, теперь сделаем условие и сделаем заметку для пользователя

    Код:
    if d="Sqrt" then MsgBox "Корень выcчитывается с первого числа"


    Сейчас заскочим немого на перёд и сделаем переход на под программу (Sub) при вводе ^ либо sqrt.

    Код:
    if d="^" then Call po()
    if d="sqrt" then Call op()


    Если мы ввели "^" мы переходим на Sub po()

    Код:
    Sub po() ' Создание подпрограммы с именем "po"
    g=InputBox ("Введите число")
    h=InputBox ("Введите степень")
    t=g^h ' Обсчитываем результат
    MsgBox t ' Вывод результата
    Wscript.quit ' Выход с программы
    End Sub ' Закрытие подпрограммы 
    Я оставил комментарии в коде, можете разобрать. Кстате комментарии в VBScript пишутся после дво-слеша "//" и никакого влияния на работу программы не имеют. Продолжаем. Если мы ввели "sqrt" мы переходим на Sub op()


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