Игра — Угадай число

Продолжаем творить и решать задачки, которые заданы в учебники Лукина. На этот раз пишем игру — Угадай число.

«Угадай число» или «Экстрасенс ли вы». Это ваша первая простейшая игра с компьютером. Компьютер загадывает число – 0 или 1. Ваше дело – отгадать. А дело компьютера – сказать «Угадал» или «Не угадал». Некоторые экстрасенсы утверждают, что бла-годаря сверхчувственному контакту с компьютером они могут из 100 раз угадать 80.

Решение задачи :

Public Class Form1
    Dim zagadal_komp As Integer 'объявили переменную загаданное число компьютера
    Dim zagadal_vi As Integer 'объявили переменную загаданное Ваше число

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = "" 'очищаем предыдущие результаты
        TextBox2.Text = ""
        TextBox3.Text = ""

        zagadal_komp = 0 + 1 * Rnd() 'компьютер загадывает число
        zagadal_vi = Val(InputBox("Введите число 0 или 1")) 'пользователь вводит своё число
        TextBox1.Text = zagadal_komp 'выводится результата компьютера
        TextBox2.Text = zagadal_vi 'выводится ваше загаданное число
        'вывод результата угадали или нет
        If zagadal_komp = zagadal_vi Then TextBox3.Text = "Угадали" Else TextBox3.Text = "Не угадали"
    End Sub
End Class
  1. Размещаем на кнопке кнопку, две label, три textbox
  2. Объявляем переменные. Я объявил глобально, хотя тут без разницы, можно объявить прям в кнопке.
  3. Сначала очищаем предыдущие результаты(надписи в текст бокс)
  4. Задаём случайное число, которое присваивается переменной.
  5. Вы вводите своё число
  6. Если Ваше число совпало с загаданным компьютером — то выводится надпись «Угадали», если не совпадает, выводится надпись «Не угадали»
  7. Примечание .. Можно конечно же и здесь вставить счётчик — количество попыток и количество правильных ответов … но я не стал усложнять задачу, если Вам интересно, попробуйте. Присутствует и защита от «дурака» т.е переменной присваивается только числовое выражение. Ввод строк даст результат — Не угадали.

Скачать программу: Угадай число
Установки не требует.
Файл exe. Размер 22kb.
На компьютере должен быть установлен net.framework 3.5 и выше.
Внимание!!! На некоторых компьютерах, у меня к примеру, система не даёт запускаться файлам с расширением .Exe . Всё просто, эти файлы исполняемые, и система их блокирует, как и любой файл Exe от сторонних разработчиков. В моих программах вирусов нет, можно проверить на любом сайте онлайн проверки на вирусы, или сам файл антивирусником. Если вы всё равно остерегаетесь, то используйте сам код программы в Visual Studio.net 2008

 

Запись опубликована в рубрике Мои программы, Решение заданий vb.net. Добавьте в закладки постоянную ссылку.