VB如何实现图像的放大缩小

Question

Private Sub Timer1_Timer()
Dim X As Integer, Y As Single, z As Single
Dim scaley As Single
Dim j As Integer
Static i As Integer
Dim ADData As Long '定义AD采样变量AC6611_AD hDevice, 0, ADData 'AD采样，0通道，AC6611一共有16个通道0-15，由addata返回AD采样值0-4095
'Print AC6611_ADToVoltage(ADData, 0) '显示采样的数据，并转换为0-5V电压实际电压值
'Picture1.DrawWidth = 2scaley = Picture1.ScaleHeight / 4
Picture1.CurrentX = 0
Picture1.CurrentY = Picture1.ScaleHeight / 2
i = i + 1
adata(j) = AC6611_ADToVoltage(ADData, 0)
X = i / 30 * scaley
Y = adata(j) / 5 * scaley
z = adata(j)Picture1.PSet Step(X, -Y), vbRed
end sub
Private Sub Command1_Click()Timer1.Enabled = True
End Sub
这是我的一段采集程序，有谁可以帮我把采集的曲线实现放大缩小么？ 

Answer 1

参考下面这个:
http://topic.csdn.net/u/20080910/20/1ab23882-3cb0-49dc-9b86-eb169e58a823.html

Answer 2

如何放大缩小曲线，最好的办法是定义其坐标系统，
比如：picture1.scale (0,100)-(100,0) 可显示的范围是：x:[0~100] y:[0:100]
又如：picture1.scale (0,1000)-(1000,0) 可显示的范围是：x:[0~1000] y:[0:1000]
两者相比，后者等于放宽了可显示范围，实际上是缩小了曲线图片的显示效果。

Answer 3

‘别人’怎么能完成“数据采样”！你的代码中既然用了“缩放比例”的方式，你改变那个“比例”值不就行了吗！
scaley = Picture1.ScaleHeight / 4你把 4 改为更大的值，画出来的就变小了；相反，改小就把图片画大。