Справочник Жаркова по проектированию и программированию искусственного интеллекта. Том 6: Программирование на Visual Basic искусственного интеллекта. Продолжение 2. Валерий Алексеевич Жарков

Чтение книги онлайн.

СКАЧАТЬ MessageBoxIcon.None)

      End Sub

      В меню Помощь дважды щёлкаем по команде “О программе” (для элемента управления MenuStrip). Появляется шаблон метода, который после записи нашего кода принимает следующий вид.

      Листинг 21.8. Метод-обработчик выбора команды.

      Private Sub AboutToolStripMenuItem_Click( _

      ByVal sender As System.Object, ByVal e As System.EventArgs) _

      Handles AboutToolStripMenuItem.Click

      Dim frm As New Form3

      frm.Show()

      End Sub

      Схема записи и вывода справочной информации, например, с правилами игры после выбора команды Справка (для элемента управления MenuStrip) и после выбора других команд уже приводилась в наших предыдущих работах.

      Мы закончили написание программы в главный класс Form1 (для формы Form1 с пользовательским интерфейсом игры).

      Теперь в наш проект добавляем новые файлы (для программирования соответствующих игровых действий). Добавить в проект файл можно по двум вариантам.

      По первому варианту, добавляем в проект нужный файл по обычной схеме: в панели Solution Explorer выполняем правый щелчок по имени проекта, в контекстном меню выбираем Add, Existing Item, в панели Add Existing Item в окне “Files of type” выбираем “All Files”, в центральном окне находим (например, в папке компьютера файл, скопированный из Интернета), выделяем имя этого файла и щёлкаем кнопку Add (или дважды щёлкаем по имени этого файла).

      По второму варианту, в панели Solution Explorer выполняем правый щелчок по имени проекта и в контекстном меню выбираем Add, New Item, в панели Add New Item выделяем шаблон Code File, в окне Name записываем имя DPaint.vb и щёлкаем кнопку Add. В проект (и в панель Solution Explorer) добавляется этот файл, открывается пустое окно редактирования кода, в которое записываем код со следующего листинга.

      Листинг 21.9. Новый файл.

      Public Class DPaint

      Private _number As String

      Private _position As Point

      Private _color As Color

      Private _pen As Pen

      Private _thick As Integer

      Private _width As Integer

      Private _brush As SolidBrush

      #Region "Property Declaration"

      Public Sub New()

      '_color = Color.Yellow

      'Для большей чёткости задаём красный цвет цифр для очков

      'и времени:

      _color = Color.Red

      _brush = New SolidBrush(_color)

      _number = 0

      End Sub

      Public Sub New(ByVal number As Integer)

      Me.number = number

      _color = Color.Yellow

      _brush = New SolidBrush(_color)

      End Sub

      Public Property number() As Double

      Get

      Return CDbl(_number)

      End Get

      Set(ByVal Value As Double)

      _number = Value.ToString

      _number = _number.PadLeft(8, "0")

      End Set

      End Property

      Public Property position() As Point

      Get

      Return _position

      End Get

      Set(ByVal Value As Point)

      _position = Value

      End Set

      End Property

      Public Property thick() As Integer

      Get

      Return _thick

      End Get

      Set(ByVal Value As Integer)

      _thick = Value

      End Set

      End Property

      Public Property width() As Integer

      Get

      Return _width

      End Get

      Set(ByVal Value As Integer)

      _width = Value

      End Set

      End СКАЧАТЬ