1. Активізуйте потрібне поле введення

подвійним клацанням "мишею".

2. За допомогою кнопок-цифр наберіть

PIN-код своєї електронної картки.

3. Натисніть кнопку "Перевірити рахунок".

4. Наберіть бажану суму і натисніть кнопку

"Зняти з рахунку" для отримання наявних грошей.

ControlTipText = Інструкція користувачеві

ForeColor = &H000000C0&

Frame

Name = Frame_Summa

Caption = Рахунок

ControltipText = Операції з рахунком

ForeColor = &H00FF0000&

SpecialEffect = fmSpecialEffectEtched

TabStop = False

CommandButton

Name = CommandButton_Control

Caption = Перевірка рахунка

ControlTipText = Кнопка перевірки рахунка

ForeColor = &H00FF0000&

Picture = (Рисунок)

Label

Name = Label_Counting

BorderStyle = fmBorderStyleSingle

Caption =

ControlTipText = Результат перевірки рахунка

ForeColor = &H000000FF&

CommandButton

Name = CommandButton_Line

TabStop = False

TakeFocusOnClick = False

TextBox

Name = TextBox_Summa

CotrolTipText = Сума для зняття з рахунка

SpecialEffect = 2-fmSpeialEffectSunken

Text =

Value =

CommandButton

Name = CommandButton_Extract

Caption = Зняти з рахунка

ControlTipText = Кнопка зняття суми з рахунка

ForeColor = &H00FF0000&

Picture = (Рисунок)

Для забезпечення зумовленої заданням функціональності прикладення роз­роб­ле­но програмний код:

Public PINCode As String ' PIN-код

Public Summa As Single ' сума, яка знімається з рахунку

Public Counting As Single ' наявна сума на рахунку

Public InputFlag As Boolean ' прапорець: = True - введення PIN-коду

' = False - введення суми

Private Sub CommandButton_Control_Click()

‘ ***********************************************************************************

' Перевірка наявності рахунку

‘ ***********************************************************************************

For Each c In Worksheets("Банкомат").Range("A2:A10")

If c.Value = PINCode Then ' PIN-код знайдено

Range(c.Address).Activate

ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate

Counting = ActiveCell.Value

Label_Counting.Caption = Str(Counting)

Exit Sub

End If

Next

MsgBox "Увага: PIN-код не знайдено!", vbCritical + vbOKOnly, "Застереження"

TextBox_PIN.SetFocus

End Sub

Private Sub CommandButton_Extract_Click()

‘ ***********************************************************************************

' Зняття суми з рахунку

‘ ***********************************************************************************

If Summa > Counting Then

MsgBox "Увага: вказана сума перевищує наявну!", vbCritical + vbOKOnly, "Застереження"

TextBox_Summa.Text = ""

TextBox_Summa.SetFocus

Exit Sub

Else

Summa = Val(TextBox_Summa.Text)

Counting = Counting - Summa

ActiveCell.Value = Counting

Label_Counting.Caption = Str(Counting)

TextBox_Summa.Text = ""

Summa = 0

End If

End Sub

Private Sub TextBox_PIN_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

‘ ***********************************************************************************

' Реакція на вибір поля введення PIN-коду – зпустошення вмісту компонентів «поле»

‘ ***********************************************************************************

InputFlag = True

PINCode = ""

TextBox_PIN.Text = ""

Label_Counting.Caption = ""

Summa = 0

TextBox_Summa.Text = ""

End Sub

Private Sub TextBox_Summa_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

‘ ***********************************************************************************

' Реакція на вибір поля введення суми для зняття з рахунку

‘ ***********************************************************************************

InputFlag = False

Summa = 0

TextBox_Summa.Text = ""

End Sub

Public Sub KeyClicked(ByVal Key As String)

‘ ***********************************************************************************

' Обробка коду (Key) натиснутої кнопки

‘ ***********************************************************************************

If InputFlag = True Then ‘ вводиться PIN-код

TextBox_PIN.Text = TextBox_PIN.Text & Key

PINCode = TextBox_PIN.Text

Else ‘ вводиться сума

TextBox_Summa.Text = TextBox_Summa.Text & Key

End If

End Sub

Private Sub CommandButton0_Click()

‘ ***********************************************************************************

' Реакція на натискування кнопки «0»

‘ ***********************************************************************************

Call KeyClicked("0")

End Sub

Private Sub CommandButton1_Click()

‘ ***********************************************************************************

' Реакція на натискування кнопки «1»

‘ ***********************************************************************************

Call KeyClicked("1")

End Sub

Private Sub CommandButton2_Click()

‘ ***********************************************************************************

' Реакція на натискування кнопки «2»

‘ ***********************************************************************************

Call KeyClicked("2")

End Sub

Private Sub CommandButton3_Click()

‘ ***********************************************************************************

' Реакція на натискування кнопки «3»

‘ ***********************************************************************************

Call KeyClicked("3")

End Sub

Private Sub CommandButton4_Click()

‘ ***********************************************************************************

' Реакція на натискування кнопки «4»

‘ ***********************************************************************************

Call KeyClicked("4")

End Sub

Private Sub CommandButton5_Click()

‘ ***********************************************************************************

' Реакція на натискування кнопки «5»

‘ ***********************************************************************************

Call KeyClicked("5")

End Sub

Private Sub CommandButton6_Click()

‘ ***********************************************************************************

' Реакція на натискування кнопки «6»

‘ ***********************************************************************************

Call KeyClicked("6")

End Sub

Private Sub CommandButton7_Click()

‘ ***********************************************************************************

' Реакція на натискування кнопки «7»

‘ ***********************************************************************************

Call KeyClicked("7")

End Sub

Private Sub CommandButton8_Click()

‘ ***********************************************************************************

' Реакція на натискування кнопки «8»

‘ ***********************************************************************************

Call KeyClicked("8")

End Sub

Private Sub CommandButton9_Click()

‘ ***********************************************************************************

' Реакція на натискування кнопки «9»

‘ ***********************************************************************************

Call KeyClicked("9")

End Sub

Private Sub CommandButton_Point_Click()

‘ ***********************************************************************************

' Реакція на натискування кнопки «.»

‘ ***********************************************************************************

Call KeyClicked(".")

End Sub

Private Sub CommandButton_C_Click()

‘ ***********************************************************************************

' Реакція на натискування кнопки «С»

‘ ***********************************************************************************

If InputFlag = True Then

TextBox_PIN.Text = ""

PINCode = ""

Else

TextBox_Summa.Text = ""

Summa = 0

End If

End Sub

Контрольнi запитання:

1. Наведіть порядок розташування довільного компоненту на формі.

2. Як вказати властивості компоненту?

3. Чи можна змінити геометричні розміри розташованого компонента?

4. Як обрати подію, на яку реагує компонент?

5. Як визначити реакцію компонента на подію?

6. Докладно опишіть порядок дизайну прикладення.

7. Коротко опишіть властивості і події об’єктів VBA: Application, Workbook, Worksheet, Range, Cell.

8. Яким чином можна встановити реакцію на події об’єкту Workbook?

9. Викладіть методику запровадження користувацької форми у прикладення MS Office.

10. Викладіть методику створення програми розгалуженої структури у при­кладенні MS Office.

11. Викладіть методику створення програми циклічної структури у прикла­денні MS Office.

12. Дайте докладні пояснення до розробленого програмного коду.

1надалі просто ПК

2визначається на засаді наказу №513 Міністерства вищої і середньої освіти СРСР від 11 червня 1973 р.

107