Использование средств Visual Basic .NET в создании информационных систем - 23 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

23
Public Sub ReadFromFile(ByVal ff As FileStream, _
ByVal i As Integer)
ff.Seek((i - 1) * len, SeekOrigin.Begin)
Dim reader As BinaryReader = New BinaryReader(ff)
Dim temp() As Byte
Code = reader.ReadInt32()
temp = reader.ReadBytes(12)
Number = UnicodeEncoding.Unicode.GetString(temp, 0, 12)
temp = reader.ReadBytes(200)
Name = UnicodeEncoding.Unicode.GetString(temp, 0, 200)
End Sub
End Class
' Объявление пользовательского типа,
' описывающего структуру записи
' для вычисления среднего балла студента
Public Class TBall
Public Kurs As Byte ' курс
Public Group As Byte ' номер группы
Public FIO As String = New String(" ", 20)
Public Sb As Single ' средний балл
Public len As Integer = 1 + 1 + 40 + 4 ' размер
‘ переменной
Public Sub writeToFile(ByVal ff As FileStream)
Dim writer As BinaryWriter = New BinaryWriter(ff)
Dim tempstr As String
If FIO.Length > 20 Then
FIO = Left(FIO, 20)
Else
tempstr = New String(" ", 20 - FIO.Length)
FIO = FIO + tempstr
End If
Dim temp() As Byte = _
UnicodeEncoding.Unicode.GetBytes(FIO)
writer.Write(Kurs)
writer.Write(Group)
writer.Write(temp)
writer.Write(Sb)
End Sub
Public Sub writeToFile(ByVal ff As FileStream, _
ByVal i As Integer)
ff.Seek((i - 1) * len, SeekOrigin.Begin)

Страницы