ПОНЯТНО О Visual Basic NET (том 3)
ByVal Человек As типЖитель) As
For i = 1 To Число_жителей_в_городе
Запись.WriteLine(Житель(i).ФИО)
Запись.WriteLine(Житель(i).Дата_рождения)
Next
Запись.Close() 'Закрываем файл
End Sub
Function Недавний_именинник( ByVal Человек As типЖитель) As Boolean
Dim Разница_в_днях = Today.DayOfYear - Человек.Дата_рождения.DayOfYear
If (Разница_в_днях >= 0 And Разница_в_днях <= 7) Or Разница_в_днях <= (7 - 365) _
Then Return True Else Return False
End Function
Пояснения: Янзаев и Кропоткин тоже, конечно, считываются из файла и попадают в массив, но из-за того, что счетчик жителей при этом уменьшается на 1, следующий житель попадает в массив на их место и затирает их.
Функция Недавний_именинник принимает структуру Житель, как параметр, и определяет, правда ли, что день рождения жителя был на этой неделе. Разница_в_днях – переменная, показывающая, сколько дней прошло от дня рождения жителя до сегодняшнего дня. Фрагмент Разница_в_днях <= (7 - 365) нужен для учета ситуации, когда программа запускается в первую неделю января.
137.
Structure типЖитель
Dim ФИО As String
Dim Дата_рождения As DateTime
End Structure
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Житель(5000) As типЖитель
Dim Чтение As New System.IO.StreamReader("E:\VB\Список_жителей.txt")
Dim i As Integer = 1
Do While Чтение.Peek() <> -1
Житель(i).ФИО = Чтение.ReadLine
Житель(i).Дата_рождения = Чтение.ReadLine
ListBox1.Items.Add(Житель(i).ФИО)
i = i + 1
Loop
Чтение.Close()
End Sub
138.
Dim SecretNumber As Decimal 'Загаданное компьютером число
Dim A As Decimal 'Число - попытка человека
Dim Сообщение As String
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий