Задания для курсового проекта по дисциплине «Анализ и оптимизация БП», страница 9

Адрес: пр. Октября,124, корпус №1, каб.№1

Номер телефона:  73496

Должность: Нач. турбинного цеха

ФИО: Вялков И.И.

Адрес: пр. Октября,124, корпус №1, каб. №2

Номер телефона:  73499

Должность: Нач. электроцеха

ФИО: Гусев П.В.

Адрес: пр. Октября,124, корпус №1, каб. №7

Номер телефона:  73493

Должность: Нач. ТЭЦ

ФИО: Добрынина Л.И.

Адрес: пр. Октября,126, корпус №2, каб. №11

Номер телефона:  74569

Должность: Нач. УТАИ 1 гр.

ФИО: Евстропов А.В.

Адрес: пр. Октября,126, корпус №2, каб. №12

Номер телефона:  73497

Должность: Нач. химцеха

ФИО: Жернаков Н.Ф.

Адрес: пр. Октября,128, корпус №3, каб. № 1

Номер телефона:  74567

Должность: Главный инженер

ФИО: Котова Н.В.

Адрес: пр. Октября,128, корпус №3, каб. № 2

Номер телефона:  74893

Должность: Инспектор по делопроизв-ву

ФИО: Куликов Г.М.

Адрес: пр. Октября,128, корпус №3, каб. № 5

Номер телефона:  74879

Должность: Нач. смены 2 группы

Рис. 16

Global g_nLoc As Long

Global g_oOutFile As Object

Sub Main

Set g_oOutFile = CreateObject("ARIS.Output.5.0")

g_nLoc = SelectedLanguage

g_oOutFile.Init(SelectedFormat, g_nLoc)

g_oOutFile.DefineF("REPORT1","Arial",24,C_BLACK,COLOR_TRANSPARENT,FMT_BOLD       Or FMT_CENTER,0,21,0,0,0,1)

g_oOutFile.DefineF("REPORT2","Times New Roman",14,C_BLACK,COLOR_TRANSPARENT,FMT_LEFT,20,21,0,0,0,1)

g_oOutFile.OutputLnF("","REPORT1")

g_oOutFile.OutputLnF("Данные руководящего звена ТЭЦ","REPORT1")

g_oOutFile.OutputLnF("","REPORT1")

Dim oSelectedObjDefs1 As Object

Dim oSelectedObjDefs1Obj As Object

Set oSelectedObjDefs1 = SelectedObjDefs

oSelectedObjDefs1.Sort(AT_NAME, SORT_NONE, SORT_NONE, g_nLoc)

For i1 = 0 To oSelectedObjDefs1.Count()-1

     Set oSelectedObjDefs1Obj = oSelectedObjDefs1.Get(i1)

     g_oOutFile.OutputLnF("ФИО: "+ Str(oSelectedObjDefs1Obj.Attribute(AT_NAME,     

                         g_nLoc).GetValue(True)),"REPORT2")

     g_oOutFile.OutputLnF("Номер телефона: "+ Str(oSelectedObjDefs1Obj.Attribute(AT_PHONE_NUM, g_nLoc).GetValue(True)),"REPORT2")

     Dim oCxnListFilter1 As Object

     Dim oCxnListFilter1Obj As Object

     'Выбор выходных связей объекта Person, которые называются Occupies

     Set oCxnListFilter1 = oSelectedObjDefs1Obj.CxnListFilter(EDGES_OUT, "", g_nLoc,        

                                                                                                       CT_OCCUPIES, AT_NAME)

     For i2 = 0 To oCxnListFilter1.Count()-1

               Set oCxnListFilter1Obj = oCxnListFilter1.Get(i2)

               g_oOutFile.OutputLnF("Должность: "+

                                        Str(oCxnListFilter1Obj.TargetObjDef.Name(g_nLoc)), "REPORT2")

                       g_oOutFile.OutputLnF("", "REPORT2")

               Set oCxnListFilter1Obj = Nothing

     Next i2

     Set oCxnListFilter1 = Nothing

     g_oOutFile.OutputLn("", "Times New Roman",12,C_BLACK,COLOR_TRANSPARENT,FMT_BOLD Or FMT_LEFT,0)

     Set oSelectedObjDefs1Obj = Nothing

Next i1

Set oSelectedObjDefs1 = Nothing

g_oOutFile.WriteReport(SelectedPath, SelectedFile)

End Sub

Рис. 17

В конце курсовой работы привести основные выводы по проделанной работе:

·  охарактеризовать результаты проведенного анализа моделей;

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

·  подвести итоги использования функциональных возможностей ARIS Toolset при работе с построенными моделями.