pubdata.~pas

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

unit pubdata;

interface
//const
//pi=3.14159265358;

uses
   ExtCtrls, Stdctrls; //QStdCtrls;


var
   image_datas:array[1..6] of TImage;
   image_S:array[1..6]of TImage;                      //待发送数据区
   image_R:array[1..6]of TImage;                      //已发送数据区
   image_state:array[1..6]of TImage;                  //状态区
   check_box:array[1..6]of TCheckbox;                 //选择框
   check_box1:array[1..6]of TCheckbox;         //优先级选择框

   //状态  label显示
   timegap_state_label:array[1..6]of TLabel;          //时隙分配情况
   user_state_label:array[1..6]of TLabel;             //用户当前状态
   user_request_label:array[1..6]of TLabel;           //用户请求状态（加入/撤销）
   user_pri_label:array[1..6]of TLabel;               //优先级显示
   

   timegap:array[0..5] of byte;       //0:未分配  1～6：分配给某用户
   user_pri:array[1..6] of byte;      //用户优先级 

   in_user:array[1..6] of integer; //值：加入用户号
   free_gap:array[1..6] of integer; //值：空闲时隙号
   user_length:array[1..6]of integer;        //数据长度
   sended_data:array[1..6]of integer;        //已发送数据

   user_remain:array[1..6]of integer;   //用户剩余数据
   user_request:array[1..6]of integer;        //请求队列  下标：用户号   值：请求发送的数据长度
   user_wait:array[1..6]of integer;     //等待用户序列，是没有通过的请求序列的赋值
   user_cancel:array[1..6]of boolean;         //用户撤销队列
    b:array[1..6]of boolean;               //
    aduser:array[1..6] of integer; //下标：用户号；值：优先级顺序
   adduser_no:integer;   //加入用户
   y1:array[0..8191] of double;

   resend_state:boolean;    //是否重传
   aduser_state:boolean;     //优先级设置表的状态
   timer1_b:boolean;
   timer1_a:boolean;
   timer_state:boolean;   //计时器状态


   frame_count:integer;   //帧计数器
   protect_gap:boolean;//保护时隙
   a:string;
   h,n:integer;

   user_data_da:array[0..6,0..1023] of double;

   Writing:boolean;
   mode_select:byte;              //模式选择  1：简单模式    2：优先级模式

   procedure Write378(data:Byte); cdecl; external 'Message.dll';
   procedure Write37a(data:Byte); cdecl; external 'Message.dll';
   procedure OpenGPIO ; cdecl; external 'Message.dll';
   procedure CloseGPIO ; cdecl; external 'Message.dll';


implementation

end.