Автоматизированная система контроля знаний по дисциплине "История мира"
Методы разработки автоматизированных систем. Характеристика языка программирования Delphi и операционной системы Windows. Разработка автоматизированной системы контроля знаний на примере дисциплины "История мира". Этапы разработки программного продукта.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 18.05.2014 |
| Размер файла | 3,8 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
if Form2. RadioButton5. Checked then
DBText1. DataSource: =DataModule10. Vopros_DS;
Min: =0;
Sec: =0;
Timer1. Enabled: = true;
Timer1. Interval: =1000;
end;
procedure TForm3. FormCreate (Sender: TObject);
begin
Min: =0;
Sec: =0;
end;
procedure TForm3. Timer1Timer (Sender: TObject);
begin
Sec: =Sec+1;
If Sec = 60 Then
Begin
Min: =Min+1;
Sec: =0;
End;
If Sec < 10 Then
Form3. Label5. Caption: ='0'+IntToStr (Sec)
Else
Form3. Label5. Caption: =IntToStr (Sec);
If Min < 10 Then
Form3. Label4. Caption: ='0'+IntToStr (Min)
Else
Form3. Label4. Caption: =IntToStr (Min);
end;
procedure TForm3. N1Click (Sender: TObject);
begin
Form5. show;
Form3. Close;
end;
end.
unit Unit3;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDataModule3 = class (TDataModule)
ADOConnection1: TADOConnection;
Vopros: TADOTable;
Voprosid: TAutoIncField;
VoprosIntegerField: TIntegerField;
VoprosWideStringField: TWideStringField;
Vopros_DS: TDataSource;
Variant: TADOTable;
Variantid: TAutoIncField;
VariantIntegerField: TIntegerField;
VariantWideStringField: TWideStringField;
VariantBooleanField: TBooleanField;
Variant_DS: TDataSource;
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule3: TDataModule3;
implementation
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm2 = class (TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
BitBtn1: TBitBtn;
procedure BitBtn1Click (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit2;
procedure TForm2. BitBtn1Click (Sender: TObject);
begin
Form3. show;
Form3. Button2Click (Sender);
Form2. Visible: =False;
end;
procedure TForm2. Timer1Timer (Sender: TObject);
begin
if ( (RadioButton1. Checked=true) or
(RadioButton2. Checked=true) or
(RadioButton3. Checked=true) or
(RadioButton4. Checked=true) or
(RadioButton5. Checked=true)) then
BitBtn1. Enabled: =True;
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm4 = class (TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
SpeedButton1: TSpeedButton;
procedure SpeedButton1Click (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
procedure TForm4. SpeedButton1Click (Sender: TObject);
begin
form4. Hide;
end;
end.
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;
type
TForm5 = class (TForm)
Bevel1: TBevel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedureFormShow (Sender: TObject);
procedure BitBtn1Click (Sender: TObject);
procedure BitBtn2Click (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
cena: string;
implementation
uses Unit2, Unit1, Unit4;
procedure TForm5. FormShow (Sender: TObject);
begin
ifstrtoint (Form3. Label1. Caption) >26 then
cena: ='5' else
ifstrtoint (Form3. Label1. Caption) >21 then
cena: ='4' else
ifstrtoint (Form3. Label1. Caption) >17 then
cena: ='3' else
cena: ='2';
Label2. Caption: = ('Набранобаллов '+form3. Label1. Caption+'. '+#13+
'Ваша оценка: ' + cena + '! ');
Label3. Caption: = 'Тестпрошелстудент: ' + Form2. Edit1. Text;
Label1. Caption: = 'Обучающийсягруппы: ' + Form2. Edit2. Text;
Label4. Caption: = 'Времяпрохождения: ' + Form3. Label4. Caption + 'мин. ' +' ' +
Form3. Label5. Caption + 'сек. '
end;
procedure TForm5. BitBtn1Click (Sender: TObject);
begin
form1. Show;
form5. hide;
end;
procedure TForm5. BitBtn2Click (Sender: TObject);
begin
Close;
end;
Размещено на Allbest.ru
Подобные документы
Методы разработки автоматизированных систем. Характеристика языка программирования 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Создание программного продукта по теме "Назначение и основные свойства палитры компонентов "Standard"", тестирующего знания студентов, в среде языка программирования Delphi. Особенности методики осуществления контроля знаний и состав тестовых заданий.
курсовая работа [6,1 M], добавлен 17.04.2011Использование информационных технологий в учебном процессе. Тестирование как средство контроля знаний. Разработка компьютерной системы тестирования знаний. Описание языка программирования. Вредные факторы воздействия компьютера на здоровье человека.
дипломная работа [562,2 K], добавлен 06.06.2014Общая характеристика, история разработки и возможности Windows Vista - операционной системы, одной из ведущих продуктов на мировом рынке. Описание аппаратных требований и процесса установки. Отличительные черты, преимущества и недостатки Windows Vista.
презентация [4,7 M], добавлен 24.05.2010
