Калькулятор на VBScript

Windows Script HostВ прошлых статьях мы рассматривали применение программируемых калькуляторов и их эмуляторов.  Рассмотрим теперь, как же обойтись без них.
Мало кто из новичков знает, что в операционную систему Windows уже строена поддержка языков программирования JScript  и Visual Basic Scripting Edition или попросту говоря  VBScript. Остановимся на последнем поподробнее.
Данный язык программирования является интерпретируемым, то есть исходный код не компилируется в исполняемый файл,  а проходит через компонент операционной системы Windows Script Host.
Применяется VBScript  для повседневных  задач автоматизации процессов системного администрирования, создания динамических Web-страниц на серверах и написания клиентских интерфейсов пользователей Web приложений для браузера Internet Explorer.

Рассмотрим пример написания простейшей программы на VBScript, рассчитывающей площадь круга.

Для расчетов нам понадобится значение числа пи, к сожалению в VBS нет данной функции и нам придется создать ее самостоятельно, для расчета вспомним из школьного курса, что пи равно арктангенсу 1 радиана, умноженному на 4-е.
Итак, вот функция для расчета числа пи:
Dim pi
pi = 4 * Atn(1)
' Вычисляет значение числа Пи.
Первая строка объявляет переменную pi, вторая собственно рассчитывает ее значение.
Далее нам следует получить от пользователя значение диаметра круга:
Dim diam
diam = inputbox("Введите диаметр круга")
'Ввод диаметра
Здесь первая строка объявляет переменную diam, а вторая выводит форму для ввода числа.
Теперь нам осталось только рассчитать значение площади и вывести результат на экран:
Dim pl
pl = diam*diam*pi/4
'Расчет площади круга
MsgBox pl, vbInformation, "Площадь круга" 'Выводит сообщение с площадью
Первая строка объявляет переменную pl, она у нас будет площадью круга, вторая строка проводит сам расчет, а третья выводит окно с рассчитанным значением.
Вот весь алгоритм:

Dim pi
pi = 4 * Atn(1)   ' Вычисляет значение числа Пи.
Dim diam
diam = inputbox("Введите диаметр круга") 'Ввод диаметра
Dim pl
pl = diam*diam*pi/4 'Расчет площади круга
MsgBox pl, vbInformation, "Площадь круга" 'Выводит сообщение с площадью

Откроем блокнот, скопируем данный текст туда и сохраним файл с расширением VBS, все, скрипт готов, выполнив двойной клик по нему, вы запустите его на выполнение.

Диалоговое окно ввода значения на VBScript

Окно вывода значения MsgBox VBScript

Удачи!

 

Добавить комментарий


Защитный код
Обновить

Полезные ссылки