gclib  1.33.4
Communications API for Galil controllers and PLCs
Motion_Complete_Example.vb
1 Module Motion_Complete_Example
2  Function Main() As Integer
3  Dim rc As Integer = Examples.GALIL_EXAMPLE_OK
4  Dim gclib As Gclib = New Gclib()
5  Dim args() As String = Environment.GetCommandLineArgs()
6  Try
7  If args.Count <> 2 Then
8  Console.WriteLine("Incorrect number of arguments provided")
9  Console.WriteLine("Usage: motion_complete_example.exe <ADDRESS>")
10 
11  Console.Write(vbCrLf + "Press any key to close the example.")
12  Console.ReadKey()
13  Return Examples.GALIL_EXAMPLE_ERROR
14  End If
15 
16  Dim address As String = args(1) 'Retrieve address from command line
17 
18  ' Open a connection at the provided address and subcribe to event interrupts
19  gclib.GOpen(address + " --subscribe EI")
20 
21  rc = Examples.Motion_Complete(gclib)
22  Catch ex As Exception
23  Examples.PrintError(gclib, ex)
24  rc = Examples.GALIL_EXAMPLE_ERROR
25  Finally
26  gclib.GClose()
27  End Try
28 
29  Console.Write(vbCrLf + "Press any key to close the example.")
30  Console.ReadKey()
31 
32  Return rc
33  End Function
34 End Module