锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net如何画抛物线 vb画函数

IT技术函数

如何用VB画抛物线仅画出X,Y坐标轴和抛物线示意图:
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假设速度为vvb.net如何画抛物线，角度为θ 。
那么炮弹射出距离为2v^2sinθcosθ/g=v^2sin2θ/g 。
假设输入为TextBox1——vvb.net如何画抛物线，TextBox2——θvb.net如何画抛物线，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)
【vb.net如何画抛物线 vb画函数】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
画线的函数学会了，再来编程 ， 你可以先试试正弦函数绘图的编程 。
关于vb.net如何画抛物线和vb画函数的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：驾考gis开发平台，驾考gis开发平台

    下一篇：python五角星怎么弄，python五角星代码教程