ИнтеллигенцияX

Сегодня напишем простенькую игру - "Угадай число" по знаниям, которые мы получили из первых девяти уроках.

1. Создаем новый проект, если забыли как глядите первый урок.

2. В конструкторе формы, добавим два элемента Button и одну метку Label

Оформите примерно как на скриншоте (допустил ошибку) :

Теперь напишем такой код :

Dim Загаданное_число As Integer
Dim Введеное_число As Integer
' При запуске программы сразу же генерируем новое случайное число
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Randomize() ' При каждом новом запуске число будет разное
Загаданное_число = (Math.Round(Rnd() * 10)) ' С помощью функции Math.Round мы составим целое случайное число
End Sub
' Вводим число
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Обработка ошибок, если игрок введет букву или символ, с этим мы познакомимся позже.
Try
Введеное_число = InputBox("Введите число", "От 0 до 10") ' Вводим число
' Сравниваем введеное число с загаданым.
If Введеное_число = Загаданное_число Then ' Если введеное число равно загадоному, то показываем сообщение что угадали!
MsgBox("Вы угадали!", 640, "Победа")
Else ' Иначе если введеное число больше или меньше загаданого
If Введеное_число < Загаданное_число Then ' Если меньше, то показываем сообщение что нужно ввести число по больше!
MsgBox("Введите число по больше!", 480, "Проиграли")
Else ' Иначе введеное число больше, то показывем сообщение что нужно ввести число по меньше!
MsgBox("Введите число по меньше!", 480, "Проиграли")
End If
End If
Catch ex As Exception
' Сообщение об ошибке, в нашем случае если ввели букву или символ.
MsgBox("Вводить буквы и символы запрещено!", 160, "Ошибка")
End Try
End Sub
' Новая игра, загадываем новое число, тоже самое что и при запуске формы.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Randomize() ' При каждом новом запуске число будет разное
Загаданное_число = (Math.Round(Rnd() * 10)) ' С помощью функции Math.Round мы составим целое случайное число
End Sub

Ну вот вроде и все, теперь перепишите все в свою программу и попробуйте сыграть, а кому лень переписывать скачайте готовый проект.

Если вы поняли суть игры, то Вы можете легко её усовершенствовать - сделать диапазон от 0 до 100,  сделать ввод в TextBox и т.д.

Советую заглянуть в рубрику - ИГРЫ

Если что-то не получилось, пишите, помогу! До следующих уроков.

Урок №9 - CheckBox и RadioButton в VB.NET  | Содержание | Урок №11 - Дата и время в VB.NET