用VB怎么根据函数画出图形?VB上 我们 想根据已有函数画出图形 基本上 有点像一个圆又不是想画出来 各位哥哥姐姐仁兄阿姨 帮帮忙了啊!
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/27 04:32:51
用VB怎么根据函数画出图形?VB上 我们 想根据已有函数画出图形 基本上 有点像一个圆又不是想画出来 各位哥哥姐姐仁兄阿姨 帮帮忙了啊!
用VB怎么根据函数画出图形?
VB上 我们 想根据已有函数画出图形
基本上 有点像一个圆
又不是
想画出来
各位哥哥姐姐仁兄阿姨
帮帮忙了啊!
用VB怎么根据函数画出图形?VB上 我们 想根据已有函数画出图形 基本上 有点像一个圆又不是想画出来 各位哥哥姐姐仁兄阿姨 帮帮忙了啊!
一个VB绘制直角坐标系函数的程序 理论上说这个函数可以绘制所有的图像,不明白的百度HI我我给你根据你的函数公式改造一下
Option Explicit
Private Const X_Axe = 0.5 'X轴原点位于窗口的水平位置比例
Private Const Y_Axe = 0.6 'Y轴原点位于窗口的垂直位置比例
Private Const ScaleRate = 30 '多少像素代表一个单位长度
Private Const DrawColor = vbRed '曲线颜色
Private ErrExp As Boolean '当表达式发生错误时,会置True(比如函数在此点无有效值)
Private Sub Form_Load()
Me.Show
Me.Cls
Call DrawAxe
Call DrawCoordinate
End Sub
Private Function Expression(ByVal X As Double) As Double '公式函数可以是任意内容
ErrExp = False '进入时,必须重置此标志为False
If X > 0 Then '这里代码任意,也可以是Expression = 2 * X ^ 2 + 2 * X + 1之类的
Expression = Log(X)
Else
Expression = 0
ErrExp = True
End If
End Function
Private Sub DrawCoordinate() '绘制曲线过程
Dim i As Long
Dim Last(1 To 2) As Long,This(1 To 2) As Long
Dim X_offset As Long
Dim Y_offset As Long
Me.ScaleMode = vbPixels
X_offset = Me.ScaleWidth * X_Axe
Y_offset = Me.ScaleHeight * Y_Axe
'设置一个初始值
Last(1) = 0
Last(2) = -Expression((0 - X_offset) / ScaleRate) * ScaleRate
i = 0
While i