Разработка электронного пособия
Изучение и характеристика особенностей электронных пособий и требований к ним. Определение основных достоинств объектно-ориентированного программирования. Ознакомление со схемой вызова форм программы. Анализ интерфейса и основных модулей программы.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 23.06.2016 |
| Размер файла | 2,1 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Edit3: TEdit;
Label10: TLabel;
Label11: TLabel;
Label13: TLabel;
Image3: TImage;
Edit4: TEdit;
Label12: TLabel;
Label14: TLabel;
Image4: TImage;
Image5: TImage;
Edit5: TEdit;
Label15: TLabel;
Label16: TLabel;
Edit6: TEdit;
Label17: TLabel;
Label18: TLabel;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn1: TBitBtn;
procedure Label3Click(Sender: TObject);
procedure Label1Click(Sender: TObject);
procedure Label32Click(Sender: TObject);
procedure Label39Click(Sender: TObject);
procedure Label44Click(Sender: TObject);
procedure Label52Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form10: TForm10;
implementation
uses Unit1, Unit9, Unit11;
{$R *.dfm}
procedure TForm10.Label3Click(Sender: TObject);
begin
Edit2.SetFocus;
end;
procedure TForm10.Label1Click(Sender: TObject);
begin
Edit1.SetFocus;
end;
procedure TForm10.Label32Click(Sender: TObject);
begin
Edit3.SetFocus;
end;
procedure TForm10.Label39Click(Sender: TObject);
begin
Edit4.SetFocus;
end;
procedure TForm10.Label44Click(Sender: TObject);
begin
Edit5.SetFocus;
end;
procedure TForm10.Label52Click(Sender: TObject);
begin
Edit6.SetFocus;
end;
procedure TForm10.BitBtn3Click(Sender: TObject);
begin
Close();
Form1.show;
end;
procedure TForm10.BitBtn2Click(Sender: TObject);
begin
Close();
Form9.show;
end;
procedure TForm10.BitBtn1Click(Sender: TObject);
begin
Close();
Form11.show;
end;
end.
unit Unit12;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls, MPlayer, Buttons;
type
TForm12 = class(TForm)
Image1: TImage;
Label5: TLabel;
Label1: TLabel;
Label3: TLabel;
Label32: TLabel;
Edit1: TEdit;
Label2: TLabel;
Label4: TLabel;
Edit2: TEdit;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Edit3: TEdit;
Label19: TLabel;
Image8: TImage;
Label20: TLabel;
Image9: TImage;
Label21: TLabel;
Image10: TImage;
Label22: TLabel;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn1: TBitBtn;
BitBtn4: TBitBtn;
procedure Label1Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Label3Click(Sender: TObject);
procedure Label32Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form12: TForm12;
implementation
uses Unit1, Unit11, Unit13, Unit3;
{$R *.dfm}
procedure TForm12.Label1Click(Sender: TObject);
begin
Edit1.SetFocus;
end;
procedure TForm12.BitBtn3Click(Sender: TObject);
begin
Close();
Form1.show;
end;
procedure TForm12.BitBtn2Click(Sender: TObject);
begin
Close();
Form11.show;
end;
procedure TForm12.BitBtn1Click(Sender: TObject);
begin
Close();
Form13.show;
end;
procedure TForm12.Label3Click(Sender: TObject);
begin
Edit2.SetFocus;
end;
procedure TForm12.Label32Click(Sender: TObject);
begin
Edit3.SetFocus;
end;
procedure TForm12.BitBtn4Click(Sender: TObject);
begin
Close();
Form3.show;
end;
end.
unit Unit13;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, MPlayer, ExtCtrls, StdCtrls, jpeg, Buttons, OleCtrls, WMPLib_TLB;
type
TForm13 = class(TForm)
Image1: TImage;
Label1: TLabel;
Label3: TLabel;
Label32: TLabel;
Label39: TLabel;
Label44: TLabel;
Label5: TLabel;
Edit1: TEdit;
Label2: TLabel;
Label4: TLabel;
Image2: TImage;
Edit2: TEdit;
Label6: TLabel;
Edit3: TEdit;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Image3: TImage;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Edit4: TEdit;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Edit5: TEdit;
Label16: TLabel;
Label17: TLabel;
Image4: TImage;
Label18: TLabel;
Image5: TImage;
Label19: TLabel;
Image6: TImage;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn1: TBitBtn;
BitBtn4: TBitBtn;
Panel1: TPanel;
WindowsMediaPlayer1: TWindowsMediaPlayer;
Button1: TButton;
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Label1Click(Sender: TObject);
procedure Label3Click(Sender: TObject);
procedure Label32Click(Sender: TObject);
procedure Label39Click(Sender: TObject);
procedure Label44Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form13: TForm13;
implementation
uses Unit1, Unit12, Unit14, Unit4;
{$R *.dfm}
procedure TForm13.BitBtn3Click(Sender: TObject);
begin
Close();
Form1.show;
end;
procedure TForm13.BitBtn2Click(Sender: TObject);
begin
Close();
Form12.show;
end;
procedure TForm13.BitBtn1Click(Sender: TObject);
begin
Close();
Form14.show;
end;
procedure TForm13.Label1Click(Sender: TObject);
begin
edit1.SetFocus;
end;
procedure TForm13.Label3Click(Sender: TObject);
begin
edit2.SetFocus;
end;
procedure TForm13.Label32Click(Sender: TObject);
begin
edit3.SetFocus;
end;
procedure TForm13.Label39Click(Sender: TObject);
begin
edit4.SetFocus;
end;
procedure TForm13.Label44Click(Sender: TObject);
begin
edit5.SetFocus;
end;
procedure TForm13.BitBtn4Click(Sender: TObject);
begin
Close();
Form4.show;
end;
procedure TForm13.Button1Click(Sender: TObject);
begin
Form13.WindowsMediaPlayer1.controls.play;
end;
procedure TForm13.FormActivate(Sender: TObject);
begin
Form13.WindowsMediaPlayer1.controls.stop;
end;
procedure TForm13.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form13.WindowsMediaPlayer1.controls.stop;
end;
end.
unit Unit14;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;
type
TForm14 = class(TForm)
Image1: TImage;
Label5: TLabel;
Label1: TLabel;
Label3: TLabel;
Label32: TLabel;
Label39: TLabel;
Label2: TLabel;
Label4: TLabel;
Edit1: TEdit;
Label6: TLabel;
Image8: TImage;
Label7: TLabel;
Image2: TImage;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Edit2: TEdit;
Label14: TLabel;
Label15: TLabel;
Image3: TImage;
Label16: TLabel;
Image4: TImage;
Edit3: TEdit;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Edit4: TEdit;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Image9: TImage;
Label29: TLabel;
Label30: TLabel;
Image10: TImage;
Image11: TImage;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure Label3Click(Sender: TObject);
procedure Label1Click(Sender: TObject);
procedure Label32Click(Sender: TObject);
procedure Label39Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form14: TForm14;
implementation
uses Unit13, Unit1, Unit5;
{$R *.dfm}
procedure TForm14.BitBtn2Click(Sender: TObject);
begin
close();
Form13.show;
end;
procedure TForm14.BitBtn3Click(Sender: TObject);
begin
close();
Form1.show;
end;
procedure TForm14.BitBtn4Click(Sender: TObject);
begin
close();
Form5.show;
end;
procedure TForm14.Label3Click(Sender: TObject);
begin
Edit2.SetFocus;
end;
procedure TForm14.Label1Click(Sender: TObject);
begin
Edit1.SetFocus;
end;
procedure TForm14.Label32Click(Sender: TObject);
begin
Edit3.SetFocus;
end;
procedure TForm14.Label39Click(Sender: TObject);
begin
Edit4.SetFocus;
end;
end.
unit Unit15;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm15 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form15: TForm15;
implementation
{$R *.dfm}
end.
unit Unit16;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, jpeg;
type
TForm16 = class(TForm)
RadioGroup1: TRadioGroup;
Button1: TButton;
Label1: TLabel;
Image1: TImage;
procedure FormActivate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
str=record
vopr:string;
otv1:String;
otv2:string;
otv3:string;
otv4:string;
prav:integer;
end;
var
Form16: TForm16;
var mas:array[1..10] of str;
i,NomV,KolO:integer;
implementation
{$R *.dfm}
procedure TForm16.FormActivate(Sender: TObject);
begin
radioGroup1.Visible:=true;
button1.Visible:=true;
mas[1].vopr:='Каким тегом объявляется заголовок web-страницы?';
mas[1].otv1:='<html> </html>';
mas[1].otv2:='<head> </head>';
mas[1].otv3:='<title> </title>';
mas[1].otv4:='<body> </body>';
mas[1].prav:=2;
mas[2].vopr:='В какой тег заключается основное содержание web-страницы?';
mas[2].otv1:='<html> </html>';
mas[2].otv2:='<head> </head>';
mas[2].otv3:='<title> </title>';
mas[2].otv4:='<body> </body>';
mas[2].prav:=4;
mas[3].vopr:='В каком коде абзац "Системы счисления" выровнен по центру ';
mas[3].otv1:='<body> <h3 align = "center"> Системы счисления </h3> </body> ';
mas[3].otv2:='<body> <р align = "center"> Системы счисления </р> </body>';
mas[3].otv3:='<body> <font align = "center"> Системы счисления </font> </body> ';
mas[3].otv4:='<body> <font align = "left"> Системы счисления </font> </body> ';
mas[3].prav:=2;
mas[4].vopr:='Какой html -код задает вывод текста в две строки';
mas[4].otv1:='<p> Информационные <br> технологии </br></p>';
mas[4].otv2:='<p> <br> Информационные технологии </br></p>';
mas[4].otv3:='<p> Информационные <br> технологии </p>';
mas[4].otv4:='<p> Информационные <#13> технологии </p>';
mas[4].prav:=3;
mas[5].vopr:='Каким тегом задается вставка изображения на web-страницу?';
mas[5].otv1:='<font color="..."> </font>';
mas[5].otv2:='<img src="...">';
mas[5].otv3:='<a href="..."> </a>';
mas[5].otv4:='<a name="..."></a>';
mas[5].prav:=2;
mas[6].vopr:='Каким тегом задается вставка гиперссылки на web-страницу?';
mas[6].otv1:='<font color="..."> </font>';
mas[6].otv2:='<img src="...">';
mas[6].otv3:='<a href="..."> </a>';
mas[6].otv4:='<a name="..."></a>';
mas[6].prav:=3;
mas[7].vopr:='Каким тегом задается цвет текста на web-странице?';
mas[7].otv1:='<font color="..."> </font>';
mas[7].otv2:='<img src="...">';
mas[7].otv3:='<a href="..."> </a>';
mas[7].otv4:='<a name="..."></a>';
mas[7].prav:=1;
mas[8].vopr:='С помощью какого тега задается таблица?';
mas[8].otv1:='<TABLE> </TABLE>';
mas[8].otv2:='<TR> </TR>';
mas[8].otv3:='<BORDER> </BORDER>';
mas[8].otv4:='<BGCOLOR> </BGCOLOR>';
mas[8].prav:=1;
mas[9].vopr:='Каким тегом задается фрейм?';
mas[9].otv1:='<SETFRAME> </SETFRAME>';
mas[9].otv2:='<FRAME> </FRAME>';
mas[9].otv3:='<FRAMESET> </FRAMESET>';
mas[9].otv4:='<NOFRAMES> </NOFRAMES>';
mas[9].prav:=3;
mas[10].vopr:='Каким тегом задается упорядоченный список?';
mas[10].otv1:='<OL> </OL>';
mas[10].otv2:='<UL> </UL>';
mas[10].otv3:='<EL> </EL>';
mas[10].otv4:='<AL> </AL>';
mas[10].prav:=1;
RadioGroup1.Caption:=mas[1].vopr;
form16.RadioGroup1.Items.Clear;
form16.RadioGroup1.Items.Add(mas[1].otv1);
form16.RadioGroup1.Items.Add(mas[1].otv2);
form16.RadioGroup1.Items.Add(mas[1].otv3);
form16.RadioGroup1.Items.Add(mas[1].otv4);
NomV:=1;
KolO:=0;
end;
procedure TForm16.Button1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex=mas[NomV].prav-1 then KolO:=KolO+1;
if NomV<10 then begin
NomV:=NomV+1;
RadioGroup1.Caption:=mas[NomV].vopr;
form16.RadioGroup1.Items.Clear;
form16.RadioGroup1.Items.Add(mas[NomV].otv1);
form16.RadioGroup1.Items.Add(mas[NomV].otv2);
form16.RadioGroup1.Items.Add(mas[NomV].otv3);
form16.RadioGroup1.Items.Add(mas[NomV].otv4);
end
else begin
radioGroup1.Visible:=False;
button1.Visible:=False;
Label1.Caption:='Вы ответили правильно на '+inttostr(KolO)+' вопросов';
end;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls, Buttons, MPlayer;
type
TForm2 = class(TForm)
Label1: TLabel;
Image1: TImage;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Image2: TImage;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Image3: TImage;
Label17: TLabel;
Label18: TLabel;
Image4: TImage;
Label19: TLabel;
Image5: TImage;
BitBtn1: TBitBtn;
BitBtn3: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit1, Unit3, Unit11;
{$R *.dfm}
procedure TForm2.BitBtn3Click(Sender: TObject);
begin
close();
Form1.show;
end;
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
Form3.show;
close();
end;
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
close();
Form11.show;
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;
type
TForm3 = class(TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn1: TBitBtn;
Label3: TLabel;
Label5: TLabel;
BitBtn4: TBitBtn;
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit1, Unit2, Unit4, Unit12;
{$R *.dfm}
procedure TForm3.BitBtn3Click(Sender: TObject);
begin
Form1.show;
close();
end;
procedure TForm3.BitBtn2Click(Sender: TObject);
begin
Form2.show;
close();
end;
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
Form4.show;
close();
end;
procedure TForm3.BitBtn4Click(Sender: TObject);
begin
Form12.show;
close();
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls;
type
TForm4 = class(TForm)
Label9: TLabel;
Label8: TLabel;
Label7: TLabel;
Label6: TLabel;
Label5: TLabel;
Label4: TLabel;
Label3: TLabel;
Label2: TLabel;
Label12: TLabel;
Label11: TLabel;
Label10: TLabel;
Label1: TLabel;
Image1: TImage;
BitBtn3: TBitBtn;
BitBtn2: TBitBtn;
BitBtn1: TBitBtn;
BitBtn4: TBitBtn;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit3, Unit1, Unit5, Unit13;
{$R *.dfm}
procedure TForm4.BitBtn2Click(Sender: TObject);
begin
Form3.show;
close();
end;
procedure TForm4.BitBtn3Click(Sender: TObject);
begin
Form1.show;
close();
end;
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
Form5.show;
close();
end;
procedure TForm4.BitBtn4Click(Sender: TObject);
begin
Form13.show;
close();
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls;
type
TForm5 = class(TForm)
Label9: TLabel;
Label8: TLabel;
Label7: TLabel;
Label6: TLabel;
Label5: TLabel;
Label4: TLabel;
Label3: TLabel;
Label2: TLabel;
Label19: TLabel;
Label15: TLabel;
Label14: TLabel;
Label10: TLabel;
Label1: TLabel;
Image4: TImage;
Image1: TImage;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Image2: TImage;
Label20: TLabel;
Image3: TImage;
Image5: TImage;
Label21: TLabel;
Label22: TLabel;
Image6: TImage;
Image7: TImage;
Image8: TImage;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn1: TBitBtn;
BitBtn4: TBitBtn;
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses Unit1, Unit4, Unit6, Unit14;
{$R *.dfm}
procedure TForm5.BitBtn3Click(Sender: TObject);
begin
Form1.show;
close();
end;
procedure TForm5.BitBtn2Click(Sender: TObject);
begin
Form4.show;
close();
end;
procedure TForm5.BitBtn1Click(Sender: TObject);
begin
Form6.show;
close();
end;
procedure TForm5.BitBtn4Click(Sender: TObject);
begin
Form14.show;
close();
end;
end.
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;
type
TForm6 = class(TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label15: TLabel;
Label14: TLabel;
Label19: TLabel;
Image4: TImage;
Label12: TLabel;
Image2: TImage;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn1: TBitBtn;
BitBtn4: TBitBtn;
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
uses Unit1, Unit5, Unit7, Unit14;
{$R *.dfm}
procedure TForm6.BitBtn3Click(Sender: TObject);
begin
Form1.show;
close();
end;
procedure TForm6.BitBtn2Click(Sender: TObject);
begin
Form5.show;
close();
end;
procedure TForm6.BitBtn1Click(Sender: TObject);
begin
Form7.show;
close();
end;
procedure TForm6.BitBtn4Click(Sender: TObject);
begin
Form14.show;
close();
end;
end.
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;
type
TForm7 = class(TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label15: TLabel;
Label14: TLabel;
Label11: TLabel;
Label19: TLabel;
Image4: TImage;
Label21: TLabel;
Label22: TLabel;
Label12: TLabel;
Label13: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label20: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Label33: TLabel;
Label35: TLabel;
Label32: TLabel;
Label34: TLabel;
Label36: TLabel;
Label37: TLabel;
Label38: TLabel;
Label39: TLabel;
Label40: TLabel;
Label41: TLabel;
Label42: TLabel;
Label43: TLabel;
Label44: TLabel;
Label45: TLabel;
Label46: TLabel;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
implementation
uses Unit1, Unit6, Unit13, Unit14;
{$R *.dfm}
procedure TForm7.BitBtn3Click(Sender: TObject);
begin
Form1.show;
close();
end;
procedure TForm7.BitBtn2Click(Sender: TObject);
begin
Form6.show;
close();
end;
procedure TForm7.BitBtn4Click(Sender: TObject);
begin
Form14.show;
close();
end;
end.
unit Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls, ComCtrls, Buttons;
type
TForm8 = class(TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label5: TLabel;
Image2: TImage;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Bevel1: TBevel;
Label10: TLabel;
Label11: TLabel;
Bevel2: TBevel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Bevel3: TBevel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Bevel4: TBevel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
Edit4: TEdit;
Label33: TLabel;
Label34: TLabel;
Label35: TLabel;
Label36: TLabel;
Label37: TLabel;
Label38: TLabel;
Label39: TLabel;
Image3: TImage;
Image4: TImage;
Edit5: TEdit;
Label40: TLabel;
Label41: TLabel;
Label44: TLabel;
Edit6: TEdit;
Label42: TLabel;
Label43: TLabel;
Label46: TLabel;
Label47: TLabel;
Label45: TLabel;
Label48: TLabel;
Label49: TLabel;
Label50: TLabel;
Bevel5: TBevel;
Bevel6: TBevel;
Label51: TLabel;
Image5: TImage;
Label52: TLabel;
Edit7: TEdit;
Label53: TLabel;
Label54: TLabel;
Label55: TLabel;
Label56: TLabel;
Label57: TLabel;
Label58: TLabel;
Label59: TLabel;
Label60: TLabel;
Edit8: TEdit;
Label62: TLabel;
Image6: TImage;
BitBtn3: TBitBtn;
BitBtn1: TBitBtn;
procedure Label1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure Label3Click(Sender: TObject);
procedure Label32Click(Sender: TObject);
procedure Label39Click(Sender: TObject);
procedure Label44Click(Sender: TObject);
procedure Label52Click(Sender: TObject);
procedure Label60Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form8: TForm8;
implementation
uses Unit1, Unit9;
{$R *.dfm}
procedure TForm8.Label1Click(Sender: TObject);
begin
Edit1.SetFocus;
end;
procedure TForm8.FormActivate(Sender: TObject);
begin
Edit2.SetFocus;
end;
procedure TForm8.Label3Click(Sender: TObject);
begin
Edit3.SetFocus;
end;
procedure TForm8.Label32Click(Sender: TObject);
begin
Edit4.SetFocus;
end;
procedure TForm8.Label39Click(Sender: TObject);
begin
Edit5.SetFocus;
end;
procedure TForm8.Label44Click(Sender: TObject);
begin
Edit6.SetFocus;
end;
procedure TForm8.Label52Click(Sender: TObject);
begin
Edit7.setFocus;
end;
procedure TForm8.Label60Click(Sender: TObject);
begin
Edit8.setFocus;
end;
procedure TForm8.BitBtn3Click(Sender: TObject);
begin
close();
Form1.show;
end;
procedure TForm8.BitBtn1Click(Sender: TObject);
begin
close();
Form9.show;
end;
end.
unit Unit9;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls, Buttons;
type
TForm9 = class(TForm)
Label5: TLabel;
Label1: TLabel;
Label3: TLabel;
Label32: TLabel;
Label39: TLabel;
Label44: TLabel;
Label52: TLabel;
Edit1: TEdit;
Label2: TLabel;
Image1: TImage;
Image2: TImage;
Edit2: TEdit;
Label4: TLabel;
Image3: TImage;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Edit3: TEdit;
Label11: TLabel;
Image4: TImage;
Label12: TLabel;
Edit4: TEdit;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Edit5: TEdit;
Label20: TLabel;
Image5: TImage;
Label21: TLabel;
Image6: TImage;
Edit6: TEdit;
Label22: TLabel;
Label23: TLabel;
Image7: TImage;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn1: TBitBtn;
Image8: TImage;
Image9: TImage;
procedure Label1Click(Sender: TObject);
procedure Label3Click(Sender: TObject);
procedure Label32Click(Sender: TObject);
procedure Label39Click(Sender: TObject);
procedure Label44Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Label52Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form9: TForm9;
implementation
uses Unit1, Unit8, Unit10;
{$R *.dfm}
procedure TForm9.Label1Click(Sender: TObject);
begin
Edit1.SetFocus;
end;
procedure TForm9.Label3Click(Sender: TObject);
begin
Edit2.SetFocus;
end;
procedure TForm9.Label32Click(Sender: TObject);
begin
Edit3.SetFocus;
end;
procedure TForm9.Label39Click(Sender: TObject);
begin
Edit4.SetFocus;
end;
procedure TForm9.Label44Click(Sender: TObject);
begin
Edit5.SetFocus;
end;
procedure TForm9.BitBtn3Click(Sender: TObject);
begin
close();
Form1.show;
end;
procedure TForm9.BitBtn2Click(Sender: TObject);
begin
close();
Form8.show;
end;
procedure TForm9.BitBtn1Click(Sender: TObject);
begin
close();
Form10.show;
end;
procedure TForm9.Label52Click(Sender: TObject);
begin
Edit6.SetFocus;
end;
end.
Размещено на Allbest.ru
...Подобные документы
Особенности электронных учебных пособий и основные принципы их создания. Сбор и подготовка исходного материала для электронного учебного пособия. Разработка структуры электронного пособия. Выбор программ и разработка интерфейса электронного учебника.
дипломная работа [738,5 K], добавлен 27.06.2012Характеристика основных принципов объектно-ориентированного программирования. Этапы разработки программы на языке C++, реализующей игру "Морской бой". Выбор языка программирования. Характеристика необходимых классов, наследований, виртуальных методов.
курсовая работа [657,6 K], добавлен 17.06.2012Развитие и классификация языков программирования. Методические рекомендации по изучению языков программирования. Основные понятия объектно-ориентированного программирования. Создание электронного учебного пособия с помощью языка гипертекстовой разметки.
курсовая работа [331,1 K], добавлен 06.09.2011Исследование теоретических аспектов разработки программы посредством использования Visual Basic. Анализ достоинств и недостатков данного языка программирования. Изучение особенностей создания интерфейса приложения. Основные этапы реализации программы.
практическая работа [460,6 K], добавлен 22.01.2013Применение объектно-ориентированного программирования для написания нескольких модулей программы. Вычисление алгебраического уравнения методом половинного деления. Применение метода Эйлера в теории численных методов общих дифференциальных уравнений.
курсовая работа [398,1 K], добавлен 26.02.2015Общая характеристика объектно-ориентированного подхода в программировании, его основные свойства и принципы. Разработка программы для автоматизация деятельности кафе на основе объектно-ориентированного подхода, проектирования и реализации схемы данных.
курсовая работа [1,2 M], добавлен 22.01.2012Разработка прикладной программы для операций создания и уничтожения объектов в системе визуального объектно-ориентированного программирования C++Builder. Алгоритм работы программы, набор функций и операторов, компонент и модулей, кнопки событий.
дипломная работа [672,5 K], добавлен 16.08.2012Разработка программы для рисования различных правильных многоугольников с помощью объектно-ориентированного языка программирования. Использование для разработки среды C++ Builder 6 и библиотеки VCL. Разработка интерфейса приложения и алгоритма его работы.
курсовая работа [616,4 K], добавлен 18.10.2010Разработка программы с использованием принципов объектно-ориентированного программирования на языке высокого уровня С средствами Microsoft Visual Studio 2010. Построение алгоритма реализации. Класс программы, инструкция по использованию программы.
курсовая работа [1,0 M], добавлен 26.12.2013Особенности разработки приложений для операционной системы с помощью императивного, структурированного, объектно-ориентированного языка программирования Delphi. Формальное начало программы. Выделение конца программного блока. Листинг и описание программы.
курсовая работа [1,2 M], добавлен 04.08.2014Рассмотрение теории и технологии работы со средой программирования Delphi. Описание Описание интерфейса программы, структуры данных, генерации точек. Разработка задания по выявлению всех квадратов, которые могут быть образованы точками на плоскости.
реферат [21,0 K], добавлен 13.01.2015Характеристики и свойства языков программирования. Исследование эволюции объектно-ориентированных языков программирования. Построение эволюционной карты механизмов ООП. Разработка концептуальной модели функционирования пользовательского интерфейса.
курсовая работа [2,6 M], добавлен 17.11.2014Понятие объектно-ориентированного программирования, характеристика используемых языков. Практическая разработка средств объектно-ориентированного программирования в задачах защиты информации: программная реализация на языке С++, а также Turbo Pascal.
курсовая работа [275,9 K], добавлен 22.12.2011Ознакомление с историей создания и особенностями объектно-ориентированного языка программирования Delphi. Разработка приложения, фиксирующего количество повторений какого-либо слова в тексте, введённом в поле MEMO. Описание интерфейса программы.
курсовая работа [880,1 K], добавлен 21.04.2015Изучение базовых понятий объектно-ориентированного программирования. Исследование принципов работы с классами и объектами. Построение системы классов для описания плоских геометрических фигур. Анализ методов создания объектов, перемещения на плоскости.
лабораторная работа [212,0 K], добавлен 10.03.2013Разработка приложения "Калькулятор с переходом в строковый калькулятор" с применением объектно-ориентированного программирования. Концепция и понятия объектно-ориентированного программирования. Язык программирования Java. Листинг программы "Калькулятор".
курсовая работа [966,9 K], добавлен 11.02.2016Особенности объектно-ориентированного программирования. Основные возможности языка программирования Java, классификация платформ. Создание программы, обеспечивающей вычисление арифметических выражений. Руководство пользователя и характеристика функций.
курсовая работа [1,2 M], добавлен 07.07.2012Рассмотрение теоретических аспектов создания баз данных с применением системы объектно-ориентированного программирования Delphi. Ознакомление с компонентами доступа. Разработка базы данных "Библиотека". Описание основ интерфейса созданной программы.
курсовая работа [1004,9 K], добавлен 26.10.2014Анализ методов объектно-ориентированного программирования на примере численных. Детальная характеристика модулей и связь их в одну общую программу. Принципы интегрирования по общей формуле трапеции и решение дифференциального уравнения методом Эйлера.
курсовая работа [511,6 K], добавлен 25.03.2015Разработка программы по оформлению заказов на билеты Оренбургского государственного областного драматического театра им. Горького. Использование объектно-ориентированного программирования и реализация проекта в среде визуального программирования Delphi 7.
курсовая работа [6,3 M], добавлен 12.11.2014
