Automatic Fixture Removal Example Program

This Visual Basic program characterizes two fixture files from one 2x thru file.

 

Public Function Example_AFR() As Boolean

        'create PLTS application

        Dim app = New PLTS.CPLTSApplication()

        System.Threading.Thread.Sleep(1000) 'grace time for PLTS startup

        app.ShowWindow(3)

        'character 4-port fixtures using a 4-port 2x thru

        Dim xmlSettings As XElement = _

            <AfrApiArgs>

                <Thru filePath="C:\2xThru.s4p"/>

                <FixtureA1 filePath="C:\fix_1.s4p"/>

                <FixtureB1 filePath="C:\fix_2.s4p"/>

            </AfrApiArgs>

        app.Afr(xmlSettings.ToString())

        'exit

        app.CloseAllFiles()

        app.Exit()

        Return True

    End Function