|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.05.2012, 17:59 | #1 |
Пользователь
Регистрация: 19.03.2012
Сообщений: 11
|
Delphi тест.
Всем привет!помогите пожалуйста написать тест по Делфи.Тест 5 вопросов- составляю сам конечно.Можно сказать что я по нему практически нуль.т.к. я сильно его не знаю и мы много чего не проходили то нужно сделать его простым просто 4 варианта ответа на 1 вопрос в конце оценку.Скачивал я готовые программы(тест) разбираел я его но ничего не понял.Часть тока понял.
Последний раз редактировалось Fin_un; 06.05.2012 в 18:01. |
06.05.2012, 18:04 | #2 |
a.k.a. Skull
Форумчанин
Регистрация: 17.11.2009
Сообщений: 963
|
Была похожая тема. Вроде бы я там подробно все рассказал.
Все тривиальное просто
|
06.05.2012, 18:12 | #3 |
Пользователь
Регистрация: 19.03.2012
Сообщений: 11
|
Здравствуйте!StaticText1 - я такого чет не слышал это лэйбл?
|
06.05.2012, 18:17 | #4 |
a.k.a. Skull
Форумчанин
Регистрация: 17.11.2009
Сообщений: 963
|
В данном случае без разницы, хоть label, хоть statictext.
Все тривиальное просто
|
06.05.2012, 18:43 | #5 |
Пользователь
Регистрация: 19.03.2012
Сообщений: 11
|
Я создал 5 лэблов. 5 радиогруп и вписал в батон1:
Код:
Может быть надо было изменять и answers? Я его изменил и все ок! Спасибо вам огромное!!! Можно у вас спросить count - это что? Код:
Последний раз редактировалось Stilet; 06.05.2012 в 19:17. |
06.05.2012, 18:49 | #6 | ||
a.k.a. Skull
Форумчанин
Регистрация: 17.11.2009
Сообщений: 963
|
Я думал это очевидно.
Тем более, ты же догадался изменить Код:
answers[1] - ответ на вопрос 2 и так далее. И еще: Цитата:
count - это Цитата:
В нашем случае это переменная, которую мы увеличиваем каждый раз, когда ответ правильный. Изначально count=0.
Все тривиальное просто
Последний раз редактировалось whatever; 06.05.2012 в 18:56. |
||
06.05.2012, 19:13 | #7 |
Пользователь
Регистрация: 19.03.2012
Сообщений: 11
|
как то она у меня теперь глючит!выделю правльные ответы она их за неправльные считает и пишет всегда 1 правльный ответ
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; RadioGroup1: TRadioGroup; Label1: TLabel; RadioGroup2: TRadioGroup; Label2: TLabel; RadioGroup3: TRadioGroup; Label3: TLabel; RadioGroup4: TRadioGroup; Label4: TLabel; RadioGroup5: TRadioGroup; Label5: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; answers:array[0..4]of boolean; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var count,i:integer; begin if radiogroup1.ItemIndex=1 then answers[1]:=true else answers[1]:=false; if radiogroup2.ItemIndex=2 then answers[2]:=true else answers[2]:=false; if radiogroup3.ItemIndex=3 then answers[3]:=true else answers[3]:=false; if radiogroup4.ItemIndex=1 then answers[1]:=true else answers[1]:=false; if radiogroup5.ItemIndex=1 then answers[1]:=true else answers[1]:=false; count:=0; for i:=0 to 4 do if answers[i] then inc(count); showmessage('Вы ответили верно на '+inttostr(count)+' из 5 вопросов'); end; end. Последний раз редактировалось Fin_un; 06.05.2012 в 19:21. |
06.05.2012, 20:20 | #8 |
a.k.a. Skull
Форумчанин
Регистрация: 17.11.2009
Сообщений: 963
|
Мозг включаем, окда?
Код:
Все тривиальное просто
|
26.05.2012, 22:35 | #9 |
Пользователь
Регистрация: 19.03.2012
Сообщений: 11
|
Здравствуйте! Я тут долго не отвечал) Спасибо вам большое! Тест получился отличный!Вот он кстати:http://depositfiles.com/files/9staygohk
Единственный человек в классе кто его сделал) Пароль: Arhiv.rar - с большой буквы писать Последний раз редактировалось Fin_un; 26.05.2012 в 22:38. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Тест (Delphi) | Эммануэль | Помощь студентам | 4 | 02.03.2011 08:31 |
Тест в Delphi | Dran1k | Общие вопросы Delphi | 6 | 12.05.2010 17:18 |
тест на Delphi | Джонни | Помощь студентам | 3 | 11.03.2010 00:11 |
Тест на delphi | Серый Рыйцарь | Помощь студентам | 1 | 11.05.2009 05:58 |
Программа-тест в Delphi) скиньте))а то програмку здавать преподу надо,и самой хочется понять Delphi | Верчик | Помощь студентам | 9 | 02.03.2009 17:46 |