VPF::[Delphi] TThread - Форум программистов

AlexanderSYBD666

Дата 5.11.2007, 12:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 5.11.2007

Репутация: нет
Всего: нет

Плиз, помогите создать два потока, так чтобы первый вычислял x+y, а второй x*y, x и y берутся из Edit1 и Edit2 Одновременно результат заносится в Edit3 для первого потока и в Edit4 для второго потока. smile

Пожалуйста скиньте кодинг иначе я с потоками ничего не понимаю. Спасибо!!!!!!! smile

Alexeis

Дата 5.11.2007, 12:25 (ссылка)

(голосов:1)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

darkart

Дата 5.11.2007, 16:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 379
Регистрация: 9.11.2005

Репутация: 26
Всего: 31

Код


unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TMyThreadSum=class(TThread)
  private
    procedure Sum();//сложение
  public
    procedure Execute();override;
  end;

  TMyThreadMult=class(TThread)
  private
    procedure Mult();//умножение
  public
    procedure Execute();override;
  end;

  TfrmMain = class(TForm)
    gbxMain: TGroupBox;
    edtX: TEdit;
    edtY: TEdit;
    edtSum: TEdit;
    edtMult: TEdit;
    lblX: TLabel;
    lblY: TLabel;
    lblSum: TLabel;
    lblMult: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    ThreadSum:TMyThreadSum;//поток выполняющий сложение
    ThreadMult:TMyThreadMult;//поток выполняющий умножение
  end;

var
  frmMain: TfrmMain;

implementation

procedure TMyThreadSum.Sum();
//процедура потока, выполняющая чтение из едитов, вычисляющая сумму и записывающая результат в 3 едит
var
  x,y:real;//вспомогательные переменные
begin
  x:=StrToFloatDef(frmMain.edtX.Text,0);//перевод строки в число, если перевод неудачен, то записывается 0
  y:=StrToFloatDef(frmMain.edtY.Text,0);//перевод строки в число, если перевод неудачен, то записывается 0
  frmMain.edtSum.Text:=FloatToStr(x+y);//записываем результат(сумму) в едит формы
end;

procedure TMyThreadMult.Mult;
//процедура потока, выполняющая чтение из едитов, вычисляющая произведение и записывающая результат в 3 едит
var
  x,y:real;
begin
  x:=StrToFloatDef(frmMain.edtX.Text,0);//перевод строки в число, если перевод неудачен, то записывается 0
  y:=StrToFloatDef(frmMain.edtY.Text,0);//перевод строки в число, если перевод неудачен, то записывается 0
  frmMain.edtMult.Text:=FloatToStr(x*y);//записываем результат(произведение) в едит формы
end;

procedure TMyThreadSum.Execute();
begin
  //выполнять пока не "убито"
  repeat
    Synchronize(Sum);//так как работаем с VCL, то вызываем Synchronize
    Application.ProcessMessages;//обработка сообщений
  until Terminated;
end;

procedure TMyThreadMult.Execute();
begin
  //выполнять пока не "убито"
  repeat
    Synchronize(Mult);//так как работаем с VCL, то вызываем Synchronize
    Application.ProcessMessages;//обработка сообщений
  until Terminated;
end;

{$R *.dfm}

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  ThreadSum:=TMyThreadSum.Create(false);//создаем поток, обрабатывающий сумму
  ThreadMult:=TMyThreadMult.Create(false);//создаем поток, обрабатывающий произведение
  ThreadSum.FreeOnTerminate:=true;//разрушение объекта по terminate
  ThreadMult.FreeOnTerminate:=true;//разрушение объекта по terminate
end;
procedure TfrmMain.FormDestroy(Sender: TObject);
begin
  ThreadSum.Terminate();//чистка
  ThreadMult.Terminate();//чистка
end;

end.

Присоединённый файл ( Кол-во скачиваний: 7 )

2Threads.zip 8,88 Kb

darkart

Дата 5.11.2007, 18:27 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 379
Регистрация: 9.11.2005

Репутация: 26
Всего: 31

Форум глючит... smile

Это сообщение отредактировал(а) darkart - 6.11.2007, 00:25

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »