Учебная работа. Курсовая работа: Программирование на Визуал Бейсик

Учебная работа. Курсовая работа: Программирование на Визуал Бейсик

__________________________________________________________________

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ

РОССИЙСКОЙ ФЕДЕРАЦИИ

ИДО ГОУ МГИУ

Курсовая работа

по дисциплине «Информатика»

Задание:4

Группа:Пм08М21

Студент: Ветлужских Татьяна Юрьевна

Управляющий: Суворов Станислав Вадимович

Москва 2009

__________________________________________________________________

Содержание

1) Задание на курсовую работу……………………………………………
3

2) Описание переменных……………………………………………………
4

3) Блок-схема……………………………………………………………….
7

4) Описание метода…………………………………………………….
9

5) Листинг программки………………………………………………………
10

6) Описание входных данных и итог вычислений…………………
12

7) Перечень использованной литературы……………………………………
17

Задание на курсовую работу

Склад готовой продукции цеха каждую смену воспринимает готовые изделия (гайки, болты, шайбы, и т.п., всего 9 видов изделий) и каждую смену посылает готовые изделия остальным цехам. Склад, как цех, работает в 3 смены. В конце 3-й смены подсчитываются остатки.

Написать программку на языке VBA, которая вводит начальные данные, делает расчеты и выводит на экран:

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

— стоимость остатка от прошлых суток;

— остаток всякого вида изделий на начало последующего рабочего денька;

— стоимость остатка в конце каждой смены;

— наименование изделия, пользовавшегося в течение 3-х смен большим спросом.

Описание переменных

Начальные данные находятся на листе «Нач_д» (рис. 1) и содержат последующую информацию:

1) Наименование изготавливаемых деталей (9 типов).

2) Стоимость одной детали всякого наименования.

3) Остаток изделий от прошедших суток.

4) Поступления на склад за каждую смену изделий.

5) Отпуск со склада изделий за каждую смену.

Результаты работы программки оформляются на листе «Итог»
(рис. 2).

В программке переменные описаны последующим образом:

1) Ostatok – стоимость остатка от прошлых суток представляет дробное число

Dim Ostatok As Double

2) Ost_izd(9) – остаток всякого вида изделий на начало последующего рабочего денька представляет массив целых чисел

Dim Ost_izd(9) As Integer

3) Ost_smena(3) – стоимость остатка в конце каждой смены представляет массив дробных чисел

Dim Ost_smena(3) As Double

вспомогательные переменные для определения наименования изделия, пользовавшегося в течение 3-х смен большим спросом

4) Otpusk(9) – отпуск всякого вида изделия за 3 смены представляет массив целых чисел

Dim Otpusk(9) As Integer

5) Ind – индекс элемента в массиве Otpusk(9), соответственного изделию с наибольшим спросом представляет целое число

Dim Ind As Integer

6) MaxSp – наибольшее

DimMaxSpAsInteger

В программке так же были применены вспомогательные переменные, счетчики циклов,
и
, являющиеся целыми числами

Dim i As Integer, j As Integer

Переменные Ostatok, Ost_smena(3), могут быть и не целыми числами, потому они объявлены как действительные. Переменные — Ost_izd(9), Otpusk(9), MaxSp – целые числа, потому что мы считаем что склад воспринимает и отпускает целые детали, а не их части.

Блок-схема

Описание метода

Открытие листа «Нач_д» для ввода начальных данных.

Ввод исходных (нулевых) значений для расчета величин (стоимость всякого из изделий, остаток от прошедших суток, поступления изделий в каждую из 3-х смен, отпуск изделий в каждую из смен).

Пуск расчета нужных данных средством нажатия на клавишу «Высчитать».

1-ый шаг расчетов проводится на базе 2-ух вложенных циклов. порядок расчета нужных данных последующий: расчет цены остатка (Ostatok); расчет остатка всякого вида изделия за день (Ost_izd(9)) с вяводом результатов расчета в лист «Результаты»; расчет отпуска всякого из видов изделия за день (Otpusk(9)); расчет цены остатка в конце каждой смены (Ost_smena(3)).

Вывод рассчитанных данных в лист «Результаты».

На втором шаге расчетов проводится поиск изделия, пользующегося наибольшим спросов средством поочередного сопоставления спроса на каждое из изделий.

Вывод в листе «Результаты» наименование изделия, пользующегося наибольшим спросом.

Программное открытие листа «Результаты».

Клавиша «Очистить поля» нужна для чистки рассчитанных полей.

Листинг
программки

Листинг программки расчета, запускаемой по нажатию клавиши «Высчитать» приведен ниже.

Private Sub CommandButton1_Click()

‘переменные

Dim Ostatok As Double

Dim Ost_izd(9) As Integer

Dim Ost_smena(3) As Double

Dim Otpusk(9) As Integer

Dim Ind As Integer

Dim MaxSp As Integer

Dim i As Integer, j As Integer

Sheets(«Нач_д»).Select

Ostatok = 0

For i = 1 To 9

‘стоимостьостатка

Ostatok = Ostatok + Cells(3 + i, 2) * Cells(3 + i, 3)

‘остатоккаждоговидаизделей

Ost_izd(i) = Cells(3 + i, 3) + Cells(3 + i, 4) + Cells(3 + i, 5) + Cells(3 + i, 6) — Cells(3 + i, 7) — Cells(3 + i, 8) — Cells(3 + i, 9)

Sheets(«Результаты»).Cells(4 + i, 2) = Ost_izd(i)

‘отпускизделий

Otpusk(i) = Cells(3 + i, 7) + Cells(3 + i, 8) + Cells(3 + i, 9)

‘стоимость остатка в конце каждой смены

For j = 1 To 3

Ost_smena(j) = Ost_smena(j) + (Cells(3 + i, 3 + j) — Cells(3 + i, 6 + j)) * Cells(3 + i, 2)

Next

Next

‘выводрезультатов

Sheets(«Результаты»).Cells(1, 2) = Ostatok

Sheets(«Результаты»).Cells(16, 2) = Ost_smena(1)

Sheets(«Результаты»).Cells(17, 2) = Ost_smena(2)

Sheets(«Результаты»).Cells(18, 2) = Ost_smena(3)

‘поиск изделия с наибольшим спросом

Ind = 1

MaxSp = Otpusk(Ind)

For i = 2 To 9

If Otpusk(i) > MaxSp Then

Ind = i

MaxSp = Otpusk(i)

End If

Next

Sheets(«Результаты»).Cells(21, 2) = Sheets(«Нач_д»).Cells(3 + Ind, 1)

Sheets(«Результаты»).Select

End Sub

Листинг программки чистки рассчитанных полей листа «Результаты» по нажатию клавиши «Очистить поля» приведен ниже.

Private Sub CommandButton1_Click()

Dim i As Integer

Sheets(«Результаты»).Cells(1, 2) = «»

For i = 5 To 13

Sheets(«Результаты»).Cells(i, 2) = «»

Next

Sheets(«Результаты»).Cells(16, 2) = «»

Sheets(«Результаты»).Cells(17, 2) = «»

Sheets(«Результаты»).Cells(18, 2) = «»

Sheets(«Результаты»).Cells(21, 2) = «»

End Sub

Описание входных данных и итог вычислений

1. Проверка работы программки на всех нулях

2. Проверка работы программки на всех единицах

3. Случайная проверка

Перечень использованной литературы

1. Информатика. часть 1. Введение в информатику: учебное пособие / Гришин М.П., Иванов М.Н., Носова Т.К., Суворов С.В. М.: МГИУ, 2008.

2. Информатика. Методическое пособие по выполнению практических работ в компьютерном классе (Word, Excel) / Гришин М.П. М.: МГИУ, 2005.

3. Информатика. часть 2. Программирование: Учебно-методическое пособие / Иванов М.Н., Суворов С.В. М.: МГИУ. 2006

4. Батищев П.С. Базы программирования на Visual Basic 6.0. электрический учебник.

5. HTTP://www.vbrussian.com

]]>