Лабораторный практикум по разделу "Сигналы и спектры в системах подвижной радиосвязи" специальной дисциплины "Мобильные телекоммуникационные системы". Нечаев Ю.Б - 28 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

28
Приложение
Текст программы для расчета амплитудного спектра последовательности
трех видеоимпульсов
unit Spektr; ( автор – Лосев М . А . )
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, ComCtrls, StdCtrls, Spin;
type
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
SpinEdit1: TSpinEdit;
SpinEdit2: TSpinEdit;
SpinEdit3: TSpinEdit;
SpinEdit4: TSpinEdit;
SpinEdit5: TSpinEdit;
SpinEdit6: TSpinEdit;
SpinEdit7: TSpinEdit;
Label1: TLabel;
Label2: TLabel;
SpinEdit8: TSpinEdit;
Label3: TLabel;
Label4: TLabel;
procedure ClearImage1(Sender: TObject);
procedure ClearImage2(Sender: TObject);
procedure ChangeLenInt(Sender: TObject);
procedure ChangeParam(Sender: TObject);
procedure UpDateGraphics(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation 
                                        28

                                  Прилож ение

 Т екстпрограм м ы для расчетаам плитудного спектрапоследовательности
                           трех видеоим пульсов

unit Spektr; ( автор – Лосев М .А . )

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 ExtCtrls, ComCtrls, StdCtrls, Spin;

type
 TForm1 = class(TForm)
   Image1: TImage;
   Image2: TImage;
   SpinEdit1: TSpinEdit;
   SpinEdit2: TSpinEdit;
   SpinEdit3: TSpinEdit;
   SpinEdit4: TSpinEdit;
   SpinEdit5: TSpinEdit;
   SpinEdit6: TSpinEdit;
   SpinEdit7: TSpinEdit;
   Label1: TLabel;
   Label2: TLabel;
   SpinEdit8: TSpinEdit;
   Label3: TLabel;
   Label4: TLabel;
   procedure ClearImage1(Sender: TObject);
   procedure ClearImage2(Sender: TObject);
   procedure ChangeLenInt(Sender: TObject);
   procedure ChangeParam(Sender: TObject);
   procedure UpDateGraphics(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

Страницы