Помощь в написании студенческих работ
Антистрессовый сервис

Разработка программного продукта. 
Дистанционное обучение автоматизированному проектированию радиоэлектронных средств в виртуальном конструкторском бюро

Дипломная: Разработка программного продукта. Дистанционное обучение автоматизированному проектированию радиоэлектронных средств в виртуальном конструкторском бюро
Дипломная Купить готовую Узнать стоимостьмоей работы

WinExec (PChar (reg.ReadString ('Path109')+' '+reg.ReadString ('InFile109')), SW_SHOWNORMAL); Интепретация и вывод результатов анализа ТР РЭС. WinExec (PChar (reg.ReadString ('Path78')+' '+reg.ReadString ('InFile78')), SW_SHOWNORMAL); WinExec (PChar (reg.ReadString ('Path74')+' '+reg.ReadString ('InFile74')), SW_SHOWNORMAL); WinExec (PChar (reg.ReadString ('Path63')+' '+reg.ReadString… Читать ещё >

Разработка программного продукта. Дистанционное обучение автоматизированному проектированию радиоэлектронных средств в виртуальном конструкторском бюро (реферат, курсовая, диплом, контрольная)

Содержание

  • 1. ОБЗОР СРЕДСТВ СОЗДАНИЯ ОБУЧАЮЩИХ ПРОГРАММ И ФОРМИРОВАНИЕ ТРЕБОВАНИЙ К ДИСТАНЦИОННОМУ ОБУЧЕНИЮ
    • 1. 1. Обзор средств и стандарты дистанционного обучения

    1.1.1. Назначение и структура программного продукта — автоматизированной системы обеспечения надежности и качества аппаратуры (АСОНИКА), предназначенной для дистанционного обучения автоматизированному проектированию радиоэлектронных средств в конструкторском бюро

    1.1.2. Стандарты в сфере дистанционного обучения

    1.2. Принципы дистанционного обучения автоматизированному проектированию

    1.2.1. Методика дистанционного обучения сотрудников конструкторского бюро автоматизированному проектированию радиоэлектронных средств на основе системы АСОНИКА

    1.2.2. Основные положения и требования виртуального проектирования с применением системы АСОНИКА

    2. ИНФОРМАЦИОННО-МЕТОДИЧЕСКАЯ СОСТАВЛЯЮЩАЯ ДИСТАНЦИОННОГО ОБУЧЕНИЯ РАБОТЕ С ПОДСИСТЕМОЙ АНАЛИЗА И ОБЕСПЕЧЕНИЯ ТЕПЛОВЫХ ХАРАКТЕРИСТИК КОНСТРУКЦИЙ РАДИОЭЛЕКТРОННЫХ СРЕДСТВ АСОНИКА-Т

    2.1. ЛЕКЦИИ

    2.1.1. Основные принципы построения тепловых моделей

    2.1.2. Модели тепловых процессов типовых конструкций и элементов РЭС

    2.1.2.1. Построение МТП пластины с нагревателем мощностью P на одной из сторон

    2.1.2.2. Модель теплового процесса транзистора

    2.1.2.3. Модель теплового процесса транзистора, установленного на радиаторе

    2.1.2.4. Модель теплового процесса воздушного канала (воздуховода)

    2.1.2.5.Модель теплового процесса герметичного блока РЭС

    2.1.2.6.Модель теплового процесса перфорированного блока РЭС

    2.1.2.7. Модель блока РЭС кассетной конструкции как типового конструктивного исполнения

    2.1.2.7.1. Кассетный блок с продувом

    2.1.2.7.2. Герметичный кассетный блок

    2.1.2.8. Модель теплового процесса стойки РЭС

    2.2. ТЕСТЫ (ПРИМЕРЫ)

    2.3. ЛАБОРАТОРНЫЕ ЗАНЯТИЯ

    2.3.1. Лабораторная работа № 1. ПОСТРОЕНИЕ МТП ПЛАСТИНЫ С НАГРЕВАТЕЛЕМ

    2.3.2. Лабораторная работа № 2. ПОСТРОЕНИЕ МТП ТРАНЗИСТОРА

    2.3.3. Лабораторная работа № 3. ПОСТРОЕНИЕ МТП ВОЗДУШНОГО КАНАЛА (ВОЗДУХОВОДА)

    2.3.4. Лабораторная работа № 4. ПОСТРОЕНИЕ МТП ГЕРМЕТИЧНОГО БЛОКА РЭС

    2.3.5. Лабораторная работа № 5. ПОСТРОЕНИЕ МТП ПЕРФОРИРОВАННОГО БЛОКА РЭС

    3. РЕАЛИЗАЦИЯ СИСТЕМЫ ДИСТАНЦИОННОГО УПРАВЛЕНИЯ В СРЕДЕ АСОНИКА

    3.1. Интерфейс среды выполнения дистанционного обучения

    3.2. Описание модели интеграции содержания и описания рабочей среды

    3.3. Система управления обучением подсистеме АСОНИКА-Т

    3.4. Виртуальная среда обучения подсистеме АСОНИКА-Т

    4. БЕЗОПАСНОСТЬ ПРОЕКТА

    4.1. Электробезопасность

    4.2. Пожарная безопасность

    4.3. Требования к уровням шума

    5. ВЫВОДЫ БИБЛИОГРАФИЧЕСКИЙ

    СПИСОК ПРИЛОЖЕНИЕ

DFM}

procedure TForm1. FormCreate (Sender: TObject);

begin

CurDir:=GetCurrentDir;

try

reg:=TRegistry.Create;

reg.OpenKey ('SOFTWAREDiplom', false);

if FileExists (reg.ReadString ('Path1')) then Btn1. Enabled:=true

else Btn1. Enabled:=false;

Btn1.Caption:=reg.ReadString ('Name1');

if FileExists (reg.ReadString ('Path12')) then Btn12.Enabled:=true

else Btn12.Enabled:=false;

Btn12.Caption:=reg.ReadString ('Name12');

if FileExists (reg.ReadString ('Path2')) then Btn2. Enabled:=true

else Btn2. Enabled:=false;

Btn2.Caption:=reg.ReadString ('Name2');

if FileExists (reg.ReadString ('Path23')) then Btn23.Enabled:=true

else Btn23.Enabled:=false;

Btn23.Caption:=reg.ReadString ('Name23');

if FileExists (reg.ReadString ('Path24')) then Btn24.Enabled:=true

else Btn24.Enabled:=false;

Btn24.Caption:=reg.ReadString ('Name24');

if FileExists (reg.ReadString ('Path29')) then Btn29.Enabled:=true

else Btn29.Enabled:=false;

Btn29.Caption:=reg.ReadString ('Name29');

if FileExists (reg.ReadString ('Path213')) then Btn213.Enabled:=true

else Btn213.Enabled:=false;

Btn213.Caption:=reg.ReadString ('Name213');

if FileExists (reg.ReadString ('Path214')) then Btn214.Enabled:=true

else Btn214.Enabled:=false;

Btn214.Caption:=reg.ReadString ('Name214');

if FileExists (reg.ReadString ('Path215')) then Btn215.Enabled:=true

else Btn215.Enabled:=false;

Btn215.Caption:=reg.ReadString ('Name215');

if FileExists (reg.ReadString ('Path3')) then Btn3. Enabled:=true

else Btn3. Enabled:=false;

Btn3.Caption:=reg.ReadString ('Name3');

if FileExists (reg.ReadString ('Path34')) then Btn34.Enabled:=true

else Btn34.Enabled:=false;

Btn34.Caption:=reg.ReadString ('Name34');

if FileExists (reg.ReadString ('Path35')) then Btn35.Enabled:=true

else Btn35.Enabled:=false;

Btn35.Caption:=reg.ReadString ('Name35');

if FileExists (reg.ReadString ('Path4')) then Btn4. Enabled:=true

else Btn4. Enabled:=false;

Btn4.Caption:=reg.ReadString ('Name4');

if FileExists (reg.ReadString ('Path45')) then Btn45.Enabled:=true

else Btn45.Enabled:=false;

Btn45.Caption:=reg.ReadString ('Name45');

if FileExists (reg.ReadString ('Path5')) then Btn5. Enabled:=true

else Btn5. Enabled:=false;

Btn5.Caption:=reg.ReadString ('Name5');

if FileExists (reg.ReadString ('Path51')) then Btn51.Enabled:=true

else Btn51.Enabled:=false;

Btn51.Caption:=reg.ReadString ('Name51');

if FileExists (reg.ReadString ('Path6')) then Btn6. Enabled:=true

else Btn6. Enabled:=false;

Btn6.Caption:=reg.ReadString ('Name6');

if FileExists (reg.ReadString ('Path63')) then Btn63.Enabled:=true

else Btn63.Enabled:=false;

Btn63.Caption:=reg.ReadString ('Name63');

if FileExists (reg.ReadString ('Path7')) then Btn7. Enabled:=true

else Btn7. Enabled:=false;

Btn7.Caption:=reg.ReadString ('Name7');

if FileExists (reg.ReadString ('Path74')) then Btn74.Enabled:=true

else Btn74.Enabled:=false;

Btn74.Caption:=reg.ReadString ('Name74');

if FileExists (reg.ReadString ('Path78')) then Btn78.Enabled:=true

else Btn78.Enabled:=false;

Btn78.Caption:=reg.ReadString ('Name78');

if FileExists (reg.ReadString ('Path8')) then Btn8. Enabled:=true

else Btn8. Enabled:=false;

Btn8.Caption:=reg.ReadString ('Name8');

if FileExists (reg.ReadString ('Path812')) then Btn812.Enabled:=true

else Btn812.Enabled:=false;

Btn812.Caption:=reg.ReadString ('Name812');

if FileExists (reg.ReadString ('Path9')) then Btn9. Enabled:=true

else Btn9. Enabled:=false;

Btn9.Caption:=reg.ReadString ('Name9');

if FileExists (reg.ReadString ('Path921')) then Btn921.Enabled:=true

else Btn921.Enabled:=false;

Btn921.Caption:=reg.ReadString ('Name921');

if FileExists (reg.ReadString ('Path10')) then Btn10. Enabled:=true

else Btn10. Enabled:=false;

Btn10.Caption:=reg.ReadString ('Name10');

if FileExists (reg.ReadString ('Path109')) then Btn109.Enabled:=true

else Btn109.Enabled:=false;

Btn109.Caption:=reg.ReadString ('Name109');

if FileExists (reg.ReadString ('Path11')) then Btn11. Enabled:=true

else Btn11. Enabled:=false;

Btn11.Caption:=reg.ReadString ('Name11');

if FileExists (reg.ReadString ('Path1110')) then Btn1110.Enabled:=true

else Btn1110.Enabled:=false;

Btn1110.Caption:=reg.ReadString ('Name1110');

if FileExists (reg.ReadString ('Path12')) then Btn12. Enabled:=true

else Btn12. Enabled:=false;

Btn12.Caption:=reg.ReadString ('Name12');

if FileExists (reg.ReadString ('Path1211')) then Btn1211.Enabled:=true

else Btn1211.Enabled:=false;

Btn1211.Caption:=reg.ReadString ('Name1211');

if FileExists (reg.ReadString ('Path13')) then Btn13. Enabled:=true

else Btn13. Enabled:=false;

Btn13.Caption:=reg.ReadString ('Name13');

if FileExists (reg.ReadString ('Path14')) then Btn14. Enabled:=true

else Btn14. Enabled:=false;

Btn14.Caption:=reg.ReadString ('Name14');

if FileExists (reg.ReadString ('Path15')) then Btn15. Enabled:=true

else Btn15. Enabled:=false;

Btn15.Caption:=reg.ReadString ('Name15');

if FileExists (reg.ReadString ('Path205')) then Btn205.Enabled:=true

else Btn205.Enabled:=false;

Btn205.Caption:=reg.ReadString ('Name205');

if FileExists (reg.ReadString ('Path206')) then Btn206.Enabled:=true

else Btn206.Enabled:=false;

Btn206.Caption:=reg.ReadString ('Name206');

if FileExists (reg.ReadString ('Path207')) then Btn207.Enabled:=true

else Btn207.Enabled:=false;

Btn207.Caption:=reg.ReadString ('Name207');

if FileExists (reg.ReadString ('Path2122')) then Btn2122.Enabled:=true

else Btn2122.Enabled:=false;

Btn2122.Caption:=reg.ReadString ('Name2122');

finally

end;

end;

procedure TForm1. ExitButtonClick (Sender: TObject);

begin

Close

end;

procedure TForm1. Button2Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path2');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path2')+' '+reg.ReadString ('InFile2')), SW_SHOWNORMAL);

end;

procedure TForm1. RxLabel17Click (Sender: TObject);

begin

Step2Form:=TStep2Form.Create (self);

Step2Form.ShowModal;

Step2Form.Free;

end;

procedure TForm1. RxLabel16Click (Sender: TObject);

begin

Step1Form:=TStep1Form.Create (self);

Step1Form.ShowModal;

Step1Form.Free;

end;

procedure TForm1. Btn1Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path1');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path1')+' '+reg.ReadString ('InFile1')), SW_SHOWNORMAL);

end;

procedure TForm1. RxLabel16ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name1';

CurPath:='Path1';

CurInFile:='InFile1';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. Btn2Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path2');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path2')+' '+reg.ReadString ('InFile2')), SW_SHOWNORMAL);

end;

procedure TForm1. RxLabel5ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name2';

CurPath:='Path2';

CurInFile:='InFile2';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. Btn5Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path5');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path5')+' '+reg.ReadString ('InFile5')), SW_SHOWNORMAL);

end;

procedure TForm1. RxLabel17ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name5';

CurPath:='Path5';

CurInFile:='InFile5';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. RxLabel7Click (Sender: TObject);

begin

Step4Form:=TStep4Form.Create (self);

Step4Form.ShowModal;

Step4Form.Free;

end;

procedure TForm1. Btn4Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path4');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path4')+' '+reg.ReadString ('InFile4')), SW_SHOWNORMAL);

