Экономические модели сводящиеся к транспортной модели

Автор: Пользователь скрыл имя, 12 Апреля 2012 в 01:27, курсовая работа

Краткое описание

Целью проекта является автоматизация процесса решения задач формирования оптимального штата фирмы. Для достижения данной цели необходимо выполнить следующие задачи:
изучить предметную область;
разобрать методы решения задач, а именно решение транспортных задач;
рассмотреть принципы использования прикладных программ для расчета основных характеристик модели задачи формирования оптимального штата фирмы;
разобрать приложение, позволяющее автоматизировать процесс решения задачи курсового проекта.

Оглавление

Введение 4
1 Теоретическая часть 5
1.1 Экономические задачи, сводящиеся к транспортной модели 5
1.2 Метод дифференциальных рент, для решения транспортной задач 6
2 Практическая часть 13
2.1 Решение задачи с помощью математического аппарата 13
2.2 Решение задачи с помощью прикладных программ 17
2.3 Автоматизация решения задачи 19
Заключение 21
Библиографический список 22
Приложение А Блок-схема алгоритма задачи 23
Приложение В Листинг модуля Excel 24

Скачать в ZIP (289.73 Кб) Сколько стоит заказать работу?
Файлы: 1 файл

Мат методы юля.docx

— 310.77 Кб (Скачать)

     UserForm2.TextBox10.Visible = False

     UserForm2.TextBox11.Visible = False

     UserForm2.TextBox12.Visible = False

     UserForm2.TextBox13.Visible = False

     UserForm2.TextBox14.Visible = False

     UserForm2.TextBox15.Visible = False

     UserForm2.TextBox16.Visible = False

     UserForm2.Label3.Visible = False

     UserForm2.Label4.Visible = False

     UserForm2.Label7.Visible = False

     UserForm2.Label8.Visible = False

     End If

     If (ComboBox1.Text = "3") Then

     UserForm2.TextBox13.Visible = False

      UserForm2.TextBox14.Visible = False

      UserForm2.TextBox15.Visible = False

      UserForm2.TextBox16.Visible = False

      UserForm2.TextBox4.Visible = False

     UserForm2.TextBox8.Visible = False

      UserForm2.TextBox12.Visible = False

     UserForm2.TextBox16.Visible = False

     UserForm2.Label4.Visible = False

      UserForm2.Label8.Visible = False

     End If

     UserForm2.Show

     End Sub

     Private Sub UserForm_Click()

     End Sub

     Private Sub UserForm_Initialize()

     ComboBox1.Text = "2"

     ComboBox1.AddItem "2"

     ComboBox1.AddItem "3"

     ComboBox1.AddItem "4"

     End Sub

     Private Sub CommandButton1_Click()

     If (UserForm1.ComboBox1.Text = "2") Then If (TextBox1.Text = "") Or (TextBox2.Text = "") Or (TextBox5.Text = "") Or (TextBox6.Text = "") Then MsgBox "Заполните все поля"

     If (UserForm1.ComboBox1.Text = "3") Then

     If (TextBox1.Text = "") Or (TextBox2.Text = "") Or (TextBox3.Text = "") Or (TextBox5.Text = "") Or (TextBox6.Text = "") Or (TextBox7.Text = "") Or (TextBox9.Text = "") Or (TextBox10.Text = "") Or (TextBox11.Text = "") Then MsgBox "Заполните все поля"

     End If 

     If (UserForm1.ComboBox1.Text = "4") Then

     If (TextBox1.Text = "") Or (TextBox2.Text = "") Or (TextBox3.Text = "") Or (TextBox4.Text = "") Or (TextBox5.Text = "") Or (TextBox6.Text = "") Or (TextBox7.Text = "") Or (TextBox8.Text = "") Or (TextBox9.Text = "") Or (TextBox10.Text = "") Or (TextBox11.Text = "") Or (TextBox12.Text = "") Or (TextBox13.Text = "") Or (TextBox14.Text = "") Or (TextBox15.Text = "") Or (TextBox16.Text = "") Then MsgBox "Заполните все поля" 

     End If

     Worksheets("ИсходныеДанные").Range("A1") = TextBox1.Text

     Worksheets("ИсходныеДанные").Range("B1") = TextBox2.Text

     Worksheets("ИсходныеДанные").Range("C1") = TextBox3.Text

     Worksheets("ИсходныеДанные").Range("D1") = TextBox4.Text

     Worksheets("ИсходныеДанные").Range("A2") = TextBox5.Text

     Worksheets("ИсходныеДанные").Range("B2") = TextBox6.Text

     Worksheets("ИсходныеДанные").Range("C2") = TextBox7.Text

     Worksheets("ИсходныеДанные").Range("D2") = TextBox8.Text

     Worksheets("ИсходныеДанные").Range("A3") = TextBox9.Text

     Worksheets("ИсходныеДанные").Range("B3") = TextBox10.Text

     Worksheets("ИсходныеДанные").Range("C3") = TextBox11.Text

     Worksheets("ИсходныеДанные").Range("D3") = TextBox12.Text

     Worksheets("ИсходныеДанные").Range("A4") = TextBox13.Text

     Worksheets("ИсходныеДанные").Range("B4") = TextBox14.Text

     Worksheets("ИсходныеДанные").Range("C4") = TextBox15.Text

     Worksheets("ИсходныеДанные").Range("D4") = TextBox16.Text 
 

     UserForm2.TextBox1.Text = Clear

     UserForm2.TextBox2.Text = Clear

     UserForm2.TextBox3.Text = Clear

     UserForm2.TextBox4.Text = Clear

     UserForm2.TextBox5.Text = Clear

     UserForm2.TextBox6.Text = Clear

     UserForm2.TextBox7.Text = Clear

     UserForm2.TextBox8.Text = Clear

     UserForm2.TextBox9.Text = Clear

     UserForm2.TextBox10.Text = Clear

     UserForm2.TextBox11.Text = Clear

     UserForm2.TextBox12.Text = Clear

     UserForm2.TextBox13.Text = Clear

     UserForm2.TextBox14.Text = Clear

     UserForm2.TextBox15.Text = Clear

     UserForm2.TextBox16.Text = Clear 

     End Sub

     Private Function ValidateNumeric(strText As String) _

     As Boolean

     ValidateNumeric = CBool(strText = "" _

     Or strText = "-." _

     Or strText = "." _

     Or IsNumeric(strText))

     End Function

     Private Sub TextBox1_Change()

     If Not ValidateNumeric(TextBox1.Text) Then

     TextBox1.Text = ""

     End If

     End Sub

     Private Sub TextBox2_Change()

     If Not ValidateNumeric(TextBox2.Text) Then

     TextBox2.Text = ""

     End If

     End Sub

     Private Sub TextBox3_Change()

     If Not ValidateNumeric(TextBox3.Text) Then

     TextBox3.Text = ""

     End If

     End Sub

     Private Sub TextBox4_Change()

     If Not ValidateNumeric(TextBox4.Text) Then

     TextBox4.Text = ""

     End If

     End Sub 

     Private Sub TextBox5_Change()

     If Not ValidateNumeric(TextBox5.Text) Then

     TextBox5.Text = ""

     End If

     End Sub

     Private Sub TextBox6_Change()

     If Not ValidateNumeric(TextBox6.Text) Then

     TextBox6.Text = ""

     End If

     End Sub

     Private Sub TextBox7_Change()

     If Not ValidateNumeric(TextBox7.Text) Then

     TextBox7.Text = ""

     End If

     End Sub

     Private Sub TextBox8_Change()

     If Not ValidateNumeric(TextBox8.Text) Then

     TextBox8.Text = ""

     End If

     End Sub

     Private Sub TextBox9_Change()

     If Not ValidateNumeric(TextBox9.Text) Then

     TextBox9.Text = ""

     End If

     End Sub

     Private Sub TextBox10_Change()

     If Not ValidateNumeric(TextBox10.Text) Then

     TextBox10.Text = ""

     End If

     End Sub

     Private Sub TextBox11_Change()

     If Not ValidateNumeric(TextBox11.Text) Then

     TextBox11.Text = ""

     End If

     End Sub

     Private Sub TextBox12_Change()

     If Not ValidateNumeric(TextBox12.Text) Then

     TextBox12.Text = ""

     End If

     End Sub

     Private Sub TextBox13_Change()

     If Not ValidateNumeric(TextBox13.Text) Then

     TextBox13.Text = ""

     End If

     End Sub

     Private Sub TextBox14_Change()

     If Not ValidateNumeric(TextBox14.Text) Then

     TextBox14.Text = ""

     End If

     End Sub

     Private Sub TextBox15_Change()

     If Not ValidateNumeric(TextBox15.Text) Then

     TextBox15.Text = ""

     End If

     End Sub

     Private Sub TextBox16_Change()

     If Not ValidateNumeric(TextBox16.Text) Then

     TextBox16.Text = ""

     End If

     End Sub


Информация о работе Экономические модели сводящиеся к транспортной модели