Лабораторная  работа

Основы  программирования в  среде Visual Basic

Создайте  программу для расчета конечной величины вклада S_n, если известны начальная величина вклада S_0, рублей, срок хранения n  лет и величина годовой процентной ставки p%.

Расчетная формула по схеме простых процентов S_n=S₀(1+np)

Расчетная формула  по схеме сложных процентов S_n=S₀(1+p)ⁿ

Рис. 1. Образец окна приложения

Ход работы

1. Загрузите Visual Basic:

Пуск® Программы ®Visual Basic ® Visual Basic 6.0®New Project®Standard.exe

2. В центре экрана появится новая форма. Измените свойства формы следующим образом:

Name frmSum

Caption Конечная величина вклада

StartUpPosition 2-CenterScreen

3. Сохраните  данную форму и проект на  диске А: под именем PROG1.frm, PROG1.vbp соответственно.

4. Добавьте на форму необходимые надписи, текстовые поля, командные кнопки произвольного размера и положения (см. рис.1). Измените для них значения свойств Name, Caption, Alignment, Font, ToolTipText. Титульную надпись заключить в рамку: свойство BorderStyle ® 1- Fixed Single. Очистите свойство Text для всех текстовых полей.
5. Запустите приложение ( клавиша F5) проверьте появление и правильность текста всплывающих подсказок. Завершите программу (кнопка r в заголовке формы).
6. Добавьте программный код для кнопки Выход (cmdExit): щелчок на ней завершает программу и для кнопки Вычислить (cmdCompute): щелчок на ней осуществляет вычисления по расчетной формуле и отображает результат в текстовом поле txtRezultat.

 

    Private Sub cmdCompute_Click()

             'вычисление конечной  суммы вклада

             ' sngStavka годовая процентная ставка

             ' itnPeriod продолжительность инвестиций

             ' curNachSum начальный взнос

             ' sngRezultat конечная величина вклада

             ` определим переменные 

         Dim sngStavka As Single, sngRezultat As Single

         Dim itnPeriod As Integer, curNachSum As Currency

             ` определим значения  переменных

         sngStavka = txtStavka.Text / 100

         itnPeriod = txtPeriod.Text

         curNachSum = txtSum.Text

             'вычислим общий  объем инвестиций через N лет

         sngRezultat = curNachSum * (1 + itnPeriod*sngStavka)

         txtRezultat.Text = Format( sngRezultat, "#####,##р.")

    End Sub

 

7. Запустите приложение (клавиша F5) проверьте правильность работы командных кнопок. Завершите программу (кнопка r в заголовке формы) и повторно сохраните форму и проект.
8. Создайте модуль, содержащий функцию обработки ошибок ввода данных:

Project® Add Modul ®New Modul ® Открыть.

Дважды щелкните на пиктограмме модуля и введите  программный код функции проверки ошибок

Public Function ErrorCheck() As Integer

' проверка ошибок

If Val(frmSum.txtStavka.Text) <= 0 Then

intPress = MsgBox("Введите  величину процентной ставки", vbCritical)

frmSum.txtStavka.SetFocus

ErrorCheck = 1

Exit Function

End If

If Val(frmSum.txtPeriod.Text) <= 0 Then

intPress = MsgBox("Введите  срок хранения инвестиций", vbCritical)

frmSum.txtPeriod.SetFocus

ErrorCheck = 1

Exit Function

End If

If Val(frmSum.txtSum.Text) <= 0 Then

intPress = MsgBox("Введите  начальную сумму вклада", vbCritical)

frmSum.txtSum.SetFocus

ErrorCheck = 1

Exit Function

End If

' ошибок не обнаружено

ErrorCheck = 0

9. Отобразите  окно формы и вызовите окно  кода.

В процедуре  обработки события cmdCompute_Click перед командами, определяющими значения переменных, запишите блок операторов для обращения к функции обработки ошибок

         ' проверка ошибок

         If ErrorCheck() = 1 Then

           Exit Sub

         End If

9. Запустите приложение (клавиша F5). Проверьте работу обработчика событий. Завершите программу (кнопка r в заголовке формы) и повторно сохраните форму и проект.
10. На диске А: создайте выполняемый файл для данного проекта с именем Процент.ехе:

File ® Make