应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » 我用vb chart 控件，画折线图，出不来，求高人给看看，
71/1返回列表
查看: 1409  |  回复: 6
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

Fanyb_1993

新虫 (初入文坛)

[求助] 我用vb chart 控件，画折线图，出不来，求高人给看看， 已有1人参与

四个点的坐标分别为（0,20）（1,80）（4,200）（10,270），总显示索引越界，我也不知道哪错了，求高人指导，
mydata(1, 1) = 0: mydata(1, 2) = 20
mydata(2, 1) = 1: mydata(2, 2) = 80
mydata(3, 1) = 4: mydata(3, 2) = 200
mydata(4, 1) = 10: mydata(4, 2) = 270
MSChart1.chartType = VtChChartType2dLine
MSChart1.Plot.Axis(VtChAxisIdX).ValueScale.Auto = False
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Auto = False
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = temp(i)
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 20
MSChart1.Plot.Axis(VtChAxisIdX).ValueScale.Minimum = 0
MSChart1.ColumnCount = 4
MSChart1.RowCount = 1
MSChart1.TitleText = "自动控温系统温度显示"
MSChart1.Plot.Axis(VtChAxisIdX, 0).AxisTitle = "时间 / 分钟"
MSChart1.Plot.Axis(VtChAxisIdY, 0).AxisTitle = "温度 / ℃"
For Column = 1 To 4
    For Row = 1 To 2
            MSChart1.Column = Column
            MSChart1.Row = Row
            MSChart1.ChartData = mydata
Next Row
      Next Column
End Sub
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2014-11-27 23:57:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

deephill

铁杆木虫 (职业作家)

【答案】应助回帖

感谢参与，应助指数 +1
我把你的程序运行了一下，没有什么问题啊。
我估计是你这一句中出了问题
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = temp(i)

其中用temp() 数组，估计你的i 值设置有问题，或是没有设置 i 的初值。造成错误。
赞一下 回复此楼
2楼2014-11-28 21:19:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Fanyb_1993

新虫 (初入文坛)
引用回帖:
2楼: Originally posted by deephill at 2014-11-28 21:19:59
我把你的程序运行了一下，没有什么问题啊。
我估计是你这一句中出了问题
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = temp(i)

其中用temp() 数组，估计你的i 值设置有问题，或是没有设置 i 的初值。 ...

我的 temp（）是个静态数组，这没有问题，我是想知道横坐标为啥不对啊，你没发现横坐标间距都不对吗，

[ 发自小木虫客户端 ]
赞一下 回复此楼
3楼2014-11-29 00:27:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

deephill

铁杆木虫 (职业作家)

【答案】应助回帖

