ΠŸΠΎΠΌΠΎΡ‰ΡŒ Π² написании студСнчСских Ρ€Π°Π±ΠΎΡ‚
АнтистрСссовый сСрвис

ΠŸΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΡΠΊΠΈΠ΅ ΠΌΠΎΠ΄ΡƒΠ»ΠΈ. 
Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΈΠ½Ρ„ΠΎΡ€ΠΌΠ°Ρ†ΠΈΠΎΠ½Π½Ρ‹Ρ… систСм срСдствами Visual Basic .NET

Π Π΅Ρ„Π΅Ρ€Π°Ρ‚: ΠŸΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΡΠΊΠΈΠ΅ ΠΌΠΎΠ΄ΡƒΠ»ΠΈ. Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΈΠ½Ρ„ΠΎΡ€ΠΌΠ°Ρ†ΠΈΠΎΠ½Π½Ρ‹Ρ… систСм срСдствами Visual Basic .NET
Π Π΅Ρ„Π΅Ρ€Π°Ρ‚ΠŸΠΎΠΌΠΎΡ‰ΡŒ Π² Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠΈΠ£Π·Π½Π°Ρ‚ΡŒ ΡΡ‚ΠΎΠΈΠΌΠΎΡΡ‚ΡŒΠΌΠΎΠ΅ΠΉ Ρ€Π°Π±ΠΎΡ‚Ρ‹

Public Code As Integer' ΡƒΡ‡Π΅Ρ‚Π½Ρ‹ΠΉ Π½ΠΎΠΌΠ΅Ρ€ ΡΠΏΠ΅Ρ†ΠΈΠ°Π»ΡŒΠ½ΠΎΡΡ‚ΠΈ. ΠŸΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΡΠΊΠΈΡ… ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π°Ρ… ΠΈ Ρ„ункциях. Π’Ρ…ΠΎΠ΄Π½Ρ‹Ρ… Π΄Π°Π½Π½Ρ‹Ρ… — ΠΈΠ½Ρ„ΠΎΡ€ΠΌΠ°Ρ†ΠΈΠΈ ΠΎ ΡΡ‚ΡƒΠ΄Π΅Π½Ρ‚Π΅. Для вычислСния срСднСго Π±Π°Π»Π»Π° студСнта. PublicSpecAsInteger' ΡƒΡ‡Π΅Ρ‚Π½Ρ‹ΠΉΠ½ΠΎΠΌΠ΅Ρ€ΡΠΏΠ΅Ρ†ΠΈΠ°Π»ΡŒΠ½ΠΎΡΡ‚ΠΈ. Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ Π½ΠΎΠ²ΠΎΠ³ΠΎ пространства ΠΈΠΌΠ΅Π½ для. PubliclenAsInteger = 4 + 7 + 200 ' Ρ€Π°Π·ΠΌΠ΅Ρ€ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ. Public FIO As String ' фамилия, имя ΠΈ ΠΎΡ‚чСство. PrivateSubmnuFileExitItem_Click… Π§ΠΈΡ‚Π°Ρ‚ΡŒ Π΅Ρ‰Ρ‘ >

ΠŸΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΡΠΊΠΈΠ΅ ΠΌΠΎΠ΄ΡƒΠ»ΠΈ. Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΈΠ½Ρ„ΠΎΡ€ΠΌΠ°Ρ†ΠΈΠΎΠ½Π½Ρ‹Ρ… систСм срСдствами Visual Basic .NET (Ρ€Π΅Ρ„Π΅Ρ€Π°Ρ‚, курсовая, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½Ρ‚Ρ€ΠΎΠ»ΡŒΠ½Π°Ρ)

Π’ ΠΏΡ€ΠΎΠ΅ΠΊΡ‚Π΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚ΡΡ Π΄Π²Π° стандартных модуля, Π½Π΅ ΡΠ²ΡΠ·Π°Π½Π½Ρ‹Ρ… Π½ΠΈ Ρ ΠΊΠ°ΠΊΠΈΠΌΠΈ Ρ„ΠΎΡ€ΠΌΠ°ΠΌΠΈ. Один ΠΈΠ· Π½ΠΈΡ…, с ΠΈΠΌΠ΅Π½Π΅ΠΌDeclar, ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚ΡΡ для объявлСния ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΡΠΊΠΈΡ… Ρ‚ΠΈΠΏΠΎΠ², констант ΠΈ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½Ρ‹Ρ…. Π”Ρ€ΡƒΠ³ΠΎΠΉ, с ΠΈΠΌΠ΅Π½Π΅ΠΌ Sorting, содСрТит ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΡΠΊΠΈΠ΅ ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Ρ‹ сортировки Π΄Π°Π½Π½Ρ‹Ρ… Ρ€Π°Π·Π»ΠΈΡ‡Π½Ρ‹Ρ… Ρ‚ΠΈΠΏΠΎΠ².

Π‘Π½Π°Ρ‡Π°Π»Π° Π² ΠΏΡ€ΠΎΠ΅ΠΊΡ‚ Π½ΡƒΠΆΠ½ΠΎ Π΄ΠΎΠ±Π°Π²ΠΈΡ‚ΡŒ Π½ΠΎΠ²Ρ‹ΠΉ стандартный ΠΌΠΎΠ΄ΡƒΠ»ΡŒ ΠΊΠΎΠΌΠ°Π½Π΄ΠΎΠΉ Project/AddModule ΠΈ Π΄Π°Ρ‚ΡŒ Π΅ΠΌΡƒ имя, Π·Π°Ρ‚Π΅ΠΌ ввСсти ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ½Ρ‹ΠΉ ΠΊΠΎΠ΄.

ΠŸΡ€ΠΈΠ²Π΅Π΄Π΅ΠΌ ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ½Ρ‹ΠΉ ΠΊΠΎΠ΄ модуля Decl.

` ΠŸΠΎΠ΄ΠΊΠ»ΡŽΡ‡Π΅Π½ΠΈΠ΅ Π±ΠΈΠ±Π»ΠΈΠΎΡ‚Π΅ΠΊ Π²Π²ΠΎΠ΄Π° ΠΈ Π²Ρ‹Π²ΠΎΠ΄Π° для Ρ€Π°Π±ΠΎΡ‚Ρ‹ с Ρ„Π°ΠΉΠ»Π°ΠΌΠΈ.

ImportsSystem.IO.

Imports System.Text.

` созданиС Π½ΠΎΠ²ΠΎΠ³ΠΎ пространства ΠΈΠΌΠ΅Π½ для.

` возмоТности ΠΏΠΎΠ΄ΠΊΠ»ΡŽΡ‡Π΅Π½ΠΈΡ модуля ΠΊ Ρ„ΠΎΡ€ΠΌΠ°ΠΌ ΠΏΡ€ΠΎΠ΅ΠΊΡ‚Π°.

NamespaceDecl.

ModuleDeclar.

` ОбъявлСниС ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΡΠΊΠΎΠ³ΠΎ Ρ‚ΠΈΠΏΠ°,.

` ΠΎΠΏΠΈΡΡ‹Π²Π°ΡŽΡ‰Π΅Π³ΠΎ структуру записи для.

` Π²Ρ…ΠΎΠ΄Π½Ρ‹Ρ… Π΄Π°Π½Π½Ρ‹Ρ… — ΠΈΠ½Ρ„ΠΎΡ€ΠΌΠ°Ρ†ΠΈΠΈ ΠΎ ΡΡ‚ΡƒΠ΄Π΅Π½Ρ‚Π΅.

Public Class TStud.

Public Kurs As Byte ' курс.

Public Group As Byte' Π½ΠΎΠΌΠ΅Ρ€ Π³Ρ€ΡƒΠΏΠΏΡ‹.

Public FIO As String ' фамилия, имя ΠΈ ΠΎΡ‚чСство.

PublicSpecAsInteger' ΡƒΡ‡Π΅Ρ‚Π½Ρ‹ΠΉΠ½ΠΎΠΌΠ΅Ρ€ΡΠΏΠ΅Ρ†ΠΈΠ°Π»ΡŒΠ½ΠΎΡΡ‚ΠΈ.

Public DataR As Date ' Π΄Π°Ρ‚Π° роТдСния.

Public Pol As Byte' ΠΏΠΎΠ».

PublicKolAsByte ' количСство экзамСнов.

