VB代码,实时动态曲线,当采集数据超出坐标轴时可以自动压缩坐标轴重绘