Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
rssrsrrrr
0 / 0 / 0
Регистрация: 14.04.2015
Сообщений: 2
1

Тест-опросник

18.02.2016, 20:21. Просмотров 1040. Ответов 1
Метки нет (Все метки)

Собираюсь создать тест-опросник для проекта.
Несколько вопросов и по три варианта ответа на каждый. Для каждого вопроса по форме.
При выборе варианта ответа к этой переменной добавляется еденица, например:
Delphi
1
2
3
4
5
6
procedure TForm1.Button2Click(Sender: TObject);
begin
primer:=primer+1;
if tequila=1 then
form1.Visible:=false;
form2.Show;
Далее следует форма кнопка, которая делает вывод и открывает форму с "финальным вариантом ответа".
Delphi
1
2
if primer=1 then
form3.Show;
В обоих формах задал primer:integer.
В итоге должно получиться так, что если определенные значения будут равны 1, то вылезет определенный "финальнй ответ".

Как мне можно сделать этот концепт реальным?
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.02.2016, 20:21
Ответы с готовыми решениями:

Опросник на Delphi
Доброго времени суток. Я полный нуб в делфи, помогите пожалуйста. Можете написать код Опросника....

программа-опросник
Здравствуйте! Помогите, пожалуйста. Надо: Написать программу-опросник, предлагающую нескольким...

Можно ли создать тест в программе My Test Student и запустить этот тест через Delphi?
Здравствуйте! Мне нужна помощь! Я сейчас делаю курсовую, и мне нужно сделать тест, и я хотела бы...

Тест опросник
Создаю тест опросник, который должен вконце сосчитать и округлить по формуле (100 / 'количество...

1
NIKOLAYY
832 / 729 / 340
Регистрация: 22.09.2012
Сообщений: 5,016
18.02.2016, 23:00 2
Цитата Сообщение от rssrsrrrr Посмотреть сообщение
Собираюсь создать тест-опросник для проекта.
Да ты даже вопросы в форму вывести неумееш..
Лови!

Delphi
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
procedure TForm1.Button1Click(Sender: TObject);
begin
  vopros := vopros + 1;
 
  case vopros of
    1:
      begin
        Label1.Caption := 'Вопрос: в каком примере ответ будет равен 10?';
        RadioButton1.Caption := '5 - 5';
        RadioButton2.Caption := '5 + 5'; 
        RadioButton3.Caption := '5 * 5';
      end;
    2:
      begin
        Label1.Caption := 'Самое теплое время года?';
        RadioButton1.Caption := 'Зима';
        RadioButton2.Caption := 'Весна';
        RadioButton3.Caption := 'Лето';
      end;
  end;
 
  RadioButton1.Checked := False;
  RadioButton2.Checked := False;
  RadioButton3.Checked := False;
end;
0
Миниатюры
Тест-опросник  
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.02.2016, 23:00

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Приложение тест(опросник)
Здравствуйте. Возникла проблема с приложением и найти я его не могу. Сразу хочу сказать что это...

Написать электронный опросник (тест)
Добрый вечер. Возникла следующая задача - написать опросник (тестовую среду). Немного поразмыслив...

Опросник.Тест.Как сделать так,чтобы после нажатия отправить выделялись правильные и неправильные ответы(красный и зелены
<!doctype html> <html lang="en"> <head> <title>Simple Multiple Choice Quiz with...

Создал "Тест" опросник с оценками. Как можно вывести вопросы, ответы и баллы в отдельный файл txt?
Всем привет, создал простой тест - опросник с банальными вопросами. За каждый правильный ответ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.