Желілік техника негіздері пәні бойынша электрондық оқулық

    Shape11: TShape;

    Label12: TLabel;

    procedure Label7Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Label1Click(Sender: TObject);

    procedure Label2Click(Sender: TObject);

    procedure Label3Click(Sender: TObject);

    procedure Label4Click(Sender: TObject);

    procedure Label5Click(Sender: TObject);

    procedure Label6Click(Sender: TObject);

    procedure Label9Click(Sender: TObject);

    procedure Label8Click(Sender: TObject);

    procedure Label10Click(Sender: TObject);

    procedure Label11Click(Sender: TObject);

    procedure Label12Click(Sender: TObject);

   

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form4: TForm4;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm4.Label7Click(Sender: TObject);

begin

form4.Close;

form2.show;

end;

procedure TForm4.FormCreate(Sender: TObject);

begin

form4.Top:=0;

FORM4.Left:=0;

FORM4.Width:=1024;

FORM4.Height:=768;

end;

 

procedure TForm4.Label1Click(Sender: TObject);

begin

webbrowser1.navigate(extractfilepath(application.exename)+'1.mht');

end;

 

procedure TForm4.Label2Click(Sender: TObject);

begin

webbrowser1.navigate(extractfilepath(application.exename)+'3.mht');

end;

 

procedure TForm4.Label3Click(Sender: TObject);

begin

webbrowser1.navigate(extractfilepath(application.exename)+'4.mht');

end;

 

procedure TForm4.Label4Click(Sender: TObject);

begin

webbrowser1.navigate(extractfilepath(application.exename)+'8.mht');

end;

 

procedure TForm4.Label5Click(Sender: TObject);

begin

webbrowser1.navigate(extractfilepath(application.exename)+'9.mht');

end;

 

procedure TForm4.Label6Click(Sender: TObject);

begin

webbrowser1.navigate(extractfilepath(application.exename)+'10.mht');

end;

 

procedure TForm4.Label9Click(Sender: TObject);

begin

webbrowser1.navigate(extractfilepath(application.exename)+'7.mht');

end;

 

procedure TForm4.Label8Click(Sender: TObject);

begin

webbrowser1.navigate(extractfilepath(application.exename)+'6.mht');

end;

 

procedure TForm4.Label10Click(Sender: TObject);

begin

webbrowser1.navigate(extractfilepath(application.exename)+'2.mht');

end;

 

procedure TForm4.Label11Click(Sender: TObject);

begin

webbrowser1.navigate(extractfilepath(application.exename)+'5.mht');

end;

 

procedure TForm4.Label12Click(Sender: TObject);

begin

webbrowser1.navigate(extractfilepath(application.exename)+'11.mht');

end;

end.

 

№5 форманың модулі

 

unit Unit5;

interface

uses

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

  Dialogs,ComCtrls, MPlayer, StdCtrls, ExtCtrls,Jpeg;

 

type

  TForm5 = class(TForm)

    MediaPlayer1: TMediaPlayer;

    Animate1: TAnimate;

    Image1: TImage;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Memo1: TMemo;

    Label9: TLabel;

    procedure Label1Click(Sender: TObject);

    procedure Label2Click(Sender: TObject);

    procedure Label3Click(Sender: TObject);

    procedure Label4Click(Sender: TObject);

    procedure Label5Click(Sender: TObject);

    procedure Label6Click(Sender: TObject);

    procedure Label7Click(Sender: TObject);

    procedure Label8Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Label9Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form5: TForm5;

implementation

uses Unit2;

{$R *.dfm}

 

procedure TForm5.Label1Click(Sender: TObject);

begin

image1.Picture.LoadFromFile('1.jpg');

memo1.Lines.LoadFromFile('1.txt');

end;

 

procedure TForm5.Label2Click(Sender: TObject);

begin

image1.Picture.LoadFromFile('2.jpg');

memo1.Lines.LoadFromFile('2.txt');

end;

 

procedure TForm5.Label3Click(Sender: TObject);

begin

image1.Picture.LoadFromFile('3.jpg');

memo1.Lines.LoadFromFile('3.txt');

end;

 

procedure TForm5.Label4Click(Sender: TObject);

begin

image1.Picture.LoadFromFile('4.jpg');

memo1.Lines.LoadFromFile('4.txt');

end;

 

procedure TForm5.Label5Click(Sender: TObject);

begin

image1.Picture.LoadFromFile('5.jpg');

memo1.Lines.LoadFromFile('5.txt');

end;

 

procedure TForm5.Label6Click(Sender: TObject);

begin

image1.Picture.LoadFromFile('6.jpg');

memo1.Lines.LoadFromFile('6.txt');

end;

 

procedure TForm5.Label7Click(Sender: TObject);

begin

image1.Picture.LoadFromFile('7.jpg');

memo1.Lines.LoadFromFile('7.txt');

end;

 

procedure TForm5.Label8Click(Sender: TObject);

begin

image1.Picture.LoadFromFile('8.jpg');

memo1.Lines.LoadFromFile('8.txt');

end;

 

procedure TForm5.FormCreate(Sender: TObject);

begin

mediaplayer1.AutoOpen:=true;

form5.Top:=110;

form5.Left:=183;

form5.Width:=803;

form5.Height:=538;

end;

 

procedure TForm5.Label9Click(Sender: TObject);

begin

form5.Close;

form2.show;

end;

 

end.

 

№6 форманың модулі

unit Unit6;

interface

uses

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

  Dialogs, StdCtrls;

 

type

  TForm6 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    procedure Label1Click(Sender: TObject);

    procedure Label2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form6: TForm6;

 

