Автоматизация работы секретариата Федерации художественной гимнастики с помощью 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 Мб (Скачать файл)

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

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

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

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

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

  End Sub 

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

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

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

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

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

   

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

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

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

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

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

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

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

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

   

   sbavki = CSng(ЛичнаяКарточка.TextBox425.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

    

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

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

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

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

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

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

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

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

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

  End Sub 

  Sub ZapolnenieOcenokIsArhivaProtokolov() 'Заполнение оценок из архива протоколов 

   Sheets("АрхивПротоколов(инд)").Select

   NomerStroki = Application.CountA(Sheets("АрхивПротоколов(инд)").Range("a:a"))

   

   For i = 3 To NomerStroki Step 4

   

   If ЛичнаяКарточка.TextBox1.Text = Cells(i, 1).Value Then

   

   If ЛичнаяКарточка.ListBox1.Text = Cells(i, 2).Value Then

   

   'анкета

   ЛичнаяКарточка.TextBox3.Text = Cells(i, 3).Value

   ЛичнаяКарточка.TextBox4.Text = Cells(i, 4).Value

   ЛичнаяКарточка.TextBox5.Text = Cells(i, 5).Value

   ЛичнаяКарточка.TextBox6.Text = Cells(i, 6).Value

   

   'BP

   'E

   ЛичнаяКарточка.TextBox7.Text = Cells(i + 1, 8).Value

   ЛичнаяКарточка.TextBox8.Text = Cells(i + 1, 9).Value

   ЛичнаяКарточка.TextBox9.Text = Cells(i + 1, 10).Value

   ЛичнаяКарточка.TextBox10.Text = Cells(i + 1, 11).Value

   'A

   ЛичнаяКарточка.TextBox12.Text = Cells(i + 2, 8).Value

   ЛичнаяКарточка.TextBox13.Text = Cells(i + 2, 9).Value

   ЛичнаяКарточка.TextBox14.Text = Cells(i + 2, 10).Value

   ЛичнаяКарточка.TextBox15.Text = Cells(i + 2, 11).Value

   'D

   ЛичнаяКарточка.TextBox17.Text = Cells(i + 3, 8).Value

   ЛичнаяКарточка.TextBox18.Text = Cells(i + 3, 9).Value

   ЛичнаяКарточка.TextBox19.Text = Cells(i + 3, 10).Value

   ЛичнаяКарточка.TextBox20.Text = Cells(i + 3, 11).Value

   'сбавки

   ЛичнаяКарточка.TextBox22.Text = Cells(i + 1, 12).Value

   

   'SK

   'E

   ЛичнаяКарточка.TextBox24.Text = Cells(i + 1, 14).Value

   ЛичнаяКарточка.TextBox25.Text = Cells(i + 1, 15).Value

   ЛичнаяКарточка.TextBox26.Text = Cells(i + 1, 16).Value

   ЛичнаяКарточка.TextBox27.Text = Cells(i + 1, 17).Value

   'A

   ЛичнаяКарточка.TextBox28.Text = Cells(i + 2, 14).Value

   ЛичнаяКарточка.TextBox6123.Text = Cells(i + 2, 15).Value

   ЛичнаяКарточка.TextBox6127.Text = Cells(i + 2, 16).Value

   ЛичнаяКарточка.TextBox6125.Text = Cells(i + 2, 17).Value

   'D1

   ЛичнаяКарточка.TextBox158.Text = Cells(i + 3, 14).Value

   ЛичнаяКарточка.TextBox6124.Text = Cells(i + 3, 15).Value

   'D2

   ЛичнаяКарточка.TextBox178.Text = Cells(i + 3, 16).Value

   ЛичнаяКарточка.TextBox6121.Text = Cells(i + 3, 17).Value

   'сбавки

   ЛичнаяКарточка.TextBox175.Text = Cells(i + 1, 18).Value

   

   

   'OBR

   'E

   ЛичнаяКарточка.TextBox6130.Text = Cells(i + 1, 20).Value

   ЛичнаяКарточка.TextBox6135.Text = Cells(i + 1, 21).Value

   ЛичнаяКарточка.TextBox6138.Text = Cells(i + 1, 22).Value

   ЛичнаяКарточка.TextBox6140.Text = Cells(i + 1, 23).Value

   'A

   ЛичнаяКарточка.TextBox6131.Text = Cells(i + 2, 20).Value

   ЛичнаяКарточка.TextBox6136.Text = Cells(i + 2, 21).Value

   ЛичнаяКарточка.TextBox6139.Text = Cells(i + 2, 22).Value

   ЛичнаяКарточка.TextBox6129.Text = Cells(i + 2, 23).Value

   'D1

   ЛичнаяКарточка.TextBox6132.Text = Cells(i + 3, 20).Value

   ЛичнаяКарточка.TextBox6137.Text = Cells(i + 3, 21).Value

   'D2

   ЛичнаяКарточка.TextBox6133.Text = Cells(i + 3, 22).Value

   ЛичнаяКарточка.TextBox6134.Text = Cells(i + 3, 23).Value

   'сбавки

   ЛичнаяКарточка.TextBox350.Text = Cells(i + 1, 24).Value

   

   'MCH

   'E

   ЛичнаяКарточка.TextBox6142.Text = Cells(i + 1, 26).Value

   ЛичнаяКарточка.TextBox6147.Text = Cells(i + 1, 27).Value

   ЛичнаяКарточка.TextBox6150.Text = Cells(i + 1, 28).Value

   ЛичнаяКарточка.TextBox6152.Text = Cells(i + 1, 29).Value

   'A

   ЛичнаяКарточка.TextBox6143.Text = Cells(i + 2, 26).Value

   ЛичнаяКарточка.TextBox6148.Text = Cells(i + 2, 27).Value

   ЛичнаяКарточка.TextBox6151.Text = Cells(i + 2, 28).Value

   ЛичнаяКарточка.TextBox6141.Text = Cells(i + 2, 29).Value

   'D1

   ЛичнаяКарточка.TextBox6144.Text = Cells(i + 3, 26).Value

   ЛичнаяКарточка.TextBox6149.Text = Cells(i + 3, 27).Value

   'D2

   ЛичнаяКарточка.TextBox6145.Text = Cells(i + 3, 28).Value

   ЛичнаяКарточка.TextBox6146.Text = Cells(i + 3, 29).Value

   'сбавки

   ЛичнаяКарточка.TextBox375.Text = Cells(i + 1, 30).Value

   

   'BL

   'E

   ЛичнаяКарточка.TextBox6154.Text = Cells(i + 1, 32).Value

   ЛичнаяКарточка.TextBox6159.Text = Cells(i + 1, 33).Value

   ЛичнаяКарточка.TextBox6162.Text = Cells(i + 1, 34).Value

   ЛичнаяКарточка.TextBox6164.Text = Cells(i + 1, 35).Value

   'A

   ЛичнаяКарточка.TextBox6155.Text = Cells(i + 2, 32).Value

   ЛичнаяКарточка.TextBox6160.Text = Cells(i + 2, 33).Value

   ЛичнаяКарточка.TextBox6163.Text = Cells(i + 2, 34).Value

   ЛичнаяКарточка.TextBox6153.Text = Cells(i + 2, 35).Value

   'D1

   ЛичнаяКарточка.TextBox6156.Text = Cells(i + 3, 32).Value

   ЛичнаяКарточка.TextBox6161.Text = Cells(i + 3, 33).Value

   'D2

   ЛичнаяКарточка.TextBox6157.Text = Cells(i + 3, 34).Value

   ЛичнаяКарточка.TextBox6158.Text = Cells(i + 3, 35).Value

   'сбавки

   ЛичнаяКарточка.TextBox400.Text = Cells(i + 1, 36).Value

   

   'LT

   'E

   ЛичнаяКарточка.TextBox6166.Text = Cells(i + 1, 38).Value

   ЛичнаяКарточка.TextBox6171.Text = Cells(i + 1, 39).Value

   ЛичнаяКарточка.TextBox6174.Text = Cells(i + 1, 40).Value

   ЛичнаяКарточка.TextBox6176.Text = Cells(i + 1, 41).Value

   'A

   ЛичнаяКарточка.TextBox6167.Text = Cells(i + 2, 38).Value

   ЛичнаяКарточка.TextBox6172.Text = Cells(i + 2, 39).Value

   ЛичнаяКарточка.TextBox6175.Text = Cells(i + 2, 40).Value

   ЛичнаяКарточка.TextBox6165.Text = Cells(i + 2, 41).Value

   'D1

   ЛичнаяКарточка.TextBox6168.Text = Cells(i + 3, 38).Value

   ЛичнаяКарточка.TextBox6173.Text = Cells(i + 3, 39).Value

   'D2

   ЛичнаяКарточка.TextBox6169.Text = Cells(i + 3, 40).Value

   ЛичнаяКарточка.TextBox6170.Text = Cells(i + 3, 41).Value

   'сбавки

   ЛичнаяКарточка.TextBox425.Text = Cells(i + 1, 42).Value

   

   BP_Ind

   SK_Ind

   OBR_Ind

   MCH_Ind

   BL_Ind

   LT_Ind

   

   ItogovayaOcenka 

   End If

   

   End If

   

   Next i 

  End Sub  

  Sub Zapusk() 'Запуск 

   ГлавнаяФорма.Show

   

  End Sub 

  Sub Gerebevka() 'Жеребьевка 

   Dim a() As Integer

   Dim b() As Integer

   Dim c As Integer

   Dim d As Integer 

   Sheets("СписокУчастниц").Select

   NomerStroki = Application.CountA(Sheets("СписокУчастниц").Range("d:d"))

   

   

   ReDim a(NomerStroki)

   ReDim b(NomerStroki)

   

   For i = 1 To NomerStroki

   a(i) = Range("d" & i + 11).Value

   Next i

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