Пояснительная (964525)
Текст из файла
Курсовой проект по MS Visual Basic 6.0
Содержание
1. Постановка задачи 3
2. Блок-схема алгоритма решения 6
3. Текст программы на языке Visual Basic 8
4. Анализ полученного результата 9
5. Вывод 10
-
Постановка задачи
Создать файл, содержащий сведения о сдаче студентами сессии. Каждая запись имеет поля: индекс группы, фамилия студента, оценки по пяти экзаменам и пяти зачетам (з – зачет, н – незачет).
Написать программу выдающую след. информацию:
- фамилии неуспевающих студентов с указанием индексов групп и кол-ва задолжностей;
- средний балл, полученный каждым студентом группы Х, и всей группой в целом.
Создание текстового файла
Для выполнения поставленной задачи в текущем каталоге был создан файл data.txt, в котором находились необходимые сведения для решения задачи.
Данный файл используется как файл последовательного доступа, в котором данные в цикле считываются в соответствующие переменные, в нашем случае в массив данных, с которым впоследствии мы и работаем. Как видно из рисунка, согласно заданию, формат ввода данных таков:
р 11,Лактионова,5,5,5,5,5,з,з,з,з,з Эти данные могут быть любыми, их вводит пользователь, но обязательно должны быть обязательно такого формата.
р 11 – Группа
Лактионова – фамилия курсанта(ки)
5 – оценка за экзамен (всего пять экзаменов)
з – зачет (з – зачет, н – незачет, всего пять зачетов)
Создание формы
Объект форма создается с помощью Visual Basic. В нашей программе она одна: “Form1”. На данной форме находятся командные кнопки, элементы управления Label, а также комбинированное поле ComboBox, с помощью которых мы выполняем поставленную перед нами задачу. На рисунке можно увидеть эту форму.
Форма:
-
Блок-схема алгоритма решения
Блок-схема Form_Load()
Блок-схема Combo1_Click()
-
Текст программы на языке Visual Basic
Dim Stud(7, 100) As String
Dim Ball(5, 100), i As Integer
Private Sub Combo1_Click()
List4.Clear
List5.Clear
Dim N As Integer
Dim SrBall, AllCadets As Single
For N = 0 To i
If Stud(0, N) = Combo1.Text Then
List4.AddItem Stud(1, N)
List5.AddItem (Ball(0, N) + Ball(1, N) + Ball(2, N) + Ball(3, N) + Ball(4, N)) / 5
SrBall = (Ball(0, N) + Ball(1, N) + Ball(2, N) + Ball(3, N) + Ball(4, N)) / 5
AllCadets = (AllCadets + SrBall) / 2
Label7 = AllCadets
End If
Next N
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Dim Zach As Integer
i = -1
'Загрузка значений в массивы
Open App.Path + "\data.txt" For Input As #1
Do Until EOF(1)
i = i + 1
Input #1, Stud(0, i), Stud(1, i), Ball(0, i), Ball(1, i), Ball(2, i), Ball(3, i), Ball(4, i), Stud(2, i), Stud(3, i), Stud(4, i), Stud(5, i), Stud(6, i)
For Zach = 2 To 6
If Stud(Zach, i) = "н" Then
Ball(5, i) = Ball(5, i) + 1
End If
Next Zach
If Ball(5, i) > 0 Then
List1.AddItem Stud(1, i)
List2.AddItem Stud(0, i)
List3.AddItem Ball(5, i)
End If
Loop
Close #1
End Sub
-
Анализ полученного результата
При запуске программы в массивы загружаются данные из файла. Затем из массивов в List1, List2 и List3 загружается фамилия, группа и кол-во задолжностей каждого курсанта (имеющего задолжность) соответственно. При выборе в Combo1 группы в List4, List5 будут загружены все фамилии и средний балл каждого студента, в Label7 выводится средний балл всей группы.
Вывод по проделанной работе
При выполнении курсового проекта я научилась составлять элементарные (простые) программы в среде объектного программирования MS Visual Basic.
10
Характеристики
Тип файла документ
Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.
Будьте внимательны на мобильных устройствах, так как там используются упрощённый функционал даже в официальном приложении от Microsoft, поэтому для просмотра скачивайте PDF-версию. А если нужно редактировать файл, то используйте оригинальный файл.
Файлы такого типа обычно разбиты на страницы, а текст может быть форматированным (жирный, курсив, выбор шрифта, таблицы и т.п.), а также в него можно добавлять изображения. Формат идеально подходит для рефератов, докладов и РПЗ курсовых проектов, которые необходимо распечатать. Кстати перед печатью также сохраняйте файл в PDF, так как принтер может начудить со шрифтами.