На главную

Библиотека Интернет Индустрии I2R.ru

Rambler's Top100

Малобюджетные сайты...

Продвижение веб-сайта...

Контент и авторское право...

Забобрить эту страницу! Забобрить! Блог Библиотека Сайтостроительства на toodoo
  Поиск:   
Рассылки для занятых...»
I2R » И2Р Программы » Программирование » VBasic, VBS

Создаем простенький калькулятор

Описание:
При создании этого проекта вы сможете узнать об элементах TextBox (текстовое окно) и CommandButton (командная кнопка).

Создание калькулятора:
Запустите новый проект и откройте форму. В панели Properties нажмите на BorderStyle. Щелкните на кнопку со стрелкой, которая расположена справа и выберите "1 - Fixed Single". Это свойство не дает пользователю возможность менять размеры формы. Выберите свойство Caption и введите вместо "Form1", "CALCULATOR".

Выберите TextBox в панели инструментов и поместите текстовое окно на форму (как показано на рисунке 1). Всего необходимо три текстовых окна, добавьте еще два и расположите их как показано на рисунке. Нажмите на первое текстовое окно и в панели Properties найдите Text, справа от этого свойства сотрите надпись "Text1". Так же сделайте со вторым текстовым окном. Для третьего вместо "Text3" введите "Результат".

Выберите CommandButton в панели инструментов и поместите кнопку на форму в левый верхний угол (на рисунке 1 это кнопка с надписью "x"). Нажмите на только что помещенную кнопку и в свойстве Name введите "cmdExit". В свойстве Caption введите "x". Затем дважды щелкните на эту кнопку. Перед вами откроется окно для ввода программного кода. Введите слово "End" (без кавычек) между строками "Private Sub cmdExit_Click()" и "End Sub". Закройте окно программного кода.

Функция End предназначена для завершения работы программы. Теперь, если вы запустите ваш калькулятор и нажмете на кнопку "x", программа закроется.

Поместите на форму еще четыре кнопки и введите в их свойство Caption, "+" "-" "*" "/".

Затем дважды щелкните на кнопку с надписью "+". Откроется окно программного кода. Введите "Text3.Text = Str(Val(Text1.Text) + Val(Text2.Text))" (без кавычек). Закройте окно программного кода.

Теперь дважды щелкните на кнопку с надписью "-". Введите "Text3.Text = Str(Val(Text1.Text) - Val(Text2.Text))" (без кавычек). Закройте окно программного кода.

Дважды щелкните на кнопку с надписью "*".. Введите "Text3.Text = Str(Val(Text1.Text) * Val(Text2.Text))" (без кавычек) и закройте окно программного кода.

Затем дважды щелкните на кнопку с надписью "/". Откроется окно программного кода. Введите "Text3.Text = Str(Val(Text1.Text) / Val(Text2.Text))" (без кавычек). Закройте окно программного кода.

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

Леушев Юрий
НОКСТР

Другие разделы
C, C++
Java
PHP
VBasic, VBS
Delphi и Pascal
Новое в разделе
Базы данных
Общие вопросы
Теория программирования и алгоритмы
JavaScript и DHTML
Perl
Python
Active Server Pages
Программирование под Windows
I2R-Журналы
I2R Business
I2R Web Creation
I2R Computer
рассылки библиотеки +
И2Р Программы
Всё о Windows
Программирование
Софт
Мир Linux
Галерея Попова
Каталог I2R
Партнеры
Amicus Studio
NunDesign
Горящие путевки, идеи путешествийMegaTIS.Ru

2000-2008 г.   
Все авторские права соблюдены.
Rambler's Top100