Здавалка
Главная | Обратная связь

Инструкция программиста

⇐ ПредыдущаяСтр 5 из 5

В состав проекта входят следующие файлы:

1) Project1.dpr является центральным файлом проекта, содержит ссылки на другие файлы проекта и связывает формы с соответствующими модулями.

2) Project1.res – это стандартный двоичный файл ресурсов, включающий в себя информацию о приложении.

3) Project1.exe откомпилированный исполняемый файл, запускает электронное пособие.

4) Unit1.pas – код первой формы.

5) Unit2.pas – код второй формы.

6) Unit3.pas – код третьей формы.

7) Unit4.pas – код четвертой формы.

8) Unit5.pas – код пятой формы.

9) Unit6.pas – код шестой формы.

10) Unit8.pas – код восьмой формы.

11) Unit9.pas – код девятой формы.

12) Unit1.dfm содержит описание объектов, расположенных на первой форме.

13) Unit2.dfm содержит описание объектов, расположенных на второй форме.

14) Unit3.dfm содержит описание объектов, расположенных на третьей форме.

15) Unit4.dfm содержит описание объектов, расположенных на четвертой форме.

16) Unit5.dfm содержит описание объектов, расположенных на пятой форме.

17) Unit6.dfm содержит описание объектов, расположенных на шестой форме.

18) Unit8.dfm содержит описание объектов, расположенных на восьмой форме.

19) Unit9.dfm содержит описание объектов, расположенных на девятой форме.

20) Папка lec содержит файлы формата .htm, являющиеся лекциями электронного пособия.

21) Меню.txt – текстовый файл, содержащий перечень разделов и тем; необходим для отображения в программе.

Существует возможность увеличения/изменения наименования разделов и тем, лекций, количества вопросов в тестах, вариантов ответов.

Изменение наименований разделов и/или тем происходит в файле Меню.txt, затем в контекстном меню компонента TreeView1 – Items Editor – Load выбирается измененный файл Меню.txt.

Изменение лекций состоит из следующих этапов: сначала создается или редактируется файл формата .htm в папке lec, потом он подключается в строке следующей процедуры Unit3:

Procedure TForm3.TreeView1Click(Sender: TObject);

…

if Index=число then

WebBrowser1.Navigate(MyProgPath+'lec\файл.htm');

…

где,

число – порядковый номер раздела/темы;

файл – наименование htm-файла папки lec, содержащего лекции.

Изменение вопросов и ответов в тестах заключается в следующем: сначала добавляется или редактируется вопрос и/или ответ на формах Form5 и/или Form8 затем в кодах Unit5 и/или Unit8 происходят изменения в строке:

для Unit5 с одним ответом

procedure TForm5.Button4Click(Sender: TObject);

…

if radiobuttonномер.Checked=true then n:=n+1;

где,

номер – номер компонента RadioButton, который присваивается ему при создании. Рассматриваются только те номера RadioButton, которые являются правильным ответом.

для Unit8 с несколькими ответами

procedure TForm8.Button15Click(Sender: TObject);

…

if(checkboxномер.Checked=true) and(checkboxномер.Checked=true)

and (checkboxномер.Checked=true) and

checkboxномер.Checked=true) and (checkboxномер.Checked=false)

then m:=m+1;

где,

номер – номера компонентов CheckBox, которые присваиваются ему при создании. True указывается только тем CheckBox, которые содержат правильные ответы, иначе – false.

Обе процедуры содержат строчки, содержащие информацию о количестве правильных ответов и соответствия их оценкам:

для Unit5 с одним ответом

case n of

0..3: Form6.Label1.Caption:='Оценка 2';

4..7: Form6.Label1.Caption:='Оценка 3';

8..11: Form6.Label1.Caption:='Оценка 4';

12..15: Form6.Label1.Caption:='Оценка 5';

для Unit8 с несколькими ответами

case m of

0..5: Form9.Label5.Caption:='Оценка 2';

6..7: Form9.Label5.Caption:='Оценка 3';

