vb.net怎么繪制帶坐標(biāo)軸的的一次函數(shù)？最好附上源碼。

1、利用公式求出Y值 　第一列設(shè)置表頭為x，下面依次填入取值， 比如 x 1 2 3 4 ...... 第二例表頭設(shè)置為y，在下面表格中填入計算公式 如 =2*x+1 然后選中點右下角的十字型標(biāo)記，拖下去，和前面x數(shù)量一致。 2、然后選中數(shù)據(jù)源（即選中要進(jìn)行操作的數(shù)據(jù)區(qū)域，這里指XY值所在區(qū)域。） 3、執(zhí)行菜單命令插入——圖表——XY散點圖 　執(zhí)行命令，打開圖表向?qū)υ捒蜻xXY散點圖－－選平滑線散點圖－－完成　 最后使用圖表向?qū)г跈M坐標(biāo)填入x值，縱坐標(biāo)填入y值，生成圖即可 將一次函數(shù)的Y列用公式編輯出來，分別填寫出當(dāng)取不同的X值時得到不的函數(shù)值，選擇函數(shù)值所在列，插入——圖表按提示操作。執(zhí)行菜單命令 執(zhí)行菜單命令

創(chuàng)新互聯(lián)長期為成百上千家客戶提供的網(wǎng)站建設(shè)服務(wù)，團(tuán)隊從業(yè)經(jīng)驗10年，關(guān)注不同地域、不同群體，并針對不同對象提供差異化的產(chǎn)品和服務(wù)；打造開放共贏平臺，與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為黃埔企業(yè)提供專業(yè)的做網(wǎng)站、成都網(wǎng)站設(shè)計，黃埔網(wǎng)站改版等技術(shù)服務(wù)。擁有10余年豐富建站經(jīng)驗和眾多成功案例,為您定制開發(fā)。

大佬們~VisualStudio中vb.net如何畫三角函數(shù)圖像？

VB系統(tǒng)的坐標(biāo)原點在左上角，X軸的正方向是水平向右，而Y軸的正方向是垂直向下。所以，要繪制三角函數(shù)的曲線，自己可以通過改變點坐標(biāo)的方法來實現(xiàn)，當(dāng)然，VB.NET提供了相應(yīng)的方法可以來實現(xiàn)坐標(biāo)變換，也可以通過VB.Net的Graphics類提供的平移、旋轉(zhuǎn)等轉(zhuǎn)換來實現(xiàn)。

下面是我通過自己變換實現(xiàn)的示例，提供參考；我的環(huán)境是VB.NET 2010

Imports System.Math

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

? '1，獲得一個Graphics對象

? Dim MyGraphics As Graphics

? MyGraphics = PictureBox1.CreateGraphics

? '2，定義一個Pen對象，用于繪制圖形（輪廓線）

? Dim MyPen As New Pen(Color.Black, 1)

? '3，定義一個Brush對象，用于填充圖形（如果需要填充的話）

? Dim MyBrush As New SolidBrush(Color.Orange)

? MyGraphics.DrawLine(MyPen, 0, 200, 700, 200)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

? '1，獲得一個Graphics對象

? Dim MyGraphics As Graphics

? MyGraphics = PictureBox1.CreateGraphics

? '2，定義一個Pen對象，用于繪制圖形（輪廓線）

? Dim MyPen As New Pen(Color.Black, 1)

? '3，定義一個Brush對象，用于填充圖形（如果需要填充的話）

? Dim MyBrush As New SolidBrush(Color.Orange)

? '聲明橫向和縱向比例變量

? Dim Heng As Integer = 20

? Dim Zong As Integer = 50

? '先獲得正弦值，保存到點坐標(biāo)數(shù)組

? Dim MyPoints(700) As Point

? Dim i As Integer

? For i = 0 To 700

? ? ? MyPoints(i) = New Point(i * Heng, 200 + Sin(i) * Zong)

? Next

? '采用繪制光滑線連接點的方式繪制曲線

? MyGraphics.DrawCurve(MyPen, MyPoints)

End Sub

End Class

顯示的效果圖：

如何用vb畫出簡易函數(shù)圖像

用vb畫出簡易函數(shù)圖像的操作步驟為：

（1）新建一個工程,新建一個Form1,在上面添加一個picture控件和一個command控件；

（2）選中此控件,右擊"復(fù)制",在窗體空白處右擊"粘貼",在彈出的對話框中選擇"是",創(chuàng)建了一個Command控件數(shù)組,復(fù)制,使窗體上總共出現(xiàn)7個Command控件；

（3）復(fù)制代碼:

Const Pi = 3.1415926535 '定義圓周率

Dim a, wor

Dim i As Integer

Static Function Loge(X)

Loge = Log(X) / Log(Exp(1))

End Function

'定義用于在Picture1上的一個位置打印字符函數(shù)

Private Function PrintWord(X, y, Word As String)

With Picture1

.CurrentX = X

.CurrentY = y

.ForeColor = RGB(0, 0, 255)

End With

Picture1.Print Word

End Function

Private Function DrawDot(Px, Py, Color)

Picture1.PSet (Px, Py), Color

End Function

Sub XY() '建立直角坐標(biāo)系

Picture1.DrawWidth = 1 '設(shè)置線條寬度

Picture1.Cls

'設(shè)定用戶坐標(biāo)系，坐標(biāo)原點在Picture1中心

Picture1.Scale (-10, 10)-(10, -10)

Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)

Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)

Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)

Picture1.ForeColor = RGB(0, 0, 255)

Picture1.Print "X"

'畫 X 軸

Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)

Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)

Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)

Picture1.Print "Y"

'畫 Y 軸

For lin = -9 To 9

Picture1.Line (lin, 0)-(lin, 0.25)

wor = PrintWord(lin - 0.5, -0.5, Str(lin))

Picture1.Line (0, lin)-(-0.25, lin)

If lin 0 Then

wor = PrintWord(-0.9, lin, Str(lin))

End If

Next lin

Picture1.DrawWidth = 2

End Sub

Private Sub Command1_Click(Index As Integer)

Select Case Index

Case 0

For a = -3 To 3 Step Pi / 6000

Dot = DrawDot(a, a ^ 2, RGB(0, 0, 0))

Next a

wor = PrintWord(4, 9, "二次曲線 y=x^2")

Case 1

For a = -9 To 9 Step Pi / 6000

Dot = DrawDot(a, a, RGB(0, 0, 0))

Next a

wor = PrintWord(8, 5, "一次曲線 y=x")

Case 2

For a = -9 To 3 Step Pi / 6000

Dot = DrawDot(a, Exp(a), RGB(0, 0, 0))

Next a

wor = PrintWord(4, 9, "指數(shù)曲線 y=e^x")

Case 3

For a = 0.0001 To 9 Step Pi / 6000

Dot = DrawDot(a, Loge(a), RGB(0, 0, 0))

Next a

wor = PrintWord(8, 3, "對數(shù)曲線 y=ln x")

Case 4

For a = -10 To 10 Step Pi / 6000

Dot = DrawDot(a, Sin(a), RGB(0, 0, 0))

Next a

wor = PrintWord(-5, 2, "正弦曲線 y=sin x")

Case 5

For a = -10 To 10 Step Pi / 6000

Dot = DrawDot(a, Cos(a), RGB(0, 0, 0))

Next a

wor = PrintWord(-9, 2, "余弦曲線 y=cos x")

Case 6

XY

End Select

End Sub

Private Sub Form_Load()

Me.Caption = "數(shù)學(xué)函數(shù)作圖?quot;"

Me.Show

Me.AutoRedraw = True

Picture1.AutoRedraw = True

Command1(0).Caption = "二次曲線"

Command1(1).Caption = "一次曲線"

Command1(2).Caption = "指數(shù)曲線"

Command1(3).Caption = "對數(shù)曲線"

Command1(4).Caption = "正弦曲線"

Command1(5).Caption = "余弦曲線"

Command1(6).Caption = "清空"

XY

End Sub

Private Sub Form_Resize()

Picture1.Width = Me.Width * 0.94

Picture1.Height = Me.Height - (Command1(0).Height * 4 + 100)

Command1(0).Top = Me.Height - (Command1(0).Height * 2.5 + 100)

Command1(0).Left = Me.Width * 0.01

For i = 1 To 6

Command1(i).Top = Me.Height - (Command1(0).Height * 2.5 + 100)

Command1(i).Left = Command1(i - 1).Left + 1000

Next

XY

End Sub

名稱欄目：vb.net繪制函數(shù)圖,用vb畫函數(shù)圖像
文章來源：http://chinadenli.net/article14/hespde.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供響應(yīng)式網(wǎng)站、外貿(mào)建站、、微信公眾號、關(guān)鍵詞優(yōu)化、動態(tài)網(wǎng)站

廣告

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