choose.~pas

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

unit choose;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,pubdata, TeEngine, Series, TeeProcs, Chart;

type
  Tchoice = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Memo1: TMemo;
    Memo2: TMemo;
    GroupBox3: TGroupBox;
    Memo3: TMemo;
    GroupBox4: TGroupBox;
    Label1: TLabel;
    Chart1: TChart;
    Series1: TLineSeries;
    Label2: TLabel;
    Chart2: TChart;
    Series2: TLineSeries;
    Label3: TLabel;
    Chart3: TChart;
    Series3: TLineSeries;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Chart4: TChart;
    Chart5: TChart;
    Chart6: TChart;
    Series4: TLineSeries;
    Series5: TLineSeries;
    Series6: TLineSeries;
    GroupBox5: TGroupBox;
    Memo4: TMemo;
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  choice: Tchoice;

implementation

uses main,run,run2,run3;

{$R *.dfm}




procedure Tchoice.FormCreate(Sender: TObject);
var
  i:integer;
begin
 for i:=0 to 1023 do
   begin
   series1.addxy(i,user_data_da[1][i],'',clred);
   series2.AddXY(i,user_data_da[2][i],'',clblue);
   series3.AddXY(i,user_data_da[3][i],'',cllime);
   series4.AddXY(i,user_data_da[4][i],'',clolive);
   series5.AddXY(i,user_data_da[5][i],'',clfuchsia);
   series6.AddXY(i,user_data_da[6][i],'',claqua);
   end;
end;



end.