8..9: Form9.Label5.Caption:='Оценка 4';

10: Form9.Label5.Caption:='Оценка 5';

То есть в зависимости от количества вопросов варьируется и оценочный балл.

После любых изменениях в программе ее необходимо перекомпилировать для формирования нового файла Project1.exe.


Заключение

В процессе выполнения курсовой работы было разработано электронное пособие «Обзор социальных сетей», являющееся средством для ознакомления и самостоятельного изучения студентами на такой дисциплине как «Информатика».

Цель была достигнута, задачи выполнены. Данное электронное пособие внедрено в учебный процесс и служит хорошим наглядным источником на парах информатики.

За время написания курсовой работы были получены знания в области программирования на Delphi.

Преимуществами программы являются:

1) удобный и простой интерфейс;

2) функционирование на любом ПК;

3) наличие проверочных заданий (тестов) на знание всего материала.

Присутствует возможность модификации программы с целью увеличения лекционного материала, тестов и разработки практических работ по каждой теме.

 

 


Список литературы

1) Винник В. Д.Социальные сети как феномен организации общества: сущность и подходы к использованию и мониторингу // Философия науки. – 2012. – №4 (55).– С. 110–126.

2) Манако А. Ф., Синица К. М. Электронные научно-образовательные пространства и перспективы их развития в контексте поддержки массовости и непрерывности //Управляющие системы и машины. – 2012. – №4. – С. 83–92.

3) Манако А. Ф., Синица Е. М. К вопросу о развитии современных учебных сред // Proc. 1-st International Conference (Kyev, 22-23 November 2006). – K.: Изд-во Академпериодика. – 2006. – P. 86–97.

4) Манако А. Ф., Синица Е. М. К вопросу о развитии современных учебных сред // Proc. 1-st International Conference (Kyev, 22-23 November 2006). – K.: Изд-во Академпериодика. – 2006. – P. 86–97.

5) ГОСТ 19.105-78 . ЕСПД. Общие требования к программным документам;

6) ГОСТ 19.402-78. ЕСПД. Описание программы;

7) ГОСТ 19.502-78. ЕСПД. Описание применения. Требования к содержанию и оформлению;

8) ГОСТ 19.504-79. ЕСПД. Руководство программиста. Требования к содержанию и оформлению;

9) ГОСТ 19.505-79 ЕСПД. Руководство оператора. Требования к содержанию и оформлению;

10) Пискунова А.И. История педагогики и образования. От зарождения воспитания в первобытном обществе до конца XX в.: учебное пособие для педагогических учебных заведений. М.: Эфесс, 2007. — 496 с.

11) Быстрова Ю.А. Применение компьютерных технологий как средства формирования познавательного интереса у студентов высшей школы: автореф. : магистра педагогики: 540350. - Актау, 2005. - 25 с.


Приложение А

Листинг Project

program Project1;

uses

Forms,

Unit1 in 'Unit1.pas' {Form1},

Unit2 in 'Unit2.pas' {Form2},

Unit3 in 'Unit3.pas' {Form3},

Unit4 in 'Unit4.pas' {AboutBox},

Unit5 in 'Unit5.pas' {Form5},

Unit6 in 'Unit6.pas' {Form6},

Unit8 in 'Unit8.pas' {Form8},

Unit9 in 'Unit9.pas' {Form9};

 

{$R *.res}

 

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TForm2, Form2);

Application.CreateForm(TForm3, Form3);

Application.CreateForm(TAboutBox, AboutBox);

Application.CreateForm(TForm5, Form5);

Application.CreateForm(TForm6, Form6);

Application.CreateForm(TForm8, Form8);

Application.CreateForm(TForm9, Form9);

Application.Run;

end.

 


Приложение Б

Листинг Unit1

unit Unit1;

interface

uses

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

Dialogs, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

Image1: TImage;

Timer1: TTimer;

procedure Image1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Image1Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

form1.Hide;

form2.Show;

Timer1.Enabled := False;

end;

end.

 


Приложение В

Листинг Unit2

unit Unit2;

