Question

急求高手帮忙，vb刚学不久，希望大家帮帮忙！！！

如何利用vb绘制函数图像时不使函数图象超出窗体啊，尤其是y轴方向上，请各位高手帮忙！！！

Answer 1

应该是VB6吧。
VB6中X轴和Y轴的度量单位是不一样的。
要用SCALEX（）和SCALEY（）函数转换度量模式，以便得到统一。

追问

请高手明示，如何转换度量单位呢，它默认的是twip，我想把它改为米，可以吗

追答

用法举例：
　scalex(100,1,3) 1:twip,3:pixel,6:cm,7:mm
scaley 用法一样。
或像下楼一样，将form 或 picture 的scalemode 设为上述数字。
如要米，请设为６，将各数乘以１００，再赋值给变更。

追问

将各数乘以100，是对输入数字的文本框输入100吗？高手明示！！谢谢

追答

不好意思,回答晚了.
因为描图用的单位是CM,所以变量保存的值也应该是CM单位的数字.
如果你的要的距离是M为单位的话,就要乘以100.
如果你的距离直接就是CM,就不要乘100了,直接赋值就行了.

追问

高手你说的明白了，你能不能帮忙解决提的问题啊？我用函数表达式在picture上绘制图像时，它的最大值总是比我设置的picture区域大所以总是超出，我也不知该怎么办！！！我画的函数是一个分段函数，最值也不知如何求出，请高手帮帮忙吧，做了好几天还是不知如何办，事后我会给高手加上50分，我现在还不太够，请高手帮帮忙吧，非常感谢！！！！！！！

追答

看下图及代码，希望对你有帮助。或者你也把问题图片贴出来看看吧。
Private Sub Command1_Click()

Picture1.AutoRedraw = True

For i = 0 To Option1.Count - 1
If Option1(i).Value Then
Picture1.ScaleMode = i 'unit: cm
If i = 0 Then 'user mode
Picture1.ScaleWidth = 100
Picture1.ScaleHeight = 100
End If
End If
Next

Picture1.Circle (Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2), Picture1.ScaleHeight / 2
'Picture1.Circle (1, 1), Picture1.ScaleHeight / 2

End Sub

Private Sub Command2_Click()
Picture1.Cls
End Sub

追问

高手我不太明白你的代码，因为刚学vb不久，所以有些地方不太理解，高手能否帮忙翻译一下呢，非常感谢！！

追答

我的这段代码的目的
选择度量模式（从０－７，可在ｆｏｒｍ或ｐｉｃｔｕｒｅ的Ｓｃａｌｅｍｏｄｅ属性中看到这个清单），根据选择，设置ｐｉｃｔｕｒｅ的ｓｃａｌｅｍｏｄｅ为选择的单选框的ｉｎｄｅｘ，该ｉｎｄｅｘ对应于0－７的度量模式序号。
然后，再画圆。

我想通过这段代码，你应该能学会如何转换描图的度量模式，设置坐标。
因为你没有把你的问题发生的画面贴出来，不好判断问题呀。

追问

奥，非常谢谢高手的帮助，那20分一定给您加上，我还想问您一个问题，就是如何用vb把y=x^2在(1,6)区间内对应的函数值放入数组呢？如何去比较该数组中的最大值呢？高手完事后再给追加80分，只要高手帮忙解决了，分数你说加多少就多少，我一定会给追加上！！！！！谢谢高手！！我现在这个问题真的很急很急！！！

追答

谢谢你的大方，接着第2个问题了。

不明白（1，6）是不是指1，2，3，4，5，6的6个数字。
如果是，用下面的方法，如果不是，请补充一下。

'定义函数吧。

Sub procYX()

'1、将函数值放入数组
dim yx(5) as integer '数组范围0-5，6个元素

for i=lbound(yx) to ubound(yx)
yx(i)=(i+1)^2
next

'2、比较最大值，采用冒泡排序法的原理

'从小到大排序，则最大值就是最后一个元素了，即yx(ubound(yx))
'不过，从本问题来看，本身yx数组中的数字已经是从小到大排序了
'因此，这种方法只是想直到抛砖引玉的作用。

