Презентация на тему Модели систем управления

среды программирования
Visual Basic 6
Автор презентации
«Модели систем управления»

Помаскин Юрий Иванович -
учитель информатики МБОУ СОШ№5
г. Кимовска Тульской области.

Презентация сделана как учебно-наглядное пособие к учебнику «Информатика и ИКТ 9» автор Н.Д. Угринович. Предназначена для демонстрации на уроках изучения нового материала

Используемые источники:
Н.Д.Угринович «Информатика и ИКТ 9 », Москва, БИНОМ Лаборатория знаний, 2012 стр.120 - 124.

создавать компьютерные модели систем управления на языке Visual Basic.
Понимать

чем отличаются системы управления без обратной связи, с обратной связью и автоматические системы управления.

Задание:
разработать проект, в котором управляемым объектом является точка, которую управляющий объект (пользователь) должен переместить в центр мишени.

x, y As Byte
'зададим экран (разрешение) и построим мишень'
Private

Sub Command1_Click()
Picture1.Scale (-5, 200)-(200, -5)
Picture1.Line (80, 100)-(120, 100), vbRed
Picture1.Line (100, 120)-(100, 80), vbRed
Picture1.Circle (100, 100), 15, vbRed
Picture1.Line (0, 0)-(200, 0), vbRed
Picture1.Line (0, 0)-(0, 200), vbRed
For x = 0 To 200 Step 25
Picture1.PSet (x, 0), vbGreen
Next x
For y = 0 To 200 Step 25
Picture1.PSet (0, y), vbGreen
Next y
End Sub

Int(Rnd * 200)
y1 = Int(Rnd * 200)
Picture1.PSet (x1, y1),

vbGreen
Text1.Text = x1
Text2.Text = y1
End Sub

y1 + 1
Picture1.PSet (x1, y1), vbGreen
Text1.Text = x1
Text2.Text =

y1
End Sub
'движение точки влево'
Private Sub Command4_Click()
x1 = x1 - 1
y1 = y1
Picture1.PSet (x1, y1), vbGreen
Text1.Text = x1
Text2.Text = y1
End Sub

1
y1 = y1
Picture1.PSet (x1, y1), vbGreen
Text1.Text = x1
Text2.Text =

y1
End Sub
'движение точки вниз'
Private Sub Command6_Click()
x1 = x1
y1 = y1 - 1
Picture1.PSet (x1, y1), vbGreen
Text1.Text = x1
Text2.Text = y1
End Sub

Command7_Click()
x2 = 100
y2 = 100
Select Case x1
Case Is >

100
x1 = x1 - 1
Case Is < 100
x1 = x1 + 1
Case Is = 100
x1 = x1
End Select
Select Case y1
Case Is > 100
y1 = y1 - 1
Case Is < 100
y1 = y1 + 1
Case Is = 100
y1 = y1
End Select
Picture1.PSet (x1, y1), vbGreen
Text1.Text = x1
Text2.Text = y1
End Sub

изображение с графического поля