end;

procedure TForm1. RxLabel7ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name4';

CurPath:='Path4';

CurInFile:='InFile4';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. Btn3Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path3');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path3')+' '+reg.ReadString ('InFile3')), SW_SHOWNORMAL);

end;

procedure TForm1. RxLabel3ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name3';

CurPath:='Path3';

CurInFile:='InFile3';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. Image2Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path34');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path34')+' '+reg.ReadString ('InFile34')), SW_SHOWNORMAL);

end;

procedure TForm1. Image2ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name34';

CurPath:='Path34';

CurInFile:='InFile34';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. RxLabel5Click (Sender: TObject);

begin

Step3Form:=TStep3Form.Create (self);

Step3Form.ShowModal;

Step3Form.Free;

end;

procedure TForm1. RxLabel3Click (Sender: TObject);

begin

Step5Form:=TStep5Form.Create (self);

Step5Form.ShowModal;

Step5Form.Free;

end;

procedure TForm1. RxLabel9ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name8';

CurPath:='Path8';

CurInFile:='InFile8';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. RxLabel10ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name12';

CurPath:='Path12';

CurInFile:='InFile12';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. Btn8Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path8');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path8')+' '+reg.ReadString ('InFile8')), SW_SHOWNORMAL);

end;

procedure TForm1. Btn12Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path12');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path12')+' '+reg.ReadString ('InFile12')), SW_SHOWNORMAL);

