ії, які є штучно синтезованими з попередніх двох груп подіями і мають на меті знизити складність системи за рахунок абстрагування від непринципових тонкощів і ускладнень в системі, що диктуються контекстом. Такими, наприклад, є події обробки неправильних ситуацій. [4]
Про інтерфейсі
Інтерфейс є інтуїтивно зрозумілим і не нав'язливим, завжди, наскільки це можливо, є "демократичним" по відношенню до користувача. У програмах, написаних таким стилем, дуже чітко простежується причинно-наслідковий зв'язок, добре знайома будь-якій людині і є невід'ємною частиною образного мислення. Це делат програму дуже простий у використанні, а алгоритм роботи простим в розумінні. Вся необхідна для роботи інформація представлена ​​в діалогах, про неправильні сітуціях програма повідомляє користувачеві, що це єдиний (і законний) випадок порушення свободи дій користувача.
Далі наводиться вихідний текст програми з великими коментарями, в яких робиться наголос не на особливості мови програмування і конкретну реалізацію, а на представлення складових файлової системи як об'єктів, а процедур і функцій як методів, що застосовуються до цим об'єктам.
Макроси, що викликаються подіями
Public Type FileID 'Тип, що описує файл: ім'я, розмір і точка входу в FAT
Name As String
Size As Integer
First As Integer
End Type
В
Sub PressAddFile () 'Макрос, що викликається кнопкою "Додати Файл"
DialogSheets ("Add"). EditBoxes ("Name"). Text = "" 'Підготовка діалогу "Додавання файлу"
DialogSheets ("Add"). EditBoxes ("Size"). Text = "" 'Очищення полів введення
Sheets ("Add"). Show 'Виклик діалогу "Додавання файлу"
With DialogSheets ("Add") 'Перевірка на правильність введених даних
If (. EditBoxes ("Name"). Text = "") Or (. EditBoxes ("Size"). Text = "") Or (. EditBoxes ("Size"). Text = "0") Then Exit Sub
End With
Dim NewFile As FileID 'Примірник змінної з описом створюваного файлу
With DialogSheets ("Add")
NewFile.Name =. EditBoxes ("Name"). Text
NewFile.Size =. EditBoxes ("Size"). Text
End With
Call AddFile (NewFile) 'Виклик процедури додавання файлу
Refresh 'оновили графічне зображення розміщення файлів
End Sub
Sub PressDeleteFile () 'в основному робочому листі натиснута кнопка Видалити Файл
temp = 4
With DialogSheets ("Delete") 'готуємо до роботи діалог Delete
. ListBoxes ("Name"). RemoveAllItems
While Sheets ("Sheet"). Cells (temp; 2) <> "" 'Заповнюємо список наявними в каталозі файлами
. ListBoxes ("Name"). AddItem Text: = Worksheets ("Sheet"). Cells (temp; 2). Value; Index: = temp - 3
temp = temp + 1
Wend
. Show 'показуємо діалог Delete
If. ListBoxes ("Name") =...
