| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 858 人关注过本帖
标题:函数图像绘制
只看楼主 加入收藏
lyh312
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2017-1-6
结帖率:0
收藏
已结贴  问题点数:20 回复次数:3 
函数图像绘制
怎么用series绘制正弦的函数图像啊,请大神指教
2017-01-06 18:47
lyh312
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2017-1-6
收藏
得分:0 
vb6.0的
2017-01-06 18:48
lyh312
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2017-1-6
收藏
得分:0 
程序代码:
 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语句错误是怎么回事
2017-01-06 18:54
yangfrancis
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:贵宾
威 望:141
帖 子:1510
专家分:7661
注 册:2014-5-19
收藏
得分:20 
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
2017-01-11 14:23
快速回复:函数图像绘制
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.028610 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved