Тест на Delphi
Вставка
- Опубліковано 27 лис 2013
- Создание тестов на Delphi.
P.S. (спустя три года) Видеоурок был создан для конкретного случая: провести музейный урок под тему учебного материала. Сейчас бы я всё делала не так. Чтобы сильно всё не переделывать, вот код работающей программы (даже, если ничего не выбрано) и добавлена кнопка для сбрасывания результата, чтобы тест пройти ещё раз:
var
Form1: TForm1;
ball:integer;
const otv:array[1..5]of byte=(1,2,1,3,0);
{$R *.dfm}
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
label3.caption:='';
label4.caption:='';
radiogroup1.itemIndex:=-1;
radiogroup2.itemIndex:=-1;
radiogroup3.itemIndex:=-1;
radiogroup4.itemIndex:=-1;
radiogroup5.itemIndex:=-1;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ball:=0;
if radiogroup1.ItemIndex=otv[1] then inc(ball);
if radiogroup2.ItemIndex=otv[2] then inc(ball);
if radiogroup3.ItemIndex=otv[3] then inc(ball);
if radiogroup4.ItemIndex=otv[4] then inc(ball);
if radiogroup5.ItemIndex=otv[5] then inc(ball);
label3.caption:='Правильно ответил на '+IntToStr(ball)+' из 5-ти вопросов';
if ball=5
then label4.caption:='Экскурсию прослушал очень внимательно. Молодец!'
else
if (ball=3) or (ball=4)
then label4.caption:='Не всегда был внимательный'
else label4.caption:='Экскурсию прослушал очень плохо' ;
end;
end.
Огромное вам спасибо, даже появился какой-то интерес к делфи
Вы моя спасительница!
Я люблю вас!
Спасибо вам за то что вы существуете!
Огромное спасибо очень хорошо всё показали ,объяснили и даже для таких как я стрелочки сделали !
Спасибо вам большое, помогли для курсовой работы)))
Большое спасибо, вы спасли мой диплом!
Спасибо большое) Очень помогло мне, как раз на данный момент заканчиваю курсовую работу. До сдачи курсовой 3 дня) Если знаете как делать пояснительную записку, ответьтте!
Подскажите как сохранить картинку в текстовый файл вставленную на форму с помощью компанента Timage?
Не могли бы вы снять урок как сделать Портфолио в дельфи очень интересует ,на эту тему не нашел ни один видео урок
Как сделать тест с груп боксами и чтобы можно было в них цифры вписывать, и засчитывало бы несколько правильных ответов?
Спустя 8 лет с момента выхода. Посмотрел в первый раз, очень помогло, только я не совсем понял какими свойствами обладает кнопка показа результата
Программа работает ,но текст при запуске не отображается в label ,что делать ?
Помогите пожалуйста написано что в этой строчке есть ошибка ball:=otv[1,radiogroup1.itemIndex]+
Здраствуйте! а как сделать так что-бы вопросы были в рандомном порядке?
При написании кода кнопки можно узнать, что за "ball"? Его вы вписали, когда заполняли список var.
сколько набрал пользователь,типо 4 балла из 5
Спасибо
было бы супер если вы сделали возможность выбора вариантаlдля каждого арианта разные вопросы
Если ball =3 или ball=4 то будет результат "хорошо". А как сделать так, чтобы результат был "хорошо" от 5 до 9? Ведь если я сделал кол. строк (вопросов) более пяти то интервал "хорошо" становиться шире. что делать ? помогите пожалуйста
Примерно надо сделать так if (ball>=5) or (ball
Здраствуйте очень нужна ваша помощь, я создал программу по подобию вашей, и теперь мне нужна блок схема именно режима теста, помогите пожалуйста!
Программа содержит грубый ляп. Вопрос автору: Что будет если нажать на кнопку "Получить результат" не ответив хотя бы на один вопрос? Наводящий вопрос: Чему равен Radiogroup.ItemIndex в этом случае?
всё норм тест работает хотя и количество ответов разное в вопросах, по поводу видео, слайды это конечно сверхразум сразу видно, со звуком всё очень плохо, я чуть не помер когда мне в вк написали, да и неприятные шумы в ушах после того как на полную выкрутил наушники. а так всё нрм тест сделал
Мне понравилось, но вот вопрос как от чистить весь результат? чтобы заново пройти.
Добавить кнопку и под неё код:
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
label3.caption:='';
label4.caption:='';
radiogroup1.itemIndex:=-1;
radiogroup2.itemIndex:=-1;
radiogroup3.itemIndex:=-1;
radiogroup4.itemIndex:=-1;
radiogroup5.itemIndex:=-1;
end;
project project1.exe raised exception class EClassNotFound with message 'Class TPageControl not found' - вот что пишет, когда я хочу запустить тест. Что делать?
с начало надо сохранить !!
В следующий раз - Ну добавьте вы поверхностно усиление звука к своей записи...
А то ж ни чего не слышно... Звук 32% уже обычно во все колонки бомбит мой битсаудио, а тут я ни как не могу нормально расслышать... И говорите вроде бы нормально, только вот тихо... Кричать не надо просто добавили бы после записи усиление или во время записи, чтобы было бы вас слышно...
А за урок Спасибо...
Здравствуйте можете помочь почему у меня не правильно получилась
Что такое 1,,5 и 0,,3????????
Дина Голева 1 и 5 (1,2,3,4,5) это количество вопросов, а 0 и 3 (0,1,2,3 итого 4) количество вариантов
Сначала о минусах. Ссылаясь на другие видео, следует добавлять ссылки. Тихий голос, низкое максимальное качество, отсутствует пример кода программы. Почти всё решаемо, но удобство просмотра теряется.
О плюсах. Было сделано с душой. Хорошее описание.
Так или иначе Спасибо.
Спасибо за комментарий. Я "не волшебник , а только учусь" делать что-то подобное. Качество страдает из-за отсутствия тех.средств, а код программы вроде есть. Конечно же я материал искала на просторах сети, и выбирала приемлемое для своих учеников, а на широкую аудиторию я не расчитывала. Но все замечания учту.
Кода программы нет в описании к видео или ссылки на сетевой ресурс. Недостаёт качества скорее из-за программных средств, однако метод представления в слайдах с подписями выглядит (во всяком случае для меня) более наглядным (однако от использования "карандаша", читабельность "шрифта" падает), чем многие другие видео с простой съёмкой экрана монитора (типа фрапс). Громкость аудио можно поднять как в видео конвертере, так и в простом аудио редакторе если звуковая дорожка была отдельно, в свойстве дБ (dB).
+Владимир Серебряный критиковать все могут, а человек ,однако,приложил немало усилий,чтобы выложить это полезное видео. лично для меня было бы это лень,зная,как кропотливо надо ко всему этому готовиться ! Поначалу,думала,без звука трудно будет понять,ан-нет! поняла! и ученику своему так же объяснила! спасибо Вам огромное! Вы проделали неимоверный труд! Это я,как педагог знаю
у меня нету таких кнопок bMinimaze и bMaximaze
Помогите мне плизз!!! Парит мне мозги
Form4: TForm4;
ball:integer;
type ansver=array[1..10,0..3] of byte;
const otv:ansver=((0,0,1),(1,0,0),(0,1,0),(0,1,0),(1,0,0),(0,0,1),(1,0,0),(0,1,0),(0,0,1),(1,0,0));
выделяет 3 строку и ставит курсор после 3 запятой
умоляю помогите!!!
Вроде понятно, спс, а то курсач на этом дохлом языке писать надо