noise1.pas

噪声对通信系统的影响试验程序 模仿各种噪声对不同通信系统的影响 具有很强的学习价值

unit noise1;

interface

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

type
  TMForm = class(TForm)
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton6: TToolButton;
    ToolButton5: TToolButton;
    ToolButton7: TToolButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    ToolButton8: TToolButton;
    N8: TMenuItem;
    N9: TMenuItem;
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MForm: TMForm;

implementation

uses Unit1, Unit2,Unit3,Unit4,Unit5;

{$R *.dfm}

procedure TMForm.ToolButton2Click(Sender: TObject);
begin
if (BaseFrm = nil) then
BaseFrm:=TBaseFrm.Create(nil);
BaseFrm.Show;
end;

procedure TMForm.ToolButton6Click(Sender: TObject);
begin
if (IniFrm = nil) then
IniFrm:=TIniFrm.Create(nil);
IniFrm.Show;
end;

procedure TMForm.ToolButton5Click(Sender: TObject);
begin
if (BpskFrm = nil) then
BpskFrm:=TBpskFrm.Create(nil);
BpskFrm.Show;
end;

procedure TMForm.ToolButton7Click(Sender: TObject);
begin
if (SpreadFrm = nil) then
SpreadFrm:=TSpreadFrm.Create(nil);
SpreadFrm.Show;

end;
procedure TMForm.ToolButton1Click(Sender: TObject);
begin
    close;
end;

procedure TMForm.N6Click(Sender: TObject);
begin
    close;
end;

procedure TMForm.N9Click(Sender: TObject);
begin
    ToolButton7.Click;
end;

procedure TMForm.N8Click(Sender: TObject);
begin
    ToolButton5.Click;
end;

procedure TMForm.N7Click(Sender: TObject);
begin
    ToolButton2.Click;
end;

end.