Практична завдання № 4. Функції для роботи з датами.

ЗАВДАННЯ: Ознайомитися з функціями перетворення дати. Створити приведену нижче ЕТ для визначення віку.

Заповнити перший рядок, стовбці А, В, С.

Ввести в D2 формулу:=YEAR(C2), використовуючи кнопку «Майстер функцій»

Скопіювати формулу на діапазон D3:D9.

Ввести в Е2 формулу:=MONTH(С2), використовуючи «Майстер функцій».

Скопіювати формулу на діапазон ЕЗ:Е9.

Ввести в F2 формулу: =DAY(C2). Скопіювати формулу на діапазон F3:F9.

Ввести в G2 формулу:=DAYWEEK(C2). Ця функція повертає номер дня тижня. Неділя вважається першим днем тижня. Скопіювати формулу на діапазон G3:G9.

Ввести в Н2 формулу:=TODAY()-С2.

Відформатувати комірку Н2 кодом 'YY'. Стандарт дати Excel починається з 1.01.1900 р. і дві останні цифри вказують на вік. Скопіювати формулу на діапазон С3:С9.

Практична завдання № 3. Векторна графіка word. Малювання структурних схем.

ЗАВДАННЯ: Намалювати структурну схему фарбової групи валиків друкарської машини представленої на мал.1.

l₁ l₃ l₅

z^-1

z^-1

z^-k5

h₀ h_c

z^-1

z^-1

z^-r3

z^-1

z^-r5

z^-1

h₁ h₂ h₃ h₄ h₅

l₂ l₄

z^-1

z^-1

Мал.1. Структурна схема фарбової групи валиків

П рактична завдання № 14. Visual Basic. Вгадай число.

ЗАВДАННЯ: Створити программу під Visual Basic «Вгадай число».

Інтерфейс програми

Код програми:

Option Explicit Dim a As Integer Dim b As Integer Dim c As Integer Private Sub Command1_Click() Randomize Timer a = Int(Rnd * 100) MsgBox "Число від 1 до 100 загадано", vbExclamation, "Готово" End Sub Private Sub Command2_Click() If a = 0 Then MsgBox "Спочатку загадайте число", vbCritical, "Помилка": Exit Sub If Not IsNumeric(Text1.Text) Then MsgBox "Це не число", vbCritical, "Помилка" Exit Sub Else b = Text1.Text If b > a Then MsgBox "Загадане число менше", vbInformation, "Ні": c = c + 1 If b < a Then MsgBox "Загадане число більше", vbInformation, "Ні": c = c + 1 If b = a Then MsgBox "Ура.Ви угадали число за " + Str(c+1) + " спроб", vbExclamation, "Перемога!": a = 0: c = 0 End If End Sub Private Sub Command3_Click() End End Sub

Практична завдання № 12. Visual Basic.

ЗАВДАННЯ: Створити програму «Відлік часу».

10

Код програми:

Option Explicit

Dim s As Integer

Private Sub Form_Load()

s = 10

Label1.Caption = Str(s)

End Sub

Private Sub Timer1_Timer()

s = s - 1

Label1.Caption = Str(s)

If s = 0 Then End

End Sub