Тема: Информационная система по тестированию остаточных знаний UniTest

МИНИСТЕРСТВО КУЛЬТУРЫ РОССИЙСКОЙ ФЕДЕРАЦИИ

САНКТ-ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ КУЛЬТУРЫ И ИСКУССТВ

Информационная система по тестированию остаточных знаний UniTest

Курсовая работа

г. Санкт-Петербург

2012 г.

Министерство культуры Российской Федерации

Федеральное государственное бюджетное образовательное учреждение

высшего профессионального образования

«Санкт-Петербургский государственный университет

культуры и искусств»

Кафедра информационно-управляющих и мультимедиа систем

Информационная система по тестированию остаточных знаний UniTest

Курсовая работа по курсу «Инструментальные средства создания локальных ИС»

Выполнил:

___________________

(подпись)

Научный руководитель

К защите допускается: ___________________

(подпись)

Санкт-Петербург

2012

Оглавление

Введение Стр. 4

Раздел 1. Сравнительный анализ подобных ИС

«Конструктор тестов» Стр. 5

Система тестирования от ДТК Софт Стр. 5

Раздел 2. Постановка задачи

2.1. Цели и Задачи ИС Стр. 6

2.2. Требования к системе Стр. 6

Раздел 3. Решение задачи

3.1. Структура и описание работы UniTest Стр. 7

3.1.1. Главная/начальная форма Стр. 7

3.1.2. Окно тестирования Стр. 7

3.1.3. Окно результатов Стр. 8

3.1.4. Окно информации Стр. 9

3.2. Анализ информационной системы. Стр. 103.3. Руководство пользователя Стр. 11

3.3.1. Составление тестов Стр. 11

3.3.2. Настройка программы Стр. 11

3.3.3. Процесс тестирования Стр. 11

3.3.4. Работа с результатом Стр. 11

3.3.4. Файлы приложения Стр. 12

3.4. Перспективы развития программы Стр. 13

Источники Стр. 14

Приложение(исходный код) Стр. 15

ВВЕДЕНИЕ

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

Сравнивая тестирование с прочими методами можно выделить следующие его особенности:

оперативность получения оценки (например, по сравнению с письменным опросом);

возможность чаще проводить контроль знаний (при наличии готового тестового материала);

наличие моментальной обратной связи (просмотр тестируемым своих ошибок и правильных ответов), что привносит в процесс оценки знаний обучающий компонент;

объективность оценки, то есть её независимость от симпатий и антипатий оценивающего лица;

массовость (то есть тестовое задание может быть разработано однажды и использовано многократно);

в общем случае, приблизительность оценки (например, по сравнению с грамотно проведённым собеседованием или опросом).

При грамотном использовании тестов недостатки такой формы оценки можно свести к минимуму, а достоинствами напротив пользоваться на 100%. Этому во многом может помочь применение компьютерной модификации этого метода, при которой основным средством сравнения выступает специальное программное обеспечение.

Тестирование в компьютерной форме исключает возможность ошибки преподавателя при проверке тестовых заданий, сводит к нулю время, необходимое на проверку (время ожидания оценки учащимися), устраняет необходимость раздачи и сбора тестового материала на бумажных носителях. В условиях, когда информатизация образования – одна из важнейших задач приоритетного национального проекта, именно такой форме тестирования нужно отдавать предпочтение.

Таким образом, можно сделать вывод, что данная тема чрезвычайно актуальна, особенно, в последние годы.

Раздел 1. Сравнительный анализ подобных ИС

1.1. «Конструктор тестов»

«Конструктор тестов» от компании Кeepsoft - это универсальная система проверки знаний. Данную программу можно использовать как в домашних условиях, так и для проведения тестирования в любых учебных заведениях. Программа позволяет использовать неограниченное количество тем, вопросов и ответов. Программа поддерживает пять типов вопросов, что позволяет проводить любые тесты. В тестах имеется возможность использовать музыку, звуки, изображения и видеоролики. Любые данные можно распечатать на принтере. На одном компьютере тестирование независимо могут проходить несколько человек, входя в программу под своими именами. Программа проста в использовании, имеет удобный и понятный русский интерфейс.