interface

uses

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

Dialogs, Menus, jpeg, ExtCtrls, StdCtrls, OleCtrls, SHDocVw;

type

TForm2 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N3: TMenuItem;

N2: TMenuItem;

N6: TMenuItem;

Image1: TImage;

N7: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

procedure N4Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1, Unit3, Unit4, Unit5, Unit8;

{$R *.dfm}

procedure TForm2.N4Click(Sender: TObject);

begin

Form5.Show;

end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Application.Terminate;

end;

procedure TForm2.N2Click(Sender: TObject);

begin

Form3.show;

end;

procedure TForm2.N3Click(Sender: TObject);

begin

Aboutbox.Show;

end;

procedure TForm2.N7Click(Sender: TObject);

begin

close;

end;

procedure TForm2.N5Click(Sender: TObject);

begin

Form8.Show;

end;

end.

 


Приложение Г

Листинг Unit3

 

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, OleCtrls, SHDocVw, ExtCtrls, ComCtrls;

type

TForm3 = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

WebBrowser1: TWebBrowser;

TreeView1: TTreeView;

Splitter1: TSplitter;

procedure Label2Click(Sender: TObject);

procedure TreeView1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3; MyProgPath : string;

implementation

{$R *.dfm}

procedure TForm3.Label2Click(Sender: TObject);

begin

WebBrowser1.Navigate(extractfilepath(paramstr(0))+'lec1.htm');

end;

procedure TForm3.TreeView1Click(Sender: TObject);

var Index:integer;

begin

Index:=TreeView1.Selected.AbsoluteIndex;

if Index=0 then

WebBrowser1.Navigate(MyProgPath+'lec\Раздел2.htm');

if Index=1 then

WebBrowser1.Navigate(MyProgPath+'lec\Раздел3.htm');

if Index=2 then

WebBrowser1.Navigate(MyProgPath+'lec\lec1.htm');

if Index=3 then

WebBrowser1.Navigate(MyProgPath+'lec\Раздел4.htm');

if Index=4 then

WebBrowser1.Navigate(MyProgPath+'lec\lec2.htm');

if Index=5 then

WebBrowser1.Navigate(MyProgPath+'lec\lec3.htm');

if Index=6 then

WebBrowser1.Navigate(MyProgPath+'lec\lec4.htm');

if Index=7 then

WebBrowser1.Navigate(MyProgPath+'lec\lec5.htm');

if Index=8 then

WebBrowser1.Navigate(MyProgPath+'lec\lec6.htm');

if Index=9 then

WebBrowser1.Navigate(MyProgPath+'lec\lec7.htm');

if Index=10 then

WebBrowser1.Navigate(MyProgPath+'lec\Раздел5.htm');

if Index=11 then

WebBrowser1.Navigate(MyProgPath+'lec\lec8.htm');

if Index=12 then

WebBrowser1.Navigate(MyProgPath+'lec\lec9.htm');

if Index=13 then

WebBrowser1.Navigate(MyProgPath+'lec\Раздел6.htm');

if Index=14 then

WebBrowser1.Navigate(MyProgPath+'lec\lec10.htm');

if Index=15 then

WebBrowser1.Navigate(MyProgPath+'lec\Раздел7.htm');

if Index=16 then

WebBrowser1.Navigate(MyProgPath+'lec\lec11.htm');

if Index=17 then

WebBrowser1.Navigate(MyProgPath+'lec\Раздел8.htm');

if Index=18 then

WebBrowser1.Navigate(MyProgPath+'lec\lec12.htm');

if Index=19 then

WebBrowser1.Navigate(MyProgPath+'lec\Раздел9.htm');

if Index=20 then

WebBrowser1.Navigate(MyProgPath+'lec\lec13.htm');

if Index=21 then

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

MyProgPath:=ExtractFilePath(ParamStr(0));

TreeView1.LoadFromFile(MyProgPath+'lec\меню.txt');

WebBrowser1.Navigate(MyProgPath+'lec\титул.htm');

end;

end.