PublicM (4) AsByte ' ΠΏΠΎΠ»ΡƒΡ‡Π΅Π½Π½Ρ‹Π΅ ΠΎΡ†Π΅Π½ΠΊΠΈ.

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.

FIO = Left (FIO, 20).

Else.

tempstr = New String (««, 20 — FIO. Length).

FIO = FIO + tempstr.

End If.

writer.Write (Kurs).

writer.Write (Group).

Dim temp () As Byte = _.

UnicodeEncoding.Unicode.GetBytes (FIO).

writer.Write (temp).

writer.Write (Spec).

temp = _.

UnicodeEncoding.Unicode.GetBytes (DataR.ToString («dd.MM.yyyy»)).

writer.Write (temp).

writer.Write (Pol).

writer.Write (Kol).

writer.Write (M).

End Sub.

Public Sub writeToFile (ByVal ff As FileStream, _.

ByVal i As Integer).

ff.Seek ((i — 1) * len, SeekOrigin. Begin).

writeToFile (ff).

End Sub.

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.

Kurs = reader. ReadByte ().

Group = reader. ReadByte ().

temp = reader. ReadBytes (40).

FIO = UnicodeEncoding.Unicode.GetString (temp, 0, 40).

Spec = reader. ReadInt32().

temp = reader. ReadBytes (20).

DataR = _.

CType (UnicodeEncoding.Unicode.GetString (temp, 0, 20), Date).

Pol = reader. ReadByte ().

Kol = reader. ReadByte ().

M = reader. ReadBytes (5).

End Sub.

End Class.

' ОбъявлСниС ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΡΠΊΠΎΠ³ΠΎ Ρ‚ΠΈΠΏΠ°,.

' ΠΎΠΏΠΈΡΡ‹Π²Π°ΡŽΡ‰Π΅Π³ΠΎ структуру записи для.

' Π²Ρ…ΠΎΠ΄Π½Ρ‹Ρ… Π΄Π°Π½Π½Ρ‹Ρ… справочника — ΠΈΠ½Ρ„ΠΎΡ€ΠΌΠ°Ρ†ΠΈΠΈ ΠΎ ΡΠΏΠ΅Ρ†ΠΈΠ°Π»ΡŒΠ½ΠΎΡΡ‚ΠΈ.

Public Class TSpec.

Public Code As Integer' ΡƒΡ‡Π΅Ρ‚Π½Ρ‹ΠΉ Π½ΠΎΠΌΠ΅Ρ€ ΡΠΏΠ΅Ρ†ΠΈΠ°Π»ΡŒΠ½ΠΎΡΡ‚ΠΈ.

Public Number As String = New String (««, 6).

' ΡˆΠ΅ΡΡ‚ΠΈΠ·Π½Π°Ρ‡Π½Ρ‹ΠΉ ΠΊΠΎΠ΄ ΡΠΏΠ΅Ρ†ΠΈΠ°Π»ΡŒΠ½ΠΎΡΡ‚ΠΈ.

Public Name As String = New String (««, 100).

' Π½Π°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΏΠ΅Ρ†ΠΈΠ°Π»ΡŒΠ½ΠΎΡΡ‚ΠΈ.

PubliclenAsInteger = 4 + 7 + 200 ' Ρ€Π°Π·ΠΌΠ΅Ρ€ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ.

Public Sub writeToFile (ByVal ff As FileStream).

Dim writer As BinaryWriter = New BinaryWriter (ff).

Dim tempstr As String.

If Number. Length > 6 Then.

Number = Left (Number, 6).

Else.

tempstr = New String (««, 6 — Number. Length).

Number = Number + tempstr.

End If.

If Name. Length > 100 Then.

Name = Left (Name, 100).

Else.

tempstr = New String (««, 100 — Name. Length).

Name = Name + tempstr.

End If.

Dim temp () As Byte = _.

UnicodeEncoding.Unicode.GetBytes (Number).

writer.Write (Code).

writer.Write (temp).

temp = UnicodeEncoding.Unicode.GetBytes (Name).

writer.Write (temp).

End Sub.

Public Sub writeToFile (ByVal ff As FileStream, _.

ByVal i As Integer).

ff.Seek ((i — 1) * len, SeekOrigin. Begin).

