Автор работы: Пользователь скрыл имя, 17 Апреля 2014 в 15:16, курсовая работа
Цель работы – подготовить фрагмент электронного учебного пособия для последующего включения в общую электронную оболочку.
Поставленная нами цель предполагает решение ряда задач:
1. Изучить особенности электронного учебного пособия и принципы построения;
2. В соответствии с выделенными принципами отобрать, систематизировать и выразить в электронной форме текстовый материал;
3. Подобрать наглядный и справочный материал и ввести его в среду программирования Visual Basic 6.
Введение 3
Глава 1. Основные принципы создания электронных учебников 6
1.1 Понятие электронного учебного пособия 6
1.2 Отличительные признаки электронных и печатных учебников 8
1.3 Программный инструментарий создания электронного учебника 10
Глава 2. Создание электронного учебного пособия по теме «Системы счисления и логическая алгебра» в среде программирования Visual Basic 6.0 16
2.1 Структура и интерфейс электронного учебного пособия 16
2.2 Программная реализация электронного учебного пособия по теме «Системы счисления и логическая алгебра» в среде Visual Basic 6.0 18
Заключение 24
Литература 25
If Option1.Caption <> "" Then
If Image1.Tag = 1 Then
Option1.Top = Image1.Top + Image1.Height + 7
Else: Option1.Top = Label1.Top + Label1.Height + 7
End If
Option1.Visible = True
End If
If Option2.Caption <> "" Then
Option2.Top = Option1.Top + Option1.Height + 7
Option2.Visible = True
End If
If Option3.Caption <> "" Then
Option3.Top = Option2.Top + Option2.Height + 7
Option3.Visible = True
End If
If Option4.Caption <> "" Then
Option4.Top = Option3.Top + Option3.Height + 7
Option4.Visible = True
End If
End Sub
' определение достигнутого уровня
Sub itog()
Dim i As Integer
Dim buf As String
buf = "Результаты тестирования:" + vbCrLf + _
"Всего баллов: " + Str(summa)
i = 1
While (summa < level(i)) And (i < N_LEV)
i = i + 1
Wend
buf = buf + vbCrLf + mes(i)
Label1.Caption = buf
End Sub
' выбор 1-го варианта ответа
Private Sub Option1_Click()
otv = 1
Command1.Enabled = True
End Sub
' выбор 2-го варианта ответа
Private Sub Option2_Click()
otv = 2
Command1.Enabled = True
End Sub
' выбор 3-го варианта ответа
Private Sub Option3_Click()
otv = 3
Command1.Enabled = True
End Sub
' выбор 4-го варианта ответа
Private Sub Option4_Click()
otv = 4
Command1.Enabled = True
End Sub