них ліній даного діапазону. допустимими значеннями індексу сімейства Borders можуть бути наступні константи xlBordersIndex: lxDiagonalDown, xlEdgeLeft, xlEdgeRight, xlEdgeTop і т.д. Кожна з цих кордонів представляє об'єкт Border. br/>
Лістинг 18. Управління стилем межі діапазону та об'єктами Border
Public Sub DemoBorders ()
'Будинки працює
Dim rgn As Range
Set rng = Range ("A2: C2")
With rng.Borders (xlEdgeTop)
. LineStyle = xlContinuouse
. Weight = xlThick
. Color = RGB (255, 0, 0)
End With
With rng.Borders (xlEdgeBottom)
. LineStyle = xlDash
. Weight = xlMedium
. Color = RGB (0, 255, 0)
End With
End Sub
Якщо компоненти кордону мають вони і ті ж параметри, те для установки їх значення можна скористатися не елементами, а всім сімейством Borders, як це, наприклад, робиться в наступній інструкції для створення кордону синього кольору у виділеної області. <В
Приклад використання об'єкта Shape
Прикладом використання об'єкта Shape може бути наступний код (Лістинг 19) послідовно з інтервалом в одну секунду виводящіі різні автофігури, а потім з такою ж швидкістю їх видаляє.
В
Лістинг 19 . Послідовний висновок автофігур
Public Sub StarShow ()
'будинку працює
Dim w As Integer, h As Integer, i As Integer
Dim toppos As Integer, leftpos As Integer
Dim v As Long
Dim star As Shape
w = 50: h = 50
Randomize
For i = 1 To 10
toppos = Rnd () * (ActiveWindow.UsableHeight - h)
leftpos = Rnd () * (ActiveWindow.UsableWidth - w)
Select Case (i Mod 6)
Case 0
v = msoShape4pointStar
Case 1
v = msoShape5pointStar
Case 2
v = msoShape16pointStar
Case 3
v = msoShape32pointStar
Case 5
v = msoShapeDiamond
End Select
Set star = ActiveSheet.Shapes.AddShape (v, leftpos, toppos, w, h)
star.Fill.ForeColor.SchemeColor = Int (Rnd () * 56)
Application.Wait Now + TimeValue ("00:00:01")
DoEvents
Next
Application.Wait Now + TimeValue ("00:00:01")
For Each star In Worksheets (1). Shapes
If Left (star.Name, 9) = "AutoShape" Then
star.Delete
DoEvents
Application.Wait Now + TimeValue ("00:00:01")
End If
Next
End Sub
Підбір параметра і рішення рівняння з однієї не відомою.
Метод GoalSeek об'єкта Range підбирає значення параметра (Невідомої величини), що є рішенням рівняння з однією зміною. передбачається, що рівняння приведено до наступного вигляду: права частина рівняння є постійною, що не залежить від параметра, параметр входить тільки в ліву частину рівняння, наприклад,
x ^ 3-3 * x-5 = 0
Метод GoalSeek програмує виконання команди Сервіс | підбір параметра. Цей метод обчислює корінь, використовую метод послідовних наближень, результат виконання якого, залежить від початкового наближення.
Точність, з якій знаходитися корінь і гранично допустиму кількість використовуваних для знаходження кореня, встановлюється властивість MaxChange і MaxIterations об'єкта Application. Напрімкр визначення кореня з точністю до 0,0001 максимум за 1000 ітерації встановлює інструкцією:
With Aplication
. MaxIterations = 1000
. MaxChange = 0.0001
End With
Метод GoalSeek повертає значення True, якщо рішення знайдено і значення False у противному випадку. Наприклад наступний код (лістинг 20) шукає корінь рівняння x ^ 3-3 * x-5 при початковому наближенні 1
В
Лістинг 20. Рішення рівняння
Sub DemoGoalSeek ()
Range ("A1"). Name = "X"
Range ("A1"). Value = 1
Range ("B1"). Formula = "= X ^ 3-3 * x-5"
If Range ("B1"). GoalSeek (Goal: = 0, ChangingCell: = Range ("x")) Then
MsgBox "Корінь:" & Range ("A1"). Value
Else
MsgBox "корінь не знайдено"
End If
End Sub
В
1.3 Розробка та експлуатація автоматизованих ІС
В
1.3.1 Основні поняття технології проектування інформаційних систем (ІС)
Інформація в сучасному світі перетворилася на один з найбільш важливих ресурсів, а інформаційні системи (ІС) стали необхідним інструментом практично у всіх сферах діяльності.
Різноманітність завдань, що вирішуються за допомогою ІС, призвело до появі безлічі різнотипних систем, що відрізняються засадами побудови і закладеними в них правилами обробки інформації.
Класифікація ІС
Інформаційні сис...