end;

procedure TForm1. RxSpeedButton1Click (Sender: TObject);

begin

Close

end;

procedure TForm1. Image1ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name12';

CurPath:='Path12';

CurInFile:='InFile12';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. Image3ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name23';

CurPath:='Path23';

CurInFile:='InFile23';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. Image3Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path23');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path23')+' '+reg.ReadString ('InFile23')), SW_SHOWNORMAL);

end;

procedure TForm1. Image1Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path12');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path12')+' '+reg.ReadString ('InFile12')), SW_SHOWNORMAL);

end;

procedure TForm1. Image33Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path35');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path35')+' '+reg.ReadString ('InFile35')), SW_SHOWNORMAL);

end;

procedure TForm1. Image33ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name35';

CurPath:='Path35';

CurInFile:='InFile35';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. Image11Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path45');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path45')+' '+reg.ReadString ('InFile45')), SW_SHOWNORMAL);

end;

procedure TForm1. Image11ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name45';

CurPath:='Path45';

CurInFile:='InFile45';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. RxLabel12ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name10';

CurPath:='Path10';

CurInFile:='InFile10';

CurTypeFile:='Type10';

CurHlpFile:='hFile10';

Set3Form:=TSet3Form.Create (self);

Set3Form.ShowModal;

Set3Form.Free;

end;

procedure TForm1. RxLabel18ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name11';

