编程论坛 → VB6论坛

函数图像绘制

lyh312 发布于 2017-01-06 18:47， 987 次点击

怎么用series绘制正弦的函数图像啊，请大神指教

3 回复

lyh3122017-01-06 18:48

vb6.0的

lyh3122017-01-06 18:54

程序代码：

A = Val(Text1.Text)
    W = Val(Text2.Text)
    B = Val(Text3.Text)
    C = Val(Text4.Text)

For i = 0 To 50 Step 1
     x(i) = i
     y(i) = A * Sin(W * x(i) + B) + C
Next
     With AxTChart1.series(0).Clear()
For i = 0 To 50 Step 1
.series(0).Add(y(i), x(i), 0)

     Next
     End With
     End If
End Sub

最后series语句错误是怎么回事

yangfrancis2017-01-11 14:23

Option Explicit

Private Sub Form_Activate()
Dim i%
For i = 1 To Me.ScaleWidth / 10
Me.PSet (i * 10, Sin(i / 4) * 50 + Me.ScaleHeight / 2), vbRed
Next i
End Sub