writeToFile (ff).

End Sub.

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).

EndSub.

EndClass.

' ОбъявлСниС ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΡΠΊΠΎΠ³ΠΎ Ρ‚ΠΈΠΏΠ°,.

' ΠΎΠΏΠΈΡΡ‹Π²Π°ΡŽΡ‰Π΅Π³ΠΎ структуру записи.

' для вычислСния срСднСго Π±Π°Π»Π»Π° студСнта.

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).

writeToFile (ff).

End Sub.

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).

Kurs = reader. ReadByte ().

Group = reader. ReadByte ().

Dim temp () As Byte = reader. ReadBytes (40).

FIO = UnicodeEncoding.Unicode.GetString (temp, 0, 40).

Sb = reader. ReadSingle ().

End Sub.

End Class.

' ОбъявлСниС констант ΠΈ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½Ρ‹Ρ…,.

' ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅ΠΌΡ‹Ρ… Π² ΠΌΠΎΠ΄ΡƒΠ»ΡΡ… Ρ„ΠΎΡ€ΠΌ,.

' ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΡΠΊΠΈΡ… ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π°Ρ… ΠΈ Ρ„ункциях.

PublicConstNmaxAsInteger = 100.

Public Const PathUntitled As String = «Ρ:untitled.dan» .

Public Const PathTemp As String = «c:$$$$.tmp» .

Public Path As String.

Public PathSpec As String.

Public Path1 As String.

Public Path2 As String.

Public FName As String.

Public richName As String.

Public f1 As FileStream.

Public F2 As FileStream.

Public F3 As FileStream.

Public F4 As Integer.

Public F1_sp As FileStream.

Public N As Integer.

Public NSpec As Integer.

Public Pos As Integer.

Public Ind (Nmax) As Integer.

Public Del (Nmax) As Integer.

PublicButtonAsMsgBoxResult.

` функция, которая Π·Π°ΠΊΡ€Ρ‹Π²Π°Π΅Ρ‚ всС ΠΎΡ‚ΠΊΡ€Ρ‹Ρ‚Ρ‹Π΅ Ρ€Π°Π±ΠΎΡ‡ΠΈΠ΅ Ρ„Π°ΠΉΠ»Ρ‹.

Public Sub CloseAllFiles ().

If Not (f1 Is Nothing) Then f1. Close ().

If Not (F1_sp Is Nothing) Then F1_sp.Close ().

If Not (F2 Is Nothing) Then F2. Close ().

If Not (F3 Is Nothing) Then F3. Close ().

End Sub.

End Module.

End Namespace.

ПослС описания ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΡΠΊΠΎΠ³ΠΎ модуля Declar Π½Π΅ΠΎΠ±Ρ…ΠΎΠ΄ΠΈΠΌΠΎ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ‚ΡŒ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΡŽ ΠΎΠ±Ρ€Π°Π±ΠΎΡ‚ΠΊΠΈ события Π²Ρ‹Π±ΠΎΡ€Π° ΠΏΡƒΠ½ΠΊΡ‚Π° мСню «Π’Ρ‹Ρ…ΠΎΠ΄». ИзмСнСнная функция ΠΈΠΌΠ΅Π΅Ρ‚ Π²ΠΈΠ΄:

PrivateSubmnuFileExitItem_Click (ByVal sender As System. Object, _.

ByVal e As System. EventArgs) Handles mnuFileExitItem.Click.

If (vbYes =MsgBox («Π”Π΅ΠΉΡΡ‚Π²ΠΈΡ‚Π΅Π»ΡŒΠ½ΠΎ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ Π²Ρ‹ΠΉΡ‚ΠΈ?», vbYesNo)) Then.

Decl.CloseAllFiles ().

End.

EndIf.

EndSub.

ΠŸΠΎΠΊΠ°Π·Π°Ρ‚ΡŒ вСсь тСкст
Π—Π°ΠΏΠΎΠ»Π½ΠΈΡ‚ΡŒ Ρ„ΠΎΡ€ΠΌΡƒ Ρ‚Π΅ΠΊΡƒΡ‰Π΅ΠΉ Ρ€Π°Π±ΠΎΡ‚ΠΎΠΉ

БСссия? Бпокойно!