49074 (Создание теста на Visual Basic), страница 2

Public Function ErrorText() As String

ErrorText = myErrorText

End Function

1. Настройка программы

Для работы программы необходимо установить MS Excel 2002/2003 и MySQL.

Для установки программы необходимо иметь 3 основных пакета:

1. mysql-connector-odbc-3.51.25-win32

2. mysql-5.0.51b-win32

3. mysql-gui-tools-5.0-r12-win32

Подробное описание установки MySQL-сервера на ваш локальный компьютер под управлением ОС Windows:

1. Для установки MySQL нам нужно будет запустить установщик. Распаковываем, установщик MySQL и запускаем Setup.exe и жмём кнопку Next.

2. Далее установщик нам предложит выбрать тип установки, выбираем тип Typical и жмём кнопку Next для продолжения установки MySQL.

3. На следующем шаге установки установщик показывает нам выбранный тип установки и путь, куда будет установлен MySQL. Для продолжения установки жмём кнопку Install.

4. После того как установщик установит MySQL, нам необходимо будет провести некоторые настройки. Жмём кнопку Finish, чтобы приступить к настройке MySQL.

5. После проведённых действий должен запуститься мастер настройки MySQL-сервера. Нажимаем кнопку Next для начала конфигурирования MySQL-сервера.

6. На следующем шаге настройки MySQL-сервера мастер предложит нам два типа конфигурации. Выбираем Стандартную конфигурацию и жмём кнопку Next для продолжения.

7. Далее мастер предложит нам установить MySQL-сервер как сервис Windows. Соглашаемся с этим и переходим к следующему шагу настройки.

8. На следующем шаге настройки нам нужно указать пароль Администратора сервера. Следует уделить этому шагу особое внимание!

9. Хорошо запомните пароль, который вы задали для администратора MySQL-сервера! Вводим пароль и его подтверждение и продолжаем настройку.

10. Это заключительный шаг настройки MySQL. Нажимаем кнопку Execute. Если вы всё правильно сделали, и не былоникаких ошибок, нажимаем кнопку Finish. На этом настройка MySQL завершена.

Далее необходимо открыть Excel выбрать пункт Сервис - Надстройки и выбрать файл с расширением .xla и поставить галочку напротив нужного файла.

Запустить программу можно выбрать Пункт Тест - Начать тестирование

Для удаления Пункта Тест необходимо открыть Excel выбрать пункт Сервис - Надстройки и убрать галочку напротив нужного файла.

1. Проверка программы

Для проверки внесли ли вы нужные данные, можно открыть базу данных. Выбрать необходимое поле таблицы и двойным щелчком щелкнуть по названию поля нужной таблицы.

1. Обращение к программе

К программе можно обратиться с помощью Excel. Выбрать Пункт Тест - Начать тестирование. Ответь на тест, и узнать результат тестирования.

1. Выполнение программы

Для работы программы необходимо установить MS Excel 2002/2003 и MySQL.

Далее необходимо распаковать архив MySQL в выбранную директорию. Далее необходимо открыть Excel, выбрать пункт Сервис - Надстройки и выбрать файл с расширением .xla и поставить галочку напротив нужного файла.

Запустить программу можно выбрать Пункт Тест - Начать тестирование.

Для удаления Пункта Тест необходимо открыть Excel, выбрать пункт Сервис - Надстройки и убрать галочку напротив нужного файла.

Для ввода теста в базу данных необходимо выбрать Пункт Тест – Добавить данные.

1. Сообщения

В программе используются сообщения. Сообщение выдается при запуске программы. После прохождения теста с помощью сообщения пользователь может узнать свой результат, а затем и время за которое он прошел тест. При выходе из программ появляется подтверждающее сообщение хотите ли вы выйти Да или Нет.

ЗАКЛЮЧЕНИЕ

Решение данной задачи помогло более глубоко и основательно изучить и укрепить на практике все тонкости и моменты среды программирования Visual Basic for Applications.

Программа написана на языке программирования VBA, позволяющая проводить тестирование.

В дальнейшем планируется в данной программе осуществить выбор тестирования из списка. Добавить редактирование нужного вопроса или ответа.

В ходе работы были изучены и реализованы команды на добавление в MySQL.

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1. А.Васильев, А.Андреев VBA в Office 2000: учебный курс

Санкт – Петербург, «Питер», 2001, с.410

1. А.Гладкий, А.Чиртик Трюки и эффекты Excel Санкт – Петербург, «Питер», 2006, с.368

2. Л.А.Демидова, А.Н.Пылькин Программирование в среде Visual Basic for Applications, Москва, «Горячая линия - Телеком», 2004, с.175

3. В.Г.Кузьменко Программирование на VBA 2002, Москва, «Бином», 2003, с.880

4. С.Каммингс VBA для “чайников”, 3-е издание, «Вильямс», 2001, с.448

5. П.Дюбуа, MySQL, «Вильямс», 2001, c.816

6. Л.Веллинг, Л.Томсон MySQL. Учебное пособие, «Вильямс», 2005, с.304

7. П.Дюбуа, MySQL, 2-е издание, «Вильямс», 2004, с.1056

8. А.С.Марков, К.Ю.Лисовский Базы данных, Москва, «Финансы и статистика», 2006, с.512

9. А.Горев, С.Макашарипов, Р.Ахаян. Эффективная работа с СУБД

ПРИЛОЖЕНИЕ А

Процедуры, используемые в программе

Sub VREMY()

'Процедура для определения приветствия

If Time < 0.5 Then

MsgBox "Доброе утро" & ". Вас приветствует тестовая программа"

Else

If Time >= 0.5 And Time < 0.7 Then

MsgBox "Добрый день" & ". Вас приветствует тестовая программа"

Else

If Time >= 0.7 Then

MsgBox "Добрый вечер" & ". Вас приветствует тестовая программа"

End If

End If

End If

End Sub

Выставление оценки

Public Sub resultat()

If prav_otv = 0 Then

Call MsgBox("Всего правильных ответов " + CStr(prav_otv) + " из 4" + vbCrLf + "Оценка 2", vbCritical + vbOKOnly, "Tester")

End If

Запись полученной оценки в базу данных

Call Database.QueryMySQL("INSERT INTO test.rezyltat (ocenca)" + _

"VALUES ('" + CStr(2) + "');")

ПРИЛОЖЕНИЕ В

Запись данных в базу данных MySQl:

Call Database.QueryMySQL("INSERT INTO test.svedenia (Familia_Imia, gruppa)" + _

"VALUES ('" + TextBox1.Text + "', '" + TextBox2.Text + "');")

Выбор случайного теста:

a = Database.QueryMySQL("SELECT * FROM test.vopros ORDER BY RAND() LIMIT 4")