Курсовая работа: Програма контролю знань з дисципліни "Системне програмування та операційні системи"

k:=0;

Label1.Caption:='Питання № 1';

Label4.Caption:=TimeToStr((StrToTime(Form2.Edit2.Text)/60));

Label5.Caption:=Label4.Caption;

Timer1.Enabled:=true;

a:=StrToTime(Form2.Edit2.Text)/60;

ProgressBar1.Position:=0;

ProgressBar1.Max:=StrToInt(Form2.Edit2.Text)*60;

Gauge1.Progress:=0;

end;

end.

_____________________________________________________________

unit Unit6;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, Buttons;

type

TForm6 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

BitBtn1: TBitBtn;

GroupBox1: TGroupBox;

Label8: TLabel;