高手们好,小弟在这里想问下一个VB问题:题目是有关液压曲线的生成,我有方程,老师的意思是要用描点法!
我在VB作图这块基本文盲,当时就没学好!希望有人可以告诉小弟,这是毕业设计,时间迫在眉睫,祝大家身体健康!y=(ab(c-x/d)^0.5)/d,老哥,a,b,c,d都是...
我在VB作图这块基本文盲,当时就没学好!希望有人可以告诉小弟,这是毕业设计,时间迫在眉睫,祝大家身体健康!
y=(ab(c-x/d)^0.5)/d,老哥,a,b,c,d都是待定系数,其实还是想,x,y的函数,能明白吗。。谢谢! 展开
y=(ab(c-x/d)^0.5)/d,老哥,a,b,c,d都是待定系数,其实还是想,x,y的函数,能明白吗。。谢谢! 展开
展开全部
好,我现在可以给你代码了,在窗体上画一个Command1,按一下它就会在这个窗体上出图像:
Private Sub Command1_Click()
a = (系数的具体值)
b = (系数的具体值)
c = (系数的具体值)
d = (系数的具体值)
Line (0, Me.ScaleHeight / 2)-(Me.ScaleWidth, Me.ScaleHeight / 2) '画出一条黑色的线代表x轴
Line (1000, 0)-(1000, Me.ScaleHeight) '画出一条黑色的线代表y轴
On Error Resume Next
For x = 0 To Me.ScaleWidth
PSet (x + 1000, Me.ScaleHeight / 2 - (a * b * (c - x / d) ^ 0.5) / d), vbRed '套用你的公式进行描红色的点
Next
End Sub
最后你的图像是红色的,坐标轴是黑色的。我在VB上试过,当a b c d都取100的时候效果看起来最好。
Private Sub Command1_Click()
a = (系数的具体值)
b = (系数的具体值)
c = (系数的具体值)
d = (系数的具体值)
Line (0, Me.ScaleHeight / 2)-(Me.ScaleWidth, Me.ScaleHeight / 2) '画出一条黑色的线代表x轴
Line (1000, 0)-(1000, Me.ScaleHeight) '画出一条黑色的线代表y轴
On Error Resume Next
For x = 0 To Me.ScaleWidth
PSet (x + 1000, Me.ScaleHeight / 2 - (a * b * (c - x / d) ^ 0.5) / d), vbRed '套用你的公式进行描红色的点
Next
End Sub
最后你的图像是红色的,坐标轴是黑色的。我在VB上试过,当a b c d都取100的时候效果看起来最好。
展开全部
vb绘图的命令,可以在Form和Picture控件上使用
一般绘制曲线用:绘制点:PSet (x, y), [color]
其中x,y就是点的坐标,color是可选的,默认的是黑色
你既然有方程,就可以根据x计算出y,然后用描点法绘制曲线了。
一般绘制曲线用:绘制点:PSet (x, y), [color]
其中x,y就是点的坐标,color是可选的,默认的是黑色
你既然有方程,就可以根据x计算出y,然后用描点法绘制曲线了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
guang wang gao shou
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询