Приложение Д

Листинг Unit4

unit Unit4;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls, jpeg;

type

TAboutBox = class(TForm)

OKButton: TButton;

Image1: TImage;

ProductName: TLabel;

Version: TLabel;

Label1: TLabel;

procedure OKButtonClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutBox: TAboutBox;

implementation

{$R *.dfm}

procedure TAboutBox.OKButtonClick(Sender: TObject);

begin

close;

end;

end.


Приложение Е

Листинг Unit5

unit Unit5;

interface

uses

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

Dialogs, StdCtrls, ComCtrls, ExtCtrls;

type

TForm5 = class(TForm)

PageControl1: TPageControl;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

TabSheet4: TTabSheet;

TabSheet5: TTabSheet;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

RadioGroup1: TRadioGroup;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

RadioGroup2: TRadioGroup;

RadioButton4: TRadioButton;

RadioButton5: TRadioButton;

RadioButton6: TRadioButton;

RadioGroup3: TRadioGroup;

RadioButton10: TRadioButton;

RadioButton11: TRadioButton;

RadioButton12: TRadioButton;

RadioGroup4: TRadioGroup;

RadioButton7: TRadioButton;

RadioButton8: TRadioButton;

RadioButton9: TRadioButton;

TabSheet1: TTabSheet;

Label5: TLabel;

RadioGroup5: TRadioGroup;

RadioButton13: TRadioButton;

RadioButton14: TRadioButton;

RadioButton15: TRadioButton;

Button5: TButton;

TabSheet6: TTabSheet;

Label6: TLabel;

RadioGroup6: TRadioGroup;

RadioButton16: TRadioButton;

RadioButton17: TRadioButton;

RadioButton18: TRadioButton;

Button6: TButton;

TabSheet7: TTabSheet;

TabSheet8: TTabSheet;

TabSheet9: TTabSheet;

TabSheet10: TTabSheet;

TabSheet11: TTabSheet;

TabSheet12: TTabSheet;

TabSheet13: TTabSheet;

TabSheet14: TTabSheet;

TabSheet15: TTabSheet;

Label7: TLabel;

RadioGroup7: TRadioGroup;

RadioButton19: TRadioButton;

RadioButton20: TRadioButton;

RadioButton21: TRadioButton;

Button7: TButton;

Label8: TLabel;

RadioGroup8: TRadioGroup;

RadioButton22: TRadioButton;

RadioButton23: TRadioButton;

RadioButton24: TRadioButton;

Button8: TButton;

Label9: TLabel;

RadioGroup9: TRadioGroup;

RadioButton25: TRadioButton;

RadioButton26: TRadioButton;

RadioButton27: TRadioButton;

Button9: TButton;

Label10: TLabel;

RadioGroup10: TRadioGroup;

RadioButton28: TRadioButton;

RadioButton29: TRadioButton;

RadioButton30: TRadioButton;

Button10: TButton;

Label11: TLabel;

RadioGroup11: TRadioGroup;

RadioButton31: TRadioButton;

RadioButton32: TRadioButton;

RadioButton33: TRadioButton;

Button11: TButton;

Label12: TLabel;

RadioGroup12: TRadioGroup;

RadioButton34: TRadioButton;

RadioButton35: TRadioButton;

RadioButton36: TRadioButton;

Button12: TButton;

Label13: TLabel;

RadioGroup13: TRadioGroup;

RadioButton37: TRadioButton;

RadioButton38: TRadioButton;

RadioButton39: TRadioButton;

Button13: TButton;

Label14: TLabel;

RadioGroup14: TRadioGroup;

RadioButton40: TRadioButton;

RadioButton41: TRadioButton;

RadioButton42: TRadioButton;

Button14: TButton;

Label15: TLabel;

RadioGroup15: TRadioGroup;

RadioButton43: TRadioButton;

RadioButton44: TRadioButton;

RadioButton45: TRadioButton;

Button4: TButton;

Button15: TButton;

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

procedure Button11Click(Sender: TObject);

