版塊導(dǎo)航: 正在加載中...

登錄注冊

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進行實名認證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號能夠正常使用，請盡快對帳號進行手機號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

北京石油化工學院2026年研究生招生接收調(diào)劑公告

返回列表

Fanyb_1993

新蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 0.5
帖子: 10
在線: 2.6小時
蟲號: 3000188
注冊: 2014-02-27
性別: GG
專業(yè): 半導(dǎo)體物理

[求助] 我用vb chart 控件，畫折線圖，出不來，求高人給看看，已有1人參與

四個點的坐標分別為（0,20）（1,80）（4,200）（10,270），總顯示索引越界，我也不知道哪錯了，求高人指導(dǎo)，
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 = "自動控溫系統(tǒng)溫度顯示"
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

回復(fù)此樓

» 猜你喜歡

壓國家一區(qū)線，求導(dǎo)師收留，有恩必謝！已經(jīng)有4人回復(fù)
081200-314 已經(jīng)有4人回復(fù)
289求調(diào)劑已經(jīng)有9人回復(fù)
085405 考的11408求各位老師帶走已經(jīng)有3人回復(fù)
339求調(diào)劑已經(jīng)有6人回復(fù)
材料與化工272求調(diào)劑已經(jīng)有4人回復(fù)
085701環(huán)境工程，267求調(diào)劑已經(jīng)有15人回復(fù)
材料求調(diào)劑一志愿哈工大324 已經(jīng)有9人回復(fù)
292求調(diào)劑已經(jīng)有15人回復(fù)
304求調(diào)劑已經(jīng)有5人回復(fù)

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

這種圖是怎么畫的？用origin嗎？已經(jīng)有4人回復(fù)

1樓 2014-11-27 23:57:47

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

deephill

鐵桿木蟲 (職業(yè)作家)

應(yīng)助: 59 (初中生)
金幣: 5262.3
散金: 100
紅花: 16
帖子: 4425
在線: 425小時
蟲號: 305318
注冊: 2006-12-09
性別: GG
專業(yè): 微量元素地球化學

【答案】應(yīng)助回帖

感謝參與，應(yīng)助指數(shù) +1

我把你的程序運行了一下，沒有什么問題啊。
我估計是你這一句中出了問題
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = temp(i)

其中用temp() 數(shù)組，估計你的i 值設(shè)置有問題，或是沒有設(shè)置 i 的初值。造成錯誤。

贊一下

回復(fù)此樓

2樓2014-11-28 21:19:59

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

Fanyb_1993

新蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 0.5
帖子: 10
在線: 2.6小時
蟲號: 3000188
注冊: 2014-02-27
性別: GG
專業(yè): 半導(dǎo)體物理

引用回帖:

2樓: Originally posted by deephill at 2014-11-28 21:19:59
我把你的程序運行了一下，沒有什么問題啊。
我估計是你這一句中出了問題
MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = temp(i)

其中用temp() 數(shù)組，估計你的i 值設(shè)置有問題，或是沒有設(shè)置 i 的初值。 ...

我的 temp（）是個靜態(tài)數(shù)組，這沒有問題，我是想知道橫坐標為啥不對啊，你沒發(fā)現(xiàn)橫坐標間距都不對嗎，

[ 發(fā)自小木蟲客戶端 ]

贊一下

回復(fù)此樓

3樓2014-11-29 00:27:20

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

deephill

鐵桿木蟲 (職業(yè)作家)

應(yīng)助: 59 (初中生)
金幣: 5262.3
散金: 100
紅花: 16
帖子: 4425
在線: 425小時
蟲號: 305318
注冊: 2006-12-09
性別: GG
專業(yè): 微量元素地球化學

【答案】應(yīng)助回帖

我的程序
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 = "自動控溫系統(tǒng)溫度顯示"
MSChart1.Plot.Axis(VtChAxisIdX, 0).AxisTitle = "時間 / 分鐘"
MSChart1.Plot.Axis(VtChAxisIdY, 0).AxisTitle = "溫度 / ℃"

MSChart1.ChartData = MyData

End Sub
---------------------------
運行結(jié)果如圖。

你的這個程序有點意思，特別是最后的那個for循環(huán)，要不要都一樣。

贊一下

回復(fù)此樓

» 本帖附件資源列表

歡迎監(jiān)督和反饋：小木蟲僅提供交流平臺，不對該內(nèi)容負責。
本內(nèi)容由用戶自主發(fā)布，如果其內(nèi)容涉及到知識產(chǎn)權(quán)問題，其責任在于用戶本人，如對版權(quán)有異議，請聯(lián)系郵箱：xiaomuchong@tal.com
附件 1 : QQ截圖20141129162204.png

2014-11-29 16:25:07, 5.79 K

4樓2014-11-29 16:27:30

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

Fanyb_1993

新蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 0.5
帖子: 10
在線: 2.6小時
蟲號: 3000188
注冊: 2014-02-27
性別: GG
專業(yè): 半導(dǎo)體物理

