ИСПОЛЬЗОВАНИЕ ЭЛЕМЕНТОВ УПРАВЛЕНИЯ, РАСПОЛОЖЕННЫХ НА ПАНЕЛИ STANDARD. ИЗУЧЕНИЕ СВОЙСТВ И МЕТОДОВ ЭТИХ КОМПОНЕНТОВ.

МИНИСТЕРСТВО СВЯЗИ И ИНФОРМАТИЗАЦИИ РЕСПУБЛИКИ БЕЛАРУСЬ

Учреждение образования

«БЕЛОРУССКАЯ ГОСУДАРСТВЕННАЯ АКАДЕМИЯ СВЯЗИ»

ФАКУЛЬТЕТ ЭЛЕКТРОСВЯЗИ

КАФЕДРА ПОСТ

 

 

Отчет по лабораторным работам

По дисциплине

«ОАиП»

 

 

Выполнила студентка группы ИТ761 Головастая А.О.

Руководитель Раецкая Е.В.

 

Минск 2018

 

Лабораторная работа №1

МЕНЕДЖЕР ПРОЕКТОВ. УСТАНОВКА ПАРАМЕТРОВ ПРОЕКТА.

Цель: ознакомиться с основными функциями программы Delphi 7.

Задание.

Создайте приложения для пересчета величин из одной системы измерения в другую:

Исходные данные:

Вес : 1000 грамм = 1 кг

Рисунок 1 – Окно формы программы.

 

Рисунок 2 – Результат выполнения программы.

Листингпрограммы

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ColorGrd, ExtCtrls, Buttons;

type

TForm1 = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

Memo1: TMemo;

Edit1: TEdit;

Button1: TButton;

BitBtn1: TBitBtn;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

x,y:real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

x:=strtofloat(edit1.text);

y:=x/400;

Memo1.lines.Add(formatfloat('####.## Граммов=',x)+formatfloat('####.## Фунтов',y));

y:=x*133;

end;

Вывод: изучили основные функции программы Delphi 7, научились вводить значения.

 

Лабораторная работа №2

ИСПОЛЬЗОВАНИЕ ЭЛЕМЕНТОВ УПРАВЛЕНИЯ, РАСПОЛОЖЕННЫХ НА ПАНЕЛИ STANDARD. ИЗУЧЕНИЕ СВОЙСТВ И МЕТОДОВ ЭТИХ КОМПОНЕНТОВ.

 

Цель работы: ознакомиться с элементами панели STANDART.Выполнить задания по переводу величин.

Рисунок 1 – Результат выполнения программы.

 

Листингпрограммы:

unit Unit4;

interface

uses

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

Dialogs, StdCtrls, Buttons, ExtCtrls;

type

TForm1 = class(TForm)

ListBox1: TListBox;

Edit1: TEdit;

Memo1: TMemo;

BitBtn1: TBitBtn;

RadioGroup1: TRadioGroup;

Panel1: TPanel;

Panel2: TPanel;

Label2: TLabel;

Edit2: TEdit;

Label1: TLabel;

GroupBox1: TGroupBox;

CheckBox1: TCheckBox;

ScrollBar1: TScrollBar;

procedure RadioGroup1Click(Sender: TObject);

procedure ListBox1Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

procedure ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;

varScrollPos: Integer);

procedureFormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

x,y,x_nach,x_kon,d:real;

implementation

{$R *.dfm}

procedure TForm1.ListBox1Click(Sender: TObject);

begin

if(edit1.text='') or

(listbox1.itemindex<0) then exit;

case radiogroup1.itemindex of

1:begin

if(edit2.text='') then exit;

x_nach:=strtofloat( edit1.text);

x_kon:=strtofloat( edit2.text);

d:=(x_kon-x_nach)/10; end;

0:begin

x_nach:=strtofloat( edit1.text);

x_kon:=x_nach;

d:=1;

End; End;

x:=x_nach;

while x<=x_kon do

begin

case listbox1.ItemIndex of

0: y:=x/133;

1: y:=x/0.1;

2: y:=x/1.013*10e5;

3: y:=x/9.81;

end;

memo1.lines.add(formatfloat('#####.##### =',x)+

formatfloat('#####.#####',y)+listbox1.Items[listbox1.itemindex]);

