ПОНЯТНО О Visual Basic NET (том 3)
На форме размещены: текстовое поле
Dim Дозапись As New System.IO.StreamWriter("E:\VB\История.txt", True) 'Открыть файл для дозаписи
Дозапись.WriteLine(Количество_попыток)
Дозапись.WriteLine(A)
Дозапись.WriteLine(Сообщение)
Дозапись.Close()
End Sub
Private Sub Загружаем_сохраненную_игру()
Dim Чтение As New System.IO.StreamReader("E:\VB\История.txt") 'Открыть файл для чтения
SecretNumber = Чтение.ReadLine 'Чтение из файла загаданного числа
Debug.WriteLine("И С Т О Р И Я И Г Р Ы")
'Чтение из файла и печать данных очередной попытки:
Do While Чтение.Peek() <> -1
Количество_попыток = Чтение.ReadLine
A = Чтение.ReadLine
Сообщение = Чтение.ReadLine
Debug.WriteLine(Количество_попыток & " " & A & " " & Сообщение)
Loop
Чтение.Close() 'Закрываем файл
'Восстанавливаем содержимое текстового поля и меток на форме:
txtNumber.Text = A
lblMessage.Text = Сообщение
lblNumberTry.Text = "Количество попыток = " & Количество_попыток
End Sub
Пояснения: На форме размещены: текстовое поле txtNumber, в которое играющий вводит очередное число, метка lblNumberTry, в которой отображается количество попыток играющего, метка lblMessage для сообщений «Много», «Мало» и др. и кнопка Button1, которую играющий нажимает после ввода очередного числа в текстовое поле. В файле записывается вся история игры, сколько бы раз играющий не сохранялся. При выборе новой игры содержимое файла стирается.
139.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.BackgroundImage = Image.FromFile("Пирамиды.jpg")
PictureBox1.BorderStyle = BorderStyle.None
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий