роекту або командою Code (Код) меню View (Вид). Для кожного елемента проекту (форми або програмного модуля) відкривається окреме вікно редактора коду. Відповідно це вікно з'являється в списку вікон меню Window (Вікно). У великому проекті найзручніше працювати з Провідника проекту. У цьому випадку редактор коду викликається кнопкою View Code (Перегляд коду) панелі інструментів вікна Провідника. br/>
2.3 Характеристика програми
Дана програма написана мовою Visual Basic 6.0 і являє собою 1 додатком, призначених виконувати всі функції, які потрібні завданням. У кінцевий продукт входить 1 відкомпільоване додатки, розмір якого становить відповідно 892 байт. Для роботи необхідні такі системні ресурси: Перш ніж приступити до роботи з даною системою, необхідно мати: комп'ютер, сумісний з IBM PC з тактовою частотою процесора не менш 1500 MHz; оперативну пам'ять 256 Mb; жорсткий диск об'ємом 40 Mb; відеоадаптер SVGA з об'ємом оперативної пам'яті 128 Mb.
2.4 Контрольний приклад
В
2.5 Інструкція користувача
Щоб запустити програми необхідно виконати наступні дії. Натиснути кнопку пуск в панелі завдань; І натхненні програму Visual Basic 6.0.
Після цього на екрані програми з'являється з короткою інформацією про неї самої в даному режимі користувачеві потрібно відкрити БД. Це можна зробити 2-ма способами: Через меню Файл-Відкрити Базу Даних; клацнути в панелі інструментів піктограму відкриття БД. p> У тому і іншому випадку програма виведе вікно в якому користувач може вибрати або ввести ім'я та шлях до БД. По натискання кнопки В«ОКВ» програма відкриває БД після цього стає до цього не доступна пункт меню В«База данихВ» та всі інші піктограми панелі інструментів доступними. Програма готова до роботи Рядок меню складається з наступних пунктів:
Файл - служить для роботи з файлами за режимом закріплюються падаючі меню: Відкрити БД;
Закрити БД - після виконання цього пункту меню програма повертається у вихідне
положення;
Вихід;
Таблиця - служить для роботи з БД. За режимом закріплюється падаючі меню:
Таблиця В«спец меню В»;
Таблиця В«Додаткова інформаціяВ»;
Сервіс служить для роботи із запитами з БД. За режимом закріплюється падаючі
меню:
Створення БД - після виконання цього пункту меню запускається другий додаток генерації БД.
Введення запиту - після виконання цього пункту меню виводиться вікно із запитом для пошуку.
Вікно - служить для роботи з вікнами. ЗА режимом закріплюється падаючі меню:
Закрити всі - дозволяє закрити всі відкриті вікна. Каскад - дозволяє розташувати вікна накладенням; Мозаїка - рівномірний розподіл вікон на екрані; Вистроїти значки порядок згорнуті вікна. Панель інструментів складається з наступних пентаграм Відкрити БД; Закрити БД; Запит; Вихід;
В панелі стану висвічуються поточні час і дата.
ВИСНОВОК
У даному курсовому проекті був розроблено програмний пакет, що дозволяє автоматизувати процес роботи В« розробка інформаційно-пошукової системи з підбору аудиторій. В»Продукт був реалізований на мові VBA в середовищі програмування MS Excel.
Для функціонування його на персональному комп'ютері не обов'язково наявність програми Visual Basic 6.0, тому для початку роботи програми необхідно лише запустити файл проекту.
Програма досить проста у використанні, тому прийнятна для будь-якого користувача.
Додаток 1
В
Процедури аркуша звіт 2
Private Sub CommandButton1_Click ()
Dim colors (10) As Integer
colors (1) = +4 'Встановлення квітів
colors (2) = 22 'для позначення факультетів
colors (3) = 19
colors (4) = 24
colors (5) = 26
colors (6) = 40
colors (7) = 43
colors (8) = 44
colors (9) = 6
colors (10) = 28
If L1.ListIndex = -1 Then 'Вихід, якщо не вибрана тиждень
MsgBox ("Не обрана тиждень ") p> Exit Sub
End If
Range ("a5: AZ100"). Select 'Очищення області даних
Selection.ClearContents
'Підрахунок кількості навчальний днів у тижня
N_Day = 0
While Worksheets (2). Cells (N_Day + 2, 4). Value <> ""
N_Day = N_Day + 1
Wend
'Підрахунок кількості занять на Протягом дня
N_Times = 0
While Worksheets (2). Cells (N_Times + 2, 5). Value <> ""
N_Times = N_Times + 1
Wend
'Підрахунок кількості аудиторій
N_Ayd = 0
While Worksheets (2). Cells (N_Ayd + 2, 1). Value <> ""
N_Ayd = N_Ayd + 1
Wend
DaysTimes = N_Day * N_Times
N_Boss = 0 'Підрахунок заявників
While Worksheets (2). Cells (N_Boss + 2, 6). Value <> "" ...