|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
CheckListBox ... тест
Подскажите пожалуйста, как создать тест с использованием CheckListBox, чтобы можно было выбрать два правильных ответа ... я вроде сделал, но у меня баллы в конце не выставляет, если выбираю два ответа .. а если один, то нормально работает....
|
#2
|
||||
|
||||
Код:
for i := 0 to list.count - 1 do if list.checked[i] then s := s + list[i]; — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
||||
|
||||
А как сделать, чтобы два варианта только были верными?
|
#4
|
||||
|
||||
используйте AND-OR в конструкции IF
|
#5
|
||||
|
||||
я вот так делал, но баллы не начисляются(
Код:
If (CheckListBox1.Checked[1]=true) and (CheckListBox1.Checked[2]=true) then ball:=ball+2 else ball:=ball; |
#6
|
|||
|
|||
по такой логики получается что в CheckListBox1.Checked[1] и CheckListBox1.Checked[2] всегда находятся верные ответы, т.е. всегда тыкай первый и второй в true и будет счастье?
|
#7
|
||||
|
||||
а как тогда сделать, чтобы для каждого вопроса были свои варианты ответа?
|
#8
|
|||
|
|||
все правильно делаешь.
вот тебе код для проверки Код:
procedure TForm1.BitBtn1Click(Sender: TObject); begin ball:=0 ; If (CheckListBox1.Checked[0] = true) and (CheckListBox1.Checked[1] = true) then begin ball:=ball+2; Edit1.Text:= inttostr(ball); end else begin ball:=ball; Edit1.Text:= inttostr(ball); end; end; может тупишь ? смтотри окуда индекс начинается с 0 Последний раз редактировалось VINCENT, 26.05.2011 в 13:26. |
#9
|
||||
|
||||
спасибо за код ... да, действительно.. забыл что индекс с 0 начинается...
но теперь у меня другой вопрос, как сделать, чтобы на первом вопросе, например, 1 и 2 варианты были правильные, на втором вопросе 2 и 4, на третьем 1 и 3 варианты и так далее? а то просто получается, что на каждом вопросе одинаковые варианты ответа... |
#10
|
||||
|
||||
Random тебе в помощь.
Помогаю за Спасибо |
#11
|
||||
|
||||
ну если использовать рандом, то я не смогу управлять правильными ответами ... там будет в разброс, а мне нужно чтобы я сам задавал правильный ответ
|
#12
|
||||
|
||||
Ты не понял. Если тебе надо 2 правильных ответа: получаешь их положение (например, 1 и 4) случайными числами. После - выводишь на 1 и 4 место нужные ответы, в остальные выводишь не правильные.
Помогаю за Спасибо |