Что такое findslide.org?

FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.


Для правообладателей

Обратная связь

Email: Нажмите что бы посмотреть 

Яндекс.Метрика

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

Примечание: проект адаптирован под использование среды программирования Visual Basic 6Автор презентации «Модели систем управления» Помаскин Юрий Иванович - учитель информатики МБОУ СОШ№5 г. Кимовска Тульской области.Презентация сделана как учебно-наглядное пособие к учебнику
Модели систем управленияИнформатика и ИКТ 9 классПрактическая работа 2.5 Примечание: проект адаптирован под использование среды программирования Visual Basic Моделирование систем управленияЦель работы: Научится создавать компьютерные модели систем Интерфейс проекта Код Dim x1, y1   As Byte, x, y As Byte'зададим 'задание случайной точки на экране'Private Sub Command2_Click()x1 = Int(Rnd * 200)y1 = 'движение точки вверх'Private Sub Command3_Click()x1 = x1y1 = y1 + 1Picture1.PSet (x1, 'движение точки вправо'Private Sub Command5_Click()x1 = x1 + 1y1 = y1Picture1.PSet (x1, 'автоматический выбор движения точки относительно центра мишени'Private Sub Command7_Click()x2 = 100y2 = 'очистка экрана'Private Sub Command8_Click()Picture1.ClsEnd Sub'выключить'Private Sub Command9_Click()EndEnd SubСтираем изображение с графического поля Контрольные вопросыКакую роль исполняет функция: x = Int (Rnd * n) ?Какие
Слайды презентации

Слайд 2

















Примечание: проект адаптирован под использование

Примечание: проект адаптирован под использование среды программирования Visual Basic

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

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

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

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


Слайд 3


















Моделирование систем управления
Цель работы:
Научится

Моделирование систем управленияЦель работы: Научится создавать компьютерные модели систем

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

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

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

Слайд 4 Интерфейс проекта

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

Слайд 5 Код
Dim x1, y1 As Byte,

Код Dim x1, y1  As Byte, x, y 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
Next y
End Sub

Слайд 6 'задание случайной точки на экране'
Private Sub Command2_Click()
x1 =

'задание случайной точки на экране'Private Sub Command2_Click()x1 = Int(Rnd * 200)y1

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

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

Слайд 7 'движение точки вверх'
Private Sub Command3_Click()
x1 = x1
y1 =

'движение точки вверх'Private Sub Command3_Click()x1 = x1y1 = y1 + 1Picture1.PSet

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 +

'движение точки вправо'Private Sub Command5_Click()x1 = x1 + 1y1 = y1Picture1.PSet

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

Слайд 9 'автоматический выбор движения точки относительно центра мишени'
Private Sub

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

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

Слайд 10 'очистка экрана'
Private Sub Command8_Click()
Picture1.Cls
End Sub
'выключить'
Private Sub Command9_Click()
End
End Sub
Стираем

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

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


  • Имя файла: modeli-sistem-upravleniya.pptx
  • Количество просмотров: 127
  • Количество скачиваний: 0