Алгоритм расчета в пользовательской форме

Алгоритм расчета рассмотрим на следующем примере. Создать пользовательскую форму, содержащую поля для ввода Фамилия работника, Тариф, Отработанное время. Необходимо создать программу для того, чтобы после ввода тарифа и отработанного времени автоматически рассчитывалась заработная плата по формуле тариф*время и выводилась в форму в соответствующей рамке.

Создадим пользовательскую форму, см. рис.9.

Рис.9. Пользовательская форма для ввода данных о работнике фирмы

В созданной форме три поля для ввода: TextBox1, TextBox2, TextBox3 и пять надписей: Label1 – Фамилия работника, Label2 – Тариф, Label3 – Отработанное время, Label4 – Зарплата и Label5. Содержимое (Caption) пятой надписи пока пусто.

Словесное описание алгоритма расчета зарплаты.

Если в поля ввода TextBox2 и TextBox3 введены числа, то присвоим переменной T содержимое поля ввода TextBox2, переменной V содержимое поля ввода TextBox3. Cодержимым надписи Label5 сделаем произведение переменных T и V.

Программное описание алгоритма

Rem проверяем, если в поля ввода TextBox2 и TextBox3 введены числа, то, переменной V содержимое поля ввода TextBox3.

If IsNumeric(TextBox2.Text) And IsNumeric(TextBox3.Text) Then

‘присвоим переменной T содержимое поля ввода TextBox2.

T = TextBox2.Text

‘присвоим переменной V содержимое поля ввода TextBox3

V = TextBox3.Text

‘содержимым надписи Label5 сделаем произведение переменных ‘T и V

Label5.Caption = T * V

‘закрываем условный оператор

End If

Программа должна выполняться всякий раз при изменении содержимого полей TextBox2 и TextBox3, т.е. по событию «изменение поля». Для того, чтобы ввести текст программы, надо в редакторе Visual Basic, в форме UserForm1 щелкнуть правой кнопкой мыши по полю TextBox2, выбрать команду View Code, появятся заголовок программы: Private Sub TextBox2_Change(), а также ее окончание End Sub. Программа набирается между заголовком и окончанием. После набора программы, надо ее скопировать в буфер обмена, перейти к форме UserForm1, щелкнуть правой кнопкой мыши по полю TextBox3, выбрать команду View Code, и после заголовка Private Sub TextBox3_Change() вставить из буфера обмена.