Автоматизация работы секретариата Федерации художественной гимнастики с помощью MS Excel

Автор работы: Пользователь скрыл имя, 12 Декабря 2011 в 15:19, курсовая работа

Краткое описание

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

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

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

Содержание работы

Введение 4
1 Проектная часть 6
1.1 Словесно-логическое описание предметной области 6
1.2 Концептуальная модель 8
1.3 Логическая модель 10
1.4 Математическая модель 14
1.5 Физическая модель 15
2 Практическая реализация 17
2.1 Разработка входного интерфейса 17
2.2 Реализация проекта 18
2.3 Инструкция пользователя 21
Заключение 23
Список использованной литературы 24
Приложение 25

Скачать целиком (1.11 Мб) Сколько стоит заказать работу?
Содержимое работы - 1 файл

Автоматизация работы секретариата Федерации художественной гимнастики с помощью MS Excel.docx

— 1.20 Мб (Скачать файл)

   Next i

   a(4) = (a(0) + a(1) + a(2) + a(3) - minA - maxA) / 2

   End If

   

   If d(2) = 0 Then

   d(4) = (d(0) + d(1)) / 2

   Else

   minD = d(0)

   For i = 1 To 3

   If d(i) < minD Then

   minD = d(i)

   End If

   Next i

   

   maxD = d(0)

   For i = 1 To 3

   If d(i) > maxD Then

   maxD = d(i)

   End If

   Next i

   d(4) = (d(0) + d(1) + d(2) + d(3) - minD - maxD) / 2

   End If 

   ЛичнаяКарточка.TextBox11.Text = E(4)

   ЛичнаяКарточка.TextBox16.Text = a(4)

   ЛичнаяКарточка.TextBox21.Text = d(4)

   ЛичнаяКарточка.TextBox23.Text = E(4) + a(4) + d(4) - sbavki

  End Sub 

  Sub SK_Ind() 'Расчет оценок за скакалку 

   E(0) = CSng(ЛичнаяКарточка.TextBox24.Text)

   E(1) = CSng(ЛичнаяКарточка.TextBox25.Text)

   E(2) = CSng(ЛичнаяКарточка.TextBox26.Text)

   E(3) = CSng(ЛичнаяКарточка.TextBox27.Text)

   

   a(0) = CSng(ЛичнаяКарточка.TextBox28.Text)

   a(1) = CSng(ЛичнаяКарточка.TextBox6123.Text)

   a(2) = CSng(ЛичнаяКарточка.TextBox6127.Text)

   a(3) = CSng(ЛичнаяКарточка.TextBox6125.Text) 

   d(0) = CSng(ЛичнаяКарточка.TextBox158.Text)

   d(1) = CSng(ЛичнаяКарточка.TextBox6124.Text)

   d(2) = CSng(ЛичнаяКарточка.TextBox178.Text)

   d(3) = CSng(ЛичнаяКарточка.TextBox6124.Text)

   

   sbavki = CSng(ЛичнаяКарточка.TextBox175.Text)

   

   If E(2) = 0 Then

   E(4) = (E(0) + E(1)) / 2

   Else

   minE = E(0)

   For i = 1 To 3

   If E(i) < minE Then

   minE = E(i)

   End If

   Next i

   

   maxE = E(0)

   For i = 1 To 3

   If E(i) > maxE Then

   maxE = E(i)

   End If

   Next i

   E(4) = (E(0) + E(1) + E(2) + E(3) - minE - maxE) / 2

   End If

   

   If a(2) = 0 Then

   a(4) = (a(0) + a(1)) / 2

   Else

   minA = a(0)

   For i = 1 To 3

   If a(i) < minA Then

   minA = a(i)

   End If

   Next i

   

   maxA = a(0)

   For i = 1 To 3

   If a(i) > maxA Then

   maxA = a(i)

   End If

   Next i

   a(4) = (a(0) + a(1) + a(2) + a(3) - minA - maxA) / 2

   End If 

   ЛичнаяКарточка.TextBox171.Text = E(4)

   ЛичнаяКарточка.TextBox169.Text = a(4)

   d(4) = (d(0) + d(1)) / 2

   ЛичнаяКарточка.TextBox170.Text = d(4)

   d(5) = (d(2) + d(3)) / 2

   ЛичнаяКарточка.TextBox180.Text = d(5)

   DD = (d(4) + d(5)) / 2

   ЛичнаяКарточка.TextBox174.Text = DD

   ЛичнаяКарточка.TextBox176.Text = E(4) + a(4) + DD - sbavki

   

  End Sub 

  Sub OBR_Ind() 'Расчет оценок за обруч

   E(0) = CSng(ЛичнаяКарточка.TextBox6130.Text)

   E(1) = CSng(ЛичнаяКарточка.TextBox6135.Text)

   E(2) = CSng(ЛичнаяКарточка.TextBox6138.Text)

   E(3) = CSng(ЛичнаяКарточка.TextBox6140.Text)

   

   a(0) = CSng(ЛичнаяКарточка.TextBox6131.Text)

   a(1) = CSng(ЛичнаяКарточка.TextBox6136.Text)

   a(2) = CSng(ЛичнаяКарточка.TextBox6139.Text)

   a(3) = CSng(ЛичнаяКарточка.TextBox6129.Text) 

   d(0) = CSng(ЛичнаяКарточка.TextBox6132.Text)

   d(1) = CSng(ЛичнаяКарточка.TextBox6137.Text)

   d(2) = CSng(ЛичнаяКарточка.TextBox6133.Text)

   d(3) = CSng(ЛичнаяКарточка.TextBox6134.Text)

   

   sbavki = CSng(ЛичнаяКарточка.TextBox350.Text)

   

   If E(2) = 0 Then

   E(4) = (E(0) + E(1)) / 2

   Else

   minE = E(0)

   For i = 1 To 3

   If E(i) < minE Then

   minE = E(i)

   End If

   Next i

   

   maxE = E(0)

   For i = 1 To 3

   If E(i) > maxE Then

   maxE = E(i)

   End If

   Next i

   E(4) = (E(0) + E(1) + E(2) + E(3) - minE - maxE) / 2

   End If

   

   If a(2) = 0 Then

   a(4) = (a(0) + a(1)) / 2

   Else

   minA = a(0)

   For i = 1 To 3

   If a(i) < minA Then

   minA = a(i)

   End If

   Next i

   

   maxA = a(0)

   For i = 1 To 3

   If a(i) > maxA Then

   maxA = a(i)

   End If

   Next i

   a(4) = (a(0) + a(1) + a(2) + a(3) - minA - maxA) / 2

   End If 

   ЛичнаяКарточка.TextBox346.Text = E(4)

   ЛичнаяКарточка.TextBox344.Text = a(4)

   d(4) = (d(0) + d(1)) / 2

   ЛичнаяКарточка.TextBox345.Text = d(4)

   d(5) = (d(2) + d(3)) / 2

   ЛичнаяКарточка.TextBox355.Text = d(5)

   DD = (d(4) + d(5)) / 2

   ЛичнаяКарточка.TextBox349.Text = DD

   ЛичнаяКарточка.TextBox351.Text = E(4) + a(4) + DD - sbavki 

  End Sub 

  Sub MCH_Ind() 'Расчет оценок за мяч

   E(0) = CSng(ЛичнаяКарточка.TextBox6142.Text)

   E(1) = CSng(ЛичнаяКарточка.TextBox6147.Text)

   E(2) = CSng(ЛичнаяКарточка.TextBox6150.Text)

   E(3) = CSng(ЛичнаяКарточка.TextBox6152.Text)

   

   a(0) = CSng(ЛичнаяКарточка.TextBox6143.Text)

   a(1) = CSng(ЛичнаяКарточка.TextBox6148.Text)

   a(2) = CSng(ЛичнаяКарточка.TextBox6151.Text)

   a(3) = CSng(ЛичнаяКарточка.TextBox6141.Text) 

   d(0) = CSng(ЛичнаяКарточка.TextBox6144.Text)

   d(1) = CSng(ЛичнаяКарточка.TextBox6149.Text)

   d(2) = CSng(ЛичнаяКарточка.TextBox6145.Text)

   d(3) = CSng(ЛичнаяКарточка.TextBox6146.Text)

   

   sbavki = CSng(ЛичнаяКарточка.TextBox375.Text)

   

   If E(2) = 0 Then

   E(4) = (E(0) + E(1)) / 2

   Else

   minE = E(0)

   For i = 1 To 3

   If E(i) < minE Then

   minE = E(i)

   End If

   Next i

   

   maxE = E(0)

   For i = 1 To 3

   If E(i) > maxE Then

   maxE = E(i)

   End If

   Next i

   E(4) = (E(0) + E(1) + E(2) + E(3) - minE - maxE) / 2

   End If

   

   If a(2) = 0 Then

   a(4) = (a(0) + a(1)) / 2

   Else

   minA = a(0)

   For i = 1 To 3

   If a(i) < minA Then

   minA = a(i)

   End If

   Next i

   

   maxA = a(0)

   For i = 1 To 3

   If a(i) > maxA Then

   maxA = a(i)

   End If

   Next i

   a(4) = (a(0) + a(1) + a(2) + a(3) - minA - maxA) / 2

   End If

   

   ЛичнаяКарточка.TextBox371.Text = E(4)

   ЛичнаяКарточка.TextBox369.Text = a(4)

   d(4) = (d(0) + d(1)) / 2

   ЛичнаяКарточка.TextBox370.Text = d(4)

   d(5) = (d(2) + d(3)) / 2

   ЛичнаяКарточка.TextBox380.Text = d(5)

   DD = (d(4) + d(5)) / 2

   ЛичнаяКарточка.TextBox374.Text = DD

   ЛичнаяКарточка.TextBox376.Text = E(4) + a(4) + DD - sbavki 

  End Sub 

  Sub BL_Ind() 'Расчет оценок за булавы

   E(0) = CSng(ЛичнаяКарточка.TextBox6154.Text)

   E(1) = CSng(ЛичнаяКарточка.TextBox6159.Text)

   E(2) = CSng(ЛичнаяКарточка.TextBox6162.Text)

   E(3) = CSng(ЛичнаяКарточка.TextBox6164.Text)

   

   a(0) = CSng(ЛичнаяКарточка.TextBox6155.Text)

   a(1) = CSng(ЛичнаяКарточка.TextBox6160.Text)

   a(2) = CSng(ЛичнаяКарточка.TextBox6163.Text)

   a(3) = CSng(ЛичнаяКарточка.TextBox6153.Text) 

   d(0) = CSng(ЛичнаяКарточка.TextBox6156.Text)

   d(1) = CSng(ЛичнаяКарточка.TextBox6161.Text)

   d(2) = CSng(ЛичнаяКарточка.TextBox6157.Text)

   d(3) = CSng(ЛичнаяКарточка.TextBox6158.Text)

   

   sbavki = CSng(ЛичнаяКарточка.TextBox400.Text)

   

   If E(2) = 0 Then

   E(4) = (E(0) + E(1)) / 2

   Else

   minE = E(0)

   For i = 1 To 3

   If E(i) < minE Then

   minE = E(i)

   End If

   Next i

   

   maxE = E(0)

   For i = 1 To 3

   If E(i) > maxE Then

   maxE = E(i)

   End If

   Next i

   E(4) = (E(0) + E(1) + E(2) + E(3) - minE - maxE) / 2

   End If

   

   If a(2) = 0 Then

   a(4) = (a(0) + a(1)) / 2

   Else

   minA = a(0)

   For i = 1 To 3

   If a(i) < minA Then

   minA = a(i)

   End If

   Next i

   

   maxA = a(0)

   For i = 1 To 3

   If a(i) > maxA Then

   maxA = a(i)

   End If

   Next i

   a(4) = (a(0) + a(1) + a(2) + a(3) - minA - maxA) / 2

   End If

    

   ЛичнаяКарточка.TextBox396.Text = E(4)

   ЛичнаяКарточка.TextBox394.Text = a(4)

   d(4) = (d(0) + d(1)) / 2

   ЛичнаяКарточка.TextBox395.Text = d(4)

Информация о работе Автоматизация работы секретариата Федерации художественной гимнастики с помощью MS Excel