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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » 我用vb chart 控件，画折线图，出不来，求高人给看看，
51/1返回列表
查看: 1291  |  回复: 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的回帖

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的回帖
查看全部 7 个回答

deephill

铁杆木虫 (职业作家)

【答案】应助回帖

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

其中用temp() 数组，估计你的i 值设置有问题，或是没有设置 i 的初值。造成错误。
赞一下 回复此楼
2楼2014-11-28 21:19:59
已阅   回复此楼   关注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的回帖
查看全部 7 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿华理，数一英一285求A区调剂 +8 AZMK 2026-03-25 10/500 2026-03-26 22:37 by 学员8dgXkO
[考研] 324求调剂 +4 wysyjs25 2026-03-21 4/200 2026-03-26 20:38 by fmesaito
[考研] 352求调剂 +4 大米饭！ 2026-03-22 4/200 2026-03-26 16:40 by 不吃魚的貓
[考研] 机械学硕310分，数一英一，一志愿211本科双非找调剂信息 +3 @357 2026-03-25 3/150 2026-03-26 16:34 by by.MENG
[考研] 一志愿 西北大学 总分282 英语一62 求调剂 +7 18419759900 2026-03-25 7/350 2026-03-26 16:07 by 不吃魚的貓
[考研] 263求调剂 +6 yqdszhdap－ 2026-03-22 10/500 2026-03-26 13:11 by 公瑾逍遥
[考研] 材料与化工328分调剂 +6 。，。，。，。i 2026-03-23 6/300 2026-03-25 22:30 by 418490947
[考研] 334分 一志愿武理-080500 材料求调剂 +4 李李不服输 2026-03-25 4/200 2026-03-25 21:26 by 星空星月
[考研] 材料专硕 335 分求调剂 +4 拒绝冷暴力 2026-03-25 4/200 2026-03-25 18:45 by haxia
[考研] 求调剂 +5 林之夕 2026-03-24 5/250 2026-03-24 17:16 by dick_runner
[考研] 292求调剂 +4 鹅鹅鹅额额额额� 2026-03-24 4/200 2026-03-24 16:41 by peike
[考研] 一志愿山东大学药学学硕求调剂 +3 开开心心没烦恼 2026-03-23 4/200 2026-03-24 00:06 by 开开心心没烦恼
[考研] 一志愿北京化工大学 070300 学硕 336分 求调剂 +7 vv迷 2026-03-22 7/350 2026-03-23 23:44 by Txy@872106
[考研] 336求调剂 +4 收到VS 2026-03-20 4/200 2026-03-23 19:02 by macy2011
[考研] 接收2026硕士调剂(学硕+专硕) +4 allen-yin 2026-03-23 6/300 2026-03-23 15:04 by 汪！？！
[考研] 276求调剂 +3 YNRYG 2026-03-21 4/200 2026-03-23 08:31 by 醉在风里
[考研] 260求调剂 +3 朱芷琳 2026-03-20 4/200 2026-03-22 15:12 by 朱芷琳
[考研] 考研调剂 +3 呼呼？~+123456 2026-03-21 3/150 2026-03-21 20:04 by 无际的草原
[考研] 一志愿重庆大学085700资源与环境总分308求调剂 +7 墨墨漠 2026-03-20 7/350 2026-03-21 16:36 by barlinike
[考研] 0805材料320求调剂 +3 深海物语 2026-03-20 3/150 2026-03-21 15:46 by 无际的草原
信息提示
关闭
请填处理意见
关闭