//    $Revision: 1.1 $

using System;
using System.Collections.Generic;
using System.Text;
using fvalgcli;

namespace TC
{
    public partial class FIE
    {
        /// <summary>
        /// モデル撮像結果の格納回数の取得.
        /// </summary>
        [FvPluginExecute]
        public void fnFIE_calib_get_num_view()
        {
            int status = (int)f_err.F_ERR_NONE;

            // ハンドルオープン用変数.
            FHANDLE hcalib = FHANDLE.Zero;                                // キャリブレーションハンドル.
            int type = (int)fie_calib_model_type.F_CALIB_MODEL_CIRCLE;    // 円マーカ.
            int n = 8;                                                    // 縦、横の円の数.
            double unit = 4;                                            // モデルの単位長さ.ワールド座標系の単位(ミリメートル等)で与えます.
            DPNT_T offset = DPNT_T.init(0, 0);                            // モデル原点とワールド座標系原点のオフセット.ワールド座標系の単位(ミリメートル等)で与えます.

            int num_view = 0;                                            // モデル撮像結果格納回数.

            const int ans_num_view = 6;                                    // 正解格納回数.

            try
            {
                // 初期化.
                hcalib = api.fnFIE_calib_open2(type, n, unit, offset, ref status);
                Assert.IsTrue(status == (int)f_err.F_ERR_NONE, "エラーが発生しました。({0})", (f_err)status);

                // モデル撮像結果の追加.
                fnFIE_calib_add_data2(hcalib);

                // 格納回数の取得.
                status = api.fnFIE_calib_get_num_view(hcalib, ref num_view);
                Assert.IsTrue(status == (int)f_err.F_ERR_NONE, "エラーが発生しました。({0})", (f_err)status);

                // 比較.
                ConsoleOut.WriteFunctionName(":\t");
                Console.Write(" ...");
                ConsoleOut.IsTrue(ans_num_view == num_view);
                Console.Write("\n");
            }
            finally
            {
                hcalib.Dispose();
            }
        }
    }
}

'    $Revision: 1.1 $

Imports System.Collections.Generic
Imports System.Text
Imports fvalgcli

Public Partial Class FIE
    ''' <summary>
    ''' モデル撮像結果の格納回数の取得.
    ''' </summary>
    <FvPluginExecute> _
    Public Sub fnFIE_calib_get_num_view()
        Dim status As Integer = CInt(f_err.F_ERR_NONE)

        ' ハンドルオープン用変数.
        Dim hcalib As FHANDLE = FHANDLE.Zero
        ' キャリブレーションハンドル.
        Dim type As Integer = CInt(fie_calib_model_type.F_CALIB_MODEL_CIRCLE)
        ' 円マーカ.
        Dim n As Integer = 8
        ' 縦、横の円の数.
        Dim unit As Double = 4
        ' モデルの単位長さ.ワールド座標系の単位(ミリメートル等)で与えます.
        Dim offset As DPNT_T = DPNT_T.init(0, 0)
        ' モデル原点とワールド座標系原点のオフセット.ワールド座標系の単位(ミリメートル等)で与えます.
        Dim num_view As Integer = 0
        ' モデル撮像結果格納回数.
        Const  ans_num_view As Integer = 6
        ' 正解格納回数.
        Try
            ' 初期化.
            hcalib = api.fnFIE_calib_open2(type, n, unit, offset, status)
            Assert.IsTrue(status = CInt(f_err.F_ERR_NONE), "エラーが発生しました。({0})", CType(status, f_err))

            ' モデル撮像結果の追加.
            fnFIE_calib_add_data2(hcalib)

            ' 格納回数の取得.
            status = api.fnFIE_calib_get_num_view(hcalib, num_view)
            Assert.IsTrue(status = CInt(f_err.F_ERR_NONE), "エラーが発生しました。({0})", CType(status, f_err))

            ' 比較.
            ConsoleOut.WriteFunctionName(":" & vbTab)
            Console.Write(" ...")
            ConsoleOut.IsTrue(ans_num_view = num_view)
            Console.Write(vbLf)
        Finally
            hcalib.Dispose()
        End Try
    End Sub
End Class