«Конструктор тестов» состоит из трех частей:

1. "Конструктор тестов. Редактор" - предназначен для заполнения и редактирования базы данных, а так же для различных настроек "Конструктора тестов".

2. "Конструктор тестов. Тренажер" - предназначен для проведения тестирования по тем темам и вопросам, которые были занесены в базу данных при помощи "Редактора".

3. "Конструктор тестов. Администратор результатов" - предназначен для анализа результатов, полученных в процессе тестирования в программе "Конструктор тестов. Тренажер".

1.2. «Система тестирования» от ДТК Софт

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

В ней реализованы следующие основные функции:

1. Подготовка тестов. Система предусматривает возможность создания тестов. Для этого разработан удобный инструмент описания вопросов и ответов, причем вводимые тексты могут содержать картинки, таблицы, формулы и др.

2. Распределение тестов. Для распределения тестов разработан не менее удобный инструмент распределения вопросов и ответов, в котором задается группа тестируемых, тематический раздел и способ распределения вопросов.

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

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

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

Раздел 2. Постановка задачи

Задача работы - составить программу в виде теста средствами Visual Studio 2008 и технологии Windows forms, позволяющую проводить проверку остаточных знаний.

2.1. Цели и Задачи ИС

Целью программы является проверка остаточных знаний у учеников тестами на различные темы. Программа так же может использоваться персонально для подготовки к тестированию. Задания добавляются пользователем. Результаты, содержащие имя экзаменуемого, дату и оценку, сохраняются в отчет, если данная операция разрешена в настройках. Так же возможен промотор результатов теста из окна программы и экспорт данных в документ Microsoft Word. Для тестов различной сложности предусмотрена настройка времени тестирования

В задачи системы входит:

- Проведение тестирований остаточных знаний

- Выставление оценок по результатам тестов

- Сохранение результатов тестов в файл

- Взаимодействие с MS Word и принтером

- Установка времени тестирования. По истечении времени тест останавливается.

2.2. Требования к системе

Система должна быть одинаково пригодна как для тестов в учебных заведениях, так и для домашней самоподготовки. Программа должна быть проста в работе и настройке, не требовать высоких характеристик компьютера. Программа должна иметь возможность работать с внешними файлами, иметь защиту от повреждения и/или возможность регенерации рабочих файлов. Файлы заданий и настроек должны иметь интуитивно понятную структуру для возможности редактирования средствами программы «Блокнот».

Исходя из этого следует, что основными требованиями являются:

- Полное функционирование программы вне среды разработки;

- Проведение тестирования с числом вопросов до 150 и тремя вариантами ответов;

- Возможность настройки процесса тестирования;

- Сохранение результатов в отдельный файл;

- Возможность просмотра результатов;

- Интуитивно понятный интерфейс;

- Простота и небольшой размер исполняемого файла.

Раздел 3. Решение задачи

3.1. Структура и описание работы UniTest

3.1.1. Главная/начальная форма

3.1.2. Форма теста

3.1.3. Форма результатов

3.1.4. Форма информации

3.2. Анализ информационной системы.

UniTest – универсальная система для тестирования знаний в различных областях. Имеет высокую надежность, простоту, интуитивно понятный интерфейс и гибкие настройки. Процесс тестирования заключается в выборе одного из трех вариантов ответов на определенную последовательность вопросов в количестве от 1 до 150. После завершения теста программа выводит количество правильных ответов и подсчитывает результат (для успешной сдачи теста требуется 80% правильных ответов).

Тест хранится в одном текстовом файле, редактируемом вручную через «Блокнот». Текст теста имеет понятную и логичную структуру, поэтому с легкостью может быть создан любым продвинутым пользователем.

