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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » 我用vb chart 控件，画折线图，出不来，求高人给看看，
71/1返回列表
查看: 1410  |  回复: 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返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +3 7K1CJE38xLG4 2026-08-25 3/150 2026-08-25 23:20 by cNXvBfCpiZOM
[基金申请] 今天务委会开完了，明天出结果吗 +17 angus9576 2026-08-25 21/1050 2026-08-25 22:39 by 悠悠美女
[基金申请] 明天应该可查了！？ +6 chengyan1220 2026-08-23 6/300 2026-08-25 19:45 by zfd97
[基金申请] 有没有大神帮我看看基金代码 28+4 1234567wang 2026-08-24 10/500 2026-08-25 19:15 by lfy8008
[基金申请] 放榜前的不淡定 20+4 snowwithsea 2026-08-19 19/950 2026-08-25 17:57 by chick875
[基金申请] 某些机构，以效率低为荣，以效率低作为存在感 +9 yuleib84 2026-08-25 10/500 2026-08-25 17:14 by alexon
[基金申请] 人气不行了 +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
[基金申请] 2026年的国家社科基金项目通讯评审的新规则与新动向、新挑战 +5 process2012 2026-08-23 7/350 2026-08-25 09:42 by huixian257
[基金申请] 今天基金会出结果吗？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
[基金申请] 只有每年这种时候来逛逛小木虫 +25 yaoyewhu2008 2026-08-20 27/1350 2026-08-25 08:01 by Equinoxhua
[基金申请] 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
[基金申请] 时间戳今天，20号变了 +5 archvillain 2026-08-20 5/250 2026-08-22 06:12 by hui_daxiao
[基金申请] 看来今天不会放榜了？ +8 chengyan1220 2026-08-21 11/550 2026-08-21 17:52 by dcqxinyang
[基金申请] 时间戳又变了 +13 wuchongjun 2026-08-20 19/950 2026-08-21 17:21 by 紫杉醇
[基金申请] 应该是下周三26日公布了吧？ +4 哈哈蛤？ 2026-08-21 4/200 2026-08-21 10:58 by Vivilian
[基金申请] 今天放榜没戏了吧 +9 yuleib84 2026-08-19 11/550 2026-08-21 10:06 by gltch
信息提示
关闭
请填处理意见
关闭