回 帖 发 新 帖 刷新版面

主题:VB绘制数学函数代码

包括绘制直线、抛物线、双曲线、椭圆、正弦余弦、阿基米德螺线、摆线、星形线、笛卡尔叶形线、箕舍线、双曲螺线、四叶玫瑰线

回复列表 (共7个回复)

沙发

做得很好,我以前也做过类似的程序,不过没你做得那么好!~
可惜生成EXE文件后只能画这些曲线了!功能受到很多限制!
所绘画的函数能不能由用户输入啊?
这个问题我一直关注中!

板凳

1楼的问题实际不难。
无非是输入函数要遵循vb表达式的规定。
我曾经异想天开,要把表达式做成标准数学样式,结果费时三个月,无疾而终。

3 楼

呵,呵!~!
最主要的问题是生成EXE文件后,当用户输入数学表达式时程序不认得这些表达式,它只认为这是字符串!要经过编译,程序才认得这些表达式,所以我也知道这是不好解决的,除非哪位高人有一些神奇的招数……

4 楼

把“字符串”做表达式来计算,来论坛曾有过讨论。

Private Sub Command1_Click()
Dim X As String
X = inputbox("请输入符合vb标准的算式")
MsgBox X & "=" & RESULT(X)
End Sub

Function RESULT(ByVal X As String) As Double
Dim OBJ As Object
Set OBJ = CreateObject("MSScriptControl.ScriptControl")
  OBJ.Language = "vbscript"
RESULT = OBJ.Eval(X)
Set OBJ = Nothing
End Function

这只是个示例。如果表达式中含有“变量”的话,可以在调用RESULT之前通过适当的方法赋值。

5 楼

表达式中当然含有变量了,要不然画出来的图像就是一条水平直线了!~

能不能做一个通用的作图程序,可以作出一切"合法"的一元方程f(x)的图像?!
我在网上下载过一个数学函数作图器,能实现我的要求,就是不知他们是怎么做出来的!~

6 楼


你好,我下了你的文件 ,但是运行不了,我是刚学vb画图的,你能介绍个方法怎么学嘛

7 楼

[quote]表达式中当然含有变量了,要不然画出来的图像就是一条水平直线了!~

能不能做一个通用的作图程序,可以作出一切"合法"的一元方程f(x)的图像?!
我在网上下载过一个数学函数作图器,能实现我的要求,就是不知他们是怎么做出来的!~[/quote]
真不知道你是怎么想的?
难道算出一点得有了,不能算出多点来?

我来回复

您尚未登录,请登录后再回复。点此登录或注册