main.~pas

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

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ImgList, ToolWin, Menus, ExtCtrls, pubdata, StdCtrls,
  Buttons;

type
  Tmainfrm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    Timer1: TTimer;
    StatusBar1: TStatusBar;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    procedure Timer1Timer(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainfrm:Tmainfrm;

implementation

uses run,choose;

{$R *.dfm}

procedure Tmainfrm.Timer1Timer(Sender: TObject);
begin
statusbar1.Panels.Items[0].Text:= datetostr(date);
statusbar1.Panels.Items[1].Text:= timetostr(time);
end;

procedure Tmainfrm.ToolButton4Click(Sender: TObject);
var
   i:integer;
begin
if runfrm=nil then
   runfrm:=Trunfrm.Create(nil)
else
   begin
   runfrm.Close;
   runfrm.Destroy;
   sleep(200);
   runfrm:=Trunfrm.Create(nil)
   end;

runfrm.show;
mode_select:=1;   //简单模式
runfrm.Caption:='简单模式';
for i:=1 to 6 do
   user_pri_label[i].Visible:=false;
showmessage('当前模式选择为“简单模式”');
end;

procedure Tmainfrm.ToolButton3Click(Sender: TObject);
begin
if choice=nil then
   choice:=Tchoice.Create(nil);
choice.Show;
end;


procedure Tmainfrm.FormCreate(Sender: TObject);          //用户数据初始化
var
  i:integer;
begin
for i:=1 to 6 do
   begin
   user_pri[i]:=0;
   user_stop[i]:=false;
   end;
   
for i:=0 to 1023 do
   begin
   user_data_da[0][i]:=0;
   user_data_da[1][i]:=1;
   user_data_da[2][i]:=i/1024;
   user_data_da[3][i]:=(1023-i)/1024;

   if i<512 then
      begin
      user_data_da[4][i]:=i/512;
      user_data_da[5][i]:=i/512;
      user_data_da[6][i]:=1;
      end
   else
      begin
      user_data_da[4][i]:=(1023-i)/512;
      user_data_da[5][i]:=1;
      user_data_da[6][i]:=(1023-i)/512;
      end;
   end;
mode_select:=1;    //默认为简单模式

end;

procedure Tmainfrm.ToolButton8Click(Sender: TObject);
var
   i:integer;
begin
if runfrm=nil then
   runfrm:=Trunfrm.Create(nil)
else
   begin
   runfrm.Close;
   runfrm.Destroy;
   sleep(200);
   runfrm:=Trunfrm.Create(nil)
   end;

runfrm.show;
mode_select:=2;   //优先级优化模式
runfrm.Caption:='优先级优化模式';
for i:=1 to 6 do
   user_pri_label[i].Visible:=true;
showmessage('当前模式选择为“优先级优化模式”');
end;

procedure Tmainfrm.ToolButton9Click(Sender: TObject);
var
   i:integer;
begin
if runfrm=nil then
   runfrm:=Trunfrm.Create(nil)
else
   begin
   runfrm.Close;
   runfrm.Destroy;
   sleep(200);
   runfrm:=Trunfrm.Create(nil);
   end;
  runfrm.Show;
  mode_select:=3;
  runfrm.Caption:='大作业优先';
  for i:=1 to 6 do
     user_pri_label[i].Visible:=true;
     showmessage('当前模式选择为“大作业优先模式”');
end;

end.