Результаты тестов могут быть как сохранены в документе формата Word, так и распечатаны из начальной формы.

При удалении файлов с настройками или результатами, при запуске программы файлы восстанавливаются с исходным содержимым благодаря записанной в процесс загрузки форм процедуре.

В UniTest реализованы следующие основные функции:

1. Прохождение тестирования. Тестирование знаний происходит в отдельной форме приложения, вопросы идут в строгом порядке. Интерфейс формы интуитивно понятен даже начинающему пользователю. Прохождение теста ограничено временем, по истечении которого тест прекращается и выводится результат.

2. Работа с результатами тестирования. Возможен просмотр как результатов как в окне программы, так и в формате документа Word или текстовом файле, а так же реализована возможность удаления всех результатов теста.

3. Печать отчетной документации. В UniTest предусмотрена кнопка вывода результатов на печать прямо из формы.

3.3. Руководство пользователя

3.3.1. Составление теста

Вопросы к тесту находятся в файле minitest.txt. Структура текста следующая: первая строка — заголовок теста; далее следуют вопросы и варианты ответов. После каждого альтернативного ответа стоит 1 или 0. Единица показывает, что данный вариант ответа — правильный, 0 — нет. Следует обратить внимание, что каждое сообщение, вопрос и ответ в файле теста должны представлять собой одну строку. Для сдачи экзамена нужно набрать не менее 80% правильных ответов

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

Настройка сводится к установке времени теста, а так же включении/выключении функции сохранения результатов в файл results.txt и функции запроса имени экзаменуемого перед началом теста. Все настройки хранятся в файле settings.cfg.

3.3.3. Прохождение теста

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

3.3.4. Работа с результатами

Результаты тестов выводятся в документ Microsoft Word при нажатии на определенную кнопку. При нажатии на кнопку «Распечатать» содержимое формы передается на печать принтеру. При нажатии кнопки «Очистить» удаляются все результаты.

3.3.5. Файлы программы.

UniTest состоит из трех файлов – исполняемого UniTest.exe, файла с тестом minitest.txt, файла с настройками settings.cfg и файла результатов results.txt. При утрате трех последних файлов, при запуске UniTest.exe файлы создаются заново с исходными значениями.

3.4. Перспективы развития UniTest

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

Источники

Конспекты лекций по курсу «Инструментальные средства создания локальных ИС»

Пауэрс Л., Снелл М. Microsoft Visual Studio 2008/ СПб.: БХВ-Петербург, 2009. - 1200 стр.: ил. –

MSDN – Изучите разработку программного обеспечения для настольного ПК! (Электронный ресурс) - Режим доступа: http://msdn.microsoft.com

Система тестирования от ДТК Софт, описание (Электронный ресурс) – Режим доступа: http://www.softholm.com/download-software-free9840.htm

Система «Конструктор тестов», описание (Электронный ресурс) - Режим доступа: http://www.keepsoft.ru/simulator.htm

Приложение

Исходный код программы UniTest

Index.vb – Главная форма

Dim sett As Integer

Dim time As Integer

Private Sub index_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Label9.Visible = True

GroupBox1.Visible = False

Button4.Visible = False

Button5.Visible = False

Try

Dim Liness() As String = IO.File.ReadAllLines("settings.cfg", System.Text.Encoding.Default)

Label13.Text = Liness(1)

Catch ex As Exception

End Try

Dim Файл As New System.IO.StreamReader("minitest.txt", _

System.Text.ASCIIEncoding.GetEncoding(1251))

Do While Файл.Peek() <> -1

Строки(z) = Файл.ReadLine

z = z + 1

Loop

Файл.Close()

ЧислоСтрок = z / 8

Label8.Text = ЧислоСтрок

Label2.Text = Строки(1)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Form1.Show()

Me.Hide()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

spra.Show()

End Sub

Public Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Label9.Visible = False

GroupBox1.Visible = True

