1035
.pdfWorksheets("Группы").Select 'выбор листа "Группы"
n = 0 'количество групп+1(заголовок "Группы")
Do While Cells(n + 1, 1) <> "" n = n + 1
Loop
Set uf = UserForm1 'объект присвоить переменной
For row = 2 To n 'заголовок "Группы" не включается ' Добавление опции (наименование группы)
uf.ComboBox1.AddItem Sheets("Группы").Cells(row, 1)
Next row |
|
uf.Label2.Enabled = False |
'недоступна Надпись "ФИО" |
uf.Label3.Enabled = False |
' недоступна Надпись "Раздел" |
uf.ComboBox2.Enabled = False 'недоступно Комбинированное поле "ФИО" uf.ComboBox3.Enabled = False 'недоступно Комбинированное поле "Раздел"
uf.Frame1.Enabled = False |
'недоступна Рамка "Тестовые задания" |
uf.Label4.Enabled = False |
'недоступна Надпись "Вопрос" |
uf.TextBox1.Enabled = False 'недоступно Текстовое поле "Вопрос"
uf.OptionButton1.Enabled = False 'недоступен Переключатель Ответ 1 uf.OptionButton2.Enabled = False 'недоступен Переключатель Ответ 2 uf.OptionButton3.Enabled = False 'недоступен Переключатель Ответ 3 uf.OptionButton4.Enabled = False 'недоступен Переключатель Ответ 4 uf.CommandButton1.Enabled = False 'недоступна Кнопка "Далее" uf.CommandButton2.Enabled = False 'недоступна Кнопка "Выход" uf.Show ' загрузить Форму UserForm1
End Sub
–––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––
' Выбор Группы и добавление в ComboBox2 опции (ФИО с листа АД-07Д1,...)
Private Sub ComboBox1_Change() Dim row As Integer
' ComboBox1.Value = название листа(наименование группы АД-07Д1,...)
Worksheets(ComboBox1.Value).Select
nfio = 0 'число студентов +1(заголовок ФИО)
Do While Cells(nfio + 1, 1) <> "" nfio = nfio + 1
Loop
For row = 2 To nfio
'Добавление опции
uf.ComboBox2.AddItem Sheets(ComboBox1.Value).Cells(row, 1) Next row
uf.Label2.Enabled = True ' доступна Надпись "ФИО"
'Доступно Комбинированное поле для выбора ФИО
21
uf.ComboBox2.Enabled = True End Sub
–––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––
' Выбор ФИО и добавление в ComboBox3 опции (название раздела с листа "Разделы")
Private Sub ComboBox2_Change() Dim row As Integer, n As Integer Worksheets("Разделы").Select
n = 0 'число тем +1(заголовок "Разделы")
Do While Cells(n + 1, 1) <> "" n = n + 1
Loop
For row = 2 To n 'заголовок "Разделы" не включается ' Добавление опции(номер и наименование раздела)
uf.ComboBox3.AddItem Sheets("Разделы").Cells(row, 1) Next row
uf.Label3.Enabled = True ' доступна Надпись "Раздел"
'Доступно Комбинированное поле для выбора Раздела
uf.ComboBox3.Enabled = True End Sub
–––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––
' Выбор Раздела и вызов Первого вопроса
Private Sub ComboBox3_Change()
uf.Frame1.Enabled = True |
'доступна Рамка "Тестовые задания" |
uf.Label4.Enabled = True |
'доступна Надпись "Вопрос" |
uf.TextBox1.Enabled = True 'доступно Текстовое поле для вывода Вопроса
uf.CommandButton2.Enabled = True 'доступна Кнопка "Выход"
NQuestion 'процедура вычисления количества тестовых заданий
uf.Label7.Caption = nQuest 'заданий всего
Question (1) 'процедура вызова вопроса (1-номер строки с вопросом)
uf.Label8.Caption = cQuest 'номер текущего задания
uf.Label1.Enabled = False |
'недоступна Надпись "Группы" |
uf.Label2.Enabled = False |
'недоступна Надпись "ФИО" |
uf.Label3.Enabled = False |
'недоступна Надпись "Раздел" |
'Недоступно Комбинированное поле для выбора Группы
uf.ComboBox1.Enabled = False
'Недоступно Комбинированное поле для выбора ФИО
uf.ComboBox2.Enabled = False
' Недоступно Комбинированное поле для выбора Раздела
uf.ComboBox3.Enabled = False End Sub
–––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––
22
' Подсчет числа правильных ответов и вызов следующего задания
Private Sub CommandButton1_Click() Dim i As Integer
' Подсчет числа правильно выполненных заданий
If uf.OptionButton1.Value = True Then
' +1, если ответ 1 отмечен как верный
nQuestP = nQuestP + Cells((cQuest - 1) * 5 + 2, 1) End If
If uf.OptionButton2.Value = True Then
' +1, если ответ 2 отмечен как верный
nQuestP = nQuestP + Cells((cQuest - 1) * 5 + 3, 1) End If
If uf.OptionButton3.Value = True Then
' +1, если ответ 3 отмечен как верный
nQuestP = nQuestP + Cells((cQuest - 1) * 5 + 4, 1) End If
If uf.OptionButton4.Value = True Then
' +1, если ответ 4 отмечен как верный
nQuestP = nQuestP + Cells((cQuest - 1) * 5 + 5, 1) End If
'Вызов следующего задания
'Если все задания выполнены, то название кнопки "Далее" изменяется на "Завершить"
If CommandButton1.Caption <> "Завершить" Then
iQuest = cQuest * 5 + 1 'номер строки, содержащей очередной вопрос Question (iQuest) 'процедура вызова задания (iQuest-номер строки с вопросом)
Else 'все задания выполнены
uf.TextBox1.Text = " "
uf.Label4.Enabled = False 'недоступна Надпись "Вопрос"
uf.TextBox1.Enabled = False 'недоступно Текстовое поле с Вопросом
uf.OptionButton1.Enabled = False 'недоступен Переключатель Ответ 1 uf.OptionButton2.Enabled = False 'недоступен Переключатель Ответ 2 uf.OptionButton3.Enabled = False 'недоступен Переключатель Ответ 3 uf.OptionButton4.Enabled = False 'недоступен Переключатель Ответ 4 uf.CommandButton1.Enabled = False ' недоступна Кнопка "Завершить" End If
End Sub
–––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––
' Вызов тестового задания
Sub Question(ByVal iRow As Integer)
Dim path_bmp As String, file_bmp As String
' Номер темы = номеру листа
Worksheets(Trim(Str(ComboBox3.ListIndex + 1))).Select
23
If Cells(iRow, 1) <> Trim(" ") Then
'Путь к папке, содержащей графические файлы(Рис1.bmp, Рис2.bmp и т.д.)задания
path_bmp = Trim(Cells(2, 4))
'Полное имя графического файла
file_bmp = path_bmp + "\" + Cells(iRow, 1) If Dir(file_bmp) <> "" Then
uf.Image1.Picture = LoadPicture(path_bmp + "\" + Cells(iRow, 1)) Else
MsgBox ("Нет графического файла " + file_bmp) End If
Else
uf.Image1.Picture = LoadPicture() 'очистка графического поля End If
'Вопрос и ответы
uf.TextBox1.Text = Cells(iRow, 3) 'вопрос uf.OptionButton1.Caption = Cells(iRow + 1, 3) 'ответ 1 uf.OptionButton2.Caption = Cells(iRow + 2, 3) 'ответ 2 uf.OptionButton3.Caption = Cells(iRow + 3, 3) 'ответ 3 uf.OptionButton4.Caption = Cells(iRow + 4, 3) 'ответ 4 uf.OptionButton1.Enabled = True 'доступен Переключатель Ответ 1 uf.OptionButton2.Enabled = True 'доступен Переключатель Ответ 2 uf.OptionButton3.Enabled = True 'доступен Переключатель Ответ 3 uf.OptionButton4.Enabled = True 'доступен Переключатель Ответ 4 uf.OptionButton1.SetFocus 'фокус на Переключателе Ответ 1
'Ответ не выбран
uf.OptionButton1.Value = False ' удаление метки Переключателя Ответ 1 uf.OptionButton2.Value = False ' удаление метки Переключателя Ответ 2 uf.OptionButton3.Value = False 'удаление метки Переключателя Ответ 3 uf.OptionButton4.Value = False ' удаление метки Переключателя Ответ 4 'Недоступна Кнопка "Далее" пока не выбран ответ
uf.CommandButton1.Enabled = False
cQuest = cQuest + 1 |
'количество выполненных тестовых заданий |
uf.Label8.Caption = cQuest 'номер текущего задания |
|
If cQuest = nQuest Then |
'если выполняется последнее задание |
'Переименование Кнопки "Далее"
uf.CommandButton1.Caption = "Завершить" End If
End Sub
–––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––
'Вычисление количества тестовых заданий
Sub NQuestion()
24
'Номер Раздела = номеру листа
Worksheets(Trim(Str(ComboBox1.ListIndex + 1))).Select
cQuest = 0 'количество выполненных тестовых заданий nQuestP = 0 'количество правильно выполненных тестовых заданий nQuest = 0 'количество тестовых заданий всего
Do While Cells(nQuest + 1, 3) <> "" nQuest = nQuest + 1
Loop
nQuest = nQuest / 5 End Sub
–––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––
' Кнопка "Выход" с сохранением результатов тестирования
Private Sub CommandButton2_Click() Dim row As Integer
Worksheets(ComboBox1.Value).Select 'лист с наименованием группы
'Вывод результатов тестирования в строку с ФИО студента
For row = 1 To nfio
'Если ComboBox2.Text=ФИО
If uf.ComboBox2.Text = Sheets(ComboBox1.Value).Cells(row, 1) Then
Cells(row, 2) = nQuest 'количество тестовых заданий всего Cells(row, 3) = cQuest 'количество выполненных тестовых заданий Cells(row, 4) = nQuestP 'количество правильных ответов Cells(row, 5) = "" ' очистка ячеек с оценкой по шкале 0-100 баллов
Cells(row, 5) = Round(nQuestP / nQuest * 100) 'оценка округляется End If
Next row Unload uf End Sub
–––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––
' Сделать доступной кнопку "Далее" после выбора переключателя Ответ 1
Private Sub OptionButton1_Click() uf.CommandButton1.Enabled = True End Sub
–––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––
'Сделать доступной кнопку "Далее" после выбора переключателя Ответ 2
Private Sub OptionButton2_Click() uf.CommandButton1.Enabled = True End Sub
–––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––
' Сделать доступной кнопку "Далее" после выбора переключателя Ответ 3
Private Sub OptionButton3_Click()
25
uf.CommandButton1.Enabled = True End Sub
–––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––
'Сделать доступной кнопку "Далее" после выбора переключателя Ответ 4
Private Sub OptionButton4_Click() uf.CommandButton1.Enabled = True End Sub
5. Создание кнопки «Запуск теста» на рабочем листе «Группы»
1. |
Перейдите на рабочий лист Группы. |
|
|
|
||||
2. |
Выполните команду Вид►Панели инструментов►Элементы |
|||||||
|
управления. |
|
|
|
|
|
Кнопка |
|
3. |
Создайте |
на рабочем |
листе элемент управления |
|||||
|
(CommandButton1). |
|
Свойства на |
|
|
|||
4. |
Вызовите |
окно |
свойств |
кнопкой |
панели |
|||
|
Элементы управления. |
|
|
|
|
|||
5. |
Установите для кнопки CommandButton1 значение свойства. |
|||||||
|
|
|
|
|
|
|
||
Объект |
|
|
Свойство |
Значение |
|
|
||
CommandButton1 |
|
Caption |
Запуск теста |
|
|
|||
6. |
Дважды щелкните мышкой на кнопке Запуск теста. В |
|||||||
|
открывшемся окне Редактора кода наберите программный код: |
' Запуск процедуры Старт
Private Sub CommandButton1_Click() UserForm1.Старт
End Sub
7.Перейдите на рабочий лист Группы.
8.На панели Элементы управления нажмите кнопку Выход из режима конструктора.
9.Закройте окна Свойства и Элементы управления.
10.Сохраните книгу в файле (например: 10.3.АД–07Д1.Федотов.xls). 11.Запустите приложение кнопкой Запуск теста, предварительно подготовив исходные данные, соответствующие своему варианту
задания.
26
Замечание.
Для запуска тестирующей программы необходимо выполнить следующие действия:
1.Загрузить Excel.
2.Открыть файл 10.3.АД–07Д1Федотов.xls.
3.Запустить приложение кнопкой Запуск теста на листе Группы.
27
Приложение 4
График выполнения этапов курсовой работы
Номер |
ФИО |
|
|
Оценка в баллах |
|
|
|
варианта |
студента |
1 этап |
2 этап |
3 этап |
Сдача |
Защита |
|
|
|
Дата |
Дата |
Дата |
Дата |
Дата |
|
1 |
|
|
|
|
|
|
|
2 |
|
|
|
|
|
|
|
3 |
|
|
|
|
|
|
|
4 |
|
|
|
|
|
|
|
5 |
|
|
|
|
|
|
|
6 |
|
|
|
|
|
|
|
7 |
|
|
|
|
|
|
|
8 |
|
|
|
|
|
|
|
9 |
|
|
|
|
|
|
|
10 |
|
|
|
|
|
|
|
11 |
|
|
|
|
|
|
|
12 |
|
|
|
|
|
|
|
13 |
|
|
|
|
|
|
|
14 |
|
|
|
|
|
|
|
15 |
|
|
|
|
|
|
|
16 |
|
|
|
|
|
|
|
17 |
|
|
|
|
|
|
|
18 |
|
|
|
|
|
|
|
19 |
|
|
|
|
|
|
|
20 |
|
|
|
|
|
|
|
21 |
|
|
|
|
|
|
|
22 |
|
|
|
|
|
|
|
23 |
|
|
|
|
|
|
|
24 |
|
|
|
|
|
|
|
25 |
|
|
|
|
|
|
|
|
|
|
|
|
|
Приложение 5 |
Образец надписи конверта с диском
Тема |
10.3.Сетевой сервис |
Группа |
АД-07Д1 |
Фамилия, инициалы |
Федотов А.В. |
1 этап – написание реферата.
2 этап – подготовка презентации и доклада.
3 этап – разработка программы тестирования.
28
Приложение 6
Образец оформления реферата
Образец титульного листа
Министерство образования и науки РФ Сибирская государственная автомобильно-дорожная академия
(СибАДИ)
Кафедра «Информационные технологии»
Курсовая работа по информатике
Название: РАЗРАБОТКА ОБУЧАЮЩЕГО МОДУЛЯ
ПО ИНФОРМАТИКЕ
Раздел 10. ЛОКАЛЬНЫЕ И ГЛОБАЛЬНЫЕ СЕТИ ЭВМ Тема 10.3.Сетевой сервис
Выполнил: К.В.Федотов, группа АД-07Д1
Руководитель: В.А.Ким
Защитил: ________ , _________ , __________
оценка дата подпись
Омск–2008
29
Образец содержания |
|
Оглавление |
|
10. ЛОКАЛЬНЫЕ И ГЛОБАЛЬНЫЕ СЕТИ ЭВМ................................................. |
31 |
Введение................................................................................................................... |
31 |
10.3. Сетевой сервис................................................................................................ |
31 |
10.3.1. WWW............................................................................................................ |
31 |
10.3.2. E-mail............................................................................................................ |
31 |
Ключевые понятия................................................................................................... |
31 |
Контрольные вопросы............................................................................................. |
31 |
Тест........................................................................................................................... |
31 |
Библиографический список..................................................................................... |
31 |
30