adduser.pas

dephi 7.0实现的TDMA工作原理.用于演示TDMA的工作流程

unit adduser;

interface

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

type
  Tadduserfrm = class(TForm)
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    BitBtn2: TBitBtn;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  adduserfrm: Tadduserfrm;

implementation

uses run,run3;

{$R *.dfm}

procedure Tadduserfrm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in['0','1','2','3','4','5','6','7','8','9',#8,#13]) then
   key:=#0
else if key=#13 then
   BitBtn1Click(Sender);
end;

procedure Tadduserfrm.BitBtn1Click(Sender: TObject);
var
   temp1:integer;
begin
if edit1.text='' then
   showmessage('请输入数据长度（1～10）')
else if (strtoint(edit1.Text)>10)or(strtoint(edit1.Text)=0) then
   showmessage('请输入1～10内的整数')
else
  if a='1' then
   begin
   //user_length[adduser_no]:=strtoint(edit1.text);
   user_request[adduser_no]:=strtoint(edit1.text);      //将用户加入请求队列
   if runfrm.label18.Caption='' then
      runfrm.label18.Caption:=inttostr(adduser_no)
   else
      runfrm.label18.Caption:=runfrm.label18.Caption+'、'+inttostr(adduser_no);
   user_request_label[adduser_no].Caption:='请求加入';

   if timer_state=true then
      runfrm.timer1.enabled:=true;

   //初始化作图区
   temp1:=strtoint(edit1.Text);
   runfrm.data_show(temp1,adduser_no,'S');
   runfrm.data_show(0,adduser_no,'R');

   close;
   end
   else if a='3' then
   begin
   user_request[adduser_no]:=strtoint(edit1.text);      //将用户加入请求队列
   if runfrm3.label18.Caption='' then
      runfrm3.label18.Caption:=inttostr(adduser_no)
   else
      runfrm3.label18.Caption:=runfrm3.label18.Caption+'、'+inttostr(adduser_no);
   user_request_label[adduser_no].Caption:='请求加入';

   if timer_state=true then
      runfrm3.timer1.enabled:=true;

   //初始化作图区
   temp1:=strtoint(edit1.Text);
   runfrm3.data_show(temp1,adduser_no,'S');
   runfrm3.data_show(0,adduser_no,'R');

   close;
   end
end;

procedure Tadduserfrm.BitBtn2Click(Sender: TObject);
begin
if timer_state=true then
   runfrm.timer1.enabled:=true;
check_box[adduser_no].checked:=false;
close;
end;

end.