Программирование
Веб программирование

Делаем игру «Угадай число»

 
 

Сейчас ты сделаешь свою первую игру, это простейшая игра 'Угадай число'. На форме размести текст. поле, и 2 кнопки(Button1 свойство Text измени на "Загадать число", у Button2 - свойство Text = "Ввод"). Вот как это должно выглядеть:

Код:

Dim Hislo As Integer ' Объявляем переменную Hislo для хранения чисел. В ней будет храниться загаданное число

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' При нажатии на кнопку 'Загадать число':
Randomize() ' Этот оператор используется вместе с функцие Rnd, он нужен чтобы всегда генерировались случайные числа(если ты заметил то функция Rnd генерирует всегда одинаковые числа)
Hislo = Fix(Rnd() * 100) ' Генерируем случайное число и обрезаем дробную часть. Потом случайное число записывается в переменную Hislo 
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ' При нажатии на кнопку 'ВВод':
If Hislo > CInt(TextBox1.Text) Then ' Если загаданное число меньше введенного в текст. поле, то выводим сообщение
MsgBox("Побольше", 64, "Угадай число")
End If

If Hislo < CInt(TextBox1.Text) Then ' Если загаданное число больше введенного в текст. поле, то выводим сообщение
MsgBox("Поменьше", 64, "Угадай число")
End If

If Hislo = CInt(TextBox1.Text) Then ' Если загаданное число равно введеному, то выводим сообщение о победе
MsgBox("Ты победил(а) - ", 64, "Угадай число")
End ' При помощи функции End выходим из программы
End If
End Sub

Все, игра готова, теперь открой игру, нажми на кнопку 'Загадать число', и угадывай!
Исходник


Есть вопросы? Спроси на нашем форуме!!
Дина [11.11.2010 17:02]

Дорогой Padre!
Программа составленная выше не работает. Число случайное генерируется, но победа наступает только в случае, если введенное число 0.

Мляяя... [03.04.2011 02:17]

Дорогая Дина!Это или у Вас Вижуал Студио не по феншую установлен или руки из жопы!

Анна [06.04.2011 08:11]

У меня все работает. Большое спасибо за сайт, очень выручает!

Chijik0 [03.09.2011 17:41]

Конечно можно

Afek 3ET [27.12.2011 07:09]

Raha za proseduru

Алексей(alex13sh) [08.03.2012 12:37]

если у вас победа происходит только когда в тексте ноль то увас нет этого кусочка кода
Dim Hislo As Integer ' Объявляем переменную Hislo для хранения чисел. В ней будет храниться загаданное число

Алексей(alex13sh) [08.03.2012 12:38]

Повнимательнее уроки читайте!!!

Nicat [12.08.2012 22:43]

Да хороших сайт и уроки понятные и очень полезные

Phoenix222210 [28.04.2014 22:16]

Спасибо. У меня получилось. очень классная игра ))!



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.