GroupBox подсчет ответов

@manchester_alan · Регистрация: 05.01.2015

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

Как в GroupBox подсчитать количество правильных ответов из 3 вариантов...

Добавлено через 1 час 11 минут
помогите пожалуйста подсчитать прав ответы...

Delphi

otvetstr:=(quest.ReadString(diff[QuestionNum],'otvet',''));
  RadioGroup1.Items.Add(quest.ReadString(diff[QuestionNum],'otvet',''));
  RadioGroup1.Items.Add(quest.ReadString(diff[QuestionNum],'var2',''));
  RadioGroup1.Items.Add(quest.ReadString(diff[QuestionNum],'var1',''));

otvetstr - это какой ответ верный и на чем должен вестись счетчик...

@GreeNicee · 13.05.2015, 23:36

Как-то вы странно очень вопрос сформулировали=) Причем тут вообще GroupBox?)

Может это нужно?)

Delphi

...
private 
    AnwsersCount:integer;// Счетчик
..
procedure TForm1.FormCreate(Sender: TObject);
begin
   AnwsersCount := 0;
end;
... // При "Ответе (в ваше процедуре)"
if RadioGroup1.Items[RadioGroup1.ItemIndex] = otvetstr then inc(AnwsersCount );

@manchester_alan · 14.05.2015, 00:01 **[ТС]**

GreeNicee, да извините перепутал)))) ну да примерно такое только он выводит (List Index out of bounds(-1)), когда переключаю дальше...

@northener · 14.05.2015, 00:08

Сообщение от manchester_alan

только он выводит (List Index out of bounds(-1)), когда переключаю дальше...

Кто он? Враг?
Ты бы код привел, который выдает эту ошибку.

@manchester_alan · 14.05.2015, 00:30 **[ТС]**

Ну программа, вы же и так поняли ну..))
А ошибку я уже понял почему но не знаю как исправить... Это он жалуется на то что в программе я не выбрал из radiogroup ничего, то есть itemindex =-1, и кстати сама по себе программа запускается, просто в ней самой выскакивает такая ошибка... Это я заполнил как товарищ сверху посоветовал...

@northener · 14.05.2015, 00:38

Сообщение от manchester_alan

но не знаю как исправить

Сообщение от manchester_alan

Это я заполнил как товарищ сверху посоветовал.

Ну и где код?
"Не робей, краса младая". Показывай.

@manchester_alan · 14.05.2015, 00:45 **[ТС]**

northener,

Код

procedure TForm1.Button2Click(Sender: TObject);
var i:Integer;
begin
  inc(question);
  Inc(ButClickNum);

   if ButClickNum < 11 then
   begin
  lbl1.Visible:=true;
  Button2.Caption:='Далее';
  GroupBox1.Color:=clYellow;
  QuestionNum:=Random(diff.Count);
  GroupBox1.Caption:='Вопрос №'+inttostr(question);
  memo1.Lines.Clear;
  memo1.Lines.Add(quest.ReadString(diff[QuestionNum],'quest',''));
  otvetstr:=(quest.ReadString(diff[QuestionNum],'otvet',''));
  RadioGroup1.Items.Clear;
  RadioGroup1.Items.Add(quest.ReadString(diff[QuestionNum],'otvet',''));
  RadioGroup1.Items.Add(quest.ReadString(diff[QuestionNum],'var2',''));
  RadioGroup1.Items.Add(quest.ReadString(diff[QuestionNum],'var1',''));;
  with RadioGroup1.Items do for i:=0 to Count-1 do Exchange(Random(count),Random(count));
  if question=10 then Button2.Caption:='Конец теста';
  diff.Delete(QuestionNum);
  if RadioGroup1.Items[RadioGroup1.ItemIndex]=otvetstr then inc(k);
  end
  else
  begin
     Button2.Caption:='Конец теста';
     MessageDlg('Тест окончен :)'+#13+'Количество правильных ответов:  '+inttostr(k),mtInformation,[mbOK],0);
     Button2.Caption:='Начать тест';
     GroupBox1.Caption:='Вопрос';
     memo1.Text:='';
     RadioGroup1.Items.Clear;
     RadioGroup1.Items.Add('Вариант ответа 1');
     RadioGroup1.Items.Add('Вариант ответа 2');
     RadioGroup1.Items.Add('Вариант ответа 3');
     question:=0; ButClickNum:=0; k:=0;
     lbl1.Visible:=False;
     GroupBox1.Color:=clBtnHighlight;
     diff:=TStringList.Create;
     quest:=TIniFile.Create(ExtractFilePath(Application.ExeName)+ 'вопросы ответы.ini');
     quest.ReadSections(diff);
     end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   GroupBox1.Caption:='Вопрос';
   RadioGroup1.Items.Add('Вариант ответа 1');
   RadioGroup1.Items.Add('Вариант ответа 2');
   RadioGroup1.Items.Add('Вариант ответа 3');
   k:=0; question:=0;
   Button2.Caption:='Начать тест';
   lbl1.Visible:=False;
   diff:=TStringList.Create;
   quest:=TIniFile.Create(ExtractFilePath(Application.ExeName)+ 'вопросы ответы.ini');
   quest.ReadSections(diff);
   ButClickNum := 0;
end;

procedure TForm1.Button3Click(Sender: TObject);
var rez:TModalResult;
begin
 rez:=MessageDlg('Выход :(' +#13+ 'Вы уверены?',mtWarning,[mbYes,mbNo],0);
 if rez=mryes then close;
end;

@northener · 14.05.2015, 00:56

Нда.
Есть чему стыдиться. Но не всё так безнадежно.
24-ю строчку надо вставить перед 4-й.

@manchester_alan · 14.05.2015, 07:58 **[ТС]**

northener, понятно спасибо)

Добавлено через 6 часов 58 минут
переставил...а все равно выдает такую ошибку перед началом теста....

@GreeNicee · 14.05.2015, 14:53

ItemIndex у радиогруппы изначально равен -1 , вполне возможно, что на это и критует=)

