Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364139
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62791)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21319)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21692)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8692)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3462)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20644)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

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

Название: Программирование на Визуал Бейсик
Раздел: Рефераты по информатике
Тип: курсовая работа Добавлен 03:54:58 18 июня 2011 Похожие работы
Просмотров: 223 Комментариев: 13 Оценило: 2 человек Средний балл: 5 Оценка: неизвестно     Скачать

__________________________________________________________________

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

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

ИДО ГОУ МГИУ

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

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

Задание: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 – максимальное значение отпуска в массиве Otpusk(9) представляет целое число

DimMaxSpAsInteger

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

Dim i As Integer, j As Integer

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


Блок-схема


Описание алгоритма

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

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

Запуск расчета необходимых данных посредством нажатия на кнопку «Рассчитать».

Первый этап расчетов проводится на основе двух вложенных циклов. Порядок расчета необходимых данных следующий: расчет стоимости остатка (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

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Olya03:56:11 27 августа 2019
.
.03:56:10 27 августа 2019
.
.03:56:10 27 августа 2019
.
.03:56:09 27 августа 2019
.
.03:56:08 27 августа 2019

Смотреть все комментарии (13)
Работы, похожие на Курсовая работа: Программирование на Визуал Бейсик

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

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



Результаты(260301)
Комментарии (3521)
Copyright © 2005-2020 BestReferat.ru support@bestreferat.ru реклама на сайте

Рейтинг@Mail.ru