Главная Коллекция "Otherreferats" Программирование, компьютеры и кибернетика Разработка программы оценки знания студента

Разработка программы оценки знания студента

Общие понятия о компьютерном тестовом контроле знаний. Анализ методических основ создания компьютерных тестов. Характеристика языка программирования Delphi. Описание этапов разработки программы и ее тестирования. Описание пользовательского интерфейса.

Рубрика Программирование, компьютеры и кибернетика
Вид курсовая работа
Язык русский
Дата добавления 03.03.2016
Размер файла 145,7 K

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

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

Страница:

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, Gauges, Buttons;

type

TForm3 = class(TForm)

Bevel1: TBevel;

Label1: TLabel;

Label2: TLabel;

Gauge1: TGauge;

Gauge2: TGauge;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

BitBtn1: TBitBtn;

Label6: TLabel;

Label7: TLabel;

Timer1: TTimer;

Label8: TLabel;

TimeLabel: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1, Unit2;

{$R *.dfm}

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

Close;

end;

procedure TForm3.Timer1Timer(Sender: TObject);

begin

if (Gauge1.Progress < 40) then label7.Caption:='2';

if (Gauge1.Progress >= 40 )and (Gauge1.Progress <60) then label7.Caption:='3';

if (Gauge1.Progress >=60) and (Gauge1.Progress <=90)

then label7.Caption:='4';

if Gauge1.Progress >90 then label7.Caption:='5';

end; end.

Размещено на Allbest.ru

Страница:


Подобные документы

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.

© 2000 — 2025, ООО «Олбест» Все наилучшее для вас