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

Дипломный проект - Организация абонентского доступа в городе Уральск
скачать (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скачать

n15.txt


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.
Учебный материал
© nashaucheba.ru
При копировании укажите ссылку.
обратиться к администрации