Vinn

  • 18 сент. 2012 г.
  • 1592 Слова
Содержание:
Введение……………………………………………………………………………………………………………………… 2
Программный код………………………………………………………………………………………………………. 3
Список вопросов…………………………………………………………………………………………………………. 7
Заключение……………………………………………………………………………………………………………….. 10
Список литературы……………………………………………………………………………………………………. 11Введение
Целью моей курсовой работы является создание приложения в виде тестовой игры, для одного человека, в котором существует возможность выбрать одно из трёх направлений Excel, MathCAD, Visual Basic. При включении приложения производится регистрация и аутентификация пользователя. В ходе игры при не правильном ответе у игрока вычитаются некоторое количество баллов, из тех которые первоначально были даныв начале игры. При правильном прибавляется. После окончания игры результат должен сохраняться в отдельном файле, под именем игравшего человека.


















Программный код:

Dim q As Integer ' счетчик вопросов
Dim f As String ' переменной f присваивается значение строки из текстового файла
Dim r As Integer ' количествоправильных ответов на вопрос
Dim r1 As Integer
Dim r2 As Integer
Dim r3 As Integer
Dim r4 As Integer
Dim FileName1 As String 'название файла
Dim bufer1 As Integer 'этой переменной присваивается количество вариантов выбранных игроком
Dim qv As Integer 'кол-во вопросов для каждого уровня сложности
Dim n As Integer 'кол-во баллов
Dim sec As Integer 'кол-во секунд на ответ

' процедурасчитывает вопрос из файла и выводит в текстовые поля
Private Sub NextQuestion()
' увеличение счетчика вопросов
q = q + 1
Label3.Caption = "Вопрос №" & q & " из " & qv & ""
' если вопрос - последний
If q > qv Then
'то закрываем текстовый файл
Close #1
mnu_Начать_тестирование.Enabled = False
mmu_график.Enabled = False
Timer1.Enabled = False'остановка таймера
MsgBox "Тест завершен!", vbInformation, "" 'сообщение об окончании теста
Picture1.Visible = True
Form5.Show 'появление формы Form5 (результаты)
Exit Sub 'выход из процедуры
End If

'вопросы для игрока №1
If Not EOF(1) Then 'если файл не закончился
' считывание и вывод вопроса
Line Input #1, f 'переменной f присваиваетсязначение всей очередной строки
Text3.Text = f

' считывание вариантов ответа
Line Input #1, f 'переменной f присваивается значение всей очередной строки
Check1(0).Caption = f
Line Input #1, f 'переменной f присваивается значение всей очередной строки
Check1(0).Tag = f
'свойство Tag применяется для хранения данных
' верный ли ответ: 1 - верный, 0 -нет;
' 0 или 1 записывается в свойство Tag соответствующего
' компонента label

Line Input #1, f 'переменной f присваивается значение всей очередной строки
Check1(1).Caption = f
Line Input #1, f
Check1(1).Tag = f

Line Input #1, f
Check1(2).Caption = f
Line Input #1, f
Check1(2).Tag = f

Line Input #1, fCheck1(3).Caption = f
Line Input #1, f
Check1(3).Tag = f
End If

End Sub

Private Sub Check1_Click(Index As Integer)
'при нажатии ЛКМ на варианте ответа переменной r присваивается значение свойства Tag объекта check
'а также переменным r1-r4 (буфер ответов) помещается значение свойства Tag объекта check
If Check1(0).Value = 1 Then
r1 = Check1(0).TagElse: r1 = 0
End If
If Check1(1).Value = 1 Then
r2 = Check1(1).Tag
Else: r2 = 0
End If
If Check1(2).Value = 1 Then
r3 = Check1(2).Tag
Else: r3 = 0
End If
If Check1(3).Value = 1 Then
r4 = Check1(3).Tag
Else: r4 = 0
End If
End Sub

Private Sub Command2_Click()
sec = 20 'время на ответ
r = r1 + r2 + r3 + r4
'цикл считывает варианты...
tracking img