引用回帖:

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
...

要不要都一樣什么意思？

贊一下

回復(fù)此樓

5樓2014-12-01 22:51:08

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

deephill

鐵桿木蟲 (職業(yè)作家)

應(yīng)助: 59 (初中生)
金幣: 5262.3
散金: 100
紅花: 16
帖子: 4425
在線: 425小時
蟲號: 305318
注冊: 2006-12-09
性別: GG
專業(yè): 微量元素地球化學

【答案】應(yīng)助回帖

是你的程序中最后的兩個for語句
For Column = 1 To 4
For Row = 1 To 2
         MSChart1.Column = Column
         MSChart1.Row = Row
         MSChart1.ChartData = mydata
Next Row
   Next Column

你做下比較就知道了。

贊一下

回復(fù)此樓

6樓2014-12-04 00:07:09

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

Fanyb_1993

新蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 0.5
帖子: 10
在線: 2.6小時
蟲號: 3000188
注冊: 2014-02-27
性別: GG
專業(yè): 半導(dǎo)體物理

引用回帖:

5樓: Originally posted by Fanyb_1993 at 2014-12-01 22:51:08
要不要都一樣什么意思？...

其實我不知道兩個for是什么意思，總會顯示
MSChart1.Column = j
MSChart1.Row = k 索引越界
再一個問題是，你有沒有發(fā)現(xiàn)，相鄰兩個點的橫坐標差多少在圖上顯示出來都是一樣的，這有問題啊？

贊一下

回復(fù)此樓

7樓2014-12-07 21:00:55

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 Fanyb_1993 的主題更新

返回列表

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 材料與化工272求調(diào)劑 +4	阿斯蒂芬2004 2026-03-28	4/200	2026-03-28 09:15 by 樂呵呵的追夢人
[考研] 一志愿南昌大學324求調(diào)劑 +6	hanamiko 2026-03-27	6/300	2026-03-28 07:46 by barnett0632
[考研] 265求調(diào)劑 +8	小木蟲085600 2026-03-27	8/400	2026-03-27 22:16 by 無際的草原
[考研] 化學調(diào)劑 +4	愛吃番茄的旭 2026-03-24	5/250	2026-03-27 17:50 by kiokin
[考研] 305求調(diào)劑 +5	哇盧卡庫 2026-03-26	5/250	2026-03-27 14:01 by laoshidan
[考研] 315調(diào)劑 +4	0860求調(diào)劑 2026-03-26	5/250	2026-03-27 11:23 by wangjy2002
[考研] 081200-11408-276學碩求調(diào)劑 +3	崔wj 2026-03-26	3/150	2026-03-27 07:58 by chemisry
[考研] 349求調(diào)劑 +5	杰斯塔里斯 2026-03-21	5/250	2026-03-27 00:31 by wxiongid
[考研] 321求調(diào)劑 +6	Ymlll 2026-03-24	6/300	2026-03-26 20:50 by 不吃魚的貓
[考研] 297求調(diào)劑 +6	田洪有 2026-03-26	6/300	2026-03-26 15:55 by 不吃魚的貓
[考研] 材料277求調(diào)劑 +5	min3 2026-03-24	5/250	2026-03-26 15:13 by zzll406
[考研] 總分293求調(diào)劑 +6	加一一九 2026-03-25	8/400	2026-03-26 13:30 by yujianx
[考研] 347求調(diào)劑 +4	L when 2026-03-25	4/200	2026-03-25 13:37 by cocolv
[考研] 0703化學求調(diào)劑 +6	奶油草莓. 2026-03-22	7/350	2026-03-25 10:00 by shangxh
[考研] 318求調(diào)劑 +3	plum李子 2026-03-23	3/150	2026-03-25 09:42 by 霧散后相遇lc
[考研] 311求調(diào)劑 +3	冬十三 2026-03-24	3/150	2026-03-24 21:31 by peike
[考研] 277分求調(diào)劑，跨調(diào)材料 +3	考研調(diào)劑lxh 2026-03-24	3/150	2026-03-24 13:52 by JourneyLucky
[考研] 求調(diào)劑 +7	十三加油 2026-03-21	7/350	2026-03-23 23:48 by 熱情沙漠
[考研] 環(huán)境學碩288求調(diào)劑 +8	皮皮皮123456 2026-03-22	8/400	2026-03-23 23:47 by 熱情沙漠
[考研] 一志愿重慶大學085700資源與環(huán)境，總分308求調(diào)劑 +7	墨墨漠 2026-03-23	8/400	2026-03-23 20:36 by Creta

24小時熱門版塊排行榜

[求助] 我用vb chart 控件，畫折線圖，出不來，求高人給看看， 已有1人參與

» 猜你喜歡

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

» 本帖附件資源列表

【答案】應(yīng)助回帖

[求助] 我用vb chart 控件，畫折線圖，出不來，求高人給看看，已有1人參與

» 本主題相關(guān)價值貼推薦，對您同樣有幫助: