Вход

Расчет стоимости складского помещения (или что-то похожее)

Рекомендуемая категория для самостоятельной подготовки:
Курсовая работа*
Код 345709
Дата создания 06 июля 2013
Страниц 17
Мы сможем обработать ваш заказ (!) 29 марта в 12:00 [мск]
Файлы будут доступны для скачивания только после обработки заказа.
1 310руб.
КУПИТЬ

Содержание


Содержание
Введение
1.Общий раздел
1.1 Описание задач, список основных функций
1.2 Программные средства реализации задач
1.3 Технические средства реализации задач
2. Специальный раздел
2.1 Постановка задач
2.2 Описание алгоритма решения
2.3 Описание входных данных
2.4 Описание программы
2.5 Функциональное тестирование задач
Заключение
Список использованной литературы
Приложение 1. Функциональная схема программы
Приложение 2. Алгоритм реализации задачи
Приложение 3. Программные коды реализации

Введение

Расчет стоимости складского помещения (или что-то похожее)

Фрагмент работы для ознакомления

Worksheets("ИТОГО").Activate
k1 = Worksheets("Аудио техника").Cells(2, 4)
For j = 1 To 85
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 fvnesh1()
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 90
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 komp1()
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 95
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 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

Список литературы


1.Экономическая информатика: Введение в экономический анализ информационных систем: Учебник. – М.: ИНФРА-М, 2005
2.Дэвид А. Марка и Клемент МакГоуэн «Методология структурного анализа и проектирования SADT».
3.http://www.bizeducation.ru/ - Прокимнов И. Управление складом.
4.http://www.avacco.ru/ - сайт компании AvaccoSoft.

Очень похожие работы
Пожалуйста, внимательно изучайте содержание и фрагменты работы. Деньги за приобретённые готовые работы по причине несоответствия данной работы вашим требованиям или её уникальности не возвращаются.
* Категория работы носит оценочный характер в соответствии с качественными и количественными параметрами предоставляемого материала. Данный материал ни целиком, ни любая из его частей не является готовым научным трудом, выпускной квалификационной работой, научным докладом или иной работой, предусмотренной государственной системой научной аттестации или необходимой для прохождения промежуточной или итоговой аттестации. Данный материал представляет собой субъективный результат обработки, структурирования и форматирования собранной его автором информации и предназначен, прежде всего, для использования в качестве источника для самостоятельной подготовки работы указанной тематики.
bmt: 0.00516
© Рефератбанк, 2002 - 2024