unit Test2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Buttons, Menus, ComCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Panel1: TPanel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Panel2: TPanel;
    Label4: TLabel;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    Label5: TLabel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    wert1: TProgressBar;
    wert2: TProgressBar;
    BitBtn6: TBitBtn;
    label6: TMemo;
    Label7: TLabel;
    Label8: TLabel;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
  private
    { Private declarations }
    i:integer;
    sh:integer;
    u:array [0..25] of string;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
var
f:textfile;
s:string;
d:integer;
begin
assignfile(f,'Test1.pav');
reset(f);
for d:=1 to 20 do
  begin
    readln(f,u[d]);
  end;
    label4.caption:='';
    label5.caption:='';
    label4.caption:=u[1];
//    label4.caption:='После соры в семье, после выговора начальниа ищете ли Вы успокоение в спиртных напитках';
    i:=i+1;
    Bitbtn1.Show;
    Bitbtn2.Show;
    Bitbtn4.hide;
    Bitbtn5.Show;
    closefile(f);
end;

procedure TForm1.FormActivate(Sender: TObject);
var
f:textfile;
begin
assignfile(f,'Test1.pav');
reset(f);

end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin

i:=i+1;
sh:=sh+1;
if i>20 then
  begin
    if sh<4 then label5.caption:='Вы не алкоголик.';
    if (sh>3) and (sh<8) then label5.caption:='Ранняя стадия алкоголизма. Которая длится обычно 10-15 лет.';
    if (sh>7) and (sh<17) then label5.caption:='Средняя стадия алкоголизма, длится обычно 2-5 лет.';
    if sh>16 then label5.caption:='Последняя стадия алкоголизма.';
    beep;
    Bitbtn1.Hide;
    i:=0;
    sh:=0;
    Bitbtn2.Hide;
    Bitbtn4.show;
    Bitbtn5.Hide;
  end;
 label4.caption:=u[i];
 wert1.position:=i;
 wert2.position:=sh;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
i:=i+1;
if i>20 then
  begin
      if sh<4 then label5.caption:='Вы не алкоголик.';
    if (sh>3) and (sh<8) then label5.caption:='Ранняя стадия алкоголизма. Которая длится обычно 10-15 лет.';
    if (sh>7) and (sh<17) then label5.caption:='Средняя стадия алкоголизма, длится обычно 2-5 лет.';
    if sh>16 then label5.caption:='Последняя стадия алкоголизма.';
        beep;
    Bitbtn1.Hide;
    i:=0;
    sh:=0;
    Bitbtn2.Hide;
    Bitbtn4.show;
    Bitbtn5.Hide;

end;
 label4.caption:=u[i];
  wert1.position:=i;
  wert2.position:=sh;
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
    beep;
    label4.caption:='';
    Bitbtn1.Hide;
    i:=0;
    sh:=0;
    Bitbtn2.Hide;
    Bitbtn4.show;
    Bitbtn5.Hide;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
close;
end;

procedure TForm1.N7Click(Sender: TObject);
var
f:textfile;
s:string;
d:integer;
begin
assignfile(f,'Test1.pav');
reset(f);
for d:=1 to 20 do
  begin
    readln(f,u[d]);
  end;
    label4.caption:='';
    label5.caption:='';
    label4.caption:=u[1];
//    label4.caption:='После соры в семье, после выговора начальниа ищете ли Вы успокоение в спиртных напитках';
    i:=i+1;
    Bitbtn1.Show;
    Bitbtn2.Show;
    Bitbtn4.hide;
    Bitbtn5.Show;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
    beep;
    label4.caption:='';
    Bitbtn1.Hide;
    i:=0;
    sh:=0;
    Bitbtn2.Hide;
    Bitbtn4.show;
    Bitbtn5.Hide;

end;

procedure TForm1.N2Click(Sender: TObject);
begin
label6.text:='';
panel1.hide;
panel2.hide;
wert1.hide;
wert2.hide;
Bitbtn1.hide;
Bitbtn2.hide;
Bitbtn3.hide;
Bitbtn4.hide;
Bitbtn5.hide;
//label1.Hide;
//label2.Hide;
label3.Hide;
label4.Hide;
label5.Hide;
Bitbtn6.show;
label6.show;
label6.lines.add('Чтобы выйти нажмите кнопку "Прочитал"');
label6.lines.add('Чтобы начать тест нажмите кнопку "Начать тест"');
label6.lines.add('Чтобы выйти из программы нажмите кнопку "Выход"');
label6.lines.add('Во время теста посторайтесь чесно отвечать на поставленные ');
label6.lines.add('перед Вами вопросы.');
label6.lines.add('Если вы зохотите прервать тест нажмите кнопку "Закончить тест"');
end;

procedure TForm1.N3Click(Sender: TObject);
begin
label6.text:='';
panel1.hide;
panel2.hide;
wert1.hide;
wert2.hide;
Bitbtn1.hide;
Bitbtn2.hide;
Bitbtn3.hide;
Bitbtn4.hide;
Bitbtn5.hide;
//label1.Hide;
//label2.Hide;
label3.Hide;
label4.Hide;
label5.Hide;
Bitbtn6.show;
label6.show;
label6.lines.add('Данная программа распространяеться бесплатно ');
label6.lines.add('и не может использоваться в комерческих целях.');
label6.lines.add('Чтобы получить возможность и дальше получать ');
label6.lines.add('бесплатные (платные со скидкой) программы ');
label6.lines.add('пошлите уведомление по почте. По адресу:');
label6.lines.add('Украина г.Харьков ул. Корчагенцев 38 кв. 133:');
label6.lines.add('или любым другим удобным для Вас способом.');
label6.lines.add('');
label6.lines.add('Уведомление должно содержать:');
label6.lines.add('Ф.И.О. пользователя(лей), адрес и телефон.');

end;

procedure TForm1.N4Click(Sender: TObject);
begin
label6.text:='';
panel1.hide;
panel2.hide;
wert1.hide;
wert2.hide;
Bitbtn1.hide;
Bitbtn2.hide;
Bitbtn3.hide;
Bitbtn4.hide;
Bitbtn5.hide;
//label1.Hide;
//label2.Hide;
label3.Hide;
label4.Hide;
label5.Hide;
Bitbtn6.show;
label6.show;
label6.lines.add('Автор программы Софронов Павел Николаевич');
end;

procedure TForm1.N5Click(Sender: TObject);
var
e:textfile;
s:string;
g:integer;
begin
label6.text:='';
assignfile(e,'hi1.pav');
reset(e);
panel1.hide;
panel2.hide;
wert1.hide;
wert2.hide;
Bitbtn1.hide;
Bitbtn2.hide;
Bitbtn3.hide;
Bitbtn4.hide;
Bitbtn5.hide;
//label1.Hide;
//label2.Hide;
label3.Hide;
label4.Hide;
label5.Hide;
Bitbtn6.show;
label6.show;
for g:=1 to 5 do
  begin
readln(e,s);
label6.lines.add(s);
  end;
end;

procedure TForm1.BitBtn6Click(Sender: TObject);
begin
panel1.show;
panel2.show;
wert1.show;
wert2.show;
Bitbtn1.show;
Bitbtn2.show;
Bitbtn3.show;
Bitbtn4.show;
Bitbtn5.show;
label1.show;
label2.show;
label3.show;
label4.show;
label5.show;
Bitbtn6.hide;
label6.hide;
label6.text:='';
end;

end.
