Файл: Вдовин Суркова Валентинов Теория систем и системный анализ.pdf

554

555

d) Учет продаж предприятия. Осуществляется путем фор-

мирования базы продаж на листе “Excel”. Ввод данных по про-

дажам производится из диалогового окна “Учет продаж пред-

приятия”, которое вызывается путем нажатия соответствующей

кнопки в меню “Учет”.

е) На листе “Анализ рынка” формируется каталог товаров, 

данные по количеству товаров на складе, по затратам на закупки

и выручке от продаж начиная с момента начала функционирова-

ния системы. Формируются также данные по динамике закупок,

продаж за период. Все данные вычисляются при осуществлении 

очередного учета (продажи) товара.

Вид таблицы (листа) приведен на рис. 3.61.

f) Анализ товаров на складе. Для оценки и анализа интен-

сивности закупок и продаж товаров с определением параметров,

характеризующих их законы распределения, формируется

таблица “Склад”. Управление листом, на котором расположена 

эта таблица, осуществляется путем нажатия соответствую-

щей кнопки в меню “Склад”. Вид таблицы (листа) приведен на 

рис. 3.62.

g) Формирование бюджета предприятия. Формирование

бюджета предприятия осуществляется в такой последователь-

ности:

1) накапливаются статистические данные, связывающие

величину прибыли предприятия с вариантами распределения 

денежных средств по статьям бюджета (рис. 3.63);

2) формируется уравнение регрессии, устанавливающее

зависимость прибыли от распределения денежных средств по 

статьям бюджета;

3) с использованием технологии “Поиск решения” осу-

ществляется оптимизация распределения денежных средств

по статьям бюджета.

Статьи бюджета предприятия (вариант) приведены на

рис. 3.63. В качестве изменяемых ячеек при решении задачи

оптимизации могут быть приняты ячейки в строках расходов 

предприятия, ограничения — ячейки в строках отчислений. 

h) Анализ финансового состояния предприятия.

Рис. 3.61. Лист Excel с таблицей “Анализ рынка”

556

557

Рис. 3.62. Лист Excel с таблицей “Склад”

Рис. 3.63. Формирование бюджета предприятия

556

557

Рис. 3.62. Лист Excel с таблицей “Склад”

Рис. 3.63. Формирование бюджета предприятия

558

559

Рис. 3.64. Анализ финансового состояния предприятия

Оценка финансового состояния предприятия осуществляется

аналитическими методами. Показатели, полученные в результате

имитационного моделирования процессов закупок, производства и

продаж, используются для вычисления показателей, характери-

зующих финансовое состояние предприятия (рис. 3.64).

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

моделирования

Здесь приведены основные программы (макросы), имити-

рующие процесс закупок и процесс продаж.

Запуск макроса “Учет закупок” осуществляется нажатием 

кнопки “Ввести данные” (CommandButton3) в диалоговом окне 

формы “Учет закупок предприятия”.

а) 
Учет закупок предприятия. 

Private Sub CommandButton3_Click()

Dim k As Integer, ag As String, af As String, ss As Double

k = Лист3.Cells(3, 11)

Лист3.Cells(3 + k, 1) = Лист3.Cells(3, 11) + 1

Лист3.Cells(k + 3, 2) = ComboBox1

Лист3.Cells(k + 3, 3) = ComboBox2

Лист3.Cells(k + 3, 4) = Val(TextBox4.Text) 'Объем закупок

af = ComboBox1: os = Val(TextBox4.Text)

Лист3.Cells(k + 3, 5) = TextBox5 'Дата закупок

Лист3.Cells(k + 3, 7) = Val(TextBox6.Text) ‘Стоимость еди-

ницы товара

Лист3.Cells(k + 3, 8) = Val(TextBox7.Text) ‘Величина пре-

доплаты

Лист3.Cells(k + 3, 6) = TextBox8 ‘Номер накладной

With Лист3.Cells(k + 3, 9).Font

 .Name = “Arial Cyr”: .FontStyle = “обычный”

 .Size = 12: .Strikethrough = False

 .Superscript = False: .Subscript = False

 .OutlineFont = False: .Shadow = False

 .Underline = xlUnderlineStyleNone

.ColorIndex = 1

End With

nom = 0

558

559

Рис. 3.64. 

Анализ финансового состояния предприятия

Оценка финансового состояния предприятия осуществляется 

аналитическими методами. Показатели, полученные в результате 
имитационного моделирования процессов закупок, производства и 
продаж, используются для вычисления показателей, характери-
зующих финансовое состояние предприятия (рис. 3.64).

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

моделирования

Здесь приведены основные программы (макросы), имити-

рующие процесс закупок и процесс продаж.

Запуск макроса “Учет закупок” осуществляется нажатием 

кнопки “Ввести данные” (CommandButton3) в диалоговом окне 
формы “Учет закупок предприятия”.

а) Учет закупок предприятия. 
Private Sub CommandButton3_Click()
Dim k As Integer, ag As String, af As String, ss As Double
k = Лист3.Cells(3, 11)
Лист3.Cells(3 + k, 1) = Лист3.Cells(3, 11) + 1
Лист3.Cells(k + 3, 2) = ComboBox1
Лист3.Cells(k + 3, 3) = ComboBox2
Лист3.Cells(k + 3, 4) = Val(TextBox4.Text) 'Объем закупок
af = ComboBox1: os = Val(TextBox4.Text)
Лист3.Cells(k + 3, 5) = TextBox5 'Дата закупок
Лист3.Cells(k + 3, 7) = Val(TextBox6.Text) ‘Стоимость еди-

ницы товара

Лист3.Cells(k + 3, 8) = Val(TextBox7.Text) ‘Величина пре-

доплаты

Лист3.Cells(k + 3, 6) = TextBox8 ‘Номер накладной
With Лист3.Cells(k + 3, 9).Font
 .Name = “Arial Cyr”: .FontStyle = “обычный”
 .Size = 12: .Strikethrough = False
 .Superscript = False: .Subscript = False
 .OutlineFont = False: .Shadow = False
 .Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
nom = 0