run2.pas

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

unit run2;

interface

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

type
  Trunfrm2 = class(TForm)
    Memo1: TMemo;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    Button1: TButton;
    Button2: TButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Choose(k:Integer);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure initialize();
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  runfrm2: Trunfrm2;

implementation

uses choose,main, run3;
{$R *.dfm}

procedure Trunfrm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
Mainfrm.ActiveMDIChild.WindowState:=wsMaximized;
end;

procedure Trunfrm2.FormDestroy(Sender: TObject);
begin
runfrm2:=nil;
end;

procedure Trunfrm2.Choose(k:Integer);

begin
if check_box1[k].Checked then
begin
aduser[k]:=h;
memo1.Lines.Add('优先级'+inttostr(h)+':用户'+inttostr(k));
h:=h+1;
end;
end;


procedure Trunfrm2.FormCreate(Sender: TObject);
begin
//timer1_b:=true;
initialize();
memo1.lines.Add('●请在复选框中选择用户的优先级(先选择的用户优先级高)^_^');
memo1.lines.Add('●请选择用户数据包假如发生中断，是否需要重传^_^') ;
h:=1;
end;

procedure Trunfrm2.CheckBox1Click(Sender: TObject);
begin
choose(1);
end;

procedure Trunfrm2.CheckBox2Click(Sender: TObject);
begin
choose(2);
end;

procedure Trunfrm2.CheckBox3Click(Sender: TObject);
begin
choose(3);
end;

procedure Trunfrm2.CheckBox4Click(Sender: TObject);
begin
choose(4);
end;

procedure Trunfrm2.CheckBox5Click(Sender: TObject);
begin
choose(5);
end;


procedure Trunfrm2.CheckBox6Click(Sender: TObject);
begin
choose(6);
end;

procedure Trunfrm2.initialize();
begin

check_box1[1]:=checkbox1;
check_box1[2]:=checkbox2;
check_box1[3]:=checkbox3;
check_box1[4]:=checkbox4;
check_box1[5]:=checkbox5;
check_box1[6]:=checkbox6;
end;

procedure Trunfrm2.Button1Click(Sender: TObject);
begin
//timer1_b:=true;
aduser_state:=true;
runfrm3.timer1.enabled:=true;
close;
end;

procedure Trunfrm2.Button2Click(Sender: TObject);
begin
showmessage('请选择用户优先级，程序才能继续运行下去！');
end;

procedure Trunfrm2.RadioButton1Click(Sender: TObject);
begin
resend_state:=false;
end;

procedure Trunfrm2.RadioButton2Click(Sender: TObject);
begin
resend_state:=true;
end;

end.