- •Міністерство освіти і науки України Приазовський державний технічний університет Кафедра Інформатики
- •Маріуполь, 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
- •Малюнок 1
- •Малюнок 10
- •Малюнок 11
- •Лабораторна робота 1
- •Малюнок 1
- •Малюнок 2
- •Малюнок 3
- •Малюнок 4
- •Малюнок 5
- •Малюнок 4
- •Малюнок 5
- •Малюнок 6
- •Малюнок 7
- •Малюнок 8
- •Малюнок 9 Малюнок 10
- •Лабораторна робота 2
- •Малюнок 1
- •Малюнок 2
- •Малюнок 3
- •Малюнок 4
- •Малюнок 9
- •Малюнок 10
- •Лабораторна робота 3
- •Малюнок 1
- •Малюнок 2
- •Малюнок 3
- •Малюнок 10
- •Малюнок 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 Малюнок 6
- •Малюнок 13
- •Малюнок 14
- •Малюнок 15
- •Малюнок 16
- •Малюнок 17
Малюнок 17
CommandButton
Name = CommandButton_Start
BackColor = &H00FFC0C0&
Caption = Банкомат
Picture = (Рисунок)
Для забезпечення функціональності кнопки «Банкомат» розроблено програмний код:
Private Sub Com mandButton_Start_Click()
UserForm_Bank.Show ‘ Показ користувацької форми
End Sub
Користувацьку форму із властивостями: Name = UserForm_Bank і Caption = “Банківський автомат” зображено на малюнку 18.
Вона містить такі компоненти:
Frame
Name = Frame_PIN
Caption = Введіть PIN-код картки
CotrolTipText = PIN-код картки
ForeColor = &H00FF0000&
SpecialEffect = 3-fmSpecialEffectEtched
TabStop = False
TextBox
Name = TextBox_PIN
CotrolTipText = PIN-код картки користувача
PasswordChar = *
SpecialEffect = 2-fmSpeialEffectSunken
Малюнок 18
Text =
Value =
Image
Name = Image_Dollar
BackStyle = 0-fmBackStyleTransparent
ControlTipText = Кнопочний пульт
Picture = (Мктафайл)
CommandButton
Name = CommandButton0
BackStyle = 0-fmBackStyleTransparent
Caption = 0
ControlTipText = Нуль
ForeColor = &H00000080&
………………………………………… (те ж саме для кнопок 1…8)
CommandButton
Name = CommandButton9
BackStyle = 0-fmBackStyleTransparent
Caption = 0
ControlTipText = Дев'ять
ForeColor = &H00000080&
CommandButton
Name = CommandButton_Point
BackStyle = 0-fmBackStyleTransparent
Caption = .
ControlTipText = Крапка
ForeColor = &H00000080&
CommandButton
Name = CommandButton_С
BackStyle = 0-fmBackStyleTransparent
Caption = Скидання
ControlTipText = Скидання набраної інформації
ForeColor = &H00FF0000&
Pictyre = (Рисунок)
PicturePosition = 10-fmPicturePositionBelowCenter
Frame
Name = Frame_Instruction
Caption = Інструкція
CotrolTipText = Інструкція користувачеві
ForeColor = &H00FF0000&
SpecialEffect = 3-fmSpecialEffectEtched
TabStop = False
Label Name = Label1
Caption = Вас вітає світовий банк "Барвінок"
==========================
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 запитання:
Наведіть порядок розташування довільного компоненту на формі.
Як вказати властивості компоненту?
Чи можна змінити геометричні розміри розташованого компонента?
Як обрати подію, на яку реагує компонент?
Як визначити реакцію компонента на подію?
Докладно опишіть порядок дизайну прикладення.
Коротко опишіть властивості і події об’єктів VBA: Application, Workbook, Worksheet, Range, Cell.
Яким чином можна встановити реакцію на події об’єкту Workbook?
Викладіть методику запровадження користувацької форми у прикладення MS Office.
Викладіть методику створення програми розгалуженої структури у прикладенні MS Office.
Викладіть методику створення програми циклічної структури у прикладенні MS Office.
Дайте докладні пояснення до розробленого програмного коду.
1 надалі просто ПК
2 визначається на засаді наказу №513 Міністерства вищої і середньої освіти СРСР від 11 червня 1973 р.