">
Информатика ![]() | |||||||||||||||||||||||||||||||||||||||||
Похожие работы:
| |||||||||||||||||||||||||||||||||||||||||
МИНИСТЕРСТВО КУЛЬТУРЫ РОССИЙСКОЙ ФЕДЕРАЦИИ САНКТ-ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ КУЛЬТУРЫ И ИСКУССТВ Информационная система по тестированию остаточных знаний 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://эссе.рф - сборник не проиндексированных рефератов. Поиск по рубрикам и теме. Большинство текстов бесплатные. Магазин готовых работ. |
© 2010–2021 Эссе.рф: Библиотека учебных материалов |