成都网站建设设计

将想法与焦点和您一起共享

vb.net抛物线 vb绘制抛物线

vb.net绘制曲线图

。net  其实还是很好绘制图形的

成都创新互联公司专注于中大型企业的成都网站建设、做网站和网站改版、网站营销服务,追求商业策划与数据分析、创意艺术与技术开发的融合,累计客户上千家,服务满意度达97%。帮助广大客户顺利对接上互联网浪潮,准确优选出符合自己需要的互联网运用,我们将一直专注成都品牌网站建设和互联网程序开发,在前进的路上,与客户一起成长!

你可以看下 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的  编译  上面都有详细的参数说明

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实现物理中的抛物线?

你要先把

VB.net

画线的函数学会了,再来编程,你可以先试试正弦函数绘图的编程。

抛物线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怎么绘制带坐标轴的的一次函数?最好附上源码。

1、利用公式求出Y值  第一列设置表头为x,下面依次填入取值, 比如 x 1 2 3 4 ...... 第二例表头设置为y,在下面表格中填入计算公式 如 =2*x+1 然后选中点右下角的十字型标记,拖下去,和前面x数量一致。 2、然后选中数据源(即选中要进行操作的数据区域,这里指XY值所在区域。) 3、执行菜单命令插入——图表——XY散点图  执行命令,打开图表向导对话框选XY散点图--选平滑线散点图--完成  最后使用图表向导在横坐标填入x值,纵坐标填入y值,生成图即可 将一次函数的Y列用公式编辑出来,分别填写出当取不同的X值时得到不的函数值,选择函数值所在列,插入——图表按提示操作。执行菜单命令 执行菜单命令


当前标题:vb.net抛物线 vb绘制抛物线
网页URL:http://chengdu.cdxwcx.cn/article/dodjgos.html