6. Формирование расписания

Задание

Разработать программу для оформления расписания занятий учебной группы на один день недели. Исходные данные вводятся пользователем. Результат должен иметь вид таблицы (без разделительных линий).

Таблица

Номер пары	Время	Предмет	Вид	Преподаватель
1	08:30 - 10:00	Информатика	Лекция	Иванов
2	10:15 - 11:45	Философия	Лекция	Фёдоров
3
4	14:15 - 15:45	Операционные системы	Лабораторные работы	Сидоров

Каждая строка таблицы должна представлять один элемент массива. Длину каждого поля строки принять равной 14 символам (общая длина строки 14 х 5 = 70 (символов)). Для формирования содержимого очередной строки использовать функции Tab() и Space().

Примечания: 1. Запись о каждом занятии может вводиться в программе не по порядку, например, сначала может быть введена четвёртая пара, затем первая. Максимальное количество пар в дневном расписании — семь.

2. При отсутствии занятия должна выводиться пустая строка.

Вопросы к заданию

1. Спроектировать визуальный интерфейс приложения. Использовать списки с заранее заданным содержимым для удобного ввода исходных данных и текстовое поле с прокруткой для вывода результата. В отчёте привести иллюстрацию интерфейса и описать назначение всех используемых объектов.

2. Добавить в программу возможность исправления неправильно введённых данных после их занесения в массив. В отчёте описать смысл сделанных дополнений.

3. Добавить в программу функцию вывода сформированного расписания в текстовый файл.

Библиографический список

1. Язык программирования Microsoft Visual BASIC : сборник лабораторных работ / сост. О. А. Обвинцев. – Екатеринбург : изд. ИПК УГТУ, 2003. – 51 с.

2. Правила оформления курсовых и дипломных проектов (работ) : методические указания / О. А. Обвинцев. – Екатеринбург: УГТУ–УПИ, 2007. – 28 с.

3. Петрусос Е. Эффективная работа: Visual Basic .NET (+CD) / Е. Петрусос. – СПб. : Питер, 2002. – 928 с.

4. Волчёнков Н. Г. Программирование на Visual Basic 6 : в 3 ч. Часть 3 / Н. Г. Волчёнков. – М. : ИНФРА-М, 2000. – 238 с.

5. Visual Basic 6.0 : пер. с англ. – СПб. : БХВ – Санкт-Петербург, 1998. – 992 с.

6. Гетц К. Программирование в Microsoft Office. Полное руководство по VBA : пер. с англ. / К. Гетц, М. Джилберт. – К. : Издательская группа BHV, 1999. – 768 с.

Приложение 1 встроенные функции visual basic

1. Математические функции

Abs(число) — возвращает абсолютное значение (модуль) числа.

Аргумент «число» — любое числовое выражение.

Пример:

Х = Abs(-10.4) — переменной Х будет присвоено значение 10.4.

Atn(число) — возвращает арктангенс числа.

Результат находится в диапазоне от (-/2) до /2 радиан. Преобразование градусов в радианы происходит по формуле:

радианы = градусы *  / 180.

Пример:

Pi = 4 * Atn(1)

Cos(число) — возвращает косинус угла.

Результат находится в диапазоне от (-1) до (+1) включительно.

Пример:

Х = Cos(/3) — переменной Х будет присвоено значение 0,5.

Exp(число) — возвращает число е (основание натурального логарифма, приблизительное значение 2,718282), возведённое в указанную степень. Аргумент не должен превышать 709,782712893.

Пример:

Х = Exp(3) — переменной Х будет присвоено значение e³  2,718282³ = 20,085541.

Fix(число), Int(число) — возвращает целую часть числа. Если число отрицательное, то Int возвращает целое отрицательное число, ближайшее меньшее или равное указанному аргументу, а Fix — ближайшее большее или равное.

Пример:

Х = Int(99.8) — переменной Х будет присвоено значение 99.

Х = Fix(99.8) — переменной Х будет присвоено значение 99.

Х = Int(-99.8) — переменной Х будет присвоено значение (-100).

Х = Fix(99.8) — переменной Х будет присвоено значение (-99).

Log(число) — возвращает натуральный логарифм указанного числа.

MOD — оператор, возвращающий остаток от деления чисел нацело.

Пример:

Х = 10 MOD 3 — переменной Х будет присвоено значение 1.

Х = 10 MOD 5 — переменной Х будет присвоено значение 0.

Rnd(число) — возвращает случайное число в диапазоне между 0 и 1. Часто используется в выражении для задания случайного числа из определённого диапазона.

Пример:

Получить случайное ЦЕЛОЕ число из диапазона от 1 до 10.

Х = Int((ВерхГраница – НижГраница + 1) * Rnd + НижГраница)

Х = Int((10 – 1 + 1) * Rnd + 1).

Sin — возвращает синус угла.

Результат находится в диапазоне от (-1) до (+1) включительно.

Пример:

Х = Sin() — переменной Х будет присвоено значение 0.

Sqr(число) — возвращает квадратный корень из заданного числа.

Tan(число) — возвращает тангенс угла, заданного параметром «число».

Результат находится в диапазоне от (-/2) до /2 радиан. Преобразование градусов в радианы происходит по формуле:

радианы = градусы *  / 180.

Пример:

X = 1 / Tan(1.3) — переменной Х будет присвоено значение 0,277.

dblRound(число, разряд) — пользовательская функция округления числа до заданного количества десятичных знаков. Половина разряда (5) округляется в сторону увеличения.

Function dblRound(dblNumber as Double, intDecimals as Integer) as Double

Dim dblFactor as Double

Dim dblTemp as Double

dblFactor = 10 ^ intDecimals

dblTemp = (dblNumber * dblFactor) + 0,5

dblRound = Int(dblTemp) / dblFactor

End Function

Round(число, разряд) — стандартная функция округления числа до заданного количества десятичных знаков. Половина разряда (5) округляется в сторону увеличения. Аналогична dblRound().