ПОНЯТНО О Visual Basic NET (том 3)


Сценарий на Web-странице


До сих пор мы вставляли в HTML-документ только описания внешнего вида Web-страницы. Нигде мы не писали программы, которая заставила бы Web-страничку что-нибудь сделать. Например, ответить на вопрос или что-нибудь перемножить. Или поиграть с нами. Этим мы сейчас и займемся.

Пусть мы хотим развлечь читателя нашей Web-страницы. Мы предложим ему поиграть на нашей странице в игру "Угадайте число". Задание на создание такой игры в VB вы уже получали раньше (Задание 138). Напомню условие. Компьютер загадывает число из диапазона от 1 до миллиарда. Человек должен его отгадать. Причем за наименьшее число попыток. При каждой попытке компьютер выводит номер попытки и подсказку – "мало" или "много". Сохраняться, как того требовало Задание 138, мы для простоты не будем.

Программа на VB. Сначала запрограммируем игру не на  Web-странице, а как мы привыкли – в VB. Разместим на форме:

  • Кнопку cmdTry с надписью "Попытка"
  • Текстовое поле txtNumber – для того, чтобы человек вводил туда очередное число
  • Текстовое поле txtMessage – для слов "Много", "Мало" и "Вы угадали"
  • Текстовое поле txtNumberTry – для отображения количества попыток

Вот программа:

Dim A As Long                                                          'Число - попытка человека

Dim SecretNumber As Long                                      'Загаданное компьютером число

 

'НАЧАЛЬНЫЕ УСТАНОВКИ:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Randomize()

        SecretNumber = Math.Round(1000000000 * Rnd())      'Компьютер загадывает число

        txtNumber.Text

= 0                                                         'Текстовое поле для ввода человеком числа

        txtMessage.Text = "Попыток не было"                'Текстовое поле для вывода компьютером сообщений

        txtNumberTry.Text = 0                                                    'Текстовое поле для вывода количества попыток




Начало  Назад  Вперед