gclib  556
Communications API for Galil controllers and PLCs
Remote_Client_Example.vb
1 ''' <summary>
2 ''' Demonstrates various uses of GListServers() and GSetServer().
3 ''' </summary>
4 ''' <remarks>This example requires no command line arguments.</remarks>
5 Module Remote_Client_Example
6 
7  ''' <summary>
8  ''' Main function for the Remote Client example.
9  ''' </summary>
10  ''' <returns>The success status Or error code of the function.</returns>
11  ''' <remarks>This example requires no command line arguments.</remarks>
12  Function Main() As Integer
13  Dim rc As Integer = Examples.GALIL_EXAMPLE_OK
14  Try
15  rc = Examples.Remote_Client()
16  Catch ex As Exception
17  Console.WriteLine(ex.Message)
18  rc = Examples.GALIL_EXAMPLE_ERROR
19  End Try
20 
21  Console.Write(vbCrLf + "Press any key to close the example.")
22  Console.ReadKey()
23 
24  Return rc
25  End Function
26 
27 End Module