implementation

uses ShellAPI, Unit2;

{$R *.dfm}

 

procedure TForm6.Label1Click(Sender: TObject);

begin

ShellExecute(handle, 'open', 'C:\Azamat\BDVTest\BDVTest.exe', nil, nil,

SW_ShowNormal);

end;

 

procedure TForm6.Label2Click(Sender: TObject);

begin

Form6.close;

Form2.show;

end;

end.

№7 форманың модулі

unit Unit7;

 

interface

 

uses

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

  Dialogs, ExtCtrls, StdCtrls, jpeg;

 

type

  TForm7 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Image1: TImage;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    procedure FormCreate(Sender: TObject);

    procedure Label5Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form7: TForm7;

 

implementation

 

uses Unit2;

 

{$R *.dfm}

 

procedure TForm7.FormCreate(Sender: TObject);

begin

form7.Top:=113;

form7.left:=179;

form7.Width:=789;

form7.Height:=571;

end;

 

procedure TForm7.Label5Click(Sender: TObject);

begin

form7.Close;

form2.show;

end;

 

end.

 

procedure TForm7.Button2Click(Sender: TObject);

begin

if opendialog1.execute then begin

image1.Picture.LoadFromFile(opendialog1.FileName);end;

end;

 

end.

 

№8 форманың модулі

 

unit Unit8;

 

interface

 

uses

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

  Dialogs, QRCtrls, QuickRpt, ExtCtrls;

 

type

  TForm8 = class(TForm)

    QuickRep1: TQuickRep;

    PageHeaderBand1: TQRBand;

    TitleBand1: TQRBand;

    DetailBand1: TQRBand;

    QRSysData1: TQRSysData;

    QRLabel1: TQRLabel;

    ColumnHeaderBand1: TQRBand;

    QRDBText1: TQRDBText;

    QRDBText2: TQRDBText;

    QRLabel2: TQRLabel;

    QRLabel3: TQRLabel;

    QRLabel4: TQRLabel;

    QRLabel5: TQRLabel;

    QRLabel6: TQRLabel;

    QRLabel7: TQRLabel;

    QRDBText3: TQRDBText;

    QRDBText4: TQRDBText;

    QRDBText5: TQRDBText;

    QRDBText6: TQRDBText;

    QRDBText7: TQRDBText;

    QRDBText8: TQRDBText;

    QRDBText9: TQRDBText;

    QRDBText10: TQRDBText;

    QRDBText11: TQRDBText;

    QRDBText12: TQRDBText;

      private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form8: TForm8;

 

implementation

 

{$R *.dfm}

 

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

7.2 Есептеу нәтижесі

 

“Желілік технилогия негіздері пәні бойынша электрондық оқулық” бағдарламасын әзірлеуде, сонымен қатар кез келген бағдарламалық қамтамасыз етуді құрастыруда барлық қажетті шаралардың маңыздылығы мен басымдылығын қарастыруға, бағалауға және оның құрылымын қарауға, нақты жоба үшін қажеттілігін тексеруге болады. Жоғарыда сипатталған жоба бағдарламалық қамтамасыз ету әзірлемесінің барлық аспектілерін – техникалық тапсырманы, әзірлемені, қолдауды мүмкіндік береді.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Әдебиет тізімі

 

негізгі

 

1. А. Сергеев, Delphi на примерах. Бином. Москва. 2001г.

2. В.А. Архангельский, Delphi 7.0, Бином. Москва. 2003г.

3. В.Гофман, В.Хомоненко, Delphi. Быстрый старт. BHV. Москва. 2002г.

4. Дж. Браун, Принципы работы сети. ЭКОМ. Москва. 2004г.

5. И. Кокс, Delphi 7 для профессионалов. BHV. Москва. 2005г.

6. И.Биллиг, Объектно-ориентированное программирование. Питер. Санкт-Петербург. 2000г.

7. С. Тарлингтон, 3 стороны программирования. Питер. Санкт-Петербург. 1999г.

8. С.Т. Стерлинг, Принципы программирования. Питер. Санкт-Петербург. 2003г.

9. Т. Астон, Успешное программирование. Бином. Москва. 2002г.

10. У. Трайдент, Интернет и локальные сети. ЭКОМ. Москва. 2004г.

 

қосымша

 

1. А.К. Петров, «Эпоха Интернет», CHIP, №13(522) от 15.04.2005г.
2. ГОСТ 12.1.003-88 Шум. Общие требования безопасности
3. ГОСТ 12.2.032-78 Конструкция рабочего места, взаимное расположение всех его элементов
4. ГОСТ 19.101-77 Виды программ и программных документов
5. ГОСТ 19.102-77 Стадии разработки
6. ГОСТ 19.103-77 Обозначения программ и программных документов
7. ГОСТ 19.105-78 Общие требования к программным документам
8. ГОСТ 19.401-78 Текст программы
9. ГОСТ 19.402-78 Описание программы
10. ГОСТ 19.504-79 Руководство программиста
11. ГОСТ 19.505-79 Руководство оператора
12. ГОСТ 19.506-79 Описание языка
13. ГОСТ 19-002-80 Схемы алгоритмов программ
14. Е.Козловский, «Delphi, Visual Basic и другие», Компьютерра, №19(382) 21.05.2005г.
15. С.В. Баранов, «Уроки программирования», Компьютер Пресс, №15-21 за 2004г.
16. СниП-II-12-77 Строительно-акустические методы защиты от шума
17. СР-245/71 Параметры микроклимата на рабочем месте

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№1қосымша

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 №2 қосымша