我的程序
Private Sub Command1_Click()

    Dim MyData(10, 10) As Double
    Dim temp(1 To 500) As Double
    '-----x轴坐标值-----Y轴坐标值----------
    For i = 1 To 500
        temp(i) = i
    Next i
    i = 300

    MyData(1, 1) = 0: MyData(1, 2) = 20
    MyData(2, 1) = 1: MyData(2, 2) = 80
    MyData(3, 1) = 4: MyData(3, 2) = 200
    MyData(4, 1) = 10: MyData(4, 2) = 270
    MSChart1.chartType = VtChChartType2dLine

    MSChart1.Plot.Axis(VtChAxisIdX).ValueScale.Auto = False
    MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Auto = False

    MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
    MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = temp(i)

    MSChart1.Plot.Axis(VtChAxisIdX).ValueScale.Minimum = 0
    ''''MSChart1.Plot.Axis(VtChAxisIdX).ValueScale.Maximum = 10

    MSChart1.ColumnCount = 4
    MSChart1.RowCount = 1

    MSChart1.TitleText = "自动控温系统温度显示"
    MSChart1.Plot.Axis(VtChAxisIdX, 0).AxisTitle = "时间 / 分钟"
    MSChart1.Plot.Axis(VtChAxisIdY, 0).AxisTitle = "温度 / ℃"

    MSChart1.ChartData = MyData

End Sub
---------------------------
运行结果如图。

你的这个程序有点意思，特别是最后的那个for循环，要不要都一样。
赞一下 回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
    本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com
  • 附件 1 : QQ截图20141129162204.png
    • 2014-11-29 16:25:07, 5.79 K
4楼2014-11-29 16:27:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Fanyb_1993

新虫 (初入文坛)
引用回帖:
4楼: Originally posted by deephill at 2014-11-29 16:27:30
我的程序
Private Sub Command1_Click()

    Dim MyData(10, 10) As Double
    Dim temp(1 To 500) As Double
    '-----x轴坐标值-----Y轴坐标值----------
    For i = 1 To 500
        temp(i) = i
  ...

要不要都一样什么意思？
赞一下 回复此楼
5楼2014-12-01 22:51:08
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

deephill

铁杆木虫 (职业作家)

【答案】应助回帖

是你的程序中最后的 两个for语句  
For Column = 1 To 4
    For Row = 1 To 2
            MSChart1.Column = Column
            MSChart1.Row = Row
            MSChart1.ChartData = mydata
Next Row
      Next Column

你做下比较就知道了。
赞一下 回复此楼
6楼2014-12-04 00:07:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Fanyb_1993

新虫 (初入文坛)
引用回帖:
5楼: Originally posted by Fanyb_1993 at 2014-12-01 22:51:08
要不要都一样什么意思？...

其实我不知道两个for是什么意思，总会显示
           MSChart1.Column = j
           MSChart1.Row = k    索引越界
再一个问题是，你有没有发现，相邻两个点的横坐标差多少在图上显示出来都是一样的，这有问题啊？
赞一下 回复此楼
7楼2014-12-07 21:00:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 Fanyb_1993 的主题更新
71/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 某些机构，以效率低为荣，以效率低作为存在感 +9 yuleib84 2026-08-25 10/500 2026-08-25 17:14 by alexon
[基金申请] 今天务委会开完了，明天出结果吗 +11 angus9576 2026-08-25 11/550 2026-08-25 17:08 by ZJTJZ
[基金申请] 有没有大神帮我看看基金代码 28+3 1234567wang 2026-08-24 9/450 2026-08-25 16:51 by 北京莱茵编辑
[基金申请] 2026国自然函评费到账 +20 羊腰板 2026-08-21 23/1150 2026-08-25 16:34 by zsna
[基金申请] 在坚冰还盖着北海的时候，我看到了怒放的梅花。 +6 ziyangfang 2026-08-25 8/400 2026-08-25 16:28 by 宝贝的猪
[基金申请] 什么时候开奖？ +12 CrisMessi 2026-08-18 13/650 2026-08-25 14:40 by ZJTJZ
[基金申请] 如果此刻你正在为国基感到焦虑，不妨来听听这首《基金之外》 +8 scalable 2026-08-24 8/400 2026-08-25 12:52 by jnhyjjm
[基金申请] 没有任何消息-是不是就凉了 +9 图啦图啦 2026-08-24 10/500 2026-08-25 11:59 by 南海小哥
[基金申请] 人气不行了 +11 fansofjerry 2026-08-21 11/550 2026-08-25 11:04 by 孤独的英雄6
[教师之家] 导师吐槽：我怎么摊上了这么个极品研究生！ +3 苏东坡二世 2026-08-23 3/150 2026-08-25 10:35 by shisan1313
[基金申请] 今天基金会出结果吗？20260819 +17 kkkl_v 2026-08-19 18/900 2026-08-25 09:41 by windflowerwy
[基金申请] 我面上完蛋了 +13 且听虎啸 2026-08-20 14/700 2026-08-25 09:10 by mrkang
[基金申请] 范进中举一文的中心思想 +7 炎黄贵胄 2026-08-22 8/400 2026-08-25 08:48 by ZJTJZ
[基金申请] 能否退出参与的面上项目解除限项 +21 koalala 2026-08-24 24/1200 2026-08-24 19:25 by 家与远方
[基金申请] filecode，4个jtjc了 +14 ziyangfang 2026-08-19 17/850 2026-08-24 18:37 by 哈哈蛤？
[基金申请] 建议基金发布提前给出明确的时间点 +13 kulium 2026-08-21 16/800 2026-08-24 16:27 by superceng
[基金申请] 让我中一个面上吧！ +13 大萍1987 2026-08-20 16/800 2026-08-24 10:23 by 太傻了
[基金申请] 科研孤儿太难了 +18 我4大白菜 2026-08-20 19/950 2026-08-24 09:47 by 凯恩广盛催化分�
[教师之家] 跳槽后在研项目怎么办？ +5 简单化xn 2026-08-22 10/500 2026-08-23 12:38 by 简单化xn
[基金申请] 基金啊基金 +4 longfie172 2026-08-20 4/200 2026-08-21 08:58 by mark mao
信息提示
关闭
请填处理意见
关闭