Библиографический список. Проверка результата расчетов средствами MS Excel

Вывод

Проверка результата расчетов средствами MS Excel

Результат расчетов средствами VBA

Исходные данные выбранные самостоятельно

Рис 3. Исходные данные выбранные самостоятельно

Рис 4. Результат расчетов средствами VBA

Рис 5. Проверка результата расчетов средствами MS Excel

Проверка результата расчетов средствами MS Excel(Формульный лист)

Рис 6. Формульный лист

График зависимости дохода от времени разгрузки

Рис 7. График зависимости дохода от времени разгрузки

Вывод: в данной курсовой работе был рассмотрен метод вычисления дохода, полученный от перевозки груза на автомобиле «Краз-256Б1» по маятниковой схеме. Я рассчитал изменение дохода в зависимости от времени выгрузки товара. Изучив полученные данные, приходим к выводу, что при времени выгрузки доход уменьшается. В этом можно убедиться, посмотрев на рисунке 7.

а) основная литература:

1. Информатика: учебник / под ред. В.В. Трофимова.- М.: Издательство Юрайт: ИД Юрайт, 2011.- 911с.

2. Информатика. Базовый курс: учебник для вузов. / под ред. С.В. Симоновича.- 3-е изд. Стандарт третьего поколения.- СПб.: Питер, 2014.- 640 с.: ил

3. Грошев А.С. Информатика /А.С.Грошев, П.В. Закляков. 2-е изд. – М.: ДМК «Пресс», 2014.- 592 с.

б) дополнительная литература:

1. Алексеев. А.П. Информатика 2007. –M.: СОЛОН-ПРЕСС, 2007. – 608 с. ил.- (Серия «Библиотека студента»).

2. Шапорев С.Д. Информатика. Теоретический курс и практические занятия. – СПб: БХВ - Петербург, 2008. – 480 с. ил. – (Учебная литература для вузов).

3. Уокенбах, Джон. Профессиональное программирование на VBA в Excel 2003.: Пер. с англ. – М: Издательский дом “Вильямс”,2005. -800 с.: ил. – Парал.тит.англ.

ПРИЛОЖЕНИЕ 1

Приложение с программой VBA

Type park

nom1 As Integer 'порядковый номер 1

marka As String 'марка автомобиля

G As Double 'грузоподъемность

V As Double 'среднетехническая скорость

J As Double 'коэффициент использования грузоподъемности

End Type

Type dop

nom2 As Integer 'порядковый номер 2

izm As String 'изменяющийся параметр

nach As Double 'начальное значение

kon As Double 'конечное значение

shag As Double 'шаг изменения

End Type

Option Explicit

Sub KR_V_42_2015()

Dim auto(9) As park

Dim dopl(9) As dop

Dim i As Double 'счетчик

Dim n1 As Integer 'предпоследняя цифра зачетки

Dim n2 As Integer 'последняя цифра зачетки

Dim L As Double 'расстояние

Dim Tp As Double 'время погрузки

Dim Tv As Double 'время выгрузки

Dim t As Double 'время в наряде

Dim r As Double 'тариф

Dim T0 As Double 'время оборота

Dim Z0 As Double 'кол-во полных оборотов

Dim Dt As Double 'оставшееся время

Dim Z1 As Double 'кол-во ездок на последнем обороте

Dim Z As Double 'общее кол-во ездок

Dim Q As Double 'объем перевозок

Dim P As Double 'грузооборот

Dim D As Double 'доход

Dim G As Double 'грузоподъемность

Dim V As Double 'скорость

Dim J As Double 'коэффициент грузоподъемности

Dim Pizm As String 'изменяющийся параметр

Dim Pnach As Double 'начальное значение изменяющегося параметра

Dim Pkon As Double 'конечное значение изменяющегося параметра

Dim Pshag As Double 'шаг изменения параметра

'Вводим в память ПК данные автопарка

Worksheets("Грузовой автомобильный автопарк").Select

For i = 0 To 9

With auto(i)

.nom1 = Cells(i + 5, 1) 'из первого столбца таблицы данные автопарка

.marka = Cells(i + 5, 2)

.G = Cells(i + 5, 3)

.V = Cells(i + 5, 4)

.J = Cells(i + 5, 5)

End With

Next i

'Выбираем свой автомобиль и выводим данные в 16 строку

n1 = Val(InputBox("Введите предпоследнюю цифру зачетки"))

For i = 0 To 9

With auto(i)

If auto(i).nom1 = n1 Then

Cells(16, 1) =.nom1

Cells(16, 2) =.marka

Cells(16, 3) =.G

Cells(16, 4) =.V

Cells(16, 5) =.J

End If

End With

Next i

G = Cells(16, 3) 'грузоподъемность

'выбираем из 16 строки, 3 столбца, 1 листа

V = Cells(16, 4) 'коэффициент использования грузоподъемности

'выбираем из 16 строки, 4 столбца, 1 листа

J = Cells(16, 5) 'коэффициент использования грузоподъемности

'выбираем из 16 строки, 5 столбца, 1 листа

'Вводим в память ПК дополнительные данные

Worksheets("Дополнительные сведения").Select

For i = 0 To 9

With dopl(i)

.nom2 = Cells(i + 5, 1) 'из первого столбца таблицы допол. данные

.izm = Cells(i + 5, 2)

.nach = Cells(i + 5, 3)

.kon = Cells(i + 5, 4)

.shag = Cells(i + 5, 5)

End With

Next i

'Выбираем изменяющийся параметр

n2 = Val(InputBox("Введите последнюю цифру зачетки"))

For i = 0 To 9

With dopl(i)

If dopl(i).nom2 = n2 Then

Cells(16, 1) =.nom2

Cells(16, 2) =.izm

Cells(16, 3) =.nach

Cells(16, 4) =.kon

Cells(16, 5) =.shag

End If

End With

Next i

'выбираем из 16 строки, из столбцов 2 - 5, 2 листа

Pizm = Cells(16, 2) 'изменяющийся параметр - строка

Pnach = Cells(16, 3) 'начальное значение изменяющегося параметра

Pkon = Cells(16, 4) 'конечное значение изменяющегося параметра

Pshag = Cells(16, 5) 'шаг изменения параметра

Worksheets("Результаты выпонения программы").Select

'считываем исходные данные из таблицы на Листе 3

L = Cells(8, 2) 'Расстояние L, км

Tp = Cells(9, 2) 'Время погрузки Тр,ч

Tv = Cells(10, 2) 'Время выгрузки Тv,ч

t = Cells(11, 2) 'Время в наряде t,ч

r = Cells(12, 2) 'Тариф за перевозку одной тонны груза r,руб

'создание заголовка над таблицей (шапка таблицы = 15 строка)

Cells(15, 1) = Pizm 'текстовая строка = изменяющийся параметр (Tv)

Cells(15, 2) = "Время оборота T0"

Cells(15, 3) = "Кол-во полных оборотов Z0"

Cells(15, 4) = "Время оставшиеся после выполнения Z0 полных оборотов Dt"

Cells(15, 5) = "Кол-во ездок на последнем обороте Z1"

Cells(15, 6) = "Кол-во ездок Z"

Cells(15, 7) = "Объем перевозок Q"

Cells(15, 8) = "Грузооборот P"

Cells(15, 9) = "Доход D"

i = 0 'обнулили индекс,для использования его в таб. результатов

'организуем цикл по данным 16 строки 2-го листа

'по изменяющемуся параметру - Время выгрузки Tv, ч

For Tv = Pnach To Pkon Step Pshag

i = i + 1 '№ п/п в таблице результатов

'вычисление расчетной зависимости

T0 = 2 * L / V + Tp + Tv 'Время оборота

Z0 = Int(t / T0) 'Кол-во полных оборотов

Dt = t - T0 * Z0 'Время оставшиеся после выполнения Z0 полных оборотов

If Dt >= (L / V + Tp + Tv) Then Z1 = 1 Else Z1 = 0

Z = Z0 + Z1 'Кол-во ездок

Q = G * J * Z 'Объем перевозок

P = Q * L 'Грузооборот

D = r * Q 'Доход

'вывод значений расчетной зависимости в строку i+15

Cells(i + 15, 1) = Tv 'изм. параметр - Время выгрузки Tv, ч

Cells(i + 15, 2) = T0

Cells(i + 15, 3) = Z0

Cells(i + 15, 4) = Dt

Cells(i + 15, 5) = Z1

Cells(i + 15, 6) = Z

Cells(i + 15, 7) = Q

Cells(i + 15, 8) = P

Cells(i + 15, 9) = D

Next Tv

Worksheets("Лист4").Select

'Очищаем 4 лист для таблицы результатов

Range(Cells(1, 1), Cells(100, 100)).Select

Selection.Clear

Cells(1, 1).Select

End Sub

Дата добавления: 2015-08-31