Нарисовать график - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д