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

Категория: Информатика
Нажмите для полного просмотра!
Проект «Управление без обратной связи» на языке Visual Basic, слайд №1Проект «Управление без обратной связи» на языке Visual Basic, слайд №2Проект «Управление без обратной связи» на языке Visual Basic, слайд №3Проект «Управление без обратной связи» на языке Visual Basic, слайд №4Проект «Управление без обратной связи» на языке Visual Basic, слайд №5
Скачать
Вы можете ознакомиться и скачать Проект «Управление без обратной связи» на языке Visual Basic. Презентация содержит 5 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

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

Слайд 1


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

Слайд 2


Поместить на форму: Графическое поле PictureBox1, по которому будет перемещаться точка; Кнопку Button1 для запуска обработчика события вывода первоначального положения точки; Кнопку Button2 для запуска обработчика события вывода конечного положения точки; Четыре кнопки для управления движением точки
Описание слайда:
Поместить на форму: Графическое поле 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
Описание слайда:
Создать обработчик события вывода первоначального положения управляемого объекта (точки). Обработчик должен включать случайную генерацию координат точки: 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
Описание слайда:
Четыре обработчика события перемещения точки должны обеспечивать изменение координат точки. Вправо: 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
Описание слайда:
Создать обработчик события, выводящий конечное положение управляемого объекта (точки): Private Sub Button2_Click … Graph1.DrawEllipse(Pen1, X, Y, 2, 2) Graph1.FillEllipse(Brush1, X, Y, 2, 2) End Sub

Скачать

Похожие презентации
Mypresentation.ru
Загрузить презентацию