x:=x+d;

end;

edit1.Clear;

edit1.SetFocus;

edit2.Clear;

End;

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

case radiogroup1.ItemIndex of

0:begin

label1.Caption:=;

edit2.hide; label2.hide;

end;

1:begin

label1.Caption:='';

edit2.Show; label2.Show; End; End; End;

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

if checkbox1.State = cbchecked then

memo1.Font.Style:=[fsitalic]

else memo1.Font.Style:=[];

end;

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;

varScrollPos: Integer);

begin

x:=scrollbar1.Position;

edit1.Text:=floattostr(x);

radiogroup1.ItemIndex:=0;

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

edit1.SetFocus;

end;

end.

Вывод: изучилэлементыпанелиStandart. ВданнойлабораторнойработеиспользовалэлементыListbox, TRadioGroup, Panel, Label, Button, TGroupBox, TCheckbox, TScrollBar.

 

Лабораторная работа №3

КОМПИЛЯЦИЯ, ОТЛАДКА И ВЫПОЛНЕНИЕ ПРОГРАММ. КОМПОНЕНТЫ ПАНЕЛИ ADDITIONAL

Цель: Научиться компилировать и отлаживать приложения, изучить компоненты панели additional, в том числе компонент StringGrid.

Задание. Подсчитать средний балл каждого студента, отдельно средний балл юношей и девушек, общий средний балл. Исходной информацией является: фамилия, пол, оценки каждого студента. Фамилия вводится в окне однострочного редактора. Пол задается с помощью компонентаTRadioGroup.Оценки вводятся в таблицу. Признак расчета задается с помощью компонента TRadioGroup.

Рисунок 1 – Внешний вид программы.

Рисунок 2 – Элемент кода программы.

Листингпрограммы

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, Grids, Buttons;

type

TLab3 = class(TForm)

Panel1: TPanel;

Edit1: TEdit;

Label1: TLabel;

BitBtn1: TBitBtn;

StringGrid1: TStringGrid;

BitBtn2: TBitBtn;

Memo1: TMemo;

Button1: TButton;

procedureFormActivate(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;

const Value: String);

procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;

constnn=20; mm=3;

pp:array [0..1] of string[1]= ('m','g');

var

Lab3: TLab3;

n:integer;

f:array[1..nn] of string [30];

a:array[1..nn,1..mm] of real;

implementation

{$R *.dfm}

procedure TLab3.StringGrid1SetEditText(Sender: TObject; ACol,

ARow: Integer; const Value: String);

var

b: real;

begin

With StringGrid1 do

Begin

IfValue = '' thenExit; //Если ничего не введено, то выйти из процедуры

//Начало защищенного блока.

Try b:=StrToFloat(Value)

Except ShowMessage('Неверныйсимвол! '); b:=0;

end; //Конец защищенного блока.

//Игнорировать неверно введенную оценку.

If (b<0) then begin Cells[ACol,ARow]:= ''; Exit; end;

Cells[ACol,ARow];//Отразить оценку в таблице.

a[ARow,ACol]:=b; //Записать оценку в массив.

//Далее подсчет среднего балла.

End;

end;

procedure TLab3.FormActivate(Sender: TObject);

begin

n:=0;

With StringGrid1 do

Begin

Cells[1,0]:= 'Время старта';

Cells[2,0]:= 'Время финиша';

Cells[3,0]:= 'Контрольное время';

End;

end;

procedure TLab3.BitBtn1Click(Sender: TObject);

begin

n:= n+1;

f[n]:= Edit1.Text;

StringGrid1.Cells[0,n]:=f[n];

Edit1.SetFocus;

Edit1.Clear;

end;

procedure TLab3.Button1Click(Sender: TObject);

var T:real; i : integer;

begin

memo1.clear;

for i:= 1 to n do

begin

T:=strtofloat(stringgrid1.cells[2,i])-strtofloat(stringgrid1.cells[1,i]);

if T<=strtofloat(stringgrid1.cells[3,i])

then Memo1.Lines.Add(StringGrid1.Cells[0,i]);

end;

end;

procedure TLab3.StringGrid1KeyPress(Sender: TObject; var Key: Char);

begin

if not (key in [#8,'0'..'9']) then

key:=#0;

end;

end.