- •Курсовая работа
- •Часть 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.2 Анализ решения.
- •2.3.2 Информационные таблицы.
- •2.3.3 Выполнение запросов.
- •2.3.3.1 Общие сведения.
- •2.3.3.2 Определить предмет.
- •Количество учеников.
- •Примечания
- •2.5.1 Текст программы, связанной с кнопкой «Предмет по дате»
- •2.5.2 Текст программы, связанной с кнопкой «Учителя по классу»
- •2.5.3 Текст программы, связанной с кнопкой «Кабинет по дате»
- •Текст программы, связанной с кнопкой «Обучаемые учителем классы»
- •Текст программы, связанной с кнопкой «Расписание для класса»
- •Текст программы, связанной с кнопкой «кол-во учеников»
- •Текст программы, связанной с кнопкой «Учителя по предметам»
- •Текст программы, связанной с кнопкой «кол-во кабинетов»
- •Текст программы, связанной с кнопкой «Успеваемость в классах»
- •Текст программы, связанной с кнопкой «Успеваемость по школе»
Текст программы, связанной с кнопкой «Расписание для класса»
Private Sub CommandButton5_Click()
If StrConv(Sheets("расписание").Cells(60, 35).Text, vbLowerCase) = "понедельник" Then
D = 4
End If
If StrConv(Sheets("расписание").Cells(60, 35).Text, vbLowerCase) = "вторник" Then
D = 11
End If
If StrConv(Sheets("расписание").Cells(60, 35).Text, vbLowerCase) = "среда" Then
D = 18
End If
If StrConv(Sheets("расписание").Cells(60, 35).Text, vbLowerCase) = "четверг" Then
D = 25
End If
If StrConv(Sheets("расписание").Cells(60, 35).Text, vbLowerCase) = "пятница" Then
D = 32
End If
If StrConv(Sheets("расписание").Cells(60, 35).Text, vbLowerCase) = "суббота" Then
D = 39
End If
For L = D To D + 5
For I = 0 To 25
K = 2 * I + 4
If StrConv(Sheets("расписание").Cells(K, L).Text, vbLowerCase) = StrConv(Sheets("расписание").Cells(60, 33).Text, vbLowerCase) Then
Sheets("расписание").Cells(61 + (L - D + 1) * 2, 35) = Sheets("расписание").Cells(K, 2)
End If
Next I
Next L
End Sub
Текст программы, связанной с кнопкой «кол-во учеников»
Private Sub CommandButton1_Click()
S = Sheets("справки").Cells(5, 4).Text
I = 0
For K = 3 To 30
If Sheets(S).Cells(K, 1).Text <> "" Then
I = I + 1
End If
Next K
Sheets("справки").Cells(5, 6).Value = I
Текст программы, связанной с кнопкой «Учителя по предметам»
Private Sub CommandButton2_Click()
K = 6
Sheets("справки").Cells(6, 10) = Sheets("расписание").Cells(4, 2).Text
Sheets("справки").Cells(6, 11).Value = 1
For I = 1 To 25
S = 4 + I * 2
If Sheets("расписание").Cells(S, 2) <> "" Then
If (Sheets("справки").Cells(K, 10).Text <> Sheets("расписание").Cells(S, 2).Text) Then
K = K + 1
Sheets("справки").Cells(K, 10) = Sheets("расписание").Cells(S, 2).Text
Sheets("справки").Cells(K, 11).Value = 1
Else
Sheets("справки").Cells(K, 11).Value = Sheets("справки").Cells(K, 11).Value + 1
End If
End If
Next I
End Sub
Текст программы, связанной с кнопкой «кол-во кабинетов»
Private Sub CommandButton3_Click()
For I = 0 To 24
S = 5 + I * 2
For J = 4 To 44
If Sheets("расписание").Cells(S, J).Value <> 0 Then
K = Sheets("расписание").Cells(S, J).Value
Sheets("справки").Cells(K, 100).Value = K
End If
Next J
Next I
K = 0
For I = 1 To 150
If Sheets("справки").Cells(I, 100).Value <> 0 Then
Sheets("справки").Cells(I, 100) = ""
K = K + 1
End If
Next I
Sheets("справки").Cells(13, 6).Value = K + 1
End Sub
Текст программы, связанной с кнопкой «Успеваемость в классах»
Private Sub CommandButton4_Click()
If Sheets("справки").Cells(5, 15) = "10а" Then
For I = 3 To 25
A = 0
B = 0
C = 0
For J = 2 To 13
If Sheets("10а").Cells(I, J).Value = 2 Then
A = A + 1
End If
If Sheets("10а").Cells(I, J).Value = 4 Then
B = B + 1
End If
If Sheets("10а").Cells(I, J).Value = 5 Then
C = C + 1
End If
Next J
If A > 0 Then
D = D + 1
End If
If (B + C = 12) And (B > 0) Then
X = X + 1
End If
If C = 12 Then
O = O + 1
End If
Next I
Sheets("справки").Cells(6, 17).Value = D
Sheets("справки").Cells(7, 17).Value = X
Sheets("справки").Cells(8, 17).Value = O
End If
If Sheets("справки").Cells(5, 15) = "10б" Then
D = 0
O = 0
X = 0
For I = 3 To 25
A = 0
B = 0
C = 0
For J = 2 To 13
If Sheets("10б").Cells(I, J).Value = 2 Then
A = A + 1
End If
If Sheets("10б").Cells(I, J).Value = 4 Then
B = B + 1
End If
If Sheets("10б").Cells(I, J).Value = 5 Then
C = C + 1
End If
Next J
If A > 0 Then
D = D + 1
End If
If (B + C = 12) And (B > 0) Then
X = X + 1
End If
If C = 12 Then
O = O + 1
End If
Next I
Sheets("справки").Cells(6, 17).Value = D
Sheets("справки").Cells(7, 17).Value = X
Sheets("справки").Cells(8, 17).Value = O
End If
If Sheets("справки").Cells(5, 15) = "10в" Then
D = 0
O = 0
X = 0
For I = 3 To 25
A = 0
B = 0
C = 0
For J = 2 To 13
If Sheets("10в").Cells(I, J).Value = 2 Then
A = A + 1
End If
If Sheets("10в").Cells(I, J).Value = 4 Then
B = B + 1
End If
If Sheets("10в").Cells(I, J).Value = 5 Then
C = C + 1
End If
Next J
If A > 0 Then
D = D + 1
End If
If (B + C = 12) And (B > 0) Then
X = X + 1
End If
If C = 12 Then
O = O + 1
End If
Next I
Sheets("справки").Cells(6, 17).Value = D
Sheets("справки").Cells(7, 17).Value = X
Sheets("справки").Cells(8, 17).Value = O
End If
If Sheets("справки").Cells(5, 15) = "10г" Then
D = 0
O = 0
X = 0
For I = 3 To 25
A = 0
B = 0
C = 0
For J = 2 To 13
If Sheets("10г").Cells(I, J).Value = 2 Then
A = A + 1
End If
If Sheets("10г").Cells(I, J).Value = 4 Then
B = B + 1
End If
If Sheets("10г").Cells(I, J).Value = 5 Then
C = C + 1
End If
Next J
If A > 0 Then
D = D + 1
End If
If (B + C = 12) And (B > 0) Then
X = X + 1
End If
If C = 12 Then
O = O + 1
End If
Next I
Sheets("справки").Cells(6, 17).Value = D
Sheets("справки").Cells(7, 17).Value = X
Sheets("справки").Cells(8, 17).Value = O
End If
If Sheets("справки").Cells(5, 15) = "10д" Then
D = 0
O = 0
X = 0
For I = 3 To 25
A = 0
B = 0
C = 0
For J = 2 To 13
If Sheets("10д").Cells(I, J).Value = 2 Then
A = A + 1
End If
If Sheets("10д").Cells(I, J).Value = 4 Then
B = B + 1
End If
If Sheets("10д").Cells(I, J).Value = 5 Then
C = C + 1
End If
Next J
If A > 0 Then
D = D + 1
End If
If (B + C = 12) And (B > 0) Then
X = X + 1
End If
If C = 12 Then
O = O + 1
End If
Next I
Sheets("справки").Cells(6, 17).Value = D
Sheets("справки").Cells(7, 17).Value = X
Sheets("справки").Cells(8, 17).Value = O
End If
If Sheets("справки").Cells(5, 15) = "11а" Then
D = 0
O = 0
X = 0
For I = 3 To 25
A = 0
B = 0
C = 0
For J = 2 To 13
If Sheets("11а").Cells(I, J).Value = 2 Then
A = A + 1
End If
If Sheets("11а").Cells(I, J).Value = 4 Then
B = B + 1
End If
If Sheets("11а").Cells(I, J).Value = 5 Then
C = C + 1
End If
Next J
If A > 0 Then
D = D + 1
End If
If (B + C = 12) And (B > 0) Then
X = X + 1
End If
If C = 12 Then
O = O + 1
End If
Next I
Sheets("справки").Cells(6, 17).Value = D
Sheets("справки").Cells(7, 17).Value = X
Sheets("справки").Cells(8, 17).Value = O
End If
If Sheets("справки").Cells(5, 15) = "11б" Then
D = 0
O = 0
X = 0
For I = 3 To 25
A = 0
B = 0
C = 0
For J = 2 To 13
If Sheets("11б").Cells(I, J).Value = 2 Then
A = A + 1
End If
If Sheets("11б").Cells(I, J).Value = 4 Then
B = B + 1
End If
If Sheets("11б").Cells(I, J).Value = 5 Then
C = C + 1
End If
Next J
If A > 0 Then
D = D + 1
End If
If (B + C = 12) And (B > 0) Then
X = X + 1
End If
If C = 12 Then
O = O + 1
End If
Next I
Sheets("справки").Cells(6, 17).Value = D
Sheets("справки").Cells(7, 17).Value = X
Sheets("справки").Cells(8, 17).Value = O
End If
If Sheets("справки").Cells(5, 15) = "11в" Then
D = 0
O = 0
X = 0
For I = 3 To 25
A = 0
B = 0
C = 0
For J = 2 To 13
If Sheets("11в").Cells(I, J).Value = 2 Then
A = A + 1
End If
If Sheets("11в").Cells(I, J).Value = 4 Then
B = B + 1
End If
If Sheets("11в").Cells(I, J).Value = 5 Then
C = C + 1
End If
Next J
If A > 0 Then
D = D + 1
End If
If (B + C = 12) And (B > 0) Then
X = X + 1
End If
If C = 12 Then
O = O + 1
End If
Next I
Sheets("справки").Cells(6, 17).Value = D
Sheets("справки").Cells(7, 17).Value = X
Sheets("справки").Cells(8, 17).Value = O
End If
If Sheets("справки").Cells(5, 15) = "11г" Then
D = 0
O = 0
X = 0
For I = 3 To 25
A = 0
B = 0
C = 0
For J = 2 To 13
If Sheets("11г").Cells(I, J).Value = 2 Then
A = A + 1
End If
If Sheets("11г").Cells(I, J).Value = 4 Then
B = B + 1
End If
If Sheets("11г").Cells(I, J).Value = 5 Then
C = C + 1
End If
Next J
If A > 0 Then
D = D + 1
End If
If (B + C = 12) And (B > 0) Then
X = X + 1
End If
If C = 12 Then
O = O + 1
End If
Next I
Sheets("справки").Cells(6, 17).Value = D
Sheets("справки").Cells(7, 17).Value = X
Sheets("справки").Cells(8, 17).Value = O
End If
If Sheets("справки").Cells(5, 15) = "11д" Then
D = 0
O = 0
X = 0
For I = 3 To 25
A = 0
B = 0
C = 0
For J = 2 To 13
If Sheets("11д").Cells(I, J).Value = 2 Then
A = A + 1
End If
If Sheets("11д").Cells(I, J).Value = 4 Then
B = B + 1
End If
If Sheets("11д").Cells(I, J).Value = 5 Then
C = C + 1
End If
Next J
If A > 0 Then
D = D + 1
End If
If (B + C = 12) And (B > 0) Then
X = X + 1
End If
If C = 12 Then
O = O + 1
End If
Next I
Sheets("справки").Cells(6, 17).Value = D
Sheets("справки").Cells(7, 17).Value = X
Sheets("справки").Cells(8, 17).Value = O
End If
End Sub