image_define.pas

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

unit image_define;

interface

uses
   pubdata, ExtCtrls, run;


procedure image_def();

implementation

procedure image_def();
begin
{
//用户1  发送
image_1_S[1]:=runfrm.Image1;
image_1_S[2]:=runfrm.Image2;
image_1_S[3]:=runfrm.Image3;
image_1_S[4]:=runfrm.Image4;
image_1_S[5]:=runfrm.Image5;
image_1_S[6]:=runfrm.Image6;
image_1_S[7]:=runfrm.Image7;
image_1_S[8]:=runfrm.Image8;
image_1_S[9]:=runfrm.Image9;
image_1_S[10]:=runfrm.Image10;

//用户1  接收
image_1_R[1]:=runfrm.Image11;
image_1_R[2]:=runfrm.Image12;
image_1_R[3]:=runfrm.Image13;
image_1_R[4]:=runfrm.Image14;
image_1_R[5]:=runfrm.Image15;
image_1_R[6]:=runfrm.Image16;
image_1_R[7]:=runfrm.Image17;
image_1_R[8]:=runfrm.Image18;
image_1_R[9]:=runfrm.Image19;
image_1_R[10]:=runfrm.Image20;

//用户2  发送
image_2_S[1]:=runfrm.Image21;
image_2_S[2]:=runfrm.Image22;
image_2_S[3]:=runfrm.Image23;
image_2_S[4]:=runfrm.Image24;
image_2_S[5]:=runfrm.Image25;
image_2_S[6]:=runfrm.Image26;
image_2_S[7]:=runfrm.Image27;
image_2_S[8]:=runfrm.Image28;
image_2_S[9]:=runfrm.Image29;
image_2_S[10]:=runfrm.Image30;

//用户2  接收
image_2_R[1]:=runfrm.Image31;
image_2_R[2]:=runfrm.Image32;
image_2_R[3]:=runfrm.Image33;
image_2_R[4]:=runfrm.Image34;
image_2_R[5]:=runfrm.Image35;
image_2_R[6]:=runfrm.Image36;
image_2_R[7]:=runfrm.Image37;
image_2_R[8]:=runfrm.Image38;
image_2_R[9]:=runfrm.Image39;
image_2_R[10]:=runfrm.Image40;

//用户3  发送
image_3_S[1]:=runfrm.Image41;
image_3_S[2]:=runfrm.Image42;
image_3_S[3]:=runfrm.Image43;
image_3_S[4]:=runfrm.Image44;
image_3_S[5]:=runfrm.Image45;
image_3_S[6]:=runfrm.Image46;
image_3_S[7]:=runfrm.Image47;
image_3_S[8]:=runfrm.Image48;
image_3_S[9]:=runfrm.Image49;
image_3_S[10]:=runfrm.Image50;

//用户3  接收
image_3_R[1]:=runfrm.Image51;
image_3_R[2]:=runfrm.Image52;
image_3_R[3]:=runfrm.Image53;
image_3_R[4]:=runfrm.Image54;
image_3_R[5]:=runfrm.Image55;
image_3_R[6]:=runfrm.Image56;
image_3_R[7]:=runfrm.Image57;
image_3_R[8]:=runfrm.Image58;
image_3_R[9]:=runfrm.Image59;
image_3_R[10]:=runfrm.Image60;

//用户4  发送
image_4_S[1]:=runfrm.Image61;
image_4_S[2]:=runfrm.Image62;
image_4_S[3]:=runfrm.Image63;
image_4_S[4]:=runfrm.Image64;
image_4_S[5]:=runfrm.Image65;
image_4_S[6]:=runfrm.Image66;
image_4_S[7]:=runfrm.Image67;
image_4_S[8]:=runfrm.Image68;
image_4_S[9]:=runfrm.Image69;
image_4_S[10]:=runfrm.Image70;

//用户4  接收
image_4_R[1]:=runfrm.Image71;
image_4_R[2]:=runfrm.Image72;
image_4_R[3]:=runfrm.Image73;
image_4_R[4]:=runfrm.Image74;
image_4_R[5]:=runfrm.Image75;
image_4_R[6]:=runfrm.Image76;
image_4_R[7]:=runfrm.Image77;
image_4_R[8]:=runfrm.Image78;
image_4_R[9]:=runfrm.Image79;
image_4_R[10]:=runfrm.Image80;

//用户5  发送
image_5_S[1]:=runfrm.Image81;
image_5_S[2]:=runfrm.Image82;
image_5_S[3]:=runfrm.Image83;
image_5_S[4]:=runfrm.Image84;
image_5_S[5]:=runfrm.Image85;
image_5_S[6]:=runfrm.Image86;
image_5_S[7]:=runfrm.Image87;
image_5_S[8]:=runfrm.Image88;
image_5_S[9]:=runfrm.Image89;
image_5_S[10]:=runfrm.Image90;

//用户5  接收
image_5_R[1]:=runfrm.Image91;
image_5_R[2]:=runfrm.Image92;
image_5_R[3]:=runfrm.Image93;
image_5_R[4]:=runfrm.Image94;
image_5_R[5]:=runfrm.Image95;
image_5_R[6]:=runfrm.Image96;
image_5_R[7]:=runfrm.Image97;
image_5_R[8]:=runfrm.Image98;
image_5_R[9]:=runfrm.Image99;
image_5_R[10]:=runfrm.Image100;

//用户6  发送
image_6_S[1]:=runfrm.Image101;
image_6_S[2]:=runfrm.Image102;
image_6_S[3]:=runfrm.Image103;
image_6_S[4]:=runfrm.Image104;
image_6_S[5]:=runfrm.Image105;
image_6_S[6]:=runfrm.Image106;
image_6_S[7]:=runfrm.Image107;
image_6_S[8]:=runfrm.Image108;
image_6_S[9]:=runfrm.Image109;
image_6_S[10]:=runfrm.Image110;

//用户6  接收
image_6_R[1]:=runfrm.Image111;
image_6_R[2]:=runfrm.Image112;
image_6_R[3]:=runfrm.Image113;
image_6_R[4]:=runfrm.Image114;
image_6_R[5]:=runfrm.Image115;
image_6_R[6]:=runfrm.Image116;
image_6_R[7]:=runfrm.Image117;
image_6_R[8]:=runfrm.Image118;
image_6_R[9]:=runfrm.Image119;
image_6_R[10]:=runfrm.Image120;

}
end;

end.