procedure Button12Click(Sender: TObject);

procedure Button13Click(Sender: TObject);

procedure Button14Click(Sender: TObject);

procedure Button15Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5; n:integer;

implementation

uses Unit6;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

begin

PageControl1.SelectNextPage(true);

end;

procedure TForm5.Button3Click(Sender: TObject);

begin

PageControl1.SelectNextPage(true);

end;

procedure TForm5.Button15Click(Sender: TObject);

begin

PageControl1.SelectNextPage(true);

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

PageControl1.SelectNextPage(true);

end;

procedure TForm5.Button5Click(Sender: TObject);

begin

PageControl1.SelectNextPage(true);

end;

procedure TForm5.Button6Click(Sender: TObject);

begin

PageControl1.SelectNextPage(true);

end;

procedure TForm5.Button7Click(Sender: TObject);

begin

PageControl1.SelectNextPage(true);

end;

procedure TForm5.Button8Click(Sender: TObject);

begin

PageControl1.SelectNextPage(true);

end;

procedure TForm5.Button9Click(Sender: TObject);

begin

PageControl1.SelectNextPage(true);

end;

procedure TForm5.Button10Click(Sender: TObject);

begin

PageControl1.SelectNextPage(true);

end;

procedure TForm5.Button11Click(Sender: TObject);

begin

PageControl1.SelectNextPage(true);

end;

procedure TForm5.Button12Click(Sender: TObject);

begin

PageControl1.SelectNextPage(true);

end;

procedure TForm5.Button13Click(Sender: TObject);

begin

PageControl1.SelectNextPage(true);

end;

procedure TForm5.Button14Click(Sender: TObject);

begin

PageControl1.SelectNextPage(true);

end;

procedure TForm5.Button4Click(Sender: TObject);

begin

n:=0;

if radiobutton2.Checked=true then n:=n+1;

if radiobutton4.Checked=true then n:=n+1;

if radiobutton7.Checked=true then n:=n+1;

if radiobutton11.Checked=true then n:=n+1;

if radiobutton15.Checked=true then n:=n+1;

if radiobutton17.Checked=true then n:=n+1;

if radiobutton19.Checked=true then n:=n+1;

if radiobutton22.Checked=true then n:=n+1;

if radiobutton26.Checked=true then n:=n+1;

if radiobutton29.Checked=true then n:=n+1;

if radiobutton31.Checked=true then n:=n+1;

if radiobutton34.Checked=true then n:=n+1;

if radiobutton39.Checked=true then n:=n+1;

if radiobutton40.Checked=true then n:=n+1;

if radiobutton45.Checked=true then n:=n+1;

case n of

0..3: Form6.Label1.Caption:='Оценка 2';

4..7: Form6.Label1.Caption:='Оценка 3';

8..11: Form6.Label1.Caption:='Оценка 4';

12..15: Form6.Label1.Caption:='Оценка 5';

end;Form6.show;

end;

procedure TForm5.FormCreate(Sender: TObject);

begin

PageControl1.ActivePageIndex:=0;

end;

procedure TForm5.FormShow(Sender: TObject);

begin

n := 0;

end;

end.


Приложение Ж

Листинг Unit6

unit Unit6;

interface

uses

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

Dialogs, StdCtrls, ComCtrls, jpeg, ExtCtrls;

type

TForm6 = class(TForm)

Button1: TButton;

Image1: TImage;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;n:integer;

implementation

uses Unit5;

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);

var i,j:integer; sheet: TTabSheet;

begin

Form5.PageControl1.ActivePageIndex:=0;

n:=0;

for i:=0 to Form5.PageControl1.ControlCount - 1 do

begin

if (Form5.PageControl1.Controls[i] is TTabSheet) then

begin

sheet := (Form5.PageControl1.Controls[i] as TTabSheet);

for j:=0 to sheet.ControlCount - 1 do

if (sheet.Controls[j] is TRadioButton) then

(sheet.Controls[j] as TRadioButton).Checked := False;

end;

end;

close;

end;

end.

 


Приложение З

