ПРИ ЗАПУСКЕ ПРОЕКТА ВЫБИРАЕМ НОВУЮ

Dim Количество_попыток As Integer = 0
' ПРИ ЗАПУСКЕ ПРОЕКТА ВЫБИРАЕМ НОВУЮ ИЛИ СТАРУЮ ИГРУ:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Выбор = MsgBox("Продолжим старую игру?", MsgBoxStyle.YesNo)
        If Выбор = MsgBoxResult.Yes Then Загружаем_сохраненную_игру() Else Настраиваем_новую_игру()
End Sub
Private Sub Настраиваем_новую_игру()
        Randomize()
        SecretNumber = Math.Round(1000000000 * Rnd())      'Компьютер загадывает число
        txtNumber.Text = 0                                                         'Текстовое поле для ввода человеком числа
        lblMessage.Text = "Попыток не было"                          'Метка для вывода компьютером сообщений
        'Метка для вывода количества попыток:
        lblNumberTry.Text = "Количество попыток = " & Количество_попыток    
        Dim Запись As New System.IO.StreamWriter("E:\VB\История.txt")     'Открыть файл для записи
        Запись.WriteLine(SecretNumber)                                                          'Запись в файл загаданного числа
        Запись.Close()
End Sub
'ЧТО ДЕЛАТЬ ПРИ ОЧЕРЕДНОЙ ПОПЫТКЕ ОТГАДАТЬ ЧИСЛО:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click                  
        A = CDec(txtNumber.Text)                'Преобразуем содержимое текстового поля в целое число
        If A > SecretNumber Then                 'В этом операторе If вся несложная логика игры
            Сообщение = "Много"
        ElseIf A < SecretNumber Then
            Сообщение = "Мало"
        Else
            Сообщение = "Вы угадали"
        End If
        Количество_попыток = Количество_попыток + 1
        lblNumberTry.Text = "Количество попыток = " & Количество_попыток
        lblMessage.Text = Сообщение
        'Запись в файл данных очередной попытки:

Содержание  Назад  Вперед

---

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий

---

---

---