Разработка программы на языке VBA для птицеводческого хозяйства

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

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

ИДО ГОУ МГИУ

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

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

Разработка программы на языке VBA для птицеводческого хозяйства

Москва 2009

Содержание

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

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

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

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

5. Листингпрограммы

6. Список использованной литературы

7. Приложения

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

В коллективном хозяйстве имеется 8 птицеводческих бригад. Каждая бригада выращивает различное количество гусей. В каждой бригаде расходовалось некоторое количество кормов (тонн) и, соответственно, увеличивался вес гусей. Написать программу на языке VBA, которая вводит исходные данные, выполняет расчеты и выводит на экран:

· исходные данные в виде таблицы, где указаны фамилия и инициалы бригадиров, количество гусей в каждой бригаде, расход комбикормов в течение каждого месяца в каждой бригаде и привес всех гусей в течение каждого месяца в каждой бригаде; (данные за 2 месяца);

· средний привес одного гуся за 2 месяца в каждой бригаде на 1 кг комбикорма;

· средний привес одного гуся за 1 месяц на 1 кг комбикорма по всем бригадам хозяйства;

· средний привес всех гусей по всему хозяйству за 2 месяца;

· фамилию и инициалы бригадира, в чьей бригаде удалось получить наименьший привес на 1 кг корма, с указанием среднего.

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

программа расчет гуси

Kol – переменная для накопления общего количества

Br1 – br8 количество гусей в каждой бригаде 1- 8

i , j – целочисленные переменные для прокрутки массивов

3. Блок схема

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

Входными данными являются

Одномерный массив количеств гусей в фермах, количество эл. Массива 8

Двумерный массив Кормлений Бригад и месяцев число элементов массива 8х5=40

Ввод может осуществляется как в полях формы так и с помощью вспомогательного диалога

Используя функцию автоматического распределения можно получить равномерную нагрузку между бригадами

Подтвердить выбор можно с помощью кнопки «Ввести в эксплуатацию».

Вод выдаваемых кормов по кнопке «Кормление»

Расчет полученных результатов по кнопке «Расчет»

5. Листинг программы

Private Sub ComboBox1_Change()

End Sub

Private Sub CommandButton1_Click()

For i = 1 To 8

For j = 1 To 5

Sheets("Кормление").Cells(i + 1, j + 1) = 30 * Sheets("Фермы").Cells(11, 2) * Sheets("Фермы").Cells(i + 1, 3)

Next j

Next i

End Sub

Private Sub CommandButton2_Click()

Sheets("Кормление").Cells(ListBox1.ListIndex + 2, ListBox2.ListIndex + 2) = Val(TextBox1)

End Sub

Private Sub ListBox1_Click()

TextBox1.Text = Sheets("Кормление").Cells(ListBox1.ListIndex + 2, ListBox2.ListIndex + 2)

End Sub

Private Sub ListBox2_Click()

TextBox1.Text = Sheets("Кормление").Cells(ListBox1.ListIndex + 2, ListBox2.ListIndex + 2)

End Sub

Private Sub UserForm_Activate()

For i = 1 To 8

ListBox1.AddItem (Sheets("Кормление").Cells(i + 1, 2))

Next i

For i = 1 To 6

ListBox2.AddItem (Sheets("Кормление").Cells(1, i + 2))

Next i

ListBox1.ListIndex = 0

ListBox2.ListIndex = 0

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub br1_Change()

End Sub

Private Sub CheckBox1_Click()

If CheckBox1.Value = True Then

If kolgus Mod 8 = 0 Then

br1.Text = kolgus / 8

br8 = br1

br7 = br1

br6 = br1

br5 = br1

br4 = br1

br3 = br1

br2 = br1

Else

br1 = kolgus 8

br8 = br1

br7 = br1

br6 = br1

br5 = br1

br4 = br1

br3 = br1

br2 = br1

br1 = (kolgus 8) + (kolgus Mod 8)

End If

br1.Enabled = False

br2.Enabled = False

br3.Enabled = False

br4.Enabled = False

br5.Enabled = False

br6.Enabled = False

br7.Enabled = False

br8.Enabled = False

Else

br1.Enabled = True

br2.Enabled = True

br3.Enabled = True

br4.Enabled = True

br5.Enabled = True

br6.Enabled = True

br7.Enabled = True

br8.Enabled = True

End If

End Sub

Private Sub CommandButton1_Click()

kol = 123

kol = br1 / 1 + br2 / 1 + br3 / 1 + br4 / 1 + br5 / 1 + br6 / 1 + br7 / 1 + br8 / 1

If kol / 1 = kolgus / 1 Then

Sheets("Фермы").Cells(2, 3) = br1

Sheets("Фермы").Cells(3, 3) = br2

Sheets("Фермы").Cells(4, 3) = br3

Sheets("Фермы").Cells(5, 3) = br4

Sheets("Фермы").Cells(6, 3) = br5

Sheets("Фермы").Cells(7, 3) = br6

Sheets("Фермы").Cells(8, 3) = br7

Sheets("Фермы").Cells(9, 3) = br8

UserForm1.Hide

Else

errorform.Show

errorform.errtext.Caption = "Неверновведенызначенияраспределения!"

End If

End Sub

Private Su

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать