Написание программного кода.

Окно написания программного кода открывается по двойному щелчку мышью на том элементе, для которого происходит запись программного кода. В данном случае этими элементами являются четыре командные кнопки.

 

2.2.1 Командная кнопка «Минимальный ежемесячный платеж»(Command1)

При двойном щелчке по кнопке «Минимальный ежемесячный платеж» (Command1) открывается окно редактора кода (рис. 3.2.9), в котором уже написано следующее:

Command1_Click()

Private Sub

End Sub

Рис. 3.2.9

Первое выражение задает действие, выполняемое с элементом. В данном случае это действие “Click” — щелчок по кнопке.

Между выражениями Private Sub и End Sub заключается программный код, а сами эти выражения обозначают его начало и окончание.

Программный код для кнопки «Минимальный ежемесячный платеж» имеет следующий вид:

 

Text4.Text = (Text1.Text + (Text1.Text * Text2.Text * Text3.Text / 100)) / (12 * Text2.Text)

 

Это та же самая формула, которая использовалась в программе MS Excel, только на месте адреса ячейки стоит выражение Text1.Text (или соответствующие). Это выражение означает «Текст из текстового окна Text1». После ввода текста (цифр) в соответствующие текстовые окна и нажатия кнопки «Минимальный ежемесячный платеж» программа выдаст в окне Text4 результат расчета.

2.2.2 Командная кнопка «Потери на процентах банка»

Редактор кода открывается так же, как и в случае с кнопкой «Минимальный ежемесячный платеж». Командный код для кнопки «Потери на процентах банка» выглядит следующим образом:

 

Text5.Text = (Text1.Text * Text3.Text / 100) * Text2.Text

 

Этот код соответствует формуле для расчета потерь на процентах банка, использованной в MS Excel. Результат расчета выводится в текстовое окно Text5.

 

2.2.3 Командная кнопка «Сброс»

Эта кнопка предназначена для очищения текстовых окошек, в которые вводилась и в которых выводилась информация. Это необходимо для начала нового расчета. В противном случае каждый раз, когда нужно произвести новые вычисления, программу нужно было бы закрывать и открывать заново.

Командный код выглядит следующим образом:

 

Text1.Text = Clear

Text2.Text = Clear

Text3.Text = Clear

Text4.Text = Clear

Text5.Text = Clear

 

Команда Clear (в переводе с англ. «чистый») как раз и означает «Очистить».

 

2.2.4 Командная кнопка «Выход»

Эта кнопка завершает работу программу и закрывает её. Её командный код очень прост:

 

End

 

Целиком программный код имеет вид (рис.3.2.10):

 

Command1_Click()

Private Sub

 

Text4.Text = (Text1.Text + (Text1.Text * Text2.Text * Text3.Text / 100)) / (12 * Text2.Text)

 

End Sub

_____________________________________________________________________________________

Command2_Click()

Private Sub

 

Text5.Text = (Text1.Text * Text3.Text / 100) * Text2.Text

 

End Sub

_____________________________________________________________________________________

Command3_Click()

Private Sub

 

Text1.Text = Clear

Text2.Text = Clear

Text3.Text = Clear

Text4.Text = Clear

Text5.Text = Clear

End Sub

______________________________________________________________________

Command4_Click()

Private Sub

 

End

 

End Sub

Рис. 3.2.10