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)站開發(fā)、高端網(wǎng)站設(shè)計(jì)、成都全網(wǎng)營(yíng)銷。我們專注企業(yè)品牌在網(wǎng)站中的整體樹立，網(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 ?類

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ù)說明

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畫出曲線圖，在線等急！

設(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

畫線命令,格式:

line

(起點(diǎn)X坐標(biāo),起點(diǎn)Y坐標(biāo))-(終點(diǎn)X坐標(biāo),終點(diǎn)Y坐標(biāo)),顏色

vb.net 畫二維數(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隨便在哪增加，想要看見看上去動(dòng)態(tài)的圖，那就在新增完n個(gè)后，繼續(xù)增加n+1個(gè)之時(shí)，放棄points中的第一個(gè)。

怎么樣才能把一個(gè)一維數(shù)組的數(shù)值曲線畫出來?用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)，以些類推。

'-(a(i?-?1)這個(gè)參數(shù)前一個(gè)負(fù)數(shù)不是負(fù)數(shù)，是忽略的直線起點(diǎn)坐標(biāo)，表示從當(dāng)前默認(rèn)坐標(biāo)位置開始。

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

網(wǎng)頁(yè)題目：vb.net數(shù)組畫曲線,vb如何繪制曲線圖
網(wǎng)頁(yè)路徑：http://chinadenli.net/article41/dseoped.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供電子商務(wù)、營(yíng)銷型網(wǎng)站建設(shè)、定制網(wǎng)站、靜態(tài)網(wǎng)站、網(wǎng)站導(dǎo)航、ChatGPT

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)