Button5.Visible = True

Label13.Visible = False

Button4.Visible = True

Button6.Visible = False

Try

Dim Lines() As String = IO.File.ReadAllLines("settings.cfg", System.Text.Encoding.Default)

NumericUpDown1.Value = Lines(1)

CheckBox1.Checked = Lines(2)

CheckBox1.Checked = Lines(3)

Catch ex As Exception

End Try

End Sub

Public Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Label9.Visible = True

GroupBox1.Visible = False

Button4.Visible = False

Label13.Visible = True

Button5.Visible = False

Button6.Visible = True

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Label9.Visible = True

GroupBox1.Visible = False

Button4.Visible = False

Label13.Visible = True

Button5.Visible = False

Button6.Visible = True

Dim Lines(3) As String

Lines(0) = "///Первая строка - длительность тестирования в минутах, вторая разрешает сохранять результаты в файл, трятяя разрешает ввод имени тестируемого"

Lines(1) = NumericUpDown1.Value

Lines(2) = CheckBox1.Checked

Lines(3) = CheckBox2.Checked

IO.File.WriteAllLines("settings.cfg", Lines, System.Text.Encoding.Default)

FileClose(1)

MsgBox("Все настройки сохранены в файле settings.cfg", , "Применение настроек")

Try

Dim Liness() As String = IO.File.ReadAllLines("settings.cfg", System.Text.Encoding.Default)

Label13.Text = Liness(1)

Catch ex As Exception

End Try

End Sub

Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged

If NumericUpDown1.Value = 0 Then MsgBox("Тест не может длиться 0 минут") : NumericUpDown1.Value = 2

If NumericUpDown1.Value = 1 Then MsgBox("Тест не может длиться меньше 2 минут") : NumericUpDown1.Value = 2

End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

If Not File.Exists("results.txt") Then

File.Create("results.txt")

End If

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

Rezu.Show()

End Sub

End Class

Form1.vb – Форма тестирования

Imports System

Imports System.IO

Public Class Form1

Dim q As Integer общее количество вопросов

Dim r As Integer количество правильных ответов

Dim Строки(1000) As String массив строк из файла, размер берем с запасом

Dim z As Integer = 1

Dim min, sec As Integer

Dim ЧислоСтрок As Integer

Dim imya As String

Dim inputString As String

Dim minset As Integer

Sub СледующийВопрос() процедура считывает вопрос из файла и выводит на форму

Button3.Visible = False

Button2.Visible = True

If ЧислоСтрок >= 8 + q * 7 Then

Me.Label1.Text = Строки(2 + q * 7)

Me.RadioButton1.Text = Строки(3 + q * 7) 1-й вариант ответа

оценка 1-го варианта ответа

Me.RadioButton1.Tag = Строки(4 + q * 7) верный ли ответ: 1 - верный, 0 - нет;

0 или 1 записывается в свойство Tag соответствующего компонента RadioButton

Me.RadioButton2.Text = Строки(5 + q * 7) 2-й вариант ответа

Me.RadioButton2.Tag = Строки(6 + q * 7) оценка 2-го варианта ответа

Me.RadioButton3.Text = Строки(7 + q * 7) 3-й вариант ответа

Me.RadioButton3.Tag = Строки(8 + q * 7) оценка 3-го варианта ответа

ни один из вариантов ответа не выбран

RadioButton1.Checked = False

RadioButton2.Checked = False

RadioButton3.Checked = False

Me.Button1.Enabled = False

Me.Text = "Вопрос № " & q + 1

Me.Label4.Text = Строки(1)

q = q + 1

End If

If ЧислоСтрок < 8 + q * 7 Then

Me.Button1.Text = "Завершить"

End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

кнопка Дальше/Завершить/Снова

If RadioButton1.Checked = True Then r = r + RadioButton1.Tag

If RadioButton2.Checked = True Then r = r + RadioButton2.Tag

If RadioButton3.Checked = True Then r = r + RadioButton3.Tag

