Информатика. Индришенок В.И - 19 стр.

UptoLike

ВУЗ: 

МИРЭА | Москва

Составители: 

Рубрика: 

-19-
Picture1.Line (1600,2500)-(4400,3000),vbWhite, BF
Picture1.Line (1600,3000)-(4400,3500), vbBlue, BF
Picture1.Line (1600,3500)-(4400,4000), 255, BF
Для анимации используйте перерисовку линии в цикле. Для
того, чтобы перерисовка нижней линии соответствовала фону,
следует установить в свойствах Picture1 значение FilleStile
<>1 и проследить, что BackColor=ForeColor. Чтобы перери-
совка шла в удобном для восприятия темпе, используйте цикл
с пустыми операторами внутри.
Задание 3.2.
3.2.1. Разработайте и протестируйте программу, выполняющую
построение графика заданной функции Y = X ^ 2 - 2 * X - 3, коор-
динатных осей и подписей на осях в заданном интервале измене-
ния значений аргумента [-3;5].
3.2.2. Дополните программу подпрограммой определения макси-
мального и минимального значения функции и измените програм-
му так, чтобы ею можно пользоваться как процедурой при произ-
вольных значениях пределов
изменения аргумента и функции.
Указание:
Программный код простой программы построения
графика и примерный вид соответствующей экранной формы:
Private Sub Command1_Click()
Picture1.BackColor = 0
Picture1.Scale (-3, 5)-(5, -5)
'Построение графика
For X = -2 To 4 Step 0.01
Y = X ^ 2 - 2 * X - 3
Picture1.PSet (X, Y), vbGreen
Next X
'Axe X
Picture1.Line (-3, 0)-(5, 0), vbCyan
For i = -3 To 4
Picture1.PSet (i, 0), vbCyan
Picture1.Print i
Next i
'Axe Y
Picture1.Line (0, -5)-(0, 5), vbCyan
For i = -4 To 5
Picture1.PSet (0, i), vbCyan
Picture1.Print i
Next i
End Sub 
                              -19-

   Picture1.Line (1600,2500)-(4400,3000),vbWhite, BF
   Picture1.Line (1600,3000)-(4400,3500), vbBlue, BF
   Picture1.Line (1600,3500)-(4400,4000), 255, BF
‰ Для анимации используйте перерисовку линии в цикле. Для

   того, чтобы перерисовка нижней линии соответствовала фону,
   следует установить в свойствах Picture1 значение FilleStile
   <>1 и проследить, что BackColor=ForeColor. Чтобы перери-
   совка шла в удобном для восприятия темпе, используйте цикл
   с пустыми операторами внутри.
Задание 3.2.
3.2.1. Разработайте и протестируйте программу, выполняющую
построение графика заданной функции Y = X ^ 2 - 2 * X - 3, коор-
динатных осей и подписей на осях в заданном интервале измене-
ния значений аргумента [-3;5].
3.2.2. Дополните программу подпрограммой определения макси-
мального и минимального значения функции и измените програм-
му так, чтобы ею можно пользоваться как процедурой при произ-
вольных значениях пределов изменения аргумента и функции.
У к а з а н и е : Программный код простой программы построения
графика и примерный вид соответствующей экранной формы:
Private Sub Command1_Click()
Picture1.BackColor = 0
Picture1.Scale (-3, 5)-(5, -5)
        'Построение графика
For X = -2 To 4 Step 0.01
    Y = X ^ 2 - 2 * X - 3
    Picture1.PSet (X, Y), vbGreen
Next X
        'Axe X
Picture1.Line (-3, 0)-(5, 0), vbCyan
For i = -3 To 4
    Picture1.PSet (i, 0), vbCyan
    Picture1.Print i
Next i
        'Axe Y
    Picture1.Line (0, -5)-(0, 5), vbCyan
For i = -4 To 5
    Picture1.PSet (0, i), vbCyan
    Picture1.Print i
Next i
End Sub

Страницы