vb.net數(shù)組畫(huà)曲線,vb如何繪制曲線圖
vb.net繪制曲線圖
。net ?其實(shí)還是很好繪制圖形的
成都創(chuàng)新互聯(lián)是一家網(wǎng)站設(shè)計(jì)公司，集創(chuàng)意、互聯(lián)網(wǎng)應(yīng)用、軟件技術(shù)為一體的創(chuàng)意網(wǎng)站建設(shè)服務(wù)商，主營(yíng)產(chǎn)品：響應(yīng)式網(wǎng)站開(kāi)發(fā)、高端網(wǎng)站設(shè)計(jì)、成都全網(wǎng)營(yíng)銷(xiāo)。我們專注企業(yè)品牌在網(wǎng)站中的整體樹(shù)立，網(wǎng)絡(luò)互動(dòng)的體驗(yàn)，以及在手機(jī)等移動(dòng)端的優(yōu)質(zhì)呈現(xiàn)。網(wǎng)站設(shè)計(jì)制作、網(wǎng)站制作、移動(dòng)互聯(lián)產(chǎn)品、網(wǎng)絡(luò)運(yùn)營(yíng)、VI設(shè)計(jì)、云產(chǎn)品.運(yùn)維為核心業(yè)務(wù)。為用戶提供一站式解決方案，我們深知市場(chǎng)的競(jìng)爭(zhēng)激烈，認(rèn)真對(duì)待每位客戶，為客戶提供賞析悅目的作品，網(wǎng)站的價(jià)值服務(wù)。
你可以看下?Graphics ?類(lèi)
Dim d As New Bitmap(Me.Width, Me.Height) ?‘一個(gè)圖片吧
? Dim g As Graphics = Graphics.FromImage(d)’繪制 ?準(zhǔn)備在這個(gè)圖片是進(jìn)行
然后 ?就是你繪制的東西了
線 就是 ??g.DrawLine()
圓 弧度 ?就用 ?g.DrawArc(Pens.Black, New Rectangle(0, 0, 400, 200), 0, 360)
復(fù)雜的就是 ? ? ?g.DrawBezier()
等 ?如果你用的是 VS的 ?編譯 ?上面都有詳細(xì)的參數(shù)說(shuō)明
Dim?d?As?New?Bitmap(Me.Width,?Me.Height)
Dim?g?As?Graphics?=?Graphics.FromImage(d)
g.DrawArc(Pens.Black,?New?Rectangle(0,?0,?200,?200),?0,?360)
g.DrawLine(Pens.Red,?New?Point(0,?0),?New?Point(200,?200))
g.DrawLines(Pens.Green,?New?Point()?{New?Point(0,?0),?New?Point(50,?40),?New?Point(50,?80),?New?Point(90,?70),?New?Point(100,?400)})
g.DrawBezier(Pens.Yellow,?New?Point(0,?100),?New?Point(0,?0),?New?Point(200,?0），?New?Point(200,?200))
g.Dispose()
Me.BackgroundImage?=?d
給出一組數(shù)據(jù)怎么用VB畫(huà)出曲線圖，在線等急！
設(shè)數(shù)據(jù)放在D(10)這個(gè)數(shù)組中,最小值1最大值1000,加一picture,屬性:width=1000,height=1000
for
i=1
to
10
picture1.line
((i-1)*100,d(i-1))-(i*100,d(i))
next
這只是簡(jiǎn)單的,至于其它數(shù)據(jù),其它情況,或其它效果,只要改line后面的算法就可以了!
line
畫(huà)線命令,格式:
line
(起點(diǎn)X坐標(biāo),起點(diǎn)Y坐標(biāo))-(終點(diǎn)X坐標(biāo),終點(diǎn)Y坐標(biāo)),顏色
vb.net 畫(huà)二維數(shù)組的曲線圖
Private Sub PictureBox2_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox2.Paint
Dim points As New List(Of Point)
points.Add(New Point(0, 0))
points.Add(New Point(1, 10))
points.Add(New Point(3, 15))
points.Add(New Point(14, 0))
points.Add(New Point(20, 60))
points.Add(New Point(40, 20))
points.Add(New Point(70, 50))
e.Graphics.DrawCurve(Pens.Red, points.ToArray)
End Sub
供參考，points可設(shè)為全局變量，那樣add隨便在哪增加，想要看見(jiàn)看上去動(dòng)態(tài)的圖，那就在新增完n個(gè)后，繼續(xù)增加n+1個(gè)之時(shí)，放棄points中的第一個(gè)。
怎么樣才能把一個(gè)一維數(shù)組的數(shù)值曲線畫(huà)出來(lái)?用VB
窗體上放三個(gè)按鈕，一個(gè)圖片框，看看效果？
Dim?a(300)?As?Single
Private?Sub?Command1_Click()
Picture1.Cls
Dim?i?As?Integer
Picture1.CurrentX?=?0
Picture1.CurrentY?=?a(0)
For?i?=?1?To?UBound(a)
Picture1.Line?-(i?*?30,?a(i))?'以數(shù)組索引為X坐標(biāo),數(shù)值元素為Y坐標(biāo)
Next
End?Sub
Private?Sub?Command2_Click()
Picture1.Cls
Dim?i?As?Integer
Picture1.CurrentX?=?a(0)
Picture1.CurrentY?=?a(1)
For?i?=?3?To?UBound(a)?Step?2
Picture1.Line?-(a(i?-?1),?a(i))
'數(shù)組第一維為X坐標(biāo)，第二維為Y坐標(biāo)，以些類(lèi)推。
'-(a(i?-?1)這個(gè)參數(shù)前一個(gè)負(fù)數(shù)不是負(fù)數(shù)，是忽略的直線起點(diǎn)坐標(biāo)，表示從當(dāng)前默認(rèn)坐標(biāo)位置開(kāi)始。
Next
End?Sub
Private?Sub?Command3_Click()?'生存數(shù)組隨機(jī)值
Dim?i?As?Integer
Randomize
For?i?=?0?To?UBound(a)
a(i)?=?Round(3000?*?Rnd,?2)
Next
End?Sub
Private?Sub?Form_Load()
Picture1.AutoRedraw?=?True
Command3_Click
End?Sub
新聞標(biāo)題：vb.net數(shù)組畫(huà)曲線,vb如何繪制曲線圖
文章起源：http://m.jiaotiyi.com/article/dseoped.html