Dim tmp As Integer

For i = LBound(yx) To UBound(yx) - 1
For j = i + 1 To UBound(yx)
If yx(i) > yx(j) Then
tmp = yx(i)
yx(i) = yx(j)
yx(j) = tmp
End If
Next j
Next i

Debug.Print yx(UBound(yx))

End Sub

Answer 2

作判断啊。
dim y as integer
if y>= me.height then y=me.height-50

追问

请高手帮忙解释一下代码可以吗？vb学的时间不长，不是很理解？请高手指点

追答

dim y as integer ’定义y坐标变量，你可以用其它的
if y>= me.height then y=me.height-50 ‘如果y坐标的值已经大于当前窗体的高度，则给y赋值为窗体的高度-50，当然你可以不减

追问

试了，可是没效果啊，请高手不吝赐教！！

追答

把你的代码都贴出来。

追问

高手，代码发不过去啊，他要求输入的字数为199，不知道如何更改，代码太长了，输入的达到字数限制了

追答

那你发到你空间，再把地址贴出来

追问

我添加到钱媛家园的空间去了，你去看看吧，麻烦高手了啊！！

追答

根据你的代码调试，没有发生超出窗体的问题啊。你能把你的需求说明一下，再把出现的问题说详细些吗？

追问

我用函数表达式在picture上绘制图像时，它的最大值总是比我设置的picture区域大所以总是超出，我也不知该怎么办！！！我画的函数是一个分段函数，最值也不知如何求出，请高手帮帮忙吧，做了好几天还是不知如何办，事后我会给高手加上50分，我现在还不太够，请高手帮帮忙吧，非常感谢！！！！！！！

Answer 3

你怎么做的？怎么会超出窗体呢？

追问

输入的值太大，导致函数值y计算结果太大，超出了窗体

Answer 4

为什么现在还学vb呢，这玩意还有活路吗？

追问

有，很有用！！！！！！！！！！！！

Answer 5

SCALEX（x1,y1）-(x2,y2)
画图前设定坐标范围
x1,y1 窗体左上角的坐标,x2,y2 窗体右下角坐标

追问

就是这样设置的，但是它上边的刻度好像是默认的，不知道怎么去改变啊，请高手指点

追答

Me.ScaleMode = 5 加这个试一试

追问

这个定义为英寸，我想把刻度定义为米，怎么办呢，请高手明示

追答

Me.ScaleMode = 7 为厘米,没有刻度为米的
解决办法你输入的坐标数据乘以100吧

追问

乘以100还是除以100啊？谢谢

追答

如果窗体单位是厘米,你输入数据的单位是米,那就是你输入数据乘以100

追问

高手你说的明白了，你能不能帮忙解决提的问题啊？我用函数表达式在picture上绘制图像时，它的最大值总是比我设置的picture区域大所以总是超出，我也不知该怎么办！！！我画的函数是一个分段函数，最值也不知如何求出，请高手帮帮忙吧，做了好几天还是不知如何办，事后我会给高手加上50分，我现在还不太够，请高手帮帮忙吧，非常感谢！！！！！！！

Answer 6

那就这样：
首先你要估计出你绘制的函数的值域。
比如你绘制的函数Y轴最大值为Ymax，然后你的控件（此处以picture控件为例-pic）的高度值为Ypic，那么你在每次画点的时候，就用（Y * Ypic / Ymax）代替Y，那样就不会超出了。

追问

可是利用vb如何去判断一个函数的最值呢？？请高手不吝指点！！！

追答

这个不是用vb去估计，而是应该用你的数学知识去估计。如果是不连续函数，或者有无限大的点，那么你就要想法去掉那个点的x输入。你可以把具体的函数发来我帮你看看。

另外你也可以在函数值前面乘以一个系数k，从最小（0.000000001）开始，不断增大，直到不超出为止。这个可以用循环实现。

总之，函数作图你必须考虑周全，它是否连续，是否有无限大的值。不是任何函数都可以画出来的。