Задание 4. События флажков и переключателей

Рис. 31. Окно формы Элементы управления

Откройте проект Проект1.vbp рис. 31 ( VB Учебные \ Проекты \ 02 Элементы управления ).

Проанализируйте программный код.

Закройте Visual Basic без сохранения проекта.

Вопросы для самоконтроля:

1. Каковы особенности программирования в среде Windows?

2. Что такое управление программой по событиям?

3. Основные события мыши и клавиатуры.

4. Процедуры обработки событий.

5. Создайте приложение с использованием события клавиатуры.

6. Создайте приложение с использованием события мыши.

5. Ввод и вывод информации

Основным элементом для ввода данных является элемент управления TextBox (текстовое поле). Этот элемент уже использовался для ввода текстовой информации.

В сочетании со стандартным элементом Microsoft UpDown текстовое поле может быть использовано для ввода числовой информации.

Элемент управления TextBox может быть использован и при работе с файлами последовательного доступа (текстовыми файлами).

Лабораторное занятие № 6

Цель занятия: ознакомить студентов с основными приёмами ввода и вывода информации.

Задание 1. Создание приложений расчётного характера с использованием текстовых полей для ввода информации

В качестве предметной области используем задачу определения целесообразности инвестирования проекта на основе метода дисконтирования. Дисконтирование – это приведение экономических показателей разных лет к сопоставимому по времени виду. Дисконтная стоимость будущей прибыли в текущих ценах вычисляется по формуле:

D = P / (1 + N / 100) ^ t

Коэффициент эффективности:

k = D / S

где,

S - размер инвестиций;

P - будущая прибыль;

N - дисконтный коэффициент, включающий индекс изменения цен;

t - количество лет.

Создайте новый проект.

Разместите на форме две рамки Frame1 и Frame2. Первая рамка будет содержать исходные данные для расчёта, вторая – его результаты.

Разместите на форме объекты управления в соответствии с рис. 32

Присвойте свойствам объектов значения, приведённые в табл. 8.

Таблица 8

Объекты	Свойства	Значения
Form1	Caption	Анализ инвестиций
Label1	Caption	Модель оценки целесообразности инвестиций
Label2	Caption	Исходные данные
Label3	Caption	Размер инвестиций в д. ед.
Label4	Caption	Дисконтный коэффициент
Label5	Caption	Будущая прибыль
Label6	Caption	Количество лет
Label7	Caption	Результаты расчёта
Label8	Caption	Дисконтная стоимость прибыли
Label9	Caption	Коэффициент эффективности
Label10	Caption	Резюме
Command1	Caption	Расчёт
Command1	Caption	Сброс

.

Рис.31. Окно формы Анализ инвестиций

Для ввода исходных данных разместите на форме четыре текстовых поля Text1 – Text4 соответственно, для вывода результатов расчёта три текстовых поля Text5 – Text7. Создайте программный код.

‘Объявление глобальных переменных

Public Sub AllStr()

Dim S% 'Размер инвестиций

Dim P% 'Будущая прибыль

Dim N! 'Дисконтный коэффициент

Dim t% 'Количество лет

Dim D% 'Дисконтная прибыль

Dim k% 'Коэффициент эффективности

End Sub

Private Sub Command1_Click()

'Объявление констант

Const P1 As String = "Проект эффективен"

Const p2 As String = "Проект не эффективен"

'Проверка наличия введённой информации

If Text1 <> "" And Text2 <> "" _

And Text3 <> "" And Text4 <> "" Then

'Преобразование значений текстовых полей

'в десятичные числа

S = CDec(Text1)

N = CDec(Text2)

P = CDec(Text3)

t = CDec(Text4)

'Расчёт дисконтной прибыли

D = P / (1 + N / 100) ^ t

'Расчёт коэффициента эффективности

k = D / S

'Округление и преобразование числовых значений в символьные

Text5.Text = CStr(Round(D, 2))

Text6.Text = CStr(Round(k, 2))

'Проверка эффективности проекта

If k < 1 Then

Text7.Text = p2

Else

Text7.Text = P1

End If

End If

End Sub

' Сброс значений перменных

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

End Sub

Сохраните проект. Выполните компиляцию. Закройте Visual Basic. Проверьте работоспособность приложения.