If Me.Button1.Text = "Снова" Then

Me.Button1.Text = "Дальше"

Label1.Height = Label1.Height / 2

GroupBox1.Visible = True

Label3.Visible = True

Label2.Visible = True

Timer1.Enabled = True

q = 0

r = 0

Call СледующийВопрос() вывод первого вопроса

Exit Sub

End If

If Timer1.Enabled = False Then

Timer1.Enabled = True

min = minset : sec = 0

End If

If Me.Button1.Text = "Завершить" Then

Me.Text = Строки(1)

GroupBox1.Visible = False

Label3.Visible = False

Label1.Height = Label1.Height * 2

Label1.Text = "Тестирование завершено." & vbCrLf & "Правильных ответов: " & _

r.ToString & " из " & q.ToString & " (" & Math.Round((r / q) * 100) & "%)"

Label2.Visible = False

If r < q * 0.8 Then

Label1.Text = Label1.Text & vbCrLf & "Экзамен не сдан."

Else

Label1.Text = Label1.Text & vbCrLf & "Экзамен успешно сдан."

End If

If Label7.Text = "True" Then

inputString = vbCrLf & Now & " " & imya & ":" & Label1.Text & vbCrLf & " " & vbCrLf

My.Computer.FileSystem.WriteAllText("results.txt", inputString, True)

End If

Button1.Text = "Снова"

min = minset : sec = 0

Button2.Visible = False

Button3.Visible = True

Else

Call СледующийВопрос()

End If

Call ShowTime()

End Sub

Sub ShowTime() процедура выводит остаток времени

вывод минут и секунд осуществляется двумя цифрами

Label3.Text = Format(min, "00") & ":" & Format(sec, "00")

End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Try

Dim Lines() As String = IO.File.ReadAllLines("settings.cfg", System.Text.Encoding.Default)

minset = Lines(1)

Label7.Text = Lines(2)

Label8.Text = Lines(3)

Catch ex As Exception

End Try

If Label8.Text = "False" Then imya = "имя не указано "

Label6.Text = imya

If Label8.Text = "True" Then

imya = InputBox("Введите Ваше имя", "Тестирование", "")

If imya = "" Then imya = "имя не указано "

Label6.Text = imya

End If

min = minset : sec = 0

Dim Файл As New System.IO.StreamReader("minitest.txt", _

System.Text.ASCIIEncoding.GetEncoding(1251))

Do While Файл.Peek() <> -1

Строки(z) = Файл.ReadLine

z = z + 1

Loop

Файл.Close()

ЧислоСтрок = z - 1

q = 0

r = 0

Call СледующийВопрос() вывод первого вопроса

Label3.Anchor = AnchorStyles.Left + AnchorStyles.Top + AnchorStyles.Right

Timer1.Interval = 1000

Timer1.Enabled = False

Call ShowTime()

End Sub

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

выбор первого варианта ответа

Button1.Enabled = True

End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

выбор второго варианта ответа

Button1.Enabled = True

End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged

выбор третьего варианта ответа