Листинг Unit8

unit Unit8;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, ComCtrls;

type

TForm8 = class(TForm)

PageControl1: TPageControl;

TabSheet2: TTabSheet;

Label1: TLabel;

Button1: TButton;

RadioGroup1: TRadioGroup;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

CheckBox4: TCheckBox;

CheckBox5: TCheckBox;

TabSheet3: TTabSheet;

Label2: TLabel;

Button3: TButton;

RadioGroup2: TRadioGroup;

CheckBox6: TCheckBox;

CheckBox7: TCheckBox;

CheckBox8: TCheckBox;

CheckBox9: TCheckBox;

CheckBox10: TCheckBox;

TabSheet4: TTabSheet;

Label3: TLabel;

Button2: TButton;

RadioGroup4: TRadioGroup;

TabSheet5: TTabSheet;

Label4: TLabel;

RadioGroup3: TRadioGroup;

CheckBox11: TCheckBox;

CheckBox12: TCheckBox;

CheckBox13: TCheckBox;

CheckBox14: TCheckBox;

CheckBox15: TCheckBox;

CheckBox16: TCheckBox;

CheckBox17: TCheckBox;

CheckBox18: TCheckBox;

CheckBox19: TCheckBox;

CheckBox20: TCheckBox;

TabSheet1: TTabSheet;

TabSheet6: TTabSheet;

TabSheet7: TTabSheet;

TabSheet8: TTabSheet;

TabSheet9: TTabSheet;

TabSheet10: TTabSheet;

Label5: TLabel;

RadioGroup5: TRadioGroup;

CheckBox21: TCheckBox;

CheckBox22: TCheckBox;

CheckBox23: TCheckBox;

CheckBox24: TCheckBox;

CheckBox25: TCheckBox;

Button4: TButton;

Label6: TLabel;

RadioGroup6: TRadioGroup;

CheckBox26: TCheckBox;

CheckBox27: TCheckBox;

CheckBox28: TCheckBox;

CheckBox29: TCheckBox;

CheckBox30: TCheckBox;

Button5: TButton;

Label7: TLabel;

RadioGroup7: TRadioGroup;

CheckBox31: TCheckBox;

CheckBox32: TCheckBox;

CheckBox33: TCheckBox;

CheckBox34: TCheckBox;

CheckBox35: TCheckBox;

Button6: TButton;

Label8: TLabel;

RadioGroup8: TRadioGroup;

CheckBox36: TCheckBox;

CheckBox37: TCheckBox;

CheckBox38: TCheckBox;

CheckBox39: TCheckBox;

CheckBox40: TCheckBox;

Button7: TButton;

Label9: TLabel;

RadioGroup9: TRadioGroup;

CheckBox41: TCheckBox;

CheckBox42: TCheckBox;

CheckBox43: TCheckBox;

CheckBox44: TCheckBox;

CheckBox45: TCheckBox;

Button8: TButton;

Label10: TLabel;

RadioGroup10: TRadioGroup;

CheckBox46: TCheckBox;

CheckBox47: TCheckBox;

CheckBox48: TCheckBox;

CheckBox49: TCheckBox;

CheckBox50: TCheckBox;

Button9: TButton;

Button10: TButton;

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button15Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

m:integer;

implementation

uses Unit9;

{$R *.dfm}

procedure TForm8.Button1Click(Sender: TObject);

begin

PageControl1.SelectNextPage(true);end;

procedure TForm8.Button3Click(Sender: TObject);

begin

PageControl1.SelectNextPage(true);

end;

procedure TForm8.Button2Click(Sender: TObject);

begin

PageControl1.SelectNextPage(true);

end;

procedure TForm8.Button4Click(Sender: TObject);

begin

PageControl1.SelectNextPage(true);

end;

procedure TForm8.Button5Click(Sender: TObject);

begin

PageControl1.SelectNextPage(true);

end;

procedure TForm8.Button6Click(Sender: TObject);

begin

PageControl1.SelectNextPage(true);

end;

procedure TForm8.Button7Click(Sender: TObject);

begin

PageControl1.SelectNextPage(true);

end;

procedure TForm8.Button8Click(Sender: TObject);

begin

PageControl1.SelectNextPage(true);end;

procedure TForm8.Button10Click(Sender: TObject);

begin

PageControl1.SelectNextPage(true);end;

procedure TForm8.Button15Click(Sender: TObject);

begin

m:=0;

if(checkbox1.Checked=true) and (checkbox2.Checked=true) and

(checkbox3.Checked=true) and (checkbox4.Checked=true)

and (checkbox5.Checked=false) then m:=m+1;

if(checkbox6.Checked=false) and (checkbox7.Checked=true) and

(checkbox8.Checked=true) and (checkbox9.Checked=true)

and (checkbox10.Checked=true) then m:=m+1;

if(checkbox11.Checked=false) and (checkbox12.Checked=true) and

(checkbox13.Checked=false) and (checkbox14.Checked=true)

and (checkbox15.Checked=false) then m:=m+1;

if(checkbox16.Checked=false) and (checkbox17.Checked=true) and

(checkbox18.Checked=true) and (checkbox19.Checked=false)

and (checkbox20.Checked=true) then m:=m+1;

if(checkbox21.Checked=true) and (checkbox22.Checked=false) and

(checkbox23.Checked=true) and (checkbox24.Checked=true)

and (checkbox25.Checked=false) then m:=m+1;

if(checkbox26.Checked=false) and (checkbox27.Checked=false) and

(checkbox28.Checked=true) and (checkbox29.Checked=true)

and (checkbox30.Checked=false) then m:=m+1;

if(checkbox31.Checked=false) and (checkbox32.Checked=false) and

(checkbox33.Checked=true) and (checkbox34.Checked=true)

and (checkbox35.Checked=false) then m:=m+1;

if(checkbox36.Checked=true) and (checkbox37.Checked=true) and

(checkbox38.Checked=false) and (checkbox39.Checked=true)

and (checkbox40.Checked=false) then m:=m+1;

if(checkbox41.Checked=true) and (checkbox42.Checked=true) and

(checkbox43.Checked=true) and (checkbox44.Checked=false)

and (checkbox45.Checked=true) then m:=m+1;

if(checkbox46.Checked=false) and (checkbox47.Checked=true) and

(checkbox48.Checked=false) and (checkbox49.Checked=true)

and (checkbox50.Checked=true) then m:=m+1;

case m of

0..5: Form9.Label5.Caption:='Оценка 2';

6..7: Form9.Label5.Caption:='Оценка 3';

8..9: Form9.Label5.Caption:='Оценка 4';

10: Form9.Label5.Caption:='Оценка 5';

end;Form9.Show;end;

procedure TForm8.FormCreate(Sender: TObject);

begin

PageControl1.ActivePageIndex:=0;

end;

procedure TForm8.FormShow(Sender: TObject);

begin

m := 0;end;end.


Приложение И

Листинг Unit9

unit Unit9;

interface

uses

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

Dialogs, StdCtrls, ComCtrls, ExtCtrls;

type

TForm9 = class(TForm)

Image1: TImage;

Label5: TLabel;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;m:integer;

implementation

uses Unit8;

{$R *.dfm}

procedure TForm9.Button1Click(Sender: TObject);

var i,j:integer; sheet: TTabSheet;

begin

Form8.PageControl1.ActivePageIndex:=0;

m:=0;

for i:=0 to Form8.PageControl1.ControlCount - 1 do

begin

if (Form8.PageControl1.Controls[i] is TTabSheet) then

begin

sheet := (Form8.PageControl1.Controls[i] as TTabSheet);

for j:=0 to sheet.ControlCount - 1 do

if (sheet.Controls[j] is TCheckBox) then

(sheet.Controls[j] as TCheckBox).Checked := False;

end;

end;

close;

end;

end.

 

 

⇐ Предыдущая12345






©2015 arhivinfo.ru Все права принадлежат авторам размещенных материалов.