|
|
Библиотека Интернет Индустрии I2R.ru |
||
Создаем простенький калькуляторПри создании этого проекта вы сможете узнать об элементах 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 или щелкните на кнопку со стрелкой повернутой вправо, которая расположена на панели инструментов. Если вы все сделали правильно программа запустится, но будет иметь ошибоки. Например, если вы введете вместо числа слово, произойдет ошибка. Постарайтесь исправить ее, а если не удастся, пишите мне, помогу... чем могу. Поэкспериментируйте с программой. Затем щелкните на кнопку с квадратиком, расположенную на панели инструментов. Все. |
|
 |
 |
2000-2008 г. Все авторские права соблюдены. |
|
 |
|
