Расчет стоимости складского помещения (или что-то похожее)
Заказать уникальную курсовую работу- 17 17 страниц
- 4 + 4 источника
- Добавлена 19.05.2009
- Содержание
- Часть работы
- Список литературы
- Вопросы/Ответы
Содержание
Введение
1.Общий раздел
1.1 Описание задач, список основных функций
1.2 Программные средства реализации задач
1.3 Технические средства реализации задач
2. Специальный раздел
2.1 Постановка задач
2.2 Описание алгоритма решения
2.3 Описание входных данных
2.4 Описание программы
2.5 Функциональное тестирование задач
Заключение
Список использованной литературы
Приложение 1. Функциональная схема программы
Приложение 2. Алгоритм реализации задачи
Приложение 3. Программные коды реализации
Activate
End Sub
Sub nagrev1()
Dim a() As Integer
Dim i As Integer, n As Integer, k As Integer, j As Integer, s As Integer
Dim k1 As Integer, z As Integer, r As Integer
Worksheets("Электроника").Activate
n = 0
i = 5
Do While Not IsEmpty(Cells(i + 1, 2))
i = i + 1
Loop
n = i
ReDim a(1 To n)
k = 0
For i = 6 To n
a(i - 5) = Cells(i, 3)
If a(i - 5) >= 1 Then k = k + 1
Cells(2, 4) = k
Next i
Worksheets("ИТОГО").Activate
k1 = Worksheets("Электроника").Cells(2, 4)
For j = 1 To 100
If Cells(j, 3) = "Электроника" Then
s = j
For i = 1 To k1
If i > 0 Then
Worksheets("ИТОГО").Rows(j + 1).Insert
End If
Next i
End If
Next j
v = s + 1
Worksheets("Электроника").Cells(6, 10) = v
Worksheets("Электроника").Activate
z = Cells(6, 10)
r = 2
For i = 6 To n
a(i - 5) = Cells(i, 3)
If a(i - 5) >= 1 Then
Worksheets("ИТОГО").Cells(z, r) = Worksheets("Электроника").Cells(i, 2)
Worksheets("ИТОГО").Cells(z, r + 3) = Worksheets("Электроника").Cells(i, 3)
Worksheets("ИТОГО").Cells(z, r + 4) = Worksheets("Электроника").Cells(i, 4)
Worksheets("ИТОГО").Cells(z, r + 5) = Worksheets("Электроника").Cells(i, 5)
z = z + 1
End If
Next i
Worksheets("ИТОГО").Activate
End Sub
Sub grunt1()
Dim a() As Integer
Dim i As Integer, n As Integer, k As Integer, j As Integer, s As Integer
Dim k1 As Integer, z As Integer, r As Integer
Worksheets("Компьютерная техника").Activate
n = 0
i = 5
Do While Not IsEmpty(Cells(i + 1, 2))
i = i + 1
Loop
n = i
ReDim a(1 To n)
k = 0
For i = 6 To n
a(i - 5) = Cells(i, 3)
If a(i - 5) >= 1 Then k = k + 1
Cells(2, 4) = k
Next i
Worksheets("ИТОГО").Activate
k1 = Worksheets("Компьютерная техника").Cells(2, 4)
For j = 1 To 120
If Cells(j, 3) = "Компьютерная техника" Then
s = j
For i = 1 To k1
If i > 0 Then
Worksheets("ИТОГО").Rows(j + 1).Insert
End If
Next i
End If
Next j
v = s + 1
Worksheets("Компьютерная техника").Cells(6, 10) = v
Worksheets("Компьютерная техника").Activate
z = Cells(6, 10)
r = 2
For i = 6 To n
a(i - 5) = Cells(i, 3)
If a(i - 5) >= 1 Then
Worksheets("ИТОГО").Cells(z, r) = Worksheets("Компьютерная техника").Cells(i, 2)
Worksheets("ИТОГО").Cells(z, r + 3) = Worksheets("Компьютерная техника").Cells(i, 3)
Worksheets("ИТОГО").Cells(z, r + 4) = Worksheets("Компьютерная техника").Cells(i, 4)
Worksheets("ИТОГО").Cells(z, r + 5) = Worksheets("Компьютерная техника").Cells(i, 5)
z = z + 1
End If
Next i
Worksheets("ИТОГО").Activate
End Sub
Sub dekor1()
Dim a() As Integer
Dim i As Integer, n As Integer, k As Integer, j As Integer, s As Integer
Dim k1 As Integer, z As Integer, r As Integer
Worksheets("Расходные материалы").Activate
n = 0
i = 5
Do While Not IsEmpty(Cells(i + 1, 2))
i = i + 1
Loop
n = i
ReDim a(1 To n)
k = 0
For i = 6 To n
a(i - 5) = Cells(i, 3)
If a(i - 5) >= 1 Then k = k + 1
Cells(2, 4) = k
Next i
Worksheets("ИТОГО").Activate
k1 = Worksheets("Расходные материалы").Cells(2, 4)
For j = 1 To 130
If Cells(j, 3) = "Расходные материалы (Камни. Коряги)" Then
s = j
For i = 1 To k1
If i > 0 Then
Worksheets("ИТОГО").Rows(j + 1).Insert
End If
Next i
End If
Next j
v = s + 1
Worksheets("Расходные материалы").Cells(6, 10) = v
Worksheets("Расходные материалы").Activate
z = Cells(6, 10)
r = 2
For i = 6 To n
a(i - 5) = Cells(i, 3)
If a(i - 5) >= 1 Then
Worksheets("ИТОГО").Cells(z, r) = Worksheets("Расходные материалы").Cells(i, 2)
Worksheets("ИТОГО").Cells(z, r + 3) = Worksheets("Расходные материалы").Cells(i, 3)
Worksheets("ИТОГО").Cells(z, r + 4) = Worksheets("Расходные материалы").Cells(i, 4)
Worksheets("ИТОГО").Cells(z, r + 5) = Worksheets("Расходные материалы").Cells(i, 5)
z = z + 1
End If
Next i
Worksheets("ИТОГО").Activate
End Sub
Sub fish1()
Dim a() As Integer
Dim i As Integer, n As Integer, k As Integer, j As Integer, s As Integer
Dim k1 As Integer, z As Integer, r As Integer
Worksheets("Бытовая техника").Activate
n = 0
i = 5
Do While Not IsEmpty(Cells(i + 1, 2))
i = i + 1
Loop
n = i
ReDim a(1 To n)
k = 0
For i = 6 To n
a(i - 5) = Cells(i, 3)
If a(i - 5) >= 1 Then k = k + 1
Cells(2, 4) = k
Next i
Worksheets("ИТОГО").Activate
k1 = Worksheets("Бытовая техника").Cells(2, 4)
For j = 1 To 180
If Cells(j, 3) = "Бытовая техника" Then
s = j
For i = 1 To k1
If i > 0 Then
Worksheets("ИТОГО").Rows(j + 1).Insert
End If
Next i
End If
Next j
v = s + 1
Worksheets("Бытовая техника").Cells(6, 10) = v
Worksheets("Бытовая техника").Activate
z = Cells(6, 10)
r = 2
For i = 6 To n
a(i - 5) = Cells(i, 3)
If a(i - 5) >= 1 Then
Worksheets("ИТОГО").Cells(z, r) = Worksheets("Бытовая техника").Cells(i, 2)
Worksheets("ИТОГО").Cells(z, r + 3) = Worksheets("Бытовая техника").Cells(i, 3)
Worksheets("ИТОГО").Cells(z, r + 4) = Worksheets("Бытовая техника").Cells(i, 4)
Worksheets("ИТОГО").Cells(z, r + 5) = Worksheets("Бытовая техника").Cells(i, 5)
z = z + 1
End If
Next i
Worksheets("ИТОГО").Activate
End Sub
Sub clean()
Dim i As Integer, s As Integer, j As Integer
Worksheets("Бытовая техника").Activate
Worksheets("Бытовая техника").Range("D6:D200").Clear
Worksheets("Аудио техника").Activate
Worksheets("Аудио техника").Range("C6:C200").Clear
Worksheets("Видео техника").Activate
Worksheets("Видео техника").Range("C6:C200").Clear
Worksheets("Мебель").Activate
Worksheets("Мебель").Range("C6:C200").Clear
Worksheets("Электроника").Activate
Worksheets("Электроника").Range("C6:C200").Clear
Worksheets("Компьютерная техника").Activate
Worksheets("Компьютерная техника").Range("C6:C200").Clear
Worksheets("Расходные материалы").Activate
Worksheets("Расходные материалы").Range("C6:C200").Clear
Worksheets("Бытовая техника").Activate
Worksheets("Бытовая техника").Range("C6:C200").Clear
Worksheets("ИТОГО").Activate
For j = 6 To 400
s = Cells(j, 5)
If s > 0 Then
For i = 6 To 400
v = Cells(i, 5)
If v > 0 Then Worksheets("ИТОГО").Rows(i).Delete
Next i
End If
Next j
End Sub
3
1.Экономическая информатика: Введение в экономический анализ информационных систем: Учебник. – М.: ИНФРА-М, 2005
2.Дэвид А. Марка и Клемент МакГоуэн «Методология структурного анализа и проектирования SADT».
3.http://www.bizeducation.ru/ - Прокимнов И. Управление складом.
4.http://www.avacco.ru/ - сайт компании AvaccoSoft.
Вопрос-ответ:
Как рассчитать стоимость складского помещения?
Для расчета стоимости складского помещения необходимо учитывать такие факторы, как площадь помещения, его условия и удобства, арендная плата, коммунальные платежи, затраты на оборудование и технику, стоимость услуг охраны и транспортировки товаров. Необходимо также учесть потенциальный доход от хранения товаров на складе и возможные риски потери товаров или повреждения. Все эти факторы позволят определить общую стоимость эксплуатации складского помещения и принять решение о его приобретении или аренде.
Какие основные функции должны быть реализованы в складском помещении?
Основные функции, которые должны быть реализованы в складском помещении, включают прием, хранение, сортировку и отгрузку товаров, контроль за остатками товаров, поддержание правильных условий хранения, обеспечение безопасности товаров и складских помещений, организацию инвентаризации и учета товаров. Также складское помещение должно обеспечивать удобство работы для сотрудников и клиентов, быстрый доступ к товарам и эффективную систему управления запасами.
Какие программные средства могут быть использованы для реализации задач складского помещения?
Для решения задач складского помещения могут быть использованы различные программные средства, такие как программы складского учета и управления запасами, программы автоматизации процессов приема, хранения и отгрузки товаров, программы для работы с базами данных и учетными системами, программы мониторинга условий хранения и безопасности на складе. Также может быть использовано специализированное программное обеспечение для оптимизации процессов и принятия решений на основе данных о запасах и спросе на товары.
Какие технические средства могут быть использованы для реализации задач складского помещения?
Для реализации задач складского помещения могут быть использованы различные технические средства, такие как системы автоматизации складских процессов (конвейеры, роботы, сортировочные машины), системы хранения и перемещения товаров (стеллажи, подъемники, автоматические склады), системы контроля запасов и остатков товаров (штрих-коды, RFID-метки), системы мониторинга условий хранения (термометры, гигрометры, датчики), системы безопасности (камеры видеонаблюдения, датчики движения, системы контроля доступа). Эти технические средства позволяют оптимизировать работу склада, повысить эффективность процессов и обеспечить безопасность товаров и складских помещений.
Как рассчитать стоимость складского помещения?
Для расчета стоимости складского помещения необходимо учесть такие факторы, как площадь помещения, его состояние, наличие дополнительных объектов инфраструктуры (например, вентиляционных систем, противопожарных устройств и т.д.), а также расположение склада (близость к транспортным развязкам, наличие удобных подъездных путей и т.д.).
Какие программные средства используются для реализации задачи расчета стоимости складского помещения?
Для реализации задачи расчета стоимости складского помещения могут использоваться различные программные средства, такие как программы для 3D моделирования и визуализации помещений, программы для расчета стоимости строительства и ремонта, программы для анализа рыночных цен на недвижимость.
Какие технические средства могут быть использованы при реализации задачи расчета стоимости складского помещения?
При реализации задачи расчета стоимости складского помещения могут быть использованы различные технические средства, такие как компьютеры, программное обеспечение, средства связи (интернет), фото- и видеоаппараты для фиксации состояния помещения и т.д.
Какой алгоритм решения применяется при расчете стоимости складского помещения?
Алгоритм решения при расчете стоимости складского помещения может включать следующие шаги: определение площади помещения, проведение оценки состояния помещения и необходимых ремонтных работ, анализ рыночных цен на аналогичные складские помещения, учет дополнительных факторов (расположение, инфраструктура и т.д.) и, наконец, расчет конечной стоимости помещения.