Малюнок 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) розташовано елемент керування «кнопка» із написом «Пере­ра­ху­вання заощаджень» і перевиз­на­чено деякі його властивості: