如何用VB畫拋物線

僅畫出X,Y坐標軸和拋物線示意圖:

創(chuàng)新互聯公司-專業(yè)網站定制、快速模板網站建設、高性價比南關網站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式南關網站制作公司更省心,省錢,快速模板網站建設找我們，業(yè)務覆蓋南關地區(qū)。費用合理售后完善，十余年實體公司更值得信賴。

Option Explicit

Dim j As Single

Dim record(1000) As Single

Dim p As Single

Private Sub Command1_Click()

p = 4

Picture1.Cls

Picture1.Scale (-200, 2000)-(2000, -2000) '定義坐標

For j = 0 To 250

record(j) = 20 * Sqr(2 * p * j) '拋物線公式Y^=2 * p * X

Picture1.Line (j * 20, record(j) + 2)-(j * 20, record(j) - 2), vbRed, BF 'Y為正的

Picture1.Line (j * 20, -record(j) + 2)-(j * 20, -record(j) - 2), vbRed, BF 'Y為負的

Next

Picture1.Line (-2000, 0)-(2000, 0)'X軸

Picture1.Line (0, 2000)-(0, -2000)'Y軸

End Sub

拋物線VB

假設速度為v，角度為θ。

那么炮彈射出距離為2v^2sinθcosθ/g=v^2sin2θ/g。

假設輸入為TextBox1——v，TextBox2——θ，Button1——開始計算，輸出為TextBox3——結果，則

'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實現物理中的拋物線？

你要先把

VB.net

畫線的函數學會了，再來編程，你可以先試試正弦函數繪圖的編程。

新聞名稱：vb.net如何畫拋物線 c語言畫拋物線
網頁網址：http://m.jcarcd.cn/article/hpesjc.html