建站
咨詢
售后
建站咨詢
新聞中心
vb.net繪制曲線圖
。net ?其實還是很好繪制圖形的
成都創(chuàng)新互聯(lián)公司專注于中大型企業(yè)的成都網(wǎng)站建設、做網(wǎng)站和網(wǎng)站改版、網(wǎng)站營銷服務，追求商業(yè)策劃與數(shù)據(jù)分析、創(chuàng)意藝術(shù)與技術(shù)開發(fā)的融合，累計客戶上千家，服務滿意度達97%。幫助廣大客戶順利對接上互聯(lián)網(wǎng)浪潮，準確優(yōu)選出符合自己需要的互聯(lián)網(wǎng)運用，我們將一直專注成都品牌網(wǎng)站建設和互聯(lián)網(wǎng)程序開發(fā)，在前進的路上，與客戶一起成長！
你可以看下?Graphics ?類
Dim d As New Bitmap(Me.Width, Me.Height) ?‘一個圖片吧
? Dim g As Graphics = Graphics.FromImage(d)’繪制 ?準備在這個圖片是進行
然后 ?就是你繪制的東西了
線 就是 ??g.DrawLine()
圓 弧度 ?就用 ?g.DrawArc(Pens.Black, New Rectangle(0, 0, 400, 200), 0, 360)
復雜的就是 ? ? ?g.DrawBezier()
等 ?如果你用的是 VS的 ?編譯 ?上面都有詳細的參數(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
如何用VB.net實現(xiàn)物理中的拋物線？
你要先把
VB.net
畫線的函數(shù)學會了，再來編程，你可以先試試正弦函數(shù)繪圖的編程。
拋物線VB
假設速度為v，角度為θ。
那么炮彈射出距離為2v^2sinθcosθ/g=v^2sin2θ/g。
假設輸入為TextBox1——v，TextBox2——θ，Button1——開始計算，輸出為TextBox3——結(jié)果，則
'VB .NET及以后版本
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Const Gravity As Double = 9.8 '請自己改
Dim a, b, c As Double
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = a ^ 2 * Math.Sin(2 * b) / Gravity
TextBox3.Text = CStr(c)
End Sub
VB6:
Private Sub Button1_Click()
Const Gravity As Double = 9.8 '請自己改
Dim a, b, c As Double
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = a ^ 2 * sin(2 * b) / Gravity
TextBox3.Text = CStr(c)
End Sub
LZ畫圖嗎？
vb.net怎么繪制帶坐標軸的的一次函數(shù)？最好附上源碼。
1、利用公式求出Y值 第一列設置表頭為x，下面依次填入取值， 比如 x 1 2 3 4 ...... 第二例表頭設置為y，在下面表格中填入計算公式 如 =2*x+1 然后選中點右下角的十字型標記，拖下去，和前面x數(shù)量一致。 2、然后選中數(shù)據(jù)源（即選中要進行操作的數(shù)據(jù)區(qū)域，這里指XY值所在區(qū)域。） 3、執(zhí)行菜單命令插入——圖表——XY散點圖 執(zhí)行命令，打開圖表向?qū)υ捒蜻xXY散點圖－－選平滑線散點圖－－完成 最后使用圖表向?qū)г跈M坐標填入x值，縱坐標填入y值，生成圖即可 將一次函數(shù)的Y列用公式編輯出來，分別填寫出當取不同的X值時得到不的函數(shù)值，選擇函數(shù)值所在列，插入——圖表按提示操作。執(zhí)行菜單命令 執(zhí)行菜單命令
分享標題：vb.net拋物線 vb繪制拋物線
網(wǎng)頁地址：http://www.ef60e0e.cn/article/dodjgos.html
