Процедуры обработки объектов

Private Sub cmdRaschet_Click()

Nur = Val(txtbegUr): Part = Val(txtParty)

URmin = Val(txtURmn):MTVZ=Val(txtMTdos)

STVZ=Val(txtSNdos):MDS=Val(txtMDcp)

SDS=Val(txtSKOD): Cl=Val(txtC_l): C2=Val(txtC_2)

C3=Val(txtC_3): TD=Val(txtTskl): Nr=Val(txtNreal)

CaU Model3

End Sub

Private Sub cmdClear_Click()

frmZapasy.txtResult = «»

End Sub

Private Sub cmdExit_Click()

End

End Sub

Модуль общего назначения Model6.bas

Public Sub Model6()

' Главный модуль программы «Управление запасами»

MSC = 0 ' средние суммарные издержки

SSC = О ' СКО суммарных издержек

ТРО = TD + 1 ' времена выполнения заявки на поставку

For Ir = 1 То Nr ' начало цикла реализаций

ТР=ТР0 ' исходное значение времени поступления партии товара

Sc 1 =0 ' исходная сумма затрат на хранение товара

Sc2=0 ' исходная сумма затрат на поставку товара

Sc3=0 ' исходная сумма затрат, связанных с нехваткой товара

Т=0 ' счетчик модельного времени, дни

Zajav=0 ' признак отсутствия запроса на поставку

V=Nur ' начальный уровень текущего запаса

Do ' начало цикла DO...LOOP

Т = Т + 1 'модельное время

If Т > TD Then Exit Do 'условие окончания расчета

' текущей реализации

N = Norm ' обращение к функции, вырабатывающей

'случайную величину с нормальным распределением — Norm

D = Int(MDS + N * SDS) ' случайный дневной спрос

If Т >= ТР Then

ТР = ТРО ' восстановление исходного времени постановки

Zajav = 0 'восстановление признака отсутствия заявки

V= V + Part 'увеличение запаса после постановки

End If

V= V - D ' уменьшение запаса в результате i

If V < 0 Then 'условие появления дефицита

Sc3 = Sc3-V*C3 'определение издержек,

‘связанных с дефицитом товара

V = 0 'обнуление запаса

End If

Scl = Scl+V*Cl ' затраты на хранение товара

IfV<UrminThen ' снижение запаса ниже нормы

IfZajav = OThen ‘ условие отсутствия оформленной

'заявки на поступление товара

Sc2 = Sc2 + C2 * Part ' затраты на организацию поставки

N = Norm ' обращение к функции, вырабатывающей

' случайную величину с нормальным распределением

TZ = Int(MTVZ + N * STVZ) ' случайное время

'выполнения очередного заказа

Zajav =1 ' фиксация оформления заявки

End If

End If

Loop

SC = Scl + Sc2 + Sc3

MSC = MSC + SC ‘суммарные издержки в Ir реализациях

SSC = SSC + SC * SC ' сумма квадратов издержек

Next Ir ' окончание цикла реализаций

' результаты моделирования:

Сср = MSC / Nr 'средние затраты

If Nr > 1 Then

DispC = (SSC-Nr*Ccp*Ccp)/(Nr-l) ' дисперсия затрат

' определение среднего квадратического отклонения затрат;

If DispOO Then SigC = Sqr(DispC) Else SigC = 0

End If

Cgar = Ccp+1.28*SigC 'максимальные гарантированные затраты

'вывод на экран результата расчета:

frmZapasy.txtResult = Format$(Cgar, «#####»)

End Sub

Function Norm()

'генератор нормального распределения;

Sz = 0

For j = 1 To 12

z = Rnd(l) ' датчик случайных чисел с равномерным

'распределением в интервале (0,1)

Sz = Sz + z

Nextj

Norm = Sz – 6 ' центрирование случайной величины

End Function

ЗАДАНИЕ 10

Особенности и методы создания модели производственной фирмы

Постановка задачи

Основной целью курсовой работы является ознакомление с современными подходами и методами создания и использования модели производственной фирмы.

В задании приводятся результаты разработки модели бензоколонки (Приложение 1) с использованием исходных данных, формируемым в результате предварительных исследований, представленных в форме беседы предпринимателя с консультантом (разработчиком). Такая форма представления материала предполагает более доходчивое понимание студентами самой сути и содержания основных этапов построения модели, включая рассмотрение всех основных этапов, и ее использования для последующего анализа. В приложении 1 приводится также пример решения поставленной задачи моделирования. Приведенный материал Приложения 1 дает возможность самостоятельного выполнения сформулированных в части 3 заданий.

Необходимым условиям успешного выполнения задания являются базовые знания использования языка Visual Basic 6.0. В качестве источников информации могут служить специализированная литература и рекомендованные ниже источники (часть 4).

2. Пояснительная запискак отчету по выполненной курсовой работе должна соответствовать установленным требованиям. В пояснительной записке желательно представление фрагментов экранных заставок, позволяющих наглядно представить очередность и особенности выполнения отдельных процедур и операций при работе с разработанной программой. В заключении к проделанной работе необходимо представить основные выводы и рекомендации по применению полученных результатов.

3. Задания для самостоятельной работы

Задание 3.1

В среде Visual Basic 6.0 создайте исполняемый модуль прог­раммы «Модель производственной фирмы», текст которой при­веден в Приложении 2. Отладьте программу с целью ликвидации формальных ошибок.

Задание 3.2

Проведите проверку программы расчетом. Подставьте те же исходные данные, которые были выбраны в приведенном выше примере. Убедитесь в том, что результаты расчетов практически совпадают.

Задание 3.3

Проведите самостоятельное исследование закономерностей функционирования фирмы с помощью имитационной модели. Выберите исходные данные, проведите расчеты и проанализи­руйте результаты моделирования.