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

Содержание

• 
  Слайд 1

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

  Информатика и ИКТ 9 класс Практическая работа 2.5

• 
  Слайд 2
  

  Примечание: проект адаптирован под использование среды программирования Visual Basic 6 Автор презентации «Модели систем управления» Помаскин Юрий Иванович - учитель информатики МБОУ СОШ№5 г. Кимовска Тульской области. Презентация сделана как учебно-наглядное пособие к учебнику «Информатика и ИКТ 9» автор Н.Д. Угринович. Предназначена для демонстрации на уроках изучения нового материала Используемые источники: Н.Д.Угринович «Информатика и ИКТ 9 », Москва, БИНОМ Лаборатория знаний, 2012 стр.120 - 124.

• 
  Слайд 3

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

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

• 
  Слайд 4

  Интерфейс проекта

• 
  Слайд 5

  Код

  Dim x1, y1 As Byte, 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 Nexty EndSub Задаем разрешение экрана Рисуем мишень Рисуем оси координат

• 
  Слайд 6
  

  'задание случайной точки на экране' Private Sub Command2_Click() x1 = Int(Rnd * 200) y1 = Int(Rnd * 200) Picture1.PSet (x1, y1), vbGreen Text1.Text = x1 Text2.Text = y1 End Sub Случайная точка Координаты случайной точки Х=Int(Rnd*n) Эта функция задает случайное значение переменной х в диапазоне от 0 до n Обратная связь

• 
  Слайд 7
  

  'движениеточкивверх' Private Sub Command3_Click() x1 = x1 y1 = 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 Движение точки осуществляется путем изменения ее координат

• 
  Слайд 8
  

  'движениеточкивправо' Private Sub Command5_Click() x1 = x1 + 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 EndSub Движение точки осуществляется путем изменения ее координат

• 
  Слайд 9
  

  'автоматический выбор движения точки относительно центра мишени' Private Sub Command7_Click() x2 = 100 y2 = 100 Select Case x1 Case Is > 100 x1 = x1 - 1 Case Is 100 y1 = y1 - 1 Case Is

• 
  Слайд 10
  

  'очисткаэкрана' Private Sub Command8_Click() Picture1.Cls End Sub 'выключить' Private Sub Command9_Click() End EndSub Стираем изображение с графического поля

• 
  Слайд 11

  Контрольные вопросы

  Какую роль исполняет функция: x = Int(Rnd * n) ? Какие изменения в коде нужно сделать, чтобы увеличить шаг перемещения точки? Какие изменения в коде нужно сделать, чтобы изменить положение и размер мишени? Какие изменения в проекте и коде нужно сделать, чтобы заставить точку двигаться по диагонали ( например вверх- вправо ) Где вы видите применение этих идей на практике?