close

Вход

Забыли?

вход по аккаунту

?

Лаба 4 отчет

код для вставкиСкачать
Министерство образования и науки РФ
Пензенский государственный технологический институт
Кафедра "Вычислительные машины и системы"
Лабораторная работа №4 по дисциплине:
"Операционные системы"
Выполнил: ст. гр. 10В1
Хохлов А.В.
Проверил: Резуев С.В.
Пенза 2013 г.
Работа с потоками при помощи класса TThread
Цель работы: научиться распределять нагрузку при помощи приоритетов потока.
Задание на лабораторную работу: в программу, разработанную в лабораторной работе №4, внедрить возможность выбора приоритета при запуске потока.
Текст программы:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label3: TLabel;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TSimpleThread = class(TThread)
protected
procedure Execute; override;
end;
var
Form1: TForm1;
SimpleThread: TSimpleThread;
implementation
{$R *.dfm}
procedure TSimpleThread.Execute;
var x:Integer;
begin
x:=0;
while True do
begin
inc(x);
Form1.Label1.Caption:=IntToStr(x);
Sleep(1000);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SimpleThread:=TSimpleThread.Create(False);
SimpleThread.Priority:=tpTimeCritical;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
SimpleThread:=TSimpleThread.Create(False);
SimpleThread.Priority:=tpHighest;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
SimpleThread:=TSimpleThread.Create(False);
SimpleThread.Priority:=tpNormal;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
SimpleThread:=TSimpleThread.Create(False);
SimpleThread.Priority:=tpLowest;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
SimpleThread.Suspend;
end;
end.
Документ
Категория
Рефераты
Просмотров
16
Размер файла
52 Кб
Теги
лаба, отчет
1/--страниц
Пожаловаться на содержимое документа