极品工业控件Iocomp 在VB6.0平台使用 绘制曲线 iXYPlotX1全面解析

1新建工程

 

 

 

要把Form1的界面拉宽一点，增加分辨率。

2加载iocomp部件

3新建 iXYPlotX1 部件

选择这个图标在Form1中拉伸出一个范围。如下图所示。

4 更改标题栏的字体与颜色，并可实现汉语显示

注：Margin 为标题距离表格线的距离，可正负，双精度。 

 

5、背景颜色设置

背景颜色默认为黑色，一般情况下是可以使用的，而且对比度很高。但是有些情况需要打印图形，这个时候黑色的底色就哭了。怎么办？调整底色方法如下图。

6 增加显示通道

7改变通道标题字颜色 

8改变横纵坐标的标线与标数的颜色 

9 改变表格细分栏颜色，调整最佳对比度 

 

10 标题栏、横纵坐标、通道指示栏汉字输入程序段

 

Private Sub Form_Load()

 ‘//=== 曲线绘制窗口参数修改 ===

   iXYPlotX1.Channel(0).TitleText = ” 通道一风速 m/s”

   iXYPlotX1.Channel(1).TitleText = ” 通道2 压差x100Pa”

   iXYPlotX1.Channel(2).TitleText = ” 通道Ⅲ扭矩 N·m”

   iXYPlotX1.Channel(3).TitleText = ” 通道④转速 x1000rpm”

   iXYPlotX1.TitleText = “这是曲线显示标题栏”

   iXYPlotX1.XAxis(0).Title = “这是横坐标”

   iXYPlotX1.YAxis(0).Title = “这是纵坐标”

End Sub

 

11 模拟绘制曲线程序与显示效果图

Private Sub Timer1_Timer()

 ‘//—— 绘制曲线 ——

   iXYPlotX1.Channel(0).AddXY XValue, A0

   iXYPlotX1.Channel(1).AddXY XValue, A1

   iXYPlotX1.Channel(2).AddXY XValue, A2

   iXYPlotX1.Channel(3).AddXY XValue, A3   

   A0 = A0 + 1

   A1 = A1 + 2

   A2 = A2 + 3

   A3 = A3 + 4

    ‘— 参数横坐标 自动加1，弧度坐标自加 0.05—

   XValue = XValue + 0.5

   If A3 > 100 Then

       A0 = 0

       A1 = 0

       A2 = 0

       A3 = 0

   End If

End Sub

 

12 多个横纵坐标显示方法与实现程序

Private Sub Form_Load()

 ‘//=== 曲线绘制窗口参数修改 ===

   iXYPlotX1.Channel(0).TitleText = ” 通道一风速 m/s”

   iXYPlotX1.Channel(1).TitleText = ” 通道2 压差x100Pa”

   iXYPlotX1.Channel(2).TitleText = ” 通道Ⅲ扭矩 N·m”

   iXYPlotX1.Channel(3).TitleText = ” 通道④转速 x1000rpm”

   iXYPlotX1.TitleText = “这是曲线显示标题栏”

   iXYPlotX1.XAxis(0).Title = “这是横坐标1”

   iXYPlotX1.YAxis(0).Title = “这是纵坐标1”

   iXYPlotX1.XAxis(1).Title = “这是横坐标二”

   iXYPlotX1.YAxis(1).Title = “这是纵坐标二”

End Sub