ВУЗ:
Составители:
Рубрика:
75
13.3. Вычисление среднего балла для каждого студента
Вычисление среднего балла для каждого студента реализовано в процедуре
обработки события выбора команды меню «Отчеты Æ Вычисление среднего бал-
ла».
Собственно вычисление среднего балла алгоритмически не является труд-
ной задачей, и она уже решена в пользовательской процедуре. В процедуре для
данной команды меню будет
использована эта процедура. Для вывода результата
будем использовать таблицу (элемент DataGridView) , для этого добавим в проект
еще одну форму, на которую поместим элемент DataGridView и кнопку, для того
чтобы дать возможность пользователю не только просмотреть таблицу на экране,
но и сохранить результаты в текстовом файле для дальнейшего использования.
Добавим в проект форму, дадим
форме имя frmTableRez и поместим на нее
элемент для отображения данных в виде таблицы (DataGridView), переименуем
этот элемент, задав его имя, GridView1.
Также поместим на форму кнопку с системным именем cmdSaveOtch для
сохранения отчета в виде текстового файла.
Процедура обработки события нажатия на кнопку «Сохранить отчет» имеет
вид:
Private Sub cmdSaveOtch_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles cmdSaveOtch.Click
Dim i As Integer
Dim j As Integer
' запрос имени файла для сохранения отчета
With frmMenu.SaveFileDialog1
.FileName = ""
.Filter = "Все файлы (*.*)|*.*|" + _
"Текстовые файлы. (*.txt)|*.txt|" + _
"Файлы исходных данных (*.dan)|*.dan|" + _
"Файлы результатов (*.rez)|*.rez"
.FilterIndex = 2
.ShowDialog()
End With
' если имя файла не пусто,
If frmMenu.SaveFileDialog1.FileName <> "" Then
Страницы
- « первая
- ‹ предыдущая
- …
- 73
- 74
- 75
- 76
- 77
- …
- следующая ›
- последняя »
