Получите свидетельство
Вход
Архив содержит объяснение материала на интерактивной доске smart и программа построения параболы на языке Visual Basic.
Программа построения параболы:
Dim X, Y, a, b, c As double, I As Integer
Private Sub comand1_Click()
параметры
масштаб
'построение графика
For X = -10 To 10 Step 0.025
Y = a * X * X + b * X + c
picGraph.Circle (X, Y), 0.025, vbRed
Next
ox
oy
End Sub
Private Sub масштаб()
'задание масштаба
picGraph.Scale (-10, 6)-(10, -6)
End Sub
Private Sub ox()
' ось ОХ
picGraph.Line (-10, 0)-(10, 0)
For i = -10 To 10
picGraph.PSet (i, 0)
picGraph.Print i
Next
End Sub
Private Sub oy()
' ось Оy
picGraph.Line (0, -6)-(0, 6)
For i = -6 To 6
picGraph.PSet (0, i)
picGraph.Print i
Next
End Sub
Private Sub параметры()
a = Text1.Text
a=val(a)
b = Text2.Text
b=val(b)
c = Text3.Text
c=val(c)
End Sub
Графические возможности языка программирования Visual Basic 6.0 (1.5 MB)
0
689
18
Нравится
0