CurPath:='Path11';

CurInFile:='InFile11';

CurTypeFile:='Type11';

CurHlpFile:='hFile11';

Set3Form:=TSet3Form.Create (self);

Set3Form.ShowModal;

Set3Form.Free;

end;

procedure TForm1. Btn10Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path10');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path10')+' '+reg.ReadString ('InFile10')), SW_SHOWNORMAL);

end;

procedure TForm1. Btn11Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path11');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path11')+' '+reg.ReadString ('InFile11')), SW_SHOWNORMAL);

end;

procedure TForm1. Image13ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name24';

CurPath:='Path24';

CurInFile:='InFile24';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. Image13Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path24');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path24')+' '+reg.ReadString ('InFile24')), SW_SHOWNORMAL);

end;

procedure TForm1. RxLabel11ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name9';

CurPath:='Path9';

CurInFile:='InFile9';

CurTypeFile:='Type9';

CurHlpFile:='hFile9';

Set3Form:=TSet3Form.Create (self);

Set3Form.ShowModal;

Set3Form.Free;

end;

procedure TForm1. Btn9Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path9');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path9')+' '+reg.ReadString ('InFile9')), SW_SHOWNORMAL);

end;

procedure TForm1. Image27ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name812';

CurPath:='Path812';

CurInFile:='InFile812';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. Image27Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path812');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path812')+' '+reg.ReadString ('InFile812')), SW_SHOWNORMAL);

end;

procedure TForm1. Image26Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path1211');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path1211')+' '+reg.ReadString ('InFile1211')), SW_SHOWNORMAL);

end;

procedure TForm1. Image26ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name1211';

CurPath:='Path1211';

CurInFile:='InFile1211';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. Image21Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path1110');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path1110')+' '+reg.ReadString ('InFile1110')), SW_SHOWNORMAL);

end;

procedure TForm1. Image21ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name1110';

CurPath:='Path1110';

CurInFile:='InFile1110';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. Image38Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path109');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path109')+' '+reg.ReadString ('InFile109')), SW_SHOWNORMAL);

end;

procedure TForm1. Image38ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name109';

CurPath:='Path109';

CurInFile:='InFile109';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. Btn6Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path6');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path6')+' '+reg.ReadString ('InFile6')), SW_SHOWNORMAL);

end;

procedure TForm1. Btn7Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path7');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path7')+' '+reg.ReadString ('InFile7')), SW_SHOWNORMAL);

end;

procedure TForm1. RxLabel2ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name6';

CurPath:='Path6';

CurInFile:='InFile6';

CurTypeFile:='Type6';

CurHlpFile:='hFile6';

Set3Form:=TSet3Form.Create (self);

Set3Form.ShowModal;

Set3Form.Free;

end;

procedure TForm1. RxLabel8ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name7';

CurPath:='Path7';

CurInFile:='InFile7';

CurTypeFile:='Type7';

CurHlpFile:='hFile7';

Set3Form:=TSet3Form.Create (self);

Set3Form.ShowModal;

Set3Form.Free;

end;

procedure TForm1. Btn13Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path13');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path13')+' '+reg.ReadString ('InFile13')), SW_SHOWNORMAL);

end;

procedure TForm1. Btn14Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path14');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path14')+' '+reg.ReadString ('InFile14')), SW_SHOWNORMAL);

end;

procedure TForm1. Btn15Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path15');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path15')+' '+reg.ReadString ('InFile15')), SW_SHOWNORMAL);

end;

