VB.NET 實(shí)時曲線

拖一個PictureBox1控件 創(chuàng)建一個Paint事件。在事件中加入 Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint ' Create pens. Dim redPen As New Pen(Color.Red, 3) Dim greenPen As New Pen(Color.Green, 3) ' Create points that define curve. Dim point1 As New Point(50, 50) Dim point2 As New Point(100, 25) Dim point3 As New Point(200, 5) Dim point4 As New Point(250, 50) Dim point5 As New Point(300, 100) Dim point6 As New Point(350, 200) Dim point7 As New Point(250, 250) Dim curvePoints As Point() = {point1, point2, point3, point4, _ point5, point6, point7} ' Draw lines between original points to screen. e.Graphics.DrawLines(redPen, curvePoints) ' Draw curve to screen. e.Graphics.DrawCurve(greenPen, curvePoints) End Sub 得到數(shù)據(jù)后，改point的數(shù)據(jù)。然后PictureBox1.Refresh()就行了

創(chuàng)新互聯(lián)建站從2013年開始，是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司，擁有項(xiàng)目網(wǎng)站制作、成都網(wǎng)站建設(shè)網(wǎng)站策劃，項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個夢想脫穎而出為使命，1280元通遼做網(wǎng)站,已為上家服務(wù),為通遼各地企業(yè)和個人服務(wù),聯(lián)系電話:18982081108

vb.net中，我用picturebox控件畫曲線。使用picturebox.CreateGraphics()畫線，請教保存問題？？

首先你要建一個 Bitmap

再將picture控件的image屬性與之相關(guān)聯(lián)

再到 picture的image上畫線

保存image到文件

/////////////////////////////////

Dim mybitmap As Bitmap

mybitmap = New Bitmap(300, 150)

PictureBox0.Image = mybitmap

Dim Graph As Graphics

Graph =Graphics.FromImage(PictureBox0.image)

Graph .drawline(Pens.Blue,0,0,111,111)

picturebox0.image.save("c:\aaa.jpg")

/////////////////////////////////////

存成的文件絕對有你畫的線..我一直在用這種方法

vb.net中怎樣曲線圖，棒圖，和餅圖

vb2010以后的版本就自帶Chart控件了，比如

Chart1.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Pie '餅圖

VB中，將從下位機(jī)讀取的數(shù)據(jù)，用控件的方式畫出以時間為橫軸的曲線

1.用picturebox 控件可以實(shí)現(xiàn)

2.可以使用Scale方法移動坐標(biāo)原始位置和改變坐標(biāo)軸方向，以下該方法：

Scale(x1,y1)-(x2,y2)

X1和y1為對象左上角的新坐標(biāo)位置；

X2和y2為對象右下角的新坐標(biāo)位置；

現(xiàn)在讓我們看看一些范例。這一方法將使原點(diǎn)處于左上角，但將坐標(biāo)系統(tǒng)單位改變?yōu)榇绑w大小的1/100：

Picture1.Scale(0,0)-(100,100)

以下調(diào)用將移動原點(diǎn)到窗體的左下角，并旋轉(zhuǎn)Y軸：

Picture1.Scale(0,100)-(100, 0)

以下調(diào)用將移動原點(diǎn)到窗體的正中心，并旋轉(zhuǎn)Y軸，然后將坐標(biāo)單位轉(zhuǎn)換為窗體大小的1/5000：

Picture1.Scale(-2500,2500)-(2500,2500)

用Picture1.Line （x1,y1）-(x2,y2)

如果不指定(x1,y1)則line方法默認(rèn)為上次line方法的(x2,y2)為當(dāng)前l(fā)ine方法(x1,y1)

For i = 1 To 100

j = i + 10

Me.Picture1.Line -(i, j), vbRed '可以指定畫線的顏色

Next

3.如果畫到最右邊的時候，可以清掉picturebox 的內(nèi)容，從頭再畫。

給段代碼，供參考：

Private Sub Form_Load()

Dim i, j As Integer

Me.Picture1.Scale (0, Me.Picture1.Height)-(Me.Picture1.Width, 0)

Me.Picture1.AutoRedraw = True

Me.Picture1.Line (0, 0)-(0, 0), vbRed

For i = 1 To 1000

j = i + 10

Me.Picture1.Line -(i, j), vbRed

Next

End Sub

我這樣畫過曲線，大概思路就是這樣吧，希望能幫到你

vb.net實(shí)現(xiàn)實(shí)時數(shù)據(jù)采集曲線，有什么方法，或是書籍呢？

簡單說下思路吧，具體的代碼可以查資料

首先要會畫曲線圖，有三種方法：

1、用mschar控件（vb6的）；2、用水晶報表；3、用word圖表

x軸為時間，y軸為數(shù)據(jù)

要實(shí)現(xiàn)實(shí)時數(shù)據(jù)刷新，只要用 定時器 定時刷新曲線圖的數(shù)據(jù)就可以了（x、y的數(shù)據(jù)重寫）

分享文章：vb.net曲線控件 vb如何繪制曲線圖
網(wǎng)頁網(wǎng)址：http://jinyejixie.com/article18/hpdpgp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供App設(shè)計、網(wǎng)站維護(hù)、網(wǎng)站改版、軟件開發(fā)、品牌網(wǎng)站制作、App開發(fā)

廣告

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