Лабораторно-практическая работа № 9
Тема: Встроенные функции
Цель: Получить навыки использования финансовых функций
Порядок выполнения
Откройте новый проект, установите следующие объекты и измените им свойства
-
Объект
Свойство
Значение
Рамки
Caption
Годовой прирост (%)
Caption
Число платежей
Caption
Сумма кредита
Caption
Величина выплаты
Текстовые окна
Name
TxtPrirost
Name
TxtKolWo
Name
TxtKredit
Name
TxtViplata
Командные кнопки
Name
CmdPrirost
Caption
Прирост
Name
CmdViplata
Caption
Выплата
Name
CmdKredit
Caption
Кредит
Приведите свою форму в соответствие с образцом
В разделе общих объявлений набрать:
Dim r As Single
Dim p, v As Currency
Dim n As Integer
В окне кода процедуры обработки события Click набрать для объекта cmdViplata
r = Val(TxtPrirost.Text)
n = Val(Txtkolwo.Text)
v = Val(TxtKredit.Text)
r = r / 1200
p = -Pmt(r, n, v)
TxtViplata.Text = Str(p)
В окне кода процедуры обработки события Click набрать для объекта cmdKredit
r = Val(TxtPrirost.Text)
n = Val(Txtkolwo.Text)
p = Val(TxtViplata.Text)
r = r / 1200
p = -p
v = PV(r, n, p)
TxtKredit.Text = Str(v)
В окне кода процедуры обработки события Click набрать для объекта cmdPrirost
p = Val(TxtViplata.Text)
n = Val(Txtkolwo.Text)
v = Val(TxtKredit.Text)
p = -p
r = 1200 * Rate(n, p, v)
TxtPrirost.Text = Str(r)
Проверьте работу программы
Самостоятельно добавьте на форму еще одну командную кнопку и создайте для нее программный код, который удаляет содержимое в текстовых окнах.
Лабораторно-практическая работа № 10
Тема: Встроенные функции
Цель: Получить навыки использования функций графики
Порядок выполнения
В графическом редакторе Paint создайте четыре рисунка «зима», «весна, «лето», «осень» и сохраните рисунки в отдельных файлах на диске С:
Откройте новый проект, установите следующие объекты и измените им свойства
-
Объект
Свойство
Значение
Форма
Name
frmPaint
WindowState
2-Maximized
Метка
Name
LblResult
Caption
0
Полоса прокрутки
Name
HsbSet
Max
15
Min
1
Командные кнопки
Name
CmdWinter
Caption
Зима
Name
CmdSpring
Caption
Весна
Name
CmdSummer
Caption
Лето
Name
CmdAutumn
Caption
Осень
Name
cmdExit
Caption
Выход
Приведите свою форму в соответствие с образцом
В
окне кода процедуры обработки события
Change
набрать для объекта HsbSet
lblResult.Caption = Str(hsbSet.Value)
frmPaint.BackColor = QBColor(hsbSet.Value)
Такой же код набрать для обработки события Scroll для объекта HsbSet.
В окне кода процедуры обработки события Click набрать для объекта cmdExit
MsgBox “До свидания”,0,”Выход”
End
В окне кода процедуры обработки события Click набрать для объекта cmdWinter
frmPaint.Picture = LoadPicture("c:\Мои Документы\зима.bmp")
Самостоятельно набрать для других командных кнопок. Проверьте работу программы