vb.net如何画抛物线 c语言画抛物线

如何用VB画抛物线

仅画出X,Y坐标轴和抛物线示意图:

创新互联公司-专业网站定制、快速模板网站建设、高性价比南关网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式南关网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖南关地区。费用合理售后完善,十余年实体公司更值得信赖。

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语言画抛物线
本文URL:http://pwwzsj.com/article/hpesjc.html