procedure TForm1. RxLabel6ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name13';

CurPath:='Path13';

CurInFile:='InFile13';

CurTypeFile:='Type13';

CurHlpFile:='hFile13';

Set3Form:=TSet3Form.Create (self);

Set3Form.ShowModal;

Set3Form.Free;

end;

procedure TForm1. RxLabel13ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name14';

CurPath:='Path14';

CurInFile:='InFile14';

CurTypeFile:='Type14';

CurHlpFile:='hFile14';

Set3Form:=TSet3Form.Create (self);

Set3Form.ShowModal;

Set3Form.Free;

end;

procedure TForm1. RxLabel14ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name15';

CurPath:='Path15';

CurInFile:='InFile15';

CurTypeFile:='Type15';

CurHlpFile:='hFile15';

Set3Form:=TSet3Form.Create (self);

Set3Form.ShowModal;

Set3Form.Free;

end;

procedure TForm1. Image4Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path51');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path51')+' '+reg.ReadString ('InFile51')), SW_SHOWNORMAL);

end;

procedure TForm1. Image4ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name51';

CurPath:='Path51';

CurInFile:='InFile51';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. Image18Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path63');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path63')+' '+reg.ReadString ('InFile63')), SW_SHOWNORMAL);

end;

procedure TForm1. Image18ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name63';

CurPath:='Path63';

CurInFile:='InFile63';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. RxLabel10Click (Sender: TObject);

begin

Step6Form:=TStep6Form.Create (self);

Step6Form.ShowModal;

Step6Form.Free;

end;

procedure TForm1. Image14Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path74');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path74')+' '+reg.ReadString ('InFile74')), SW_SHOWNORMAL);

end;

procedure TForm1. Image14ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name74';

CurPath:='Path74';

CurInFile:='InFile74';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. RxLabel9Click (Sender: TObject);

begin

Step8Form:=TStep8Form.Create (self);

Step8Form.ShowModal;

Step8Form.Free;

end;

procedure TForm1. RxLabel2Click (Sender: TObject);

begin

reg:=TRegistry.Create;

reg.OpenKey ('SOFTWAREDiplomHelp', false);

FileName:=reg.ReadString ('hFile6');

if FileName='' then exit;

if reg. ReadString ('Type6')='1' then

begin

DetailForm:=TDetailForm.Create (self);

DetailForm.ShowModal;

DetailForm.Free;

end else

begin

Detail2Form:=TDetail2Form.Create (self);

Detail2Form.ShowModal;

Detail2Form.Free;

end;

end;

procedure TForm1. RxLabel8Click (Sender: TObject);

begin

reg:=TRegistry.Create;

reg.OpenKey ('SOFTWAREDiplomHelp', false);

FileName:=reg.ReadString ('hFile7');

if FileName='' then exit;

if reg. ReadString ('Type7')='1' then

begin

DetailForm:=TDetailForm.Create (self);

DetailForm.ShowModal;

DetailForm.Free;

end else

begin

Detail2Form:=TDetail2Form.Create (self);

Detail2Form.ShowModal;

Detail2Form.Free;

end;

end;

procedure TForm1. RxLabel6Click (Sender: TObject);

begin

reg:=TRegistry.Create;

reg.OpenKey ('SOFTWAREDiplomHelp', false);

FileName:=reg.ReadString ('hFile13');

if FileName='' then exit;

if reg. ReadString ('Type13')='1' then

begin

DetailForm:=TDetailForm.Create (self);

DetailForm.ShowModal;

DetailForm.Free;

end else

begin

Detail2Form:=TDetail2Form.Create (self);

Detail2Form.ShowModal;

Detail2Form.Free;

end;

end;

procedure TForm1. RxLabel13Click (Sender: TObject);

begin

reg:=TRegistry.Create;

reg.OpenKey ('SOFTWAREDiplomHelp', false);

FileName:=reg.ReadString ('hFile14');

if FileName='' then exit;

if reg. ReadString ('Type14')='1' then

begin

DetailForm:=TDetailForm.Create (self);

DetailForm.ShowModal;

DetailForm.Free;

end else

begin

Detail2Form:=TDetail2Form.Create (self);

