VB 画图问题

[复制链接]
查看11 | 回复0 | 2011-3-19 06:18:53 | 显示全部楼层 |阅读模式
我的函数是 y= a - (a - b) * Exp(1) ^ (c * (y - d))

Form2.PressureChart.ScaleMode = 3
Form2.PressureChart.AutoRedraw = True
Form2.PressureChart.Scale (0, 2000)-(1000, 0)

Form2.PressureChart.CurrentX = 0
Form2.PressureChart.CurrentY = 2000

For y = 0 To 1000 Step 100
pf = Pr - (Pr - pwf) * Exp(1) ^ (Sqr(c) * (y - xf))
Form2.PressureChart.Line (0, 2000)-(1000, 0)
Next y

这个是我写的代码,可以显示在form2,但是x,y的坐标,还有图像不太理想。

这个是我的图片,我想做的图和这个图片一样,x轴取值0-1000,y轴取值2000-5000
如果代码很好的话,我追加奖励。。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行