Service_Example.vb

Visual Basic example for using the Service device

Public Class Service_Example
    Public Shared Sub Service()
        Console.Clear()
        'acquire a new factory
        Dim pVIBSystem As VIB_NET.VIBSystem = New VIB_NET.VIBSystem()
 
        If (pVIBSystem IsNot Nothing) Then
            Try
                ' Open the service device
                Dim pService As VIB_NET.Service = DirectCast(pVIBSystem.OpenDevice(VIB_NET.eDEVICE_TYPE.SERVICE, 0), VIB_NET.Service)
                Try
                    ' Get serial number
                    Console.WriteLine(vbNewLine + vbNewLine + "Serial Number: " + pService.SerialNumber)
 
                    ' Get system temperature
                    Console.WriteLine(vbNewLine + " System Temperature: " + pService.SystemTemperature.ToString() + " °C")
 
                    ' Set target temperature for fan
                    Try
                        pService.FanTargetTemperature = 40
                        Console.WriteLine(vbNewLine + "Set target temperature for the fan control to 40°C. Done")
                    Catch e As System.Exception
                        Console.WriteLine(vbNewLine + "" + e.Message)
                    End Try
 
                    ' WatchdogService
                    ' Configure WatchDog to 2000 ms and start it
                    pService.WatchdogSetup(True, 2000)
 
                    System.Threading.Thread.Sleep(1000)
 
                    ' Send alive signal to watchdog
                    pService.WatchdogService()
 
                    System.Threading.Thread.Sleep(1000)
 
                    ' Stop watchdog
                    pService.WatchdogSetup(False, 2000)
 
                    ' Run firmware update
                    ' Remember to use \\ instead of \ in the string with the path and filename
                    ' Only use it, when you have the right firmware from us.
                    Console.WriteLine(vbNewLine + "FirmwareUpdate: ")
                    Dim RunFirmwareUpdate As Boolean = False
                    If (RunFirmwareUpdate) Then
                        pService.FirmwareUpdate("C:\\AGEX.bit")
                    End If
                Catch e As System.Exception
                    Console.WriteLine(e.Message)
                Finally
                    ' Close device
                    pVIBSystem.CloseDevice(pService)
                    pService = Nothing
                End Try
            Catch e As System.Exception
                Console.WriteLine(e.Message)
            Finally
                'release factory
                pVIBSystem = Nothing
            End Try
        End If
        Console.WriteLine(vbNewLine + "Press enter to proceed...")
        System.Console.ReadLine()
    End Sub
End Class