Проектная работа
Тема: [pic]
Подготовила: Рүстем Нұрдана
Класс: 10 «С»
Руководитель: Бакулова Гульмира
[link] Фрагменты кода
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;
type
TForm1 = class(TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Image2: TImage;
Button1: TButton;
procedure Label1Click(Sender: TObject);
procedure Label2Click(Sender: TObject);
procedure Label3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit13;
{$R *.dfm}
procedure TForm1.Label1Click(Sender: TObject);
begin
Form2.show;
end;
procedure TForm1.Label2Click(Sender: TObject);
begin
Form2.show;
end;
procedure TForm1.Label3Click(Sender: TObject);
begin
Form2.show;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form13.show;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
form13.Show;
end;
end.
var
Form2: TForm2;
implementation
uses Unit3, Unit4, Unit5, Unit6;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
Form3.show;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
Form4.show;
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
Form5.show;
end;
procedure TForm2.Button4Click(Sender: TObject);
begin
Form6.show;
end;
end.
var
Form3: TForm3;
implementation
uses Unit7, Unit8, Unit9, Unit10, Unit2, Unit19;
{$R *.dfm}
procedure TForm3.Image2Click(Sender: TObject);
begin
form7.show;
end;
procedure TForm3.Image3Click(Sender: TObject);
begin
form8.show;
end;
procedure TForm3.Image4Click(Sender: TObject);
begin
form9.show;
end;
procedure TForm3.Image5Click(Sender: TObject);
begin
form10.show;
end;
procedure TForm3.Image6Click(Sender: TObject);
begin
form2.show;
end;
procedure TForm3.Button1Click(Sender: TObject);
begin
form19.show;
end;
procedure TForm3.Timer1Timer(Sender: TObject);
const g=20;
const f=2;
var a:integer;
begin
Label1.;
if Label1.Left=200 then
begin
for a:=1 to g do
Label1.;
end;
end;
procedure TForm3.Label1Click(Sender: TObject);
begin
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls, Buttons;
type
TForm4 = class(TForm)
Image1: TImage;
Label1: TLabel;
Button1: TButton;
Image2: TImage;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit11, Unit2, Unit20;
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
form11.show;
end;
procedure TForm4.Image2Click(Sender: TObject);
begin
form2.show;
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
form20.show;
end;
end.
var
Form18: TForm18;
ball:integer;
type answers=array[1..5,0..3] of byte;
const otv:answers=((0,0,0,1),(0,1,0,0),(0,0,1,0),(1,0,0,0),(0,1,0,0));
implementation
{$R *.dfm}
procedure TForm18.Button1Click(Sender: TObject);
begin
ball:=otv[1,radiogroup1.ItemIndex]+
otv[2,radiogroup2.ItemIndex]+
otv[3,radiogroup3.ItemIndex]+
otv[4,radiogroup4.ItemIndex]+
otv[5,radiogroup5.ItemIndex];
Label1.Caption:='Барлық сұрақтың'+IntToStr(ball)+' еуіне дұрыс жауап бердің!';
if ball=5
then Label2.Caption:='Сабақты мұқият тыңдадың,Жарайсың!'
else Label2.Caption:='Сабақты дұрыс тыңдамадың!Бұл ісің жарамады.'
end;
procedure TForm18.Image2Click(Sender: TObject);
begin
form6.show;
end;