Detail2Form.ShowModal;

Detail2Form.Free;

end;

end;

procedure TForm1. RxLabel14Click (Sender: TObject);

begin

reg:=TRegistry.Create;

reg.OpenKey ('SOFTWAREDiplomHelp', false);

FileName:=reg.ReadString ('hFile15');

if FileName='' then exit;

if reg. ReadString ('Type15')='1' then

begin

DetailForm:=TDetailForm.Create (self);

DetailForm.ShowModal;

DetailForm.Free;

end else

begin

Detail2Form:=TDetail2Form.Create (self);

Detail2Form.ShowModal;

Detail2Form.Free;

end;

end;

procedure TForm1. RxLabel18Click (Sender: TObject);

begin

reg:=TRegistry.Create;

reg.OpenKey ('SOFTWAREDiplomHelp', false);

FileName:=reg.ReadString ('hFile11');

if FileName='' then exit;

if reg. ReadString ('Type11')='1' then

begin

DetailForm:=TDetailForm.Create (self);

DetailForm.ShowModal;

DetailForm.Free;

end else

begin

Detail2Form:=TDetail2Form.Create (self);

Detail2Form.ShowModal;

Detail2Form.Free;

end;

end;

procedure TForm1. RxLabel12Click (Sender: TObject);

begin

reg:=TRegistry.Create;

reg.OpenKey ('SOFTWAREDiplomHelp', false);

FileName:=reg.ReadString ('hFile10');

if FileName='' then exit;

if reg. ReadString ('Type10')='1' then

begin

DetailForm:=TDetailForm.Create (self);

DetailForm.ShowModal;

DetailForm.Free;

end else

begin

Detail2Form:=TDetail2Form.Create (self);

Detail2Form.ShowModal;

Detail2Form.Free;

end;

end;

procedure TForm1. RxLabel11Click (Sender: TObject);

begin

reg:=TRegistry.Create;

reg.OpenKey ('SOFTWAREDiplomHelp', false);

FileName:=reg.ReadString ('hFile9');

if FileName='' then exit;

if reg. ReadString ('Type9')='1' then

begin

DetailForm:=TDetailForm.Create (self);

DetailForm.ShowModal;

DetailForm.Free;

end else

begin

Detail2Form:=TDetail2Form.Create (self);

Detail2Form.ShowModal;

Detail2Form.Free;

end;

end;

procedure TForm1. Image15Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path213');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path213')+' '+reg.ReadString ('InFile213')), SW_SHOWNORMAL);

end;

procedure TForm1. Image16Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path214');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path214')+' '+reg.ReadString ('InFile214')), SW_SHOWNORMAL);

end;

procedure TForm1. Image17Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path215');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path215')+' '+reg.ReadString ('InFile215')), SW_SHOWNORMAL);

end;

procedure TForm1. Image15ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name213';

CurPath:='Path213';

CurInFile:='InFile213';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. Image16ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name214';

CurPath:='Path214';

CurInFile:='InFile214';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. Image17ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name215';

CurPath:='Path215';

CurInFile:='InFile215';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. Image37Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path205');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path205')+' '+reg.ReadString ('InFile205')), SW_SHOWNORMAL);

end;

procedure TForm1. Image30Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path206');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path206')+' '+reg.ReadString ('InFile206')), SW_SHOWNORMAL);

end;

procedure TForm1. Image34Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path207');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path207')+' '+reg.ReadString ('InFile207')), SW_SHOWNORMAL);

end;

procedure TForm1. Image37ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name205';

CurPath:='Path205';

CurInFile:='InFile205';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. Image30ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name206';

CurPath:='Path206';

CurInFile:='InFile206';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. Image34ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name207';

CurPath:='Path207';

CurInFile:='InFile207';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. Image28Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path78');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path78')+' '+reg.ReadString ('InFile78')), SW_SHOWNORMAL);

end;

procedure TForm1. Image28ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name78';

CurPath:='Path78';

CurInFile:='InFile78';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. Image39Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path921');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path921')+' '+reg.ReadString ('InFile921')), SW_SHOWNORMAL);

end;

