Нарисовать график - VB

Узнай цену своей работы

Формулировка задачи:

Срочно нуждаюсь в помощи. С ВБ никогда не работал (немного рублю в Delphi). Завтра мне нужно сдать сдать программу, а обучиться программированию на Бейсике за одну ночь я не могу. Задача легкая, надеюсь, что вы мне поможете Текст задания: Написать программу на алгоритмическом языке Visual Basic для следующей задачи: В графическом окне экранной формы построить график функции y=sin(x). Установить границы аргумента от -12 до 12

Решение задачи: «Нарисовать график»

textual
Листинг программы
Private Sub Command1_Click()
Dim w, h, i
w = 12: h = 2
Picture1.Scale (-w - 1, h)-(w + 1, -h)
 
Picture1.DrawStyle = 0
 
Picture1.Cls
Picture1.Line (-w - 1, 0)-(w + 1, 0), 0
Picture1.Line (0, h)-(0, -h)
For i = -w To w
Picture1.Line (i, 0.1)-(i, -0.1)
Picture1.CurrentX = i - 0.5
Picture1.Print i
Next i
Picture1.DrawStyle = 2
Picture1.Line (-w, 1)-(w, 1)
Picture1.CurrentX = 0
Picture1.CurrentY = 1: Picture1.Print 1
Picture1.CurrentY = -1: Picture1.Print -1
Picture1.Line (-w, -1)-(w, -1)
For i = -w To w Step 0.01
Picture1.PSet (i, f(i)), vbRed
'Picture1.Line (i, Sin(i))-(i + 0.1, f(i + 0.01)), vbRed
Next i
 
End Sub
Function f(x)
f = Sin(x)
End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.667 из 5
Похожие ответы