Основное меню
Главная
Написать мне
Гостевая
Новости сайта

Статьи
О Языках программирования
Delphi
Visual Basic
JavaScript
VBScript

Мои программы
CLOCK
CD-organaizer
VBS. Калькулятор

VBS. Калькулятор


 Как и во всех разделах, для ознакомление языка я описываю калькулятор. Вот и здесь, на ВБС, я тоже попытаюся это сделать.
 Что нам нужно для калькулятора? Ну 3 текстовых поля(в два бум вводить числа, а в третем будет резулт), 1 список (для выбора операции, там +, - и т.д), скрипт, который будет считать, светлая голова и прямые руки :-))

 Готов? Ну тады надо сделать форму, посмотри как у меня получилось:

<form name="calc_form">
<input type="text" size="10" name="pole_1"><br>
<select name="znaki" size="1">
<option> +
<option> -
<option> *
<option> /
<option> ^
</select><br>
<input type="text" size="10" name="pole_2">
<br>
=
<br>
<input type="text" size="20" name="result">
<br><br>
<input type="button" name="calculate" OnClick="calculator" value="Посчитать">
<input type="reset" name="clear" value="Очичтить">
</form>


Ну надеюсь обьеснять тут ничего не надо... Мы создали форму с именем "calc_form", поля с именами "pole_1", "pole_2" и "result", список с именем "znaki" и 2 пимпы посчитать и очистить.
Ну а теперь скриптик, который и будет всё считать:

<script language="VBS">
Sub calculator
znak = Document.calc_form.znaki.Options _
(Document.calc_form.znaki.selectedIndex).Text
e1 = Document.Calc_form.pole_1.value
e1 = CInt(e1)
e2 = Document.Calc_form.pole_2.value
e2 = CInt(e2)
Select Case znak
Case "+"
res = e1 + e2
Case "-"
res = e1 - e2
Case "*"
res = e1 * e2
Case "/"
res = e1 / e2
Case "^"
res = e1 ^ e2
End Select
Document.calc_form.result.value=res
End Sub
</script>

Ну чего, разобрался? У нас только у кнопки "посчитать" стоит OnClick="calculator", а можно ещё у полей в OnChange... Считай это "домашним заданием".

Вот наш калькулятор:




=




Rambler's Top100
Сайт создан в системе uCoz