Проект «Управление без обратной связи» на языке Visual Basic - презентация, доклад, проект скачать

Содержание ▲

Вы можете ознакомиться и скачать презентацию на тему Проект «Управление без обратной связи» на языке Visual Basic. Доклад-сообщение содержит 5 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Mypresentation Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации

Слайд 1

Описание слайда:

Проект «Управление без обратной связи» на языке Visual Basic

Слайд 2

Описание слайда:

Поместить на форму: Графическое поле PictureBox1, по которому будет перемещаться точка; Кнопку Button1 для запуска обработчика события вывода первоначального положения точки; Кнопку Button2 для запуска обработчика события вывода конечного положения точки; Четыре кнопки для управления движением точки

Слайд 3

Описание слайда:

Создать обработчик события вывода первоначального положения управляемого объекта (точки). Обработчик должен включать случайную генерацию координат точки: Public Class Form1 Dim Graph1 As Graphics Dim Pen1 As New Pen(Color.Black, 3) Dim Brush1 As New SolidBrush(Color.Black) Dim X, Y As Integer Private Sub Button1_Click……. Graph1 = Me.PictureBox1.CreateGraphics() Graph1.Clear(Color.White) Randomize() X = Int(Rnd() * 200) Y = Int(Rnd() * 200) Graph1.DrawEllipse(Pen1, X, Y, 2, 2) Graph1.FillEllipse(Brush1, X, Y, 2, 2) Graph1.DrawEllipse(Pen1, 90, 90, 20, 20) End Sub

Слайд 4

Описание слайда:

Четыре обработчика события перемещения точки должны обеспечивать изменение координат точки. Вправо: Private Sub Button6_Click …. X = X + 1 End Sub Вверх: Private Sub Button3_Click … Y = Y - 1 End Sub

Слайд 5

Описание слайда:

Создать обработчик события, выводящий конечное положение управляемого объекта (точки): Private Sub Button2_Click … Graph1.DrawEllipse(Pen1, X, Y, 2, 2) Graph1.FillEllipse(Brush1, X, Y, 2, 2) End Sub