- •Курсовая работа по информатике отчет
- •Оглавление:
- •Часть 2. База данных. 9
- •2.1 Формулировка задания. 9
- •Часть 1. Вычисления.
- •Формулировка задания.
- •Анализ решения.
- •Математический анализ условий
- •Организация решения в Excel.
- •Реализация решения задачи.
- •1.3.1 Общие положения.
- •1.3.2 Ввод данных.
- •1.3.3 Вычисление и отображение результата.
- •1.3.4. Построение графиков.
- •1.3.5 Графическая иллюстрация решения
- •1.3.6 Визуализация.
- •Выводы.
- •1.5 Примечания.
- •1.5.1 Текст программы, связанной с кнопкой «Вычислить»
- •Часть 2. База данных.
- •2.1 Формулировка задания.
- •2.3.2 Информационные таблицы.
- •2.3.3 Выполнение запросов.
- •2.3.3.1 Общие сведения.
- •2.3.3.2 Ринга на котором выступает участник.
- •2.3.3.3 Породы предтавляющие клуб.
- •2.3.3.4 Количество медалей у клуба.
- •2.3.3.5 Эксперты данной породы собак.
- •2.3.3.6 Информация о собаке эксперта.
- •2.3.4 Справки.
- •2.3.4.1 Общие сведения.
- •Справка о занятии участником призового места .
- •Отчет о выступлении клуба.
- •Визуализация.
- •2.5.3 Текст программы, связанной с кнопкой «Вычисление количества медалей у клуба»
- •Текст программы, связанной с кнопкой «Нахождение эксперта данной породы собак»
- •Текст программы, связанной с кнопкой «Информация об эксперта»
- •Текст программы, связанной с кнопкой «Заполнить справку»
- •Текст программы, связанной с кнопкой «Заполнить отчет»
2.5.3 Текст программы, связанной с кнопкой «Вычисление количества медалей у клуба»
Private
Private Sub CommandButton3_Click()
k = 0
t = 0
s = 0
For i = 2 To 40 Step 1
If (Sheets("Сведения").Cells(10, 9).Text = Sheets("Участники").Cells(i, 2).Text) Then
If Sheets("Сведения").Cells(11, 8) = Sheets("Участники").Cells(i, 7) Then k = k + 1
End If
If (Sheets("Сведения").Cells(10, 9).Text = Sheets("Участники").Cells(i, 2).Text) Then
If Sheets("Сведения").Cells(12, 8) = Sheets("Участники").Cells(i, 7) Then s = s + 1
End If
If (Sheets("Сведения").Cells(10, 9).Text = Sheets("Участники").Cells(i, 2).Text) Then
If Sheets("Сведения").Cells(13, 8) = Sheets("Участники").Cells(i, 7) Then t = t + 1
End If
Next i
Sheets("Сведения").Cells(11, 9) = k
Sheets("Сведения").Cells(12, 9) = s
Sheets("Сведения").Cells(13, 9) = t
End Sub
-
Текст программы, связанной с кнопкой «Нахождение эксперта данной породы собак»
Private Sub CommandButton1_Click()
For j = 11 To 20 Step 1
Sheets("Сведения").Cells(j, 12) = " "
Next j
H = 11
For k = 2 To 40 Step 1
If Sheets("Сведения").Cells(10, 12) = Sheets("Участники").Cells(k, 4) Then s = k
Next k
For i = 2 To 30 Step 1
If Sheets("Судьи").Cells(i, 2) = Sheets("Участники").Cells(s, 8) And (Sheets("Судьи").Cells(i, 4) = "ДА") Then Sheets("Сведения").Cells(H, 12) = Sheets("Судьи").Cells(i, 1): H = H + 1
Next i
End Sub
-
Текст программы, связанной с кнопкой «Информация об эксперта»
Private Sub yi_Click()
s = 0
For i = 2 To 40 Step 1
If Sheets("Сведения").Cells(10, 15).Text = Sheets("Участники").Cells(i, 1).Text Then s = i
Next i
If (s <> 0) Then Sheets("Сведения").Cells(11, 15) = Sheets("Участники").Cells(s, 3) Else Sheets("Сведения").Cells(11, 15) = "Информации по эксперту нет "
If (s <> 0) Then Sheets("Сведения").Cells(12, 15) = Sheets("Участники").Cells(s, 4) Else Sheets("Сведения").Cells(12, 15) = " "
If (s <> 0) Then Sheets("Сведения").Cells(13, 15) = Sheets("Участники").Cells(s, 6) Else Sheets("Сведения").Cells(13, 15) = " "
End Sub
-
Текст программы, связанной с кнопкой «Заполнить справку»
Private Sub CommandButton1_Click()
For k = 2 To 40 Step 1
If Sheets("Справки").Cells(5, 5) = Sheets("Участники").Cells(k, 1) Then s = k
Next k
Sheets("Справки").Cells(4, 7) = Sheets("Участники").Cells(s, 9)
Sheets("Справки").Cells(6, 5) = Sheets("Участники").Cells(s, 3)
Sheets("Справки").Cells(6, 9) = Sheets("Участники").Cells(s, 9)
End Sub
-
Текст программы, связанной с кнопкой «Заполнить отчет»
Private Sub CommandButton2_Click()
s = 0
t = 0
For k = 2 To 40 Step 1
If Sheets("Справки").Cells(13, 4) = Sheets("Участники").Cells(k, 2) Then
If Sheets("Участники").Cells(k, 9) < 4 Then s = s + 1: t = t + 1 Else t = t + 1
End If
Next k
Sheets("Справки").Cells(14, 7) = s
Sheets("Справки").Cells(15, 7) = t
For k = 17 To 40
Sheets("Справки").Cells(k, 3) = " "
Next k
k = 17
For i = 2 To 40 Step 1
If (Sheets("Справки").Cells(13, 4) = Sheets("Участники").Cells(i, 2)) Then
t = 0
For s = 17 To 40
If Sheets("Справки").Cells(s, 3) <> Sheets("Участники").Cells(i, 4) Then t = t Else t = t + 1
Next s
If t = 0 Then Sheets("Справки").Cells(k, 3) = Sheets("Участники").Cells(i, 4): k = k + 3
End If
Next i
For k = 17 To 50 Step 1
Sheets("Справки").Cells(k, 5) = " "
Sheets("Справки").Cells(k, 4) = " "
Next k
k = 17
For i = 2 To 40 Step 1
If (Sheets("Справки").Cells(13, 4) = Sheets("Участники").Cells(i, 2)) Then
For s = 17 To 50 Step 3
If Sheets("Справки").Cells(s, 3) = Sheets("Участники").Cells(i, 4) Then
If Sheets("Участники").Cells(i, 9) = 1 Then Sheets("Справки").Cells(s, 5) = Sheets("Участники").Cells(i, 1): Sheets("Справки").Cells(s, 4) = "1oe место: " Else Sheets("Справки").Cells(s, 4) = "1oe место:"
End If
If Sheets("Справки").Cells(s, 3) = Sheets("Участники").Cells(i, 4) Then
If Sheets("Участники").Cells(i, 9) = 2 Then Sheets("Справки").Cells(s + 1, 5) = Sheets("Участники").Cells(i, 1): Sheets("Справки").Cells(s + 1, 4) = "2oe место: " Else Sheets("Справки").Cells(s + 1, 4) = "2oe место:"
End If
If Sheets("Справки").Cells(s, 3) = Sheets("Участники").Cells(i, 4) Then
If Sheets("Участники").Cells(i, 9) = 3 Then Sheets("Справки").Cells(s + 2, 5) = Sheets("Участники").Cells(i, 1): Sheets("Справки").Cells(s + 2, 4) = "3oe место: " Else Sheets("Справки").Cells(s + 2, 4) = "3ee место:"
End If
Next s
End If
Next i
End Sub
Тексты всех программ даны в примечаниях ко второй части.