Написать программу тестер знаний с своеобразной БД

@Botane · Регистрация: 11.12.2010

Студворк — интернет-сервис помощи студентам

Доброго времени суток! Учитель подкинул задачку: написать программу тестер знаний с своеобразной БД.
И так на форме расположено:
Label1 - метка в которой будет слово
4 OptionButton - в которых варианты перевода
И две кнопки Start и Next
По нажатию на Start появляются метка и optionButton и кнопка Next - сделал
Но нужна помощь вот в чем:
В ресурсах лежит файл *.txt, В нем должны быть слова и варианты перевода(один из которых естественно правильный)

Привер txt файла:
* обязательный разделитель(условие учителя)
Go ' слово которое надо перевести
плавать ' варианты ответа
летать ' варианты ответа
ходить ' варианты ответа
думать ' варианты ответа
*
Swim ' второе слово для перевода
плавать
видеть
слышать
думать

Как заставить VB читать этот файл и расставлять варианты ответа в OptionButton в разнобой, а не так как они указаны в txt? И как указать программе какой правильный ответ?
Надеюсь что понятно. В заранее спасибо

@Апострофф · 19.10.2011, 11:20

Делал я как-то подобное на каком-то форуме...
Тест рандомно не только выдает ответы, но и задает вопросы.
Прицепил.
Надеюсь, разберешься.

(Первый ответ на вопрос в txt-файле - верный)

@Botane · 19.10.2011, 16:14 **[ТС]**

Большое спасибо! Сижу разбираю.. А как программа узнает какой вариант правильный?
А все понял

@Ципихович Эндрю · 19.10.2011, 18:16

Апострофф, там у Вас есть код загрузк формы:

Visual Basic
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
26
27
Private Sub Form_Load()
If CQ = 0 Then
  Me.Caption = "Тест на логику для " & Environ$("USERNAME")
  Command1.Caption = "Следующий вопрос"
  ReDim Q(0), R(0 To 2, 0)
  Dim S As String
  Open App.Path + "\mTest.txt" For Input As 1
  While Not EOF(1)
    Line Input #1, S
    S = Trim(S)
    If Val(S) > 0 Then
      CQ = CQ + 1
      ReDim Preserve Q(CQ), R(0 To 2, CQ)
      Q(CQ) = Mid(S, InStr(1, S, " ") + 1)
      CR = 0
    ElseIf S > "" Then
      R(CR, CQ) = Mid(S, InStr(1, S, " ") + 1)
      CR = CR + 1
    End If
  Wend
  Close 1
End If
ReDim b_Q(CQ)
CR = 0
CV = 0
Command1_Click
End Sub

также есть Dim CQ As Integer 'к-во вопросов в базе
то есть при загрузке формы CQ всегда ноль??
если да зачем условие If CQ = 0 Then???
если нет как он считает??
Спасибо

@Апострофф · 19.10.2011, 18:33

Ципихович Эндрю,
CQ = 0 я использовал в качестве флага - при повторном тесте вызывается Form_Load (см. MsgBox выше(или ниже

))
- таким образом пропускаем лишний код и обнуляем то, что необходимо.
Идея не самая блестящая, но на момент написания (года два назад) и при обычном цейтноте другого не придумалось:black_eye.:

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

@Botane 0 / 0 / 0 Регистрация: 11.12.2010 Сообщений: 34

	Написать программу тестер знаний с своеобразной БД 19.10.2011, 08:35. Показов 1701. Ответов 4 Метки нет (Все метки) Доброго времени суток! Учитель подкинул задачку: написать программу тестер знаний с своеобразной БД. И так на форме расположено: Label1 - метка в которой будет слово 4 OptionButton - в которых варианты перевода И две кнопки Start и Next По нажатию на Start появляются метка и optionButton и кнопка Next - сделал Но нужна помощь вот в чем: В ресурсах лежит файл .txt, В нем должны быть слова и варианты перевода(один из которых естественно правильный) Привер txt файла: обязательный разделитель(условие учителя) Go ' слово которое надо перевести плавать ' варианты ответа летать ' варианты ответа ходить ' варианты ответа думать ' варианты ответа * Swim ' второе слово для перевода плавать видеть слышать думать Как заставить VB читать этот файл и расставлять варианты ответа в OptionButton в разнобой, а не так как они указаны в txt? И как указать программе какой правильный ответ? Надеюсь что понятно. В заранее спасибо 0

@Botane 0 / 0 / 0 Регистрация: 11.12.2010 Сообщений: 34
	19.10.2011, 16:14 [ТС]
	Большое спасибо! Сижу разбираю.. А как программа узнает какой вариант правильный? А все понял 0

@Апострофф 9908 / 3928 / 742 Регистрация: 11.10.2011 Сообщений: 5,908
	19.10.2011, 18:33
	Ципихович Эндрю, CQ = 0 я использовал в качестве флага - при повторном тесте вызывается Form_Load (см. MsgBox выше(или ниже)) - таким образом пропускаем лишний код и обнуляем то, что необходимо. Идея не самая блестящая, но на момент написания (года два назад) и при обычном цейтноте другого не придумалось:black_eye.: 0