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

ВВОД И ВЫВОД ИНФОРМАЦИИ

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

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

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

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

Задание 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% 'Коэффициент эффективности

Дата добавления: 2014-12-27