@manchester_alan · 14.05.2015, 15:00 **[ТС]**

GreeNicee, да кстати программа именно на это и ругается)) но перед началом теста же и надо чтобы ничего не было выбрано.... Как в таком случае быть..?(

@GreeNicee · 14.05.2015, 15:23

Ну как вариант :_: чтобы не выглядело криво - сделать ЧЕТВЕРТЫЙ RadioButton НЕВИДИМЫЙ и выбирать его))

Delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
RadioGroup1.ItemIndex := 3 // с 0 если не ошибаюсь начинается отсчет
//И в кнопку ответа В САМОЕ НАЧАЛО я бы еще добавил условие
if RadioGroup1.ItemIndex <> 3 then

@manchester_alan · 14.05.2015, 15:29 **[ТС]**

А как сделать невидимым в radiogroup 4 item...?

@GreeNicee · 14.05.2015, 15:37

Delphi

1	radiobutton4.visible := false;

//никогда с radioGROUP не работал, там же вроде каждый айтэм - это радиобаттон.)если так то код выше)

Добавлено через 34 секунды
ладно щас посмотрю

Добавлено через 1 минуту
хмм а нет там только строки _) и по индексу к свойству visible не обратиться

@manchester_alan · 14.05.2015, 15:38 **[ТС]**

GreeNicee, ну ладно, домой приду скажу..))) я с телефона просто..

все равно спасибо от души))

@GreeNicee · 14.05.2015, 15:41

попробуй так

Delphi

procedure TForm1.Button2Click(Sender: TObject);
var i:Integer;
begin
  if RadioGroup1.ItemIndex <> -1 then
  begin
    inc(question);
    Inc(ButClickNum);
 
    if ButClickNum < 11 then
    begin
    lbl1.Visible:=true;
    Button2.Caption:='Далее';
    GroupBox1.Color:=clYellow;
    QuestionNum:=Random(diff.Count);
    GroupBox1.Caption:='Вопрос №'+inttostr(question);
    memo1.Lines.Clear;
    memo1.Lines.Add(quest.ReadString(diff[QuestionNum],'quest',''));
    otvetstr:=(quest.ReadString(diff[QuestionNum],'otvet',''));
    RadioGroup1.Items.Clear;
    RadioGroup1.Items.Add(quest.ReadString(diff[QuestionNum],'otvet',''));
    RadioGroup1.Items.Add(quest.ReadString(diff[QuestionNum],'var2',''));
    RadioGroup1.Items.Add(quest.ReadString(diff[QuestionNum],'var1',''));;
    with RadioGroup1.Items do for i:=0 to Count-1 do Exchange(Random(count),Random(count));
    if question=10 then Button2.Caption:='Конец теста';
    diff.Delete(QuestionNum);
    if RadioGroup1.Items[RadioGroup1.ItemIndex]=otvetstr then inc(k);
    end
    else
    begin
      Button2.Caption:='Конец теста';
      MessageDlg('Тест окончен :)'+#13+'Количество правильных ответов:  '+inttostr(k),mtInformation,[mbOK],0);
      Button2.Caption:='Начать тест';
      GroupBox1.Caption:='Вопрос';
      memo1.Text:='';
      RadioGroup1.Items.Clear;
      RadioGroup1.Items.Add('Вариант ответа 1');
      RadioGroup1.Items.Add('Вариант ответа 2');
      RadioGroup1.Items.Add('Вариант ответа 3');
      question:=0; ButClickNum:=0; k:=0;
      lbl1.Visible:=False;
      GroupBox1.Color:=clBtnHighlight;
      diff:=TStringList.Create;
      quest:=TIniFile.Create(ExtractFilePath(Application.ExeName)+ 'вопросы ответы.ini');
      quest.ReadSections(diff);
    end;
  end;
end;

@manchester_alan · 14.05.2015, 17:13 **[ТС]**

Нее.. Так тогда вообще не начинает...

Добавлено через 4 минуты
Такой вариант с 4 кнопкой не думаю что верный...

@GreeNicee · 14.05.2015, 18:14

вариант выше без 4 кнопки - если вы не выбрали ответ то не пойдет проверки и не будет крита, а если выбрали то крита быть не должно)

