23823

Вирази та функції

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

Информатика, кибернетика и программирование

5 демонструє роботу даного додатка перебування значення річного приросту при відомих значеннях числа виплат24 суми кредиту 120000 і величини щомісячної виплати 6000 Вікно робочого додатка Кредит: Програмний код для цього додатка: Dim r As Single n As Integer v As Currency p As Currency Private Sub Command1_Click r = ValText1.Text n = ValText2.Text v = ValText3.Text r = r 1200 p = Pmtr n v Text4.

Украинкский

2013-08-04

50 KB

6 чел.

ЗВІТ

з лабораторної роботи № 3

" Вирази та функції"

виконав студент IІ курсу відділення МІ група 2  

Киричук Олег Романович 

Дата виконання "5" листопада 2008 р.

Виконання завдань:

1. На екранній формі 4 текстових поля і 3 командні кнопки. Текстові поля призначені для вводу чи виводу наступних величин:

  1.  річного банківського приросту вартості (у відсотках);
  2.  числа періодичних (наприклад, щомісячних) виплат;
  3.  суми отриманого в банку кредиту (приведеної вартості);
  4.  величини однієї виплати.

1-у, 3-у і 4-у величини цього списку можна знайти за допомогою представлених вище фінансових функцій, якщо інші величини цього списку відомі.

Для цієї мети і служать командні кнопки. Для кожної з них написана окрема процедура подія Клік кожної з цих кнопок після вводу трьох чисел у три текстові поля викликає появу четвертого числа в текстовому полі, що залишилося незаповненим.

Мал. 4.5 демонструє роботу даного додатка — перебування значення річного приросту при відомих значеннях числа виплат(24), суми кредиту (120000) і величини щомісячної виплати (6000)

Вікно робочого додатка «Кредит»:

Програмний код для цього додатка:

Dim r As Single, n As Integer, v As Currency, p As Currency

Private Sub Command1_Click()

r = Val(Text1.Text)

n = Val(Text2.Text)

v = Val(Text3.Text)

r = r / 1200

p = -Pmt(r, n, v)

Text4.Text = Str(p)

End Sub

Private Sub Command2_Click()

r = Val(Text1.Text)

n = Val(Text2.Text)

p = Val(Text4.Text)

r = r / 1200

p = -p

v = PV(r, n, p)

Text3.Text = Str(v)

End Sub

Private Sub Command3_Click()

n = Val(Text2.Text)

p = Val(Text4.Text)

v = Val(Text3.Text)

p = -p

r = Rate(n, p, v) * 1200

Text1.Text = Str(r)

End Sub

2. Створив форму, яка  містить п’ять об’єктів типу текстове поле. У текстове поле вводиться один рядок, що містить назву країни, столицю і кількість територіальних одиниць адміністративного поділу. Програма поміщує в окремих  текстових полях інформацію про назву країни, столицю і кількість територіальних одиниць адміністративного поділу.

Програмний код для цього додатка:

Private Sub Command1_Click()

Dim a, b, c As Integer

a = InStr(Text1.Text, " ")

Text2.Text = Left(Text1.Text, a)

b = InStr(a + 1, Text1.Text, " ")

c = b - a

Text3.Text = Mid(Text1.Text, a + 1, c)

Text4.Text = Mid(Text1.Text, b + 1)

End Sub


 

А также другие работы, которые могут Вас заинтересовать

10612. Модели, применяемые в управлении. Типы моделей. Масштаб времени динамических моделей 234.16 KB
  Модели применяемые в управлении. Типы моделей. Масштаб времени динамических моделей. Непрерывные модели динамических систем. Уравнения состояния. Нелинейные системы. Численное моделирование динамических систем. Проблема слишком большого шага. Дискретные модели динам
10613. Компоненты интерфейса между процессом и управляющим компьютером. Датчики. Исполнительные устройства. Бинарные и цифровые датчики 195.59 KB
  Компоненты интерфейса между процессом и управляющим компьютером. Датчики. Исполнительные устройства. Бинарные и цифровые датчики. Обработка сигналов. Дискретизация сигналов. Преобразование аналоговых и цифровых сигналов. Обработка измерительной информации. Аналог...
10614. Аналоговые (непрерывные) и дискретные регуляторы. Дискретная модель ПИД-регулятора 225.4 KB
  Аналоговые непрерывные и дискретные регуляторы. Дискретная модель ПИДрегулятора. Позиционный алгоритм. Определение частоты выборки в системах управления. Предотвращение интегрального насыщения. Регуляторы можно строить на основе как аналоговой так и цифровой те...
10615. Комбинационное и последовательностное управление. Управление на основе переключательных схем 73.32 KB
  Комбинационное и последовательностное управление. Управление на основе переключательных схем. Аппаратные и программные средства. Программируемые логические контроллеры. Эта глава посвящена бинарному комбинационному и последовательностному т. е. управление порядк...
10616. Шина VMEbus. Другие стандарты шин 61.46 KB
  Шина VMEbus. Другие стандарты шин Аббревиатура VME означает VERSA Module Eurocard. Соответственно VERSA это название более ранней версии шины разработанной компанией Моторола для процессора серии 68000 а платы Eurocard это стандарт формата плат раздел 8.2.2. Шина VMEbus была разработана г
10617. Программирование систем реального времени. Методы программирования: параллельное программирование, мультипрограммирование и многозадачность 123.5 KB
  Программирование систем реального времени. Методы программирования: параллельное программирование мультипрограммирование и многозадачность. Приоритеты процессов и производительность системы. Управление ресурсами. Обмен информацией между процессами. Последовате...
10618. Основные идеи софистов и учение Сократа 140 KB
  Основные идеи софистов и учение Сократа Жизнь Сократа и проблема источников. Открытие сущности человека (человек - это его душа). Парадоксы сократовской этики..
10619. Философия Платона. Учение о бытии и небытии 204.23 KB
  Философия Платона Введение В истории мировой культуры Платон великое явление. Он жил в древнегреческом обществе но как деятель философ учёный писатель принадлежит всему человечеству. Платон один из учителей философии. Учителем его делает не только то что в...
10620. Философия Аристотеля. Аристотелевский вопрос 114 KB
  Философия Аристотеля 1. Аристотелевский вопрос 1.1. Жизнь Аристотеля Аристотель родился в 384/383 гг. до н. э. в Стагире на границе с Македонией. Его отец по имени Никомах был врачом на службе у македонского царя Аминта отца Филиппа. Вместе с семьей молодой Аристотель...