- •Міністерство освіти і науки України Приазовський державний технічний університет Кафедра Інформатики
- •Маріуполь, 2009
- •Анотація
- •Структура і обсяг практичних занять і лабораторного практикуму
- •Склад технічнОго забезпечення дисципліни
- •Склад програмного забезпечення дисципліни
- •Перелік рекомендованого методичного забезпечення дисципліни та додаткової літератури
- •Пристрої персонального комп’ютера
- •Малюнок 1
- •Малюнок 2 Малюнок 3
- •Малюнок 4
- •Малюнок 5
- •Малюнок 6
- •Малюнок 7
- •Малюнок 8
- •Малюнок 9
- •Малюнок 10
- •Малюнок 11
- •Малюнок 12
- •Програмне забезпечення персонального комп’ютера
- •Малюнок 1
- •Малюнок 2
- •Малюнок 3
- •Малюнок 4
- •Малюнок 5
- •Малюнок 6
- •Малюнок 7
- •Малюнок 8
- •Малюнок 9 Малюнок 10
- •Малюнок 11
- •Малюнок 12
- •Малюнок 13
- •Практичне заняття 4
- •Малюнок 12
- •Лабораторна робота 1
- •Малюнок 1
- •Малюнок 2
- •Малюнок 3
- •Малюнок 4 Малюнок 5
- •Малюнок 4
- •Малюнок 5
- •Малюнок 6
- •Малюнок 7
- •Малюнок 8
- •Малюнок 9
- •Малюнок 10
- •Лабораторна робота 2
- •Малюнок 1
- •Малюнок 2
- •Малюнок 3
- •Малюнок 4
- •Малюнок 5 Малюнок 6 Малюнок 7
- •Малюнок 8
- •Малюнок 9
- •Малюнок 10
- •Лабораторна робота 3
- •Малюнок 1
- •Малюнок 2
- •Малюнок 3
- •Малюнок 4
- •Малюнок 12
- •Малюнок 13
- •Малюнок 14
- •Малюнок 15
- •Малюнок 17
- •Малюнок 18
- •Малюнок 19 Малюнок 20
- •Малюнок 21
- •Малюнок 24
- •Лабораторна робота 4
- •Малюнок 1
- •Малюнок 2
- •Малюнок 3 Малюнок 4
- •Малюнок 5
- •Малюнок 6
- •Малюнок 7
- •Малюнок 9
- •Малюнок 10
- •Малюнок 11
- •Малюнок 12
- •Малюнок 13
- •Лабораторна робота 5
- •Алгоримізація обчислювальних процесів. Vba
- •Малюнок 1
- •Малюнок 2
- •Малюнок 3
- •Малюнок 4
- •Малюнок 5
- •Малюнок 14
- •Малюнок 15
- •Малюнок 16
- •Малюнок 17
- •1. Активізуйте потрібне поле введення
- •2. За допомогою кнопок-цифр наберіть
- •3. Натисніть кнопку "Перевірити рахунок".
- •4. Наберіть бажану суму і натисніть кнопку
Малюнок 14
Image
Name = Main_Image
Picture = (Рисунок)
CommandButton
Name = About_CommandButton
BackColor = &H0080C0FF&
Caption = Про автора
ForeColor = &H000000FF&
Picture = (Рисунок)
CommandButton
Name = Input_CommandButton
BackStyle = 0-fmBackStyleTransparent
Caption =
TakeFocusOnClick = False
Label
Name = Input_Label
BackStyle = 0-fmBackStyleTransparent
Caption = Початкові дані
ForeColor = &H00C000C0&
Label
Name = Profit_Label
BackStyle = 0-fmBackStyleTransparent
Caption = Прибуток
ForeColor = &H00C000C0&
TextBox
Name = Profit_TextBox
ForeColor = &H00C000C0&
Shadow = True
Text =
Value =
CommandButton
Name = Do_CommandButton
BackStyle = 0-fmBackStyleTransparent
Caption =
TakeFocusOnClick = False
Label
Name = CalculateTax_Label
BackStyle = 0-fmBackStyleTransparent
Caption = Дії користувача
ForeColor = &H00FF0000&
CommandButton
Name = Calculate_CommandButton
BackStyle = 0-fmBackStyleTransparent
Caption = Облік податку на прибуток
ForeColor = &H00FF0000&
Picture = (Рисунок)
Shadow = True
CommandButton
Name = Line_CommandButton
Caption =
CommandButton
Name = Exit_CommandButton
Caption = Вихід
ForeColor = &H00004000&
Picture = (Рисунок)
Shadow = True
CommandButton
Name = Tax_CommandButton
BackStyle = 0-fmBackStyleTransparent
Caption =
TakeFocusOnClick = False
Label
Name = Tax_Label1
BackStyle = 0-fmBackStyleTransparent
Caption = якщо прибутку нема
ForeColor = &H00FF0000&
TextBox
Name = Tax_TextBox1
ForeColor = &H00FF0000&
Shadow = True
Text =
Value =
Visible = False
Label
Name = Tax_Label2
BackStyle = 0-fmBackStyleTransparent
Caption = якщо прибуток не перевищує 100 000 грн.
ForeColor = &H00004000&
TextBox
Name = Tax_TextBox2
ForeColor = &H00FF0000&
Shadow = True
Text =
Value =
Visible = False
Label
Name = Tax_Label3
BackStyle = 0-fmBackStyleTransparent
Caption = якщо прибуток перевищує 100 000 грн.
ForeColor = &H00000080&
TextBox
Name = Tax_TextBox3
ForeColor = &H00000080&
Shadow = True
Text =
Value =
Visible = False
Для забезпечення зумовленої заданням функціональності прикладення розроблено програмний код:
Private Sub Profit_TextBox_GotFocus()
' *************************************************************************************
' Реакція на отримання фокусу введення компонентом Profit_TextBox
' *************************************************************************************
Profit_TextBox.Text = "" ' чищення поля введення прибутку
Tax_TextBox1.Visible = False ' результати обліку стають невидимими
Tax_TextBox2.Visible = False
Tax_TextBox3.Visible = False
End Sub
Private Sub CalculateTax_CommandButton_Click()
' *************************************************************************************
' Реакція на вибір кнопки <Облік податку на прибуток> (CalculateTax_CommandButton)
' *************************************************************************************
' Коефіцієнти обліку податку на прибуток
Const CoaffLt100000 As Single = 0.2, CoaffGt100000 As Single = 0.4
Dim X As Single
X = Val(Profit_TextBox.Text) ' Перетворення введеного текстового рядка у число
If X = 0 Then ' прибутку нема
Tax_TextBox1.Visible = True ' компонент Tax_TextBox1 стає видимим
' облік податку на прибуток
Tax_TextBox1.Text = "Прибуток=" + Format$(X, "##0.00"" грн.""") + _
" Податок=" + Format$(X, "##0.00"" грн.""")
Else
If X <= 100000 Then ' прибуток не перевищує 100 000 грн.
Tax_TextBox2.Visible = True ' компонент Tax_TextBox2 стає видимим
' облік податку на прибуток
Tax_TextBox2.Text = "Прибуток=" + Format$(X, "##0.00"" грн.""") + _
" Податок=" + Format$(X * CoaffLt100000, "##0.00"" грн.""")
Else ' прибуток перевищує 100 000 грн.
Tax_TextBox3.Visible = True ' компонент Tax_TextBox3 стає видимим
' облік податку на прибуток
Tax_TextBox3.Text = "Прибуток=" + Format$(X, "##0.00"" грн.""") + _
" Податок=" + Format$(X * CoaffLt100000, "##0.00"" грн.""")
End If
End If
End Sub
Private Sub About_CommandButton_Click()
' *************************************************************************************
' Реакція на вибір кнопки <Про автора> (About_CommandButton)
' *************************************************************************************
MsgBox "Автор програми - доцент кафедри Інформатики Бурса О.Г."
End Sub
Private Sub Exit_CommandButton_Click()
' *************************************************************************************
' Реакція на вибір кнопки <Вихід> (Exit_CommandButton)
' *************************************************************************************
Workbooks("Example.xls").Close SaveChanges:=False
End Sub
Завдання № 5:
Розробити прикладення Microsoft Office «Перерахування заощаджень», яке перераховувало б суму заощадження за різними формулами у залежності від «виду заощадження». В електронній таблиці передбачити:
встановлення автофільтру на колонку «Вид заощадження»;
перевірку наданих, які вводяться у чарунки, на коректність введення наданих із виведенням відповідних повідомлень щодо введення і помилки;
наявність приміток для заголовків усіх стовпців таблиці;
Вказівки до виконання (приклад № 5):
Згідно завданню розроблено таблицю, на першому аркуші «Приклад» якої (малюнок 15) розташовано елемент керування «кнопка» із написом «Перерахування заощаджень» і перевизначено деякі його властивості: