lab1

Кирилл Валов 10В2

Лабораторная работа №1 Простейшие потоки Цель работы: освоение приемов организации многозадачных приложений при помощи среды визуального программирования Delphi под операционной системой Windows. Текст программы: Функция реализуется в текущем потоке. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var x: Integer;  begin Sleep (3000); x:=10*12+12*18; Form1.Label1.Caption:=IntToStr(x); end; end. Функция реализуется в отдельном потоке. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure CreateThreadproject; var x: Integer;  begin Sleep (3000); x:=10*12+12*18; Form1.Label1.Caption:=IntToStr(x); end; procedure TForm1.Button1Click(Sender: TObject); var a:Cardinal; begin CreateThread(nil,1024,@CreateThreadproject,nil,0,a); end; end.

Вывод: В процессе выполнения данной лабораторной работы были освоены приемы организации многозадачных приложений при помощи среды визуального программирования Delphi под операционной системой Windows.