康耐视VisionPro脚本的编写

 

‘GroupRun函数在运行工具组时调用。这里提供的默认执行等同于工具组的标准动作。修改该函数将允许您修改工具组运行时的动作

        Overrides Function GroupRun(ByRef message As String, _

                                 ByRef result As CogToolResultConstants) _

          As Boolean

 

            ‘使用RunTool函数运行工具组中的每个工具

            For toolIdx As Int32 = 0 To ToolGroup.Tools.Count - 1

                ToolGroup.RunTool(ToolGroup.Tools(toolIdx), message, result)

            Next

 

            ‘返回错误（ False ） 表示我们以脚本形式运行工具，而且它们不该由VisionPro运行

            Return False

        End Function

 

       

        Overrides Sub ModifyCurrentRunRecord(ByVal currentRecord As Cognex.VisionPro.ICogRecord)

 

        End Sub

 

        ‘在它被创建时允许您添加或者修改最后运行记录的内容

        ‘例如，这里您可以向运行的记录中添加自定义图形。

        Overrides Sub ModifyLastRunRecord(ByVal lastRecord As Cognex.VisionPro.ICogRecord)

 

        End Sub

 

‘这里执行您的脚本要求的任何初始化

        Overrides Sub Initialize(ByVal host As CogToolGroup)

            ‘不要删除- 首先调用基本类执行-不要删除

            MyBase.Initialize(host)

        End Sub

 

Imports System

Imports Cognex.VisionPro

Imports Cognex.VisionPro.ToolGroup

 

            Public Class UserScript

                                        Inherits CogToolGroupBaseScript

 

                ‘为我们的输入和输出声明一些变量

                Private input As Double

                                      Private output As Double

 

                ‘GroupRun函数在运行工具组时调用。这里提供的默认执行

                ‘等同于工具组的标准动作。修改该函数将允许您修改

                ‘在工具组运行时的动作

               

                Overrides Function GroupRun(ByRef message As String, _

                                                                                      ByRef result As CogToolResultConstants) _

                  As Boolean

 

‘这里执行你脚本要求的任何初始化

        Overrides Sub Initialize(ByVal host As CogToolGroup)

            '不要删除- 首先调用基本类执行-不要删除

            MyBase.Initialize(host)

 

 

            MyBase.toolGroup.DefineScriptTerminal(Input, "Input", True)

                            MyBase.toolGroup.DefineScriptTerminal(output, "Output", False)

 

 

        End Sub

 

‘这里执行你脚本要求的任何初始化

        Overrides Sub Initialize(ByVal host As CogToolGroup)

            '不要删除- 首先调用基本类执行-不要删除

            MyBase.Initialize(host)

 

 

            MyBase.toolGroup.DefineScriptTerminal(Input, "Input", True)

                            MyBase.toolGroup.DefineScriptTerminal(output, "Output", False)

 

 

        End Sub

 

 

 ‘GroupRun函数在运行工具组时调用。这里提供的默认执行

  ‘等同于工具组的标准动作。修改该函数将允许您修改

   ‘在工具组运行时的动作

        Overrides Function GroupRun(ByRef message As String, _

                                 ByRef result As CogToolResultConstants) _

          As Boolean

 

            ‘使用RunTool函数运行工具组中的每个工具

            For toolIdx As Int32 = 0 To ToolGroup.Tools.Count - 1

                ToolGroup.RunTool(ToolGroup.Tools(toolIdx), message, result)

            Next

 

            ‘返回错误，表示我们以脚本形式运行工具，而且它们不该由VisionPro运行

           

            Return False

        End Function

 

        ‘GroupRun函数在运行工具组时调用。这里提供的默认执行

        ‘等同于工具组的标准动作。修改该函数将允许你修改

        ‘在工具组运行时的动作

        Overrides Function GroupRun(ByRef message As String, _

                                                              ByRef result As CogToolResultConstants) _

          As Boolean

 

            ‘取得终端的值并将其赋予我们的输入变量

            MyBase.toolGroup.GetScriptTerminalData("Input", input)

 

            ‘进行运算

            output = input / 2

 

            ‘用于测试您不想要的

             System.Windows.Forms.MessageBox.Show(output.ToString())                    

   

            ‘将输出终端设为回复这样下游链接会更新

            MyBase.toolGroup.SetScriptTerminalData("Output", output)

 

            '返回False表示我们以脚本形式运行工具，而且它们不该由VisionPro运行

             

            Return False

                      End Function