Дипломный проект - Организация абонентского доступа в городе Уральск - файл n14.doc

Дипломный проект - Организация абонентского доступа в городе Уральск
скачать (1266.5 kb.)
Доступные файлы (19):
n1.doc299kb.27.04.2010 10:31скачать
n2.doc523kb.27.04.2010 10:29скачать
n3.doc181kb.27.04.2010 10:28скачать
n4.doc110kb.27.04.2010 10:28скачать
n5.doc29kb.27.04.2010 10:28скачать
-8BC9~1.doc95kb.29.11.2005 17:11скачать
EF45~1.doc59kb.29.11.2005 17:11скачать
n8.exe
n9.exe
n10.doc64kb.29.11.2005 17:11скачать
n11.txt4kb.01.06.2004 23:05скачать
n12.doc82kb.29.11.2005 17:11скачать
n13.txt6kb.01.06.2004 21:12скачать
n14.doc53kb.29.11.2005 17:11скачать
n15.txt3kb.02.06.2004 12:35скачать
n16.doc56kb.29.11.2005 17:11скачать
n17.doc382kb.27.04.2010 10:26скачать
n18.doc1198kb.27.04.2010 10:27скачать
n19.doc57kb.27.04.2010 10:31скачать

n14.doc

ПРИЛОЖЕНИЕ В


БЛОК СХЕМА



ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ В


ЛИСТИНГ ПРОГРАММЫ


Листинг

unit SignNagr;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, Menus, ShellApi;

type

TForm1 = class(TForm)

GroupBox1: TGroupBox;

edMeff: TLabeledEdit;

edMineff: TLabeledEdit;

Label1: TLabel;

Label2: TLabel;

edLineff: TLabeledEdit;

edLeff: TLabeledEdit;

Label3: TLabel;

Label4: TLabel;

edC: TLabeledEdit;

edA: TLabeledEdit;

Label5: TLabel;

edTineff: TLabeledEdit;

edTeff: TLabeledEdit;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Button1: TButton;

edX: TLabeledEdit;

GroupBox2: TGroupBox;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

txt1: TMenuItem;

ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ В


N5: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure txt1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

Nzv,C:integer;

A1,N,Nin,M,Min,L,Lin,T,Tin,X,A,Y:real;

begin

M:=StrToFloat(edMeff.Text);

Min:=StrToFloat(edMineff.Text);

Lin:=StrToFloat(edLineff.Text);

L:=StrToFloat(edLeff.Text);

T:=StrToFloat(edTeff.Text);

Tin:=StrToFloat(edTineff.Text);

C:=StrToInt(edC.Text);

X:=StrToFloat(edX.Text);

A1:=StrToFloat(edA.Text);

A:=A1/C;

N:=C*A*X/T;

Nin:=C*A*(1-X)/Tin;

Y:=(N*M*L+Nin*Min*Lin)/8000;

Nzv:=round(Y/0.2);

Label11.Caption:='Нагрузка на звено сигнализации м.д. АТС-OLT = '+FloatToStr(Y);

If frac(Y/0.2)>0 then Nzv:=Nzv+1;

Label10.Caption:='Количество звеньев = '+IntToStr(Nzv);

end;

procedure TForm1.N2Click(Sender: TObject);

begin

Close;

end;

ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ В


procedure TForm1.N4Click(Sender: TObject);

begin

ShellExecute(Handle,nil,'list3.doc',nil,nil,SW_RESTORE);

end;

procedure TForm1.txt1Click(Sender: TObject);

begin

ShellExecute(Handle,nil,'list3.txt',nil,nil,SW_RESTORE);

end;

end.
ВЫВОД




Руководство оператору:
Программа предназначена для расчетов сигнальной нагрузки

а) расчет по формулам необходимых параметров для решения задачи;

б) для расчета необходимо ввести исходные данные массивовMeff, Mineff, Leff, Lineff, Teff, Tineff, Xeff, C,A и нажать кнопку расчет;

в) вывод анализа расчетов на печать.

Учебный материал
© nashaucheba.ru
При копировании укажите ссылку.
обратиться к администрации