Автоматизированная система контроля знаний по дисциплине "История мира" - Программирование, компьютеры и кибернетика курсовая работа

Автоматизированная система контроля знаний по дисциплине "История мира" - Программирование, компьютеры и кибернетика курсовая работа




































Главная

Программирование, компьютеры и кибернетика
Автоматизированная система контроля знаний по дисциплине "История мира"

Методы разработки автоматизированных систем. Характеристика языка программирования Delphi и операционной системы Windows. Разработка автоматизированной системы контроля знаний на примере дисциплины "История мира". Этапы разработки программного продукта.


посмотреть текст работы


скачать работу можно здесь


полная информация о работе


весь список подобных работ


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

Васильев Д.А. ОСНОВЫ АЛГОРИТМИЗАЦИИ И ПРОГРАММИРОВАНИЯ.
Курсовая работа: ___ страниц, 27 рисунков, 2 таблицы, 16 источников, 2 приложения.
"АВТОМАТИЗИРОВАННАЯ СИСТЕМА КОНТРОЛЯ ЗНАНИЙ ПО ДИСЦИПЛИНЕ ИСТОРИЯ МИРА".
Была разработана автоматизированная система контроля знаний по дисциплине "История мира".
Программа предназначена для проверки знаний учеников старших классов и студентов начальных курсов по дисциплине "История мира".
По окончании теста выводится информация о прохождении тестирования (Кто выполнил тест, количество правильных ответов, оценка знаний тестируемого по пяти бальной шкале, сколько времени ушло на прохождение теста).
К программе прилагается справка о программе, а также информация о разработчике.
автоматизированная система программный продукт
Массив типа integer, выполняет функцию случайного выбора вопроса
Переменная присваивающая значения массива А
Используется в качестве счетчика оценки за количество правильных ответов
Переменная типа TRadioButton. Выполняет проверку нажатия на компонент RadioButton
Используется для определения порядкового номера вопроса
Переменная используется в качестве счетчика секунд
Переменная используется в качестве счетчика минуты
Определяет массив вопросов для случайной загрузки их на форму
Считает время с начала прохождения теста
Процедурапереходаповопросамисчетчикабаллов, вслучаееслиответнавопросневыбран товыводитсообщениеобэтом.
При открытии формы запускает таймер
Считает время с начала прохождения теста
Процедуры открытия другой формы и закрытия предыдущей
Присваивает значение 0 идентификаторам min, sec.
procedure TForm4. SpeedButton1Click
При открытии формы присваивает lable. caption информацию о прохождении тестирования
1. Непейвода Н.Н., Скопин И.Н. Основания программиров а ния -Институт компьютерных исследований, 2003.
2. Гордеев А.В., Молчанов А.Ю. Системное программное обеспечение - Питер, 2001.
3. Окулов С. Основы программирования - Бином. Лаборатория знаний, 2002.
4. Гофман В.Э., Хомоненко А.Д. Delphi. Быстрый старт. - СПб.: БХВ-Петербург, 2002.
5. Митчелл К. Керман Программирование и отладка в Delphi: Учебный курс: М.; СПб.; Киев, 2003.
6. Бондаренко М.Ф., Качко Е.Г. Операционные системы - Компания СМИТ, 2006.
7. Леонтьев В.П. Windows XP - ОЛМА Медиа Групп, 2007.
8. Степаненко О.С. Установка и настройка Windows XP - Вильямс, 2005.
9. Карп Дэвид Хитрости Windows 7. Для профессионалов - Питер, 2011.
10. Чекмарев А.Н. Microsoft Windows 7. Руководство администратора - MicrosoftWinБХВ-Петербург, 2010.
11. Аванесов В.С. Композиция тестовых заданий. - М., Центр тестирования, 2002.
12. Кабанова Т.А., Новиков В.А. Тестирование в современном образовании. Уч. Пособие. - М.: Высшая школа, 2010.
13. Челышкова М.Б. Теория и практика конструирования педагогических тестов. Уч. Пособие. - М.: Логос, 2002.
14. Журавлева Т.Ю. Системное и прикладное программное обеспечение: Учебное пособие - Издательство Московского государственного открытого университета, 2010.
15. Зинкевич В.П. Вычислительная техника и программирование: учебное пособие - Издательство Московского государственного открытого университета, 2011.
16. Карл И. Вигерс Разработка требований к программному обеспечению - Русская Редакция, 2004.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
procedure BitBtn1Click (Sender: TObject);
procedure BitBtn3Click (Sender: TObject);
procedure J1Click (Sender: TObject);
procedure TForm1. BitBtn1Click (Sender: TObject);
procedure TForm1. BitBtn3Click (Sender: TObject);
procedure TForm1. J1Click (Sender: TObject);
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DBCtrls, ExtCtrls, Menus;
procedure Button2Click (Sender: TObject);
procedure Button1Click (Sender: TObject);
procedureFormShow (Sender: TObject);
procedure Timer1Timer (Sender: TObject);
procedureFormCreate (Sender: TObject);
procedureFillArray (var A: array of Integer);
procedure TForm3. Vopros (nomer: integer);
if form2. RadioButton1. Checked then
DataModule3. Vopros. Locate ('Номер',mass [nomer], []);
RadioButton1. Caption: =DataModule3. Variant. FieldValues ['Ответ'];
if DataModule3. Variant. FieldValues ['Правильный'] =true then
RadioButton1. Tag: =1 else RadioButton1. Tag: =0;
RadioButton2. Caption: =DataModule3. Variant. FieldValues ['Ответ'];
if DataModule3. Variant. FieldValues ['Правильный'] =true then
RadioButton2. Tag: =1 else RadioButton2. Tag: =0;
RadioButton3. Caption: =DataModule3. Variant. FieldValues ['Ответ'];
if DataModule3. Variant. FieldValues ['Правильный'] =true then
RadioButton3. Tag: =1 else RadioButton3. Tag: =0;
RadioButton4. Caption: =DataModule3. Variant. FieldValues ['Ответ'];
if DataModule3. Variant. FieldValues ['Правильный'] =true then
RadioButton4. Tag: =1 else RadioButton4. Tag: =0;
RadioButton5. Caption: =DataModule3. Variant. FieldValues ['Ответ'];
if DataModule3. Variant. FieldValues ['Правильный'] =true then
RadioButton5. Tag: =1 else RadioButton5. Tag: =0;
Label2. Caption: =inttostr (strtoint (Label2. Caption) +1);
if form2. RadioButton2. Checked then
DataModule7. Vopros. Locate ('Номер',mass [nomer], []);
RadioButton1. Caption: =DataModule7. Variant. FieldValues ['Ответ'];
if DataModule7. Variant. FieldValues ['Правильный'] =true then
RadioButton1. Tag: =1 else RadioButton1. Tag: =0;
RadioButton2. Caption: =DataModule7. Variant. FieldValues ['Ответ'];
if DataModule7. Variant. FieldValues ['Правильный'] =true then
RadioButton2. Tag: =1 else RadioButton2. Tag: =0;
RadioButton3. Caption: =DataModule7. Variant. FieldValues ['Ответ'];
if DataModule7. Variant. FieldValues ['Правильный'] =true then
RadioButton3. Tag: =1 else RadioButton3. Tag: =0;
RadioButton4. Caption: =DataModule7. Variant. FieldValues ['Ответ'];
if DataModule7. Variant. FieldValues ['Правильный'] =true then
RadioButton4. Tag: =1 else RadioButton4. Tag: =0;
RadioButton5. Caption: =DataModule7. Variant. FieldValues ['Ответ'];
if DataModule7. Variant. FieldValues ['Правильный'] =true then
RadioButton5. Tag: =1 else RadioButton5. Tag: =0;
Label2. Caption: =inttostr (strtoint (Label2. Caption) +1);
if form2. RadioButton3. Checked then
DataModule8. Vopros. Locate ('Номер',mass [nomer], []);
RadioButton1. Caption: =DataModule8. Variant. FieldValues ['Ответ'];
if DataModule8. Variant. FieldValues ['Правильный'] =true then
RadioButton1. Tag: =1 else RadioButton1. Tag: =0;
RadioButton2. Caption: =DataModule8. Variant. FieldValues ['Ответ'];
if DataModule8. Variant. FieldValues ['Правильный'] =true then
RadioButton2. Tag: =1 else RadioButton2. Tag: =0;
RadioButton3. Caption: =DataModule8. Variant. FieldValues ['Ответ'];
if DataModule8. Variant. FieldValues ['Правильный'] =true then
RadioButton3. Tag: =1 else RadioButton3. Tag: =0;
RadioButton4. Caption: =DataModule8. Variant. FieldValues ['Ответ'];
if DataModule8. Variant. FieldValues ['Правильный'] =true then
RadioButton4. Tag: =1 else RadioButton4. Tag: =0;
RadioButton5. Caption: =DataModule8. Variant. FieldValues ['Ответ'];
if DataModule8. Variant. FieldValues ['Правильный'] =true then
RadioButton5. Tag: =1 else RadioButton5. Tag: =0;
Label2. Caption: =inttostr (strtoint (Label2. Caption) +1);
if form2. RadioButton4. Checked then
DataModule9. Vopros. Locate ('Номер',mass [nomer], []);
RadioButton1. Caption: =DataModule9. Variant. FieldValues ['Ответ'];
if DataModule9. Variant. FieldValues ['Правильный'] =true then
RadioButton1. Tag: =1 else RadioButton1. Tag: =0;
RadioButton2. Caption: =DataModule9. Variant. FieldValues ['Ответ'];
if DataModule9. Variant. FieldValues ['Правильный'] =true then
RadioButton2. Tag: =1 else RadioButton2. Tag: =0;
RadioButton3. Caption: =DataModule9. Variant. FieldValues ['Ответ'];
if DataModule9. Variant. FieldValues ['Правильный'] =true then
RadioButton3. Tag: =1 else RadioButton3. Tag: =0;
RadioButton4. Caption: =DataModule9. Variant. FieldValues ['Ответ'];
if DataModule9. Variant. FieldValues ['Правильный'] =true then
RadioButton4. Tag: =1 else RadioButton4. Tag: =0;
RadioButton5. Caption: =DataModule9. Variant. FieldValues ['Ответ'];
if DataModule9. Variant. FieldValues ['Правильный'] =true then
RadioButton5. Tag: =1 else RadioButton5. Tag: =0;
Label2. Caption: =inttostr (strtoint (Label2. Caption) +1);
if form2. RadioButton5. Checked then
DataModule10. Vopros. Locate ('Номер',mass [nomer], []);
RadioButton1. Caption: =DataModule10. Variant. FieldValues ['Ответ'];
if DataModule10. Variant. FieldValues ['Правильный'] =true then
RadioButton1. Tag: =1 else RadioButton1. Tag: =0;
RadioButton2. Caption: =DataModule10. Variant. FieldValues ['Ответ'];
if DataModule10. Variant. FieldValues ['Правильный'] =true then
RadioButton2. Tag: =1 else RadioButton2. Tag: =0;
RadioButton3. Caption: =DataModule10. Variant. FieldValues ['Ответ'];
if DataModule10. Variant. FieldValues ['Правильный'] =true then
RadioButton3. Tag: =1 else RadioButton3. Tag: =0;
RadioButton4. Caption: =DataModule10. Variant. FieldValues ['Ответ'];
if DataModule10. Variant. FieldValues ['Правильный'] =true then
RadioButton4. Tag: =1 else RadioButton4. Tag: =0;
RadioButton5. Caption: =DataModule10. Variant. FieldValues ['Ответ'];
if DataModule10. Variant. FieldValues ['Правильный'] =true then
RadioButton5. Tag: =1 else RadioButton5. Tag: =0;
Label2. Caption: =inttostr (strtoint (Label2. Caption) +1);
procedure TForm3. Button1Click (Sender: TObject);
if ( (RadioButton1. Checked=true) or
for i: = 0 to GroupBox1. ControlCount-1 do
RB: =TRadioButton (GroupBox1. Controls [i]);
Label1. Caption: =inttostr (strtoint (Label1. Caption) +RB. Tag);
if strtoint (Label2. Caption) <30 then
Vopros (strtoint (Label2. Caption));
Form3. Caption: ='Тестирование. Вопрос '+inttostr (strtoint (Label2. Caption)) +' из 30';
if strtoint (Label1. Caption) >26 then
if strtoint (Label1. Caption) >21 then
if strtoint (Label1. Caption) >17 then
showmessage ('Вы не выбрали вариант ответа! ');
procedure TForm3. Button2Click (Sender: TObject);
if form2. RadioButton1. Checked then
For i: =1 to DataModule3. Vopros. RecordCount do
DataModule3. Vopros. FieldValues ['Номер']: =i;
kol: =DataModule3. Vopros. FieldValues ['id'];
if form2. RadioButton2. Checked then
For i: =1 to DataModule7. Vopros. RecordCount do
DataModule7. Vopros. FieldValues ['Номер']: =i;
kol: =DataModule7. Vopros. FieldValues ['id'];
if form2. RadioButton3. Checked then
For i: =1 to DataModule8. Vopros. RecordCount do
DataModule8. Vopros. FieldValues ['Номер']: =i;
kol: =DataModule8. Vopros. FieldValues ['id'];
if form2. RadioButton4. Checked then
For i: =1 to DataModule9. Vopros. RecordCount do
DataModule9. Vopros. FieldValues ['Номер']: =i;
kol: =DataModule9. Vopros. FieldValues ['id'];
if form2. RadioButton5. Checked then
For i: =1 to DataModule10. Vopros. RecordCount do
DataModule10. Vopros. FieldValues ['Номер']: =i;
kol: =DataModule10. Vopros. FieldValues ['id'];
Vopros (strtoint (Label2. Caption));
Form2. Caption: ='Тестирование. Вопрос 1 из 30';
procedure TForm3. FormShow (Sender: TObject);
if Form2. RadioButton1. Checked then
DBText1. DataSource: =datamodule3. Vopros_DS;
if Form2. RadioButton2. Checked then
DBText1. DataSource: =datamodule7. Vopros_DS;
if Form2. RadioButton3. Checked then
DBText1. DataSource: =datamodule8. Vopros_DS;
if Form2. RadioButton4. Checked then
DBText1. DataSource: =datamodule9. Vopros_DS;
Методы разработки автоматизированных систем. Характеристика языка программирования Delphi и операционной системы Windows. Назначение и область применение, принцип действия идентификаторов. Этапы разработки программного продукта, требования к нему. курсовая работа [903,9 K], добавлен 14.02.2015
Особенности разработки системы автоматизированного контроля знаний специалистов по дефектоскопии. Обзор автоматизированных систем обучения и контроля знаний. Психологические механизмы усвоения знаний. Принципы создания эффективной тестирующей программы. дипломная работа [1,8 M], добавлен 30.08.2010
Особенности разработки автоматизированной справочной системы по основным элементам языка ассемблера, анализ среды Borland Delphi 7.0. Способы определения трудоемкости разработки программного продукта: этапы расчета сметной стоимости, планирование цены. дипломная работа [3,2 M], добавлен 03.04.2013
Обзор автоматизированных систем обучения и контроля знаний. Психологические механизмы усвоения знаний. Принципы создания тестирующей программы. Разработка универсальной схемы построения теста и вычисления оценок специалистов по неразрушающему контролю. дипломная работа [1,7 M], добавлен 24.09.2013
Методы и этапы создания автоматизированной обучающей системы по дисциплине "Программирование" для студентов ВУЗов. Описание и сравнение программ-аналогов. Выбор инструментальных средств и языка разработки. Проектирование интерфейса обучающей программы. курсовая работа [4,4 M], добавлен 26.11.2010
Особенности разработки приложений для операционной системы с помощью императивного, структурированного, объектно-ориентированного языка программирования Delphi. Формальное начало программы. Выделение конца программного блока. Листинг и описание программы. курсовая работа [1,2 M], добавлен 04.08.2014
Написание автоматизированной информационной системы "Контроль и реализация товара для автосалона" в операционной системе Windows 2000 или Windows XP. Проектирование подсистемы на базе программы "1С:Предприятие", программная реализация ряда функций. дипломная работа [3,1 M], добавлен 29.04.2011
Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д. PPT, PPTX и PDF-файлы представлены только в архивах. Рекомендуем скачать работу .

© 2000 — 2021



Автоматизированная система контроля знаний по дисциплине "История мира" курсовая работа. Программирование, компьютеры и кибернетика.
Реферат по теме Договор коммерческой концессии (франчайзинг)
Реферат по теме История мировой политической мысли
Реферат: Реестровое казачество
Реферат: по химии ученицы 9 класса «Б»
Контрольная работа: Основные положения ГОСТа Р.6.30-2003
Курсовая работа по теме Коллекция молодежной одежды в традиционном башкирском стиле
Аннотация К Отчету По Практике
Характеристика По Практике На Студента Медика
Методичка На Тему Электротехника
Доклад: Пречистенка
Эссе На Тему Вера В Себя
Реферат: Особенности классифицирования и планирования соревнований по туристическому многоборью. Скачать бесплатно и без регистрации
Особенности Избирательных Прав Осужденных Реферат
Курсовая работа: Труд как средство эстетического воспитания
Курсовая работа: Редакторский анализ календаря как вида справочного издания
Курсовая работа: Способы и методы государственного регулирования в инновационной деятельности
Реферат: Методические рекомендации по выполнению контрольной работы по учебной дисциплине
Образование В Глобальной Перспективе Эссе
Курсовая работа по теме Особенности денежно-кредитной политики в Республике Беларусь
Сочинение По Литературе Егэ 2022 2022
Урок "Знай, люби и береги природу" - Педагогика конспект урока
Пенсионное страхование инвалидов - Государство и право реферат
История физиологии высшей нервной деятельности - Биология и естествознание реферат


Report content on this page

Report Page

Please submit your DMCA takedown request to dmca@telegram.org