ВУЗ:
Составители:
Рубрика:
20
На этом месте читателю следует на основе прочитанного материала, протес-
тировать проект на работоспособность и корректность работы.
8. Пользовательские модули
В проекте используется два стандартных модуля, не связанных ни с какими
формами. Один из них, с именем Declar, используется для объявления пользова-
тельских типов, констант и переменных. Другой, с именем Sorting, содержит
пользовательские процедуры сортировки данных различных типов.
Сначала в проект нужно добавить новый стандартный модуль командой
Project / Add Module
и дать ему имя, затем ввести программный код.
Приведем программный код модуля Decl.
‘ Подключение библиотек ввода и вывода для работы с файлами
Imports System.IO
Imports System.Text
‘ создание нового пространства имен для
‘ возможности подключения модуля к формам проекта
Namespace Decl
Module Declar
‘ Объявление пользовательского типа,
‘ описывающего структуру записи для
‘ входных данных – информации о студенте
Public Class TStud
Public Kurs As Byte ' курс
Public Group As Byte ' номер группы
Public FIO As String ' фамилия, имя и отчество
Public Spec As Integer' учетный номер специальности
Public DataR As Date ' дата рождения
Public Pol As Byte ' пол
Public Kol As Byte ' количество экзаменов
Public M(4) As Byte ' полученные оценки
Public len As Integer = 1 + 1 + 40 + 4 + 20 + 1 + 1 + 5
' размер переменной
Public Sub writeToFile(ByVal ff As FileStream)
Dim writer As BinaryWriter = New BinaryWriter(ff)
Dim tempstr As String
If FIO.Length > 20 Then
Страницы
- « первая
- ‹ предыдущая
- …
- 18
- 19
- 20
- 21
- 22
- …
- следующая ›
- последняя »
