デバイスコントローラを使用した例 (その１)

この例では、ビデオ入力クラスから画像を一枚取り込み、画像統計量を計測し、判定結果をデジタル入出力デバイスで外部に出力しています。

コード例:

Partial Public Class TestClass
   ''' <summary>
   ''' デバイスコントローラを使用した例.
   ''' </summary>
   Public Sub Test4()
       Dim video As FVIL.Video.CFviVideoRICE001 = Nothing
       Dim dio As FVIL.Dio.CFviDioFIO01 = Nothing
       Dim src As FVIL.Data.CFviImage = Nothing

       Try
           '' 準備.
           video = New FVIL.Video.CFviVideoRICE001()
           video.Open(-1, 0)
           video.LoadIniFile("C:\FAST\WIL\3.0.0\CameraFiles\RICE-001\rice_640.ini")

           dio = New FVIL.Dio.CFviDioFIO01()
           dio.Open(-1)

           Const DO_SUCCESS As UInt32 = &H1
           Const DO_FAILURE As UInt32 = &H2

           '' 入力.
           src = New FVIL.Data.CFviImage()
           video.ChangeImageSize(src)
           video.GrabImageSync(src)

           '' 処理.
           Dim parser = New FVIL.Measure.CFviStatistics(src)
           parser.Execute()

           '' 出力.
           If 32 <= parser.Average AndAlso parser.Average <= 200 Then
               dio.DO = DO_SUCCESS
           Else
               dio.DO = DO_FAILURE
           End If
       Finally
           '' 解放.
           If video IsNot Nothing Then video.Close()
           If dio IsNot Nothing Then dio.Close()
           If src IsNot Nothing Then src.Dispose()
       End Try
   End Sub
End Class