@manchester_alan · 14.05.2015, 18:17 **[ТС]**

Извините, а крит это что значит?)))

@GreeNicee · 14.05.2015, 18:55

Не запоминайте

ошибок быть не должно)что у вас происходит с вариантом выше?)

@manchester_alan 3 / 4 / 1 Регистрация: 05.01.2015 Сообщений: 465
	14.05.2015, 18:17 [ТС]	19
	Извините, а крит это что значит?))) 0

@manchester_alan 3 / 4 / 1 Регистрация: 05.01.2015 Сообщений: 465
	14.05.2015, 00:01 [ТС]	3
	GreeNicee, да извините перепутал)))) ну да примерно такое только он выводит (List Index out of bounds(-1)), когда переключаю дальше... 0

@northener пофигист широкого профиля 4732 / 3167 / 858 Регистрация: 15.07.2013 Сообщений: 18,248
	14.05.2015, 00:08	4
	Сообщение от manchester_alan только он выводит (List Index out of bounds(-1)), когда переключаю дальше... Кто он? Враг? Ты бы код привел, который выдает эту ошибку. 0

@manchester_alan 3 / 4 / 1 Регистрация: 05.01.2015 Сообщений: 465
	14.05.2015, 00:30 [ТС]	5
	Ну программа, вы же и так поняли ну..)) А ошибку я уже понял почему но не знаю как исправить... Это он жалуется на то что в программе я не выбрал из radiogroup ничего, то есть itemindex =-1, и кстати сама по себе программа запускается, просто в ней самой выскакивает такая ошибка... Это я заполнил как товарищ сверху посоветовал... 0

@northener пофигист широкого профиля 4732 / 3167 / 858 Регистрация: 15.07.2013 Сообщений: 18,248
	14.05.2015, 00:38	6
	Сообщение от manchester_alan но не знаю как исправить Сообщение от manchester_alan Это я заполнил как товарищ сверху посоветовал. Ну и где код? "Не робей, краса младая". Показывай. 0

@northener пофигист широкого профиля 4732 / 3167 / 858 Регистрация: 15.07.2013 Сообщений: 18,248
	14.05.2015, 00:56	8
	Нда. Есть чему стыдиться. Но не всё так безнадежно. 24-ю строчку надо вставить перед 4-й. 0

@manchester_alan 3 / 4 / 1 Регистрация: 05.01.2015 Сообщений: 465
	14.05.2015, 07:58 [ТС]	9
	northener, понятно спасибо) Добавлено через 6 часов 58 минут переставил...а все равно выдает такую ошибку перед началом теста.... 0

@GreeNicee 185 / 155 / 88 Регистрация: 04.10.2014 Сообщений: 397
	14.05.2015, 14:53	10
	ItemIndex у радиогруппы изначально равен -1 , вполне возможно, что на это и критует=) 0

@manchester_alan 3 / 4 / 1 Регистрация: 05.01.2015 Сообщений: 465
	14.05.2015, 15:00 [ТС]	11
	GreeNicee, да кстати программа именно на это и ругается)) но перед началом теста же и надо чтобы ничего не было выбрано.... Как в таком случае быть..?( 0

@manchester_alan 3 / 4 / 1 Регистрация: 05.01.2015 Сообщений: 465
	14.05.2015, 15:29 [ТС]	13
	А как сделать невидимым в radiogroup 4 item...? 0

@manchester_alan 3 / 4 / 1 Регистрация: 05.01.2015 Сообщений: 465
	14.05.2015, 15:38 [ТС]	15
	GreeNicee, ну ладно, домой приду скажу..))) я с телефона просто.. все равно спасибо от души)) 0

@manchester_alan 3 / 4 / 1 Регистрация: 05.01.2015 Сообщений: 465
	14.05.2015, 17:13 [ТС]	17
	Нее.. Так тогда вообще не начинает... Добавлено через 4 минуты Такой вариант с 4 кнопкой не думаю что верный... 0

@GreeNicee 185 / 155 / 88 Регистрация: 04.10.2014 Сообщений: 397
	14.05.2015, 18:14	18
	вариант выше без 4 кнопки - если вы не выбрали ответ то не пойдет проверки и не будет крита, а если выбрали то крита быть не должно) 0

@GreeNicee 185 / 155 / 88 Регистрация: 04.10.2014 Сообщений: 397
	14.05.2015, 18:55	20
	Не запоминайте ошибок быть не должно)что у вас происходит с вариантом выше?) 0