Решение.

Начинаем с разработки пользовательского интерфейса (внешний вид формы). Установим на форму три текстовых поля Text1, Text2, Text3 и две кнопки Command1, Command2. На форме можно перетаскивать и изменять размеры элементов управления с помощью мыши. Интерфейс программы имеет вид.

Теперь для кнопки Command1 зададим заголовок «Сумма». Для этого выделим щелчком мыши кнопку Command1 и на панели свойств в левой колонке выделим свойство Caption (Заголовок). В правой колонке вместо Command1 запишем «Сумма».

Выделим кнопку Command2 и зададим заголовок «Очистка» через панель свойств. Эта кнопка будет программно очищать текстовые поля.

Выделим текстовое поле Text1 и на панели свойств найдем свойство Text и в правой колонке удалим текст. Мы увидим, что текстовое поле очистилось. Аналогично удаляем текст с других текстовых полей.

Теперь установим заголовок на форме. Для этого выделим форму, чтобы на панели свойств отразились свойства формы, и найдем свойство Caption. В правой части панели свойств вместо слова Form1 запишем «Программа суммирования чисел». В строке заголовка формы увидим этот текст.

Интерфейс программы готов и выглядит следующим образом.

Напишем программу для кнопки «Сумма». Для этого щелкнем дважды по кнопке «Сумма». Откроется окно программного кода. Причем курсор будет установлен в процедуре, обработки события Click(щелчок мыши) для кнопки Command1. Запишем следующий программный код.

Private Sub Command1_Click()

X1 = val(Text1.Text)

X2 = val(Text2.Text)

SUM = X1 + X2

Text3.Text = SUM

End Sub

В программе использована функция Val(), которая переводит строковую переменную в числовую.

Напишем программу для кнопки «Очистка». Для этого на форме щелкнем дважды по кнопке «Очистка». Откроется окно программного кода. Причем курсор будет установлен в процедуре, обработки события Click(щелчок мыши) для кнопки Command2. Запишем следующий программный код.

Private Sub Command2_Click()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

End Sub

Кнопка очистка удаляет текст с текстовых полей.

Запустите программу (кнопка Start на панели ToolBar), введите два числа в текстовые поля Text1 и Text2. Щелкните на кнопку “Сумма”. В текстовом поле Text3 появится результат суммирования двух чисел, введенных в текстовые поля Text1 и Text2. Щелчок по кнопке «Очистка» очистит текстовые поля.

Пример 2. Решить уравнение Y = 12*Х – 5*X^3. Число Х вводится с клавиатуры.

Решение.

Внешний вид формы. На форме установлены два элемента Label1, Label2, два текстовых поля Text1, Text2 и кнопка Command1.

Текст программы.

Private Sub Command1_Click()

Dim x, y As Integer

x = Val(Text1.Text)

y = 120 * x + -5 * x ^ 3

Text2.Text = Str(y)

End Sub

Пример 3. Программа закрашивания геометрической фигуры.

Решение.

Установить на форму элементы Command1 и Shape1. Чтобы элемент Shape1 закрашивался необходимо предварительно установить свойство BackStyle =1. Написать для процедуры кнопки следующий программный код

Private Sub Command1_Click()

Dim x As Long

x = vbRed

Shape1.BackColor = x

End Sub

После запуска программы и щелчка мышью на кнопку элемент Shape1 закрасится в красный цвет. Обратите внимание, переменная Х объявлена как длинное целое. Это связано с тем, что константы для задания цвета могут быть больше чем Integer. Например, VbGreen=65280, VbBlue=16711680

Дата добавления: 2015-08-27