Теория управления запасами и системы массового обслуживания в программной среде Delfi
Заказать уникальную курсовую работу- 25 25 страниц
- 0 + 0 источников
- Добавлена 15.03.2017
- Содержание
- Часть работы
- Список литературы
- Вопросы/Ответы
ПЕРВОЕ ЗАДАНИЕ 3
Содержание задания и выбор языка программирования 3
Выполнение задания 4
Разработка программного средства. 7
ВТОРОЕ ЗАДАНИЕ 12
Содержание задания и выбор программных средств 12
Выполнение задания 12
ЗАКЛЮЧЕНИЕ 15
ЛИТЕРАТУРА 16
ПРИЛОЖЕНИЕ А 17
ИСХОДНЫЕ КОДЫ ПРОГРАММНОГО СРЕДСТВА 17
Диалектика, Москва-СПБ-Киев, 2011 г. 785 с.Роман С. Использование макросов в Excel. Питер, СПБ, 2004 г. 512 с.ПРИЛОЖЕНИЕ АИСХОДНЫЕ КОДЫПРОГРАММНОГО СРЕДСТВАИСХОДНЫЕ КОДЫ ПОЛЬЗОВАТЕЛЬСКОЙ ФОРМЫOptionExplicitPrivateSubcbExit_Click()UnloadufAddReplaceEndSubPrivateSubcbMore_Click()'Отработка сигнала пользователя о желании добавить/заменить ещё один товарDimintTColAsInteger, intSColAsInteger, intRowAsInteger, intSourseAsIntegerbUFW = False 'ДанныесформынесчитаныbACF = False 'Запас не определенIfReadyToWriteThen 'Если данным можно веритьintTCol = Val(tbColumn.Text) 'считываем столбик для записи параметров товараIfintTCol = ASKINGCOL + 1 Then 'Выбор столбцы источника пуассоновских формул, для столбца с записью параметров добавляемого/заменямого товараintSCol = ASKINGCOL + 2ElseintSCol = ASKINGCOL + 1EndIfCells(NAMEROW, intTCol).Value = tbName.Text 'ЗаписьназваниятовараColumns(intTCol).EntireColumn.AutoFit 'АвтоподборшириныстолбцаCells(YVOLROW, intTCol).Value = Val(tbYVol.Text) 'ЗаписьобъёмапродажCells(ARRROW, intTCol).Value = Val(tbPriceArr.Text) 'ЗаписьценыдоставкиCells(SAROW, intTCol).Value = Val(tbPriceSa.Text) 'ЗаписьценыхраненияIfcbReplace.Value = FalseThen 'ЕслитовардобавляетсяCells(POISROW, intTCol).FormulaR1C1 = "=R2C/DpY" 'Запись пуассоновского параметра потока реализации товаровEndIfintRow = POISROW + 2 'выбор начальной строки для расчета вероятности востребованностиDoWhilebACF = False 'цикл поиска запасаintSourse = intRow - POISROW - 1 'вычисление очередного запасаCells(intRow, ASKINGCOL).Value = intSourse 'запись очередного запаса в столбец ASKINGCOLCells(intRow, intTCol).FormulaR1C1 = Cells(POISROW + 2, intSCol).FormulaR1C1 'расчет и запись очередной вероятности востребованностиIfCells(intRow, intTCol).Value<= 1 - Range("Надёжность").ValueThen 'если вероятность востребованности соответствует заданному уровню надежностиbACF = True 'поиск завершенintSourse = MyMax(intSourse - 1, 1) 'запас определенElse 'в противном случаеintRow = intRow + 1 'продолжим поиск со следующей строкиEndIfLoop 'конец цикла поиска запасаEndIfCells(Range("Издержки").ROW, intTCol).Value = Cells(YVOLROW, intTCol).Value * Cells(ARRROW, intTCol).Value + Cells(SAROW, intTCol).Value * intSourse 'Запись издержек на товарCells(Range("Издержки").ROW + 1, intTCol).FormulaR1C1 = Cells(Range("Издержки").ROW + 1, intSCol).FormulaR1C1 'ЗаписьзапасатовараbUFW = True 'Данные с формы считаныEndSubPrivateSubcbReplace_Click()EndSubPrivateSubUserForm_Activate()'Активация формы добавки/замены товараIfActiveSheet.Name<> "ИДХ" ThenExitSub 'Отказ активировать форму с любого листа, кроме ИДХCells(1, 1).Select 'Избегание неожиданностей с выделенным диапазономtbName.Text = "" 'Очистка поля для названияtbPriceArr.Text = "" 'Очистка поля для цены доставкиtbPriceSa.Text = "" 'Очистка поля для цены храненияtbYVol.Text = "" 'Очистка поля для объёма продажcbReplace.Value = False 'Выставление переключателя добавка/замена в положение "Добавка"tbColumn.Text = Trim(Str(WorksheetFunction.Count(Rows(NAMEROW + 1)) + 1)) + ASKINGCOL 'Индикация номера столбца для записи параметров добавляемого товараEndSubPublicFunctionReadyToWrite() AsBoolean'Проверка готовности данных на форме к записи на лист ИДХDimbDataReadyAsBoolean, bColSelAsBooleanIfLen(tbName.Text) AndWorksheetFunction.IsNumber(Val(tbPriceArr.Text)) AndWorksheetFunction.IsNumber(Val(tbPriceSa.Text)) _AndWorksheetFunction.IsNumber(Val(tbYVol.Text)) Then 'ЕслиданныехорошипотипуIfVal(tbPriceArr.Text) > 0 AndVal(tbPriceSa.Text) > 0 AndVal(tbYVol.Text) > 0 ThenbDataReady = True ' иположительныэтоотражаетсявbDataReadyElse 'В противном случаеMsgBox "Проверьте правильность и полноту ввода параметров товара.", vbOKOnly, "Соберитесь, предприниматель!" 'пользователя просят их исправитьReadyToWrite = False 'Функция возвращает неготовность данныхExitFunctionEndIfIf (cbReplace.ValueAndVal(tbColumn.Text) >WorksheetFunction.Count(Rows(NAMEROW + 1)) + ASKINGCOL) Or _ (cbReplace.Value = FalseAndVal(tbColumn.Text) <= WorksheetFunction.Count(Rows(NAMEROW + 1)) + ASKINGCOL) Then 'Еслипереключательдобавка/заменаиномерстолбцанесогласованыMsgBox "Вспомните разницу между заменить и добавить", vbOKOnly, "Соберитесь, предприниматель!" 'пользователя просят их исправитьReadyToWrite = False 'Функция возвращает неготовность данныхExitFunctionElse 'В противном случаеbColSel = True 'это отражается в bColSelEndIfReadyToWrite = bDataReadyAndbColSel 'Совмещение результатов двух проверокEndFunctionPublicFunctionMyMax(dArg1 AsDouble, dArg2 AsDouble) AsDouble'Возвращает аргумент, не меньший другогоIf dArg1 >= dArg2 ThenMyMax = dArg1ElseMyMax = dArg2EndIfEndFunctionИСХОДНЫЕ КОДЫ МОДУЛЯ ОБЩИХ ОБЪЯВЛЕНИЙOptionExplicit'Модуль глобальных объявлений'на рабочем листе ИДХPublicConst NAMEROW = 1 'Строка с названиями товаровPublicConst YVOLROW = 2 'Строка с годовым объёмом реализации товаровPublicConst ARRROW = 3 'Строка с ценой доставки товаровPublicConst SAROW = 4 'Строка с ценой доставки товаровPublicConst POISROW = 5 'Строка с пуассоновским параметром потока реализации товаровPublicConst ASKINGCOL = 2 'Столбец с количеством востребованного в течение дня товараPublicbUFWAsBoolean, bACFAsBooleanКОДМОДУЛЯ“Controlling”Option ExplicitPublic Sub PrepareAddReplace()ufAddReplace.ShowEnd Sub
1.2. Радченко Т.А. Дылевский А.В. Методы анализа систем массового обслуживания.
1.3. Уокенбах Д. Microsoft Excel 2013 Профессиональное программирова-ние на VBA. Диалектика, Москва-СПБ-Киев, 2014 г. 952 с.
1.4. Уокенбах Д. Microsoft Excel 2010Библия пользователя. Диалектика, Москва-СПБ-Киев, 2011 г. 785 с.
1.5. Роман С. Использование макросов в Excel. Питер, СПБ, 2004 г. 512 с.
Вопрос-ответ:
Что такое теория управления запасами и системы массового обслуживания?
Теория управления запасами и системы массового обслуживания - это научные дисциплины, изучающие методы и модели управления запасами товаров и услуг, а также организацией обслуживания клиентов в системе.
Какую роль играет программная среда Delfi 2 в теории управления запасами и систем массового обслуживания?
Программная среда Delfi 2 используется для моделирования и анализа процессов управления запасами и систем массового обслуживания. Она помогает разрабатывать оптимальные стратегии управления запасами и прогнозировать эффективность системы обслуживания.
Какие задания можно выполнить с помощью программной среды Delfi 2?
С помощью программной среды Delfi 2 можно выполнить задания по оптимизации управления запасами, моделированию и анализу систем массового обслуживания, прогнозированию спроса, расчету стоимости запасов и многое другое.
Какие программные средства можно использовать для выполнения заданий по теории управления запасами и системам массового обслуживания?
Для выполнения заданий по теории управления запасами и системам массового обслуживания можно использовать программные средства Delfi 2, Excel с использованием макросов и другие специализированные программы для моделирования и анализа данных.
Какие исходные коды программного средства Delfi 2 доступны в приведенной статье?
В приведенной статье доступны исходные коды программного средства Delfi 2, которые можно использовать для разработки и адаптации программного решения для управления запасами и системы массового обслуживания.
Что такое теория управления запасами и системы массового обслуживания?
Теория управления запасами и системы массового обслуживания - это научная дисциплина, изучающая методы и модели управления запасами товаров или услуг и оптимизацию процессов обслуживания клиентов.
В чем заключается первое задание при разработке программного средства в программной среде Delfi 2?
Первое задание при разработке программного средства в программной среде Delfi 2 заключается в выборе языка программирования и выполнении задания, связанного с разработкой функционала программы.
Какие программные средства можно использовать при выполнении второго задания?
При выполнении второго задания можно использовать различные программные средства, в зависимости от поставленных задач. Например, можно использовать среду разработки Delfi 2, Excel или другие программы, которые позволяют работать с данными и выполнять анализ.