procedure TForm1. Image40Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path2122');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path2122')+' '+reg.ReadString ('InFile2122')), SW_SHOWNORMAL);

end;

procedure TForm1. Image29Click (Sender: TObject);

begin

temp_st:=reg.ReadString ('Path29');

while copy (temp_st, length (temp_st), 1)<>'' do delete (temp_st, length (temp_st), 1);

SetCurrentDir (temp_st);

WinExec (PChar (reg.ReadString ('Path29')+' '+reg.ReadString ('InFile29')), SW_SHOWNORMAL);

end;

procedure TForm1. Image39ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name921';

CurPath:='Path921';

CurInFile:='InFile921';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. Image40ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name2122';

CurPath:='Path2122';

CurInFile:='InFile2122';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. Image29ContextPopup (Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

CurName:='Name29';

CurPath:='Path29';

CurInFile:='InFile29';

SetForm:=TSetForm.Create (self);

SetForm.ShowModal;

SetForm.Free;

end;

procedure TForm1. FormActivate (Sender: TObject);

begin

Top:=Top — 10;

end;

end.

Температурное поле РЭС состоит из значений температур ее ЭРИ, а также температур различных конструктивных деталей, воздуха внутри аппарата и т. п. Совокупность значений этих температур характеризует тепловой режим РЭС.

Теория теплообмена — наука о процессах распространения теплоты. Различают три основных вида теплообмена: теплопроводность, конвекция и тепловое излучение.

Теплопроводностью (кондукцией) называется молекулярный перенос теплоты в сплошной среде.

Свободная конвекция в ограниченом пространстве обычно рассматривается по аналогии с передачей теплоты путем теплопроводности.

Тепловое излучение — процесс распространения теплоты с электромагнитными волнами.

6 Конвекцией называется перенос теплоты при перемещении объемов «жидкости» (газа или жидкости) в пространстве. Теплообмен между жидкостью или газом и поверхностью твердого тела называют конвективным теплообменом или теплоотдачей.

1 Нестационарный тепловой процесс — непостоянный, изменяющийся во времени.

БЛОК 2

организация анализа ТР РЭС

БЛОК 1

организация ввода исходной информации

УПРАВЛЯЮЩАЯ ПРОГРАММА ПОДСИСТЕМЫ

n

n

n

n

n

n

TForm

TVetvForm

TUzelForm

TModelForm

TParamForm

TBox

TModul

TBlock

TPlastina

TUzel

TVetv

TModel

TMainForm

TObject

БЛОК 11

интепретация и вывод результатов анализа ТР РЭС

МР 1

МР 1

МР 1

МР 1

БЛОК 9

библиотека аналитических моделей типовых законов теплообмена

БЛОК 8

формирование уравнений

БЛОК 10

численное решение СЛАУ

БЛОК 7

организация решения уравнения МТП

A

B

A

B

БЛОК 5

библиотека структур моделей типовых для РЭС условий охлаждения (граничных условий)

БЛОК 5

библиотека сегментов линейных структур моделей типовых конструкций РЭС

БЛОК 4

библиотека моделей элементов

М-П 4

М-П 3

М-П 2

М-П 1

БЛОК 3

управление модулями — предпроцессорами (автоматическое построение МТП)

Показать весь текст

Список литературы

  1. Ю.Н. Теоретические основы конструирования, технологии и надежности радиоэлектронных средств: Учебник для вузов. — М.: Радио и связь, 1991. — 360с.
  2. Исследование тепловых характеристик радиоэлектронных средств методами математического моделирования/ Ю. Н. Кофанов, В. В. Гольдин, В. Г. Журавский, В. И. Коваленок, О. В. Межевов, С. В. Работин, А. В. Сарафанов, С. И. Трегубов, М. В. Тюкачев. — М.: Радио и связь, 2003. — 456с.
  3. Ю.Н., Гольдин В. В., Журавский В. Г., Сарафанов А. В. Информационная поддержка жизненного цикла электронных средств. — М.: Радио и связь, 2002. — 379 с.
Заполнить форму текущей работой
Купить готовую работу

ИЛИ
↓


Сессия? Спокойно!