Button1.Enabled = True

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If MsgBox("Вы действительно хотите завершить тестирование? Ответы не будут учтены", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then

If Label7.Text = "True" Then

inputString = vbCrLf & Now & " " & imya & ": " & "Отказ от тестирования." & vbCrLf & " " & vbCrLf

My.Computer.FileSystem.WriteAllText("results.txt", inputString, True)

End If

Me.Close()

index.Show()

End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Me.Close()

index.Show()

End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If sec <> 0 Then

sec = sec - 1

Else

sec = 59

min = min - 1

End If

Call ShowTime() вывод оставшегося времени

If min = 0 And sec = 0 Then заданный интервал истек

Timer1.Enabled = False остановка таймера

Me.Text = Строки(1)

GroupBox1.Visible = False

Label3.Visible = False

Label1.Height = Label1.Height * 2

Label1.Text = vbCrLf & "Время истекло." & vbCrLf & "Правильных ответов: " & _

r.ToString & " из " & q.ToString & " (" & Math.Round((r / q) * 100) & "%)"

Label2.Visible = False

If r < q * 0.8 Then

Label1.Text = Label1.Text & vbCrLf & "Экзамен не сдан."

Else

Label1.Text = Label1.Text & vbCrLf & "Экзамен успешно сдан."

End If

If Label7.Text = "True" Then

inputString = vbCrLf & Now & " " & imya & ":" & Label1.Text & vbCrLf & " " & vbCrLf

My.Computer.FileSystem.WriteAllText("results.txt", inputString, True)

End If

Button1.Text = "Снова"

min = minset : sec = 0

Button2.Visible = False

Button3.Visible = True

End If

End Sub

End Class

Spra.vb – Форма информации

Public Class spra

Declare Function ShellExecute Lib "shell32.dll" Alias _

"ShellExecuteA" (ByVal hwnd As Integer, ByVal lpOperation As String, _

ByVal lpFile As String, ByVal lpParameters As String, _

ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer

Private Sub LinkLabel1_LinkClicked_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked

ShellExecute(Me.Handle, "open", "mailto:matvv50@bk.ru", 0, 0, 0)

End Sub

End Class

Rezu.vb – Форма результатов

Option Explicit On

Imports System

Imports System.IO

Imports System.Text

Imports System.Drawing.Printing

Imports Microsoft.Office

Public Class Rezu

Private Sub Rezu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim fileReader As String

fileReader = My.Computer.FileSystem.ReadAllText("results.txt", _

System.Text.ASCIIEncoding.GetEncoding(1251))

RichTextBox1.Text = fileReader

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Me.Hide()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

If MsgBox("Вы действительно хотите удалить все результаты? Восстановление будет невозможным", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then

RichTextBox1.Text = " "

Dim path As String = "results.txt" Create or overwrite the file.

Dim fs As FileStream = File.Create(path) Add text to the file.

Dim info As Byte() = New UTF8Encoding(True).GetBytes("") Текст заменяется на пустое значение.

fs.Write(info, 0, info.Length)

fs.Close()

Button1.Visible = False

Button2.Visible = False

Button3.Visible = False

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Печать с использованием обработчика ошибок для перехвата проблем

Try

AddHandler PrintDocument1.PrintPage, AddressOf Me.PrintDocument1_PrintPage

PrintDocument1.Print()

Catch ex As Exception перехват исключения печати

MessageBox.Show("Извините, возникли проблемы с печатью", ex.ToString())

End Try

End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim W = New Word.Application

W.Visible = True Открытие текстового документа

W.Documents.Add()

W.Selection.TypeText(RichTextBox1.Text)

End Sub

End Class

Внешние файлы Uni test (примеры)

minitest.txt – файл теста

Теория систем и системный анализ

Простейшая неделимая часть системы это:

компонент

0

ядро

0

элемент

1

Взаимосвязи, взаиморасположение основных частей системы отражает:

иерархия

0

дерево связей

0

структура

1

Относительно независимая часть системы, обладающая свойствами системы это

подсистема

1

элемент

0

компонент

0

settings.cfg – файл настроек

30

True

True

results.cfg – файл результатов

07.06.2012 22:59:15 Максим:Тестирование завершено.

Правильных ответов: 5 из 5 (100%)

Экзамен успешно сдан.

07.06.2012 22:59:34 имя не указано : Отказ от тестирования.

07.06.2012 22:59:49 Несдавший:Тестирование завершено.

Правильных ответов: 3 из 5 (60%)

Экзамен не сдан.

07.06.2012 22:59:59 Несдавальских: Отказ от тестирования.

Интернет-ресурсы:

http://эссе.рф - сборник не проиндексированных рефератов. Поиск по рубрикам и теме. Большинство текстов бесплатные. Магазин готовых работ.