namespace FVIL.Parser
{
    using System;
    using System.Collections.Generic;
    using System.Text;
    using System.Drawing;
    using System.Reflection;
    using System.ComponentModel;
    using System.Windows.Forms;
    using System.Runtime.Serialization;
    using System.Security.Permissions;
    using System.Globalization;
    using fvalgcli;


    [System.SerializableAttribute()]
    [System.ComponentModel.TypeConverterAttribute(typeof(System.ComponentModel.ExpandableObjectConverter))]
    public partial class ParserNodeUser : FVIL.Parser.ParserNodeUnit
    {
        /// <summary>
        /// コンストラクタ.
        /// </summary>
        public ParserNodeUser()
        {
        }

        /// <summary>
        /// コンストラクタ.
        /// </summary>
        protected ParserNodeUser(System.Runtime.Serialization.SerializationInfo info, System.Runtime.Serialization.StreamingContext context) : 
                base(info, context)
        {
        }

        /// <summary>
        /// 実行 (１回分の画像処理を記述します。ParserThread から繰り返し呼ばれます。)
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        public override void Execute(object sender, System.EventArgs e)
        {
            FVIL.Data.CFviImage target1_out0 = new FVIL.Data.CFviImage(640, 480, FVIL.ImageType.RGB32, 1);
            FVIL.Data.CFviImage target2_out0 = new FVIL.Data.CFviImage(640, 480, FVIL.ImageType.UC8, 1);
            FVIL.QR.CFviQRResult target3_out0 = new FVIL.QR.CFviQRResult();
            FVIL.QR.CFviQRData target4_out0 = new FVIL.QR.CFviQRData();
            FVIL.Data.CFviPoint target4_out1 = new FVIL.Data.CFviPoint(279.59361580612148, 345.94194954668984);
            int target4_out2 = 29;
            string target4_out3 = "http://m.jtad.jp/w/?s=50220585091739";
            double target4_out4 = 4.203502996971773;
            int target4_out5 = 4;
            int target4_out6 = 430;
            int target4_out7 = 4;

            // 画像取り込み (同期)#1
            FVIL.Imaging.GrabberThread target1 = ((FVIL.Parser.IAuxGrabber)(ParserInfo)).Threads[0];
            ((FVIL.Imaging.IGrabImageSync)(target1)).Grab(target1_out0);

            // 濃淡化#1
            FVIL.Conversion.CFviGrayScale target2 = new FVIL.Conversion.CFviGrayScale();
            target2.SrcImages[0] = target1_out0;
            target2.DstImages[0] = target2_out0;
            target2.CoefficientBlue = 0.114;
            target2.CoefficientGreen = 0.587;
            target2.CoefficientRed = 0.299;
            target2_out0.Depth = 8;
            target2.Execute();

            // QRコード認識#1
            FVIL.QR.CFviQR target3 = new FVIL.QR.CFviQR();
            target3.SrcImages[0] = target2_out0;
            target3.Result = target3_out0;
            target3.Param.BinThreshold = 128;
            target3.Param.BinMethod = FVIL.QR.BinMethod.Average;
            target3.Param.EffortLevel = FVIL.QR.EffortLevel.Maximum;
            target3.Param.MinVar = 1000;
            target3.Param.WindowSize = 11;
            target3.Execute();

            // QRコードデータ#1
            target4_out0.CopyFrom(target3_out0[0]);
            target4_out1 = target4_out0.Center;
            target4_out2 = target4_out0.Size;
            target4_out3 = target4_out0.Text;
            target4_out4 = target4_out0.MinCellWidth;
            target4_out5 = target4_out0.ApptsCount;
            target4_out6 = target4_out0.CellOnesCount;
            target4_out7 = target4_out0.DelimitingPtsCount;

            // シリアル通信 (送信)#1
            System.IO.Ports.SerialPort target5 = ((FVIL.Parser.IAuxSerialPort)(ParserInfo)).Ports[0];
            target5.WriteLine(target4_out3.ToString());
        }
    }
}

Imports System.Collections.Generic
Imports System.Text
Imports System.Drawing
Imports System.Reflection
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Runtime.Serialization
Imports System.Security.Permissions
Imports System.Globalization
Imports fvalgcli
Imports FVIL.Parser


<System.SerializableAttribute()> _
<System.ComponentModel.TypeConverterAttribute(GetType(System.ComponentModel.ExpandableObjectConverter))> _
Partial Public Class ParserNodeUser
    Inherits FVIL.Parser.ParserNodeUnit
    ''' <summary>
    ''' コンストラクタ
    ''' </summary>
    Public Sub New()
    End Sub

    ''' <summary>
    ''' コンストラクタ
    ''' </summary>
    Protected Sub New(ByVal info As System.Runtime.Serialization.SerializationInfo, ByVal context As System.Runtime.Serialization.StreamingContext)
        MyBase.New(info, context)
    End Sub

    ''' <summary>
    ''' 実行（１回分の画像処理を記述します。ParserThread から繰り返し呼ばれます。）
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Public Overrides Sub Execute(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim target1_out0 As New FVIL.Data.CFviImage(640, 480, FVIL.ImageType.RGB32, 1)
        Dim target2_out0 As New FVIL.Data.CFviImage(640, 480, FVIL.ImageType.UC8, 1)
        Dim target3_out0 As New FVIL.QR.CFviQRResult()
        Dim target4_out0 As New FVIL.QR.CFviQRData()
        Dim target4_out1 As New FVIL.Data.CFviPoint(279.593615806121, 345.94194954669)
        Dim target4_out2 As Integer = 29
        Dim target4_out3 As String = "http://m.jtad.jp/w/?s=50220585091739"
        Dim target4_out4 As Double = 4.20350299697177
        Dim target4_out5 As Integer = 4
        Dim target4_out6 As Integer = 430
        Dim target4_out7 As Integer = 4

        ' 画像取り込み (同期)#1
        Dim target1 As FVIL.Imaging.GrabberThread = DirectCast(ParserInfo, FVIL.Parser.IAuxGrabber).Threads(0)
        DirectCast(target1, FVIL.Imaging.IGrabImageSync).Grab(target1_out0)

        ' 濃淡化#1
        Dim target2 As New FVIL.Conversion.CFviGrayScale()
        target2.SrcImages(0) = target1_out0
        target2.DstImages(0) = target2_out0
        target2.CoefficientBlue = 0.114
        target2.CoefficientGreen = 0.587
        target2.CoefficientRed = 0.299
        target2_out0.Depth = 8
        target2.Execute()

        ' QRコード認識#1
        Dim target3 As New FVIL.QR.CFviQR()
        target3.SrcImages(0) = target2_out0
        target3.Result = target3_out0
        target3.Param.BinThreshold = 128
        target3.Param.BinMethod = FVIL.QR.BinMethod.Average
        target3.Param.EffortLevel = FVIL.QR.EffortLevel.Maximum
        target3.Param.MinVar = 1000
        target3.Param.WindowSize = 11
        target3.Execute()

        ' QRコードデータ#1
        target4_out0.CopyFrom(target3_out0(0))
        target4_out1 = target4_out0.Center
        target4_out2 = target4_out0.Size
        target4_out3 = target4_out0.Text
        target4_out4 = target4_out0.MinCellWidth
        target4_out5 = target4_out0.ApptsCount
        target4_out6 = target4_out0.CellOnesCount
        target4_out7 = target4_out0.DelimitingPtsCount

        ' シリアル通信 (送信)#1
        Dim target5 As System.IO.Ports.SerialPort = DirectCast(ParserInfo, FVIL.Parser.IAuxSerialPort).Ports(0)
        target5.WriteLine(target4_out3.ToString())
    End Sub
End Class

namespace SampleCode
{
    public partial class MainForm : Form
    {
        public MainForm()
        {
            InitializeComponent();
        }

        /// <summary>
        /// フォームロード時の初期化処理.
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        private void MainForm_Load(object sender, EventArgs e)
        {
            #region 画像処理スレッド関連.
            Defs.ParserThread.Notify += ParserThread_Notify;
            #endregion
        }

        /// <summary>
        /// 定期的な表示更新処理.
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        private void timerUpdateUI_Tick(object sender, EventArgs e)
        {
            #region 画像処理スレッド関連.
            {
                toolThreadStart.Enabled = (Defs.ParserThread != null);
                toolThreadStart.Checked = (Defs.ParserThread != null && Defs.ParserThread.IsBusy);
                toolThreadAbort.Enabled = (Defs.ParserThread != null && Defs.ParserThread.IsBusy);
            }
            #endregion

            #region 画像処理スレッド関連.(完了イベント)
            if (ParserEventArgs != null)
            {
                statusTimeStamp.Text = string.Format(
                    "{0:00}:{1:00}:{2:00}",
                    ParserEventArgs.TimeStamp.Hour,
                    ParserEventArgs.TimeStamp.Minute,
                    ParserEventArgs.TimeStamp.Second);

                statusProcessTime.Text = string.Format(
                    "{0:0.000} ms",
                    ParserEventArgs.ProcessTime);

                if (ParserEventArgs.Exception == null)
                    statusMessage.Text = ParserEventArgs.Message;
                else
                    statusMessage.Text = ParserEventArgs.Exception.Message;

                if (Defs.ParserNode != null)
                {
                    Defs.ParserNode.ChangeVisibleLevel(FVIL.Parser.VisibleLevel.Enable);
                    Defs.ParserNode.Draw(ImageView);
                }
                ParserEventArgs = null;
            }
            #endregion
        }

        /// <summary>
        /// 画像処理スレッドの開始と停止.
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        private void toolThreadStart_Click(object sender, EventArgs e)
        {
            if (Defs.ParserThread == null) return;
            if (Defs.ParserThread.IsBusy == false)
                Defs.ParserThread.Start();
            else
                Defs.ParserThread.Stop();
        }

        /// <summary>
        /// 画像処理スレッドの中断.
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        private void toolThreadAbort_Click(object sender, EventArgs e)
        {
            if (Defs.ParserThread == null) return;
            Defs.ParserThread.Abort();
        }

        /// <summary>
        /// 画像処理完了通知イベント.
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        private void ParserThread_Notify(object sender, FVIL.Parser.ParserEventArgs e)
        {
            ParserEventArgs = e;
        }

        /// <summary>
        /// 画像処理完了通知イベント引数.
        /// </summary>
        private FVIL.Parser.ParserEventArgs ParserEventArgs = null;
    }
}

Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms

''' <summary>
''' 画像処理アプリケーションメインフォーム
''' </summary>
Public Partial Class MainForm
    Inherits Form
    ''' <summary>
    ''' コンストラクタ
    ''' </summary>
    Public Sub New()
        InitializeComponent()
    End Sub

    ''' <summary>
    ''' フォームロード時の初期化処理
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub MainForm_Load(sender As Object, e As EventArgs)
        '#Region "画像処理スレッド関連."
        AddHandler Defs.ParserThread.Notify, AddressOf ParserThread_Notify
        '#End Region
    End Sub

    ''' <summary>
    ''' フォームが閉じられるときの解放処理
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub MainForm_FormClosing(sender As Object, e As FormClosingEventArgs)
        timerUpdateUI.Enabled = False
    End Sub

    ''' <summary>
    ''' 定期的な表示更新処理
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub timerUpdateUI_Tick(sender As Object, e As EventArgs)
        '#Region "画像処理スレッド関連."
        If True Then
            toolThreadStart.Enabled = (Defs.ParserThread IsNot Nothing)
            toolThreadStart.Checked = (Defs.ParserThread IsNot Nothing AndAlso Defs.ParserThread.IsBusy)
            toolThreadAbort.Enabled = (Defs.ParserThread IsNot Nothing AndAlso Defs.ParserThread.IsBusy)
        End If
        '#End Region

        '#Region "画像処理スレッド関連.(完了イベント)"
        If ParserEventArgs IsNot Nothing Then
            statusTimeStamp.Text = String.Format("{0:00}:{1:00}:{2:00}", ParserEventArgs.TimeStamp.Hour, ParserEventArgs.TimeStamp.Minute, ParserEventArgs.TimeStamp.Second)

            statusProcessTime.Text = String.Format("{0:0.000} ms", ParserEventArgs.ProcessTime)

            If ParserEventArgs.Exception Is Nothing Then
                statusMessage.Text = ParserEventArgs.Message
            Else
                statusMessage.Text = ParserEventArgs.Exception.Message
            End If

            If Defs.ParserNode IsNot Nothing Then
                Defs.ParserNode.ChangeVisibleLevel(FVIL.Parser.VisibleLevel.Enable)
                Defs.ParserNode.Draw(ImageView)
            End If
            ParserEventArgs = Nothing
        End If
        '#End Region
    End Sub

    ''' <summary>
    ''' 画像処理スレッドの開始と停止
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub toolThreadStart_Click(sender As Object, e As EventArgs)
        If Defs.ParserThread Is Nothing Then
            Return
        End If
        If Defs.ParserThread.IsBusy = False Then
            Defs.ParserThread.Start()
        Else
            Defs.ParserThread.[Stop]()
        End If
    End Sub

    ''' <summary>
    ''' 画像処理スレッドの中断
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub toolThreadAbort_Click(sender As Object, e As EventArgs)
        If Defs.ParserThread Is Nothing Then
            Return
        End If
        Defs.ParserThread.Abort()
    End Sub

    ''' <summary>
    ''' 画像処理完了通知イベント
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub ParserThread_Notify(sender As Object, e As FVIL.Parser.ParserEventArgs)
        ParserEventArgs = e
    End Sub

    ''' <summary>
    ''' 画像処理完了通知イベント引数
    ''' </summary>
    Private ParserEventArgs As FVIL.Parser.ParserEventArgs = Nothing
End Class

namespace SampleCode
{
    public partial class MainForm : Form
    {
        /// <summary>
        /// フォームロード時の初期化処理.
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        private void MainForm_Load(object sender, EventArgs e)
        {
            #region イメージグラバー関連.
            // (注) この例ではコードの簡素化の為に１つ目のグラバーのみ使用しています.
            {
                FVIL.Parser.IAuxGrabber grabber = (FVIL.Parser.IAuxGrabber)Defs.ParserInfo;
                if (grabber.Threads.Length > 0 &&
                    grabber.Threads[0] != null)
                    grabber.Threads[0].FrameValid += GrabberThread_FrameValid;
            }
            #endregion
        }

        /// <summary>
        /// 定期的な表示更新処理.
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        private void timerUpdateUI_Tick(object sender, EventArgs e)
        {
            #region イメージグラバー関連.
            {
                FVIL.Parser.IAuxGrabber grabber = (FVIL.Parser.IAuxGrabber)Defs.ParserInfo;
                bool grabber_enable = (grabber.Threads.Length > 0 && grabber.Threads[0] != null);
                toolGrabberStart.Enabled = grabber_enable;
                toolGrabberStart.Checked = (grabber_enable && grabber.Threads[0].IsBusy);
                toolGrabberFocusing.Enabled = (grabber_enable && GrabberFocusingForm == null);
            }
            #endregion

            #region イメージグラバー関連.(取り込み完了イベント)
            if (GrabberEventArgs != null)
            {
                if (GrabberEventArgs.Exception == null &&
                    GrabberEventArgs.Images.Length > 0 &&
                    GrabberEventArgs.Images[0] != null)
                {
                    ImageView.Image = GrabberEventArgs.Images[0];
                    ImageView.Refresh();
                }
                GrabberEventArgs = null;
            }
            #endregion
        }

        /// <summary>
        /// イメージグラバーの開始・停止.
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        private void toolGrabberStart_Click(object sender, EventArgs e)
        {
            FVIL.Parser.IAuxGrabber grabber = (FVIL.Parser.IAuxGrabber)Defs.ParserInfo;
            if (grabber.Threads.Length == 0) return;
            if (grabber.Threads[0] == null) return;

            try
            {
                FVIL.Imaging.GrabberThread thread = grabber.Threads[0];
                if (thread.IsBusy == false)
                    thread.Start();
                else
                    thread.Abort();
            }
            catch (System.Exception ex)
            {
                MessageBox.Show(this, ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
            }
        }

        /// <summary>
        /// 焦点調整フォームの表示.
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        private void toolGrabberFocusing_Click(object sender, EventArgs e)
        {
            FVIL.Parser.IAuxGrabber grabber = (FVIL.Parser.IAuxGrabber)Defs.ParserInfo;
            if (grabber.Threads.Length == 0) return;
            if (grabber.Threads[0] == null) return;

            try
            {
                FVIL.Imaging.GrabberThread thread = grabber.Threads[0];
                GrabberFocusingForm = thread.CreateFocusingDialog();
                GrabberFocusingForm.FormClosed += GrabberFocusingForm_FormClosed;
                GrabberFocusingForm.Show();
            }
            catch (System.Exception ex)
            {
                MessageBox.Show(this, ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
            }
        }

        /// <summary>
        /// 焦点調整フォーム.
        /// </summary>
        private Form GrabberFocusingForm = null;

        /// <summary>
        /// 焦点調整フォームが閉じたとき.
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        private void GrabberFocusingForm_FormClosed(object sender, EventArgs e)
        {
            GrabberFocusingForm = null;
        }

        /// <summary>
        /// イメージグラバーの取り込み完了通知イベント.
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        private void GrabberThread_FrameValid(object sender, FVIL.Imaging.GrabberEventArgs e)
        {
            GrabberEventArgs = e;
        }

        /// <summary>
        /// イメージグラバーの取り込み完了通知イベント引数.
        /// </summary>
        private FVIL.Imaging.GrabberEventArgs GrabberEventArgs = null;
    }
}

Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms

''' <summary>
''' 画像処理アプリケーションメインフォーム
''' </summary>
Public Partial Class MainForm
    Inherits Form

    ''' <summary>
    ''' フォームロード時の初期化処理
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub MainForm_Load(sender As Object, e As EventArgs)
        '#Region "イメージグラバー関連."
        ' (注) この例ではコードの簡素化の為に１つ目のグラバーのみ使用しています.
        If True Then
            Dim grabber As FVIL.Parser.IAuxGrabber = DirectCast(Defs.ParserInfo, FVIL.Parser.IAuxGrabber)
            If grabber.Threads.Length > 0 AndAlso grabber.Threads(0) IsNot Nothing Then
                AddHandler grabber.Threads(0).FrameValid, AddressOf GrabberThread_FrameValid
            End If
        End If
        '#End Region
    End Sub

    ''' <summary>
    ''' 定期的な表示更新処理
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub timerUpdateUI_Tick(sender As Object, e As EventArgs)
        '#Region "イメージグラバー関連."
        If True Then
            Dim grabber As FVIL.Parser.IAuxGrabber = DirectCast(Defs.ParserInfo, FVIL.Parser.IAuxGrabber)
            Dim grabber_enable As Boolean = (grabber.Threads.Length > 0 AndAlso grabber.Threads(0) IsNot Nothing)
            toolGrabberStart.Enabled = grabber_enable
            toolGrabberStart.Checked = (grabber_enable AndAlso grabber.Threads(0).IsBusy)
            toolGrabberFocusing.Enabled = (grabber_enable AndAlso GrabberFocusingForm Is Nothing)
        End If
        '#End Region

        '#Region "イメージグラバー関連.(取り込み完了イベント)"
        If GrabberEventArgs IsNot Nothing Then
            If GrabberEventArgs.Exception Is Nothing AndAlso GrabberEventArgs.Images.Length > 0 AndAlso GrabberEventArgs.Images(0) IsNot Nothing Then
                ImageView.Image = GrabberEventArgs.Images(0)
                ImageView.Refresh()
            End If
            GrabberEventArgs = Nothing
        End If
        '#End Region
    End Sub

    ''' <summary>
    ''' イメージグラバーの開始・停止
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub toolGrabberStart_Click(sender As Object, e As EventArgs)
        Dim grabber As FVIL.Parser.IAuxGrabber = DirectCast(Defs.ParserInfo, FVIL.Parser.IAuxGrabber)
        If grabber.Threads.Length = 0 Then
            Return
        End If
        If grabber.Threads(0) Is Nothing Then
            Return
        End If

        Try
            Dim thread As FVIL.Imaging.GrabberThread = grabber.Threads(0)
            If thread.IsBusy = False Then
                thread.Start()
            Else
                thread.Abort()
            End If
        Catch ex As System.Exception
            MessageBox.Show(Me, ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
        End Try
    End Sub

    ''' <summary>
    ''' 焦点調整フォームの表示
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub toolGrabberFocusing_Click(sender As Object, e As EventArgs)
        Dim grabber As FVIL.Parser.IAuxGrabber = DirectCast(Defs.ParserInfo, FVIL.Parser.IAuxGrabber)
        If grabber.Threads.Length = 0 Then
            Return
        End If
        If grabber.Threads(0) Is Nothing Then
            Return
        End If

        Try
            Dim thread As FVIL.Imaging.GrabberThread = grabber.Threads(0)
            GrabberFocusingForm = thread.CreateFocusingDialog()
            AddHandler GrabberFocusingForm.FormClosed, AddressOf GrabberFocusingForm_FormClosed
            GrabberFocusingForm.Show()
        Catch ex As System.Exception
            MessageBox.Show(Me, ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
        End Try
    End Sub

    ''' <summary>
    ''' 焦点調整フォーム
    ''' </summary>
    Private GrabberFocusingForm As Form = Nothing

    ''' <summary>
    ''' 焦点調整フォームが閉じたとき
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub GrabberFocusingForm_FormClosed(sender As Object, e As EventArgs)
        GrabberFocusingForm = Nothing
    End Sub

    #End Region

    #Region "イメージグラバー関連.(イベントハンドラ)"

    ''' <summary>
    ''' イメージグラバーの取り込み完了通知イベント
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub GrabberThread_FrameValid(sender As Object, e As FVIL.Imaging.GrabberEventArgs)
        GrabberEventArgs = e
    End Sub

    ''' <summary>
    ''' イメージグラバーの取り込み完了通知イベント引数
    ''' </summary>
    Private GrabberEventArgs As FVIL.Imaging.GrabberEventArgs = Nothing
End Class

namespace SampleCode
{
    public partial class MainForm : Form
    {
        /// <summary>
        /// 定期的な表示更新処理.
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        private void timerUpdateUI_Tick(object sender, EventArgs e)
        {
            #region デジタル入出力関連.
            {
                FVIL.Parser.IAuxDio dio = (FVIL.Parser.IAuxDio)Defs.ParserInfo;
                bool dio_enable = (dio.Threads.Length > 0 && dio.Threads[0] != null);
                toolDioMonitor.Enabled = (dio_enable && DioMonitorForm == null);
            }
            #endregion
        }

        /// <summary>
        /// デジタル入出力モニタの表示.
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        private void toolDioMonitor_Click(object sender, EventArgs e)
        {
            FVIL.Parser.IAuxDio dio = (FVIL.Parser.IAuxDio)Defs.ParserInfo;
            if (dio.Threads.Length == 0) return;
            if (dio.Threads[0] == null) return;

            try
            {
                FVIL.IO.DioThread thread = dio.Threads[0];
                DioMonitorForm = thread.CreateTestDialog();
                DioMonitorForm.FormClosed += DioMonitorForm_FormClosed;
                DioMonitorForm.Show();
            }
            catch (System.Exception ex)
            {
                MessageBox.Show(this, ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
            }
        }

        /// <summary>
        /// デジタル入出力モニタ.
        /// </summary>
        private Form DioMonitorForm = null;

        /// <summary>
        /// デジタル入出力モニタが閉じたとき.
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        private void DioMonitorForm_FormClosed(object sender, EventArgs e)
        {
            DioMonitorForm = null;
        }
    }
}

Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms

''' <summary>
''' 画像処理アプリケーションメインフォーム
''' </summary>
Public Partial Class MainForm
    Inherits Form

    ''' <summary>
    ''' 定期的な表示更新処理
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub timerUpdateUI_Tick(sender As Object, e As EventArgs)
        '#Region "デジタル入出力関連."
        If True Then
            Dim dio As FVIL.Parser.IAuxDio = DirectCast(Defs.ParserInfo, FVIL.Parser.IAuxDio)
            Dim dio_enable As Boolean = (dio.Threads.Length > 0 AndAlso dio.Threads(0) IsNot Nothing)
            toolDioMonitor.Enabled = (dio_enable AndAlso DioMonitorForm Is Nothing)
        End If
        '#End Region
    End Sub

    ''' <summary>
    ''' デジタル入出力モニタの表示
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub toolDioMonitor_Click(sender As Object, e As EventArgs)
        Dim dio As FVIL.Parser.IAuxDio = DirectCast(Defs.ParserInfo, FVIL.Parser.IAuxDio)
        If dio.Threads.Length = 0 Then
            Return
        End If
        If dio.Threads(0) Is Nothing Then
            Return
        End If

        Try
            Dim thread As FVIL.IO.DioThread = dio.Threads(0)
            DioMonitorForm = thread.CreateTestDialog()
            AddHandler DioMonitorForm.FormClosed, AddressOf DioMonitorForm_FormClosed
            DioMonitorForm.Show()
        Catch ex As System.Exception
            MessageBox.Show(Me, ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
        End Try
    End Sub

    ''' <summary>
    ''' デジタル入出力モニタ
    ''' </summary>
    Private DioMonitorForm As Form = Nothing

    ''' <summary>
    ''' デジタル入出力モニタが閉じたとき
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub DioMonitorForm_FormClosed(sender As Object, e As EventArgs)
        DioMonitorForm = Nothing
    End Sub
End Class

namespace SampleCode
{
    public partial class MainForm : Form
    {
        /// <summary>
        /// 定期的な表示更新処理.
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        private void timerUpdateUI_Tick(object sender, EventArgs e)
        {
            #region シリアル通信関連.
            {
                FVIL.Parser.IAuxSerialPort com = (FVIL.Parser.IAuxSerialPort)Defs.ParserInfo;
                bool com_enable = (com.Ports.Length > 0 && com.Ports[0] != null);
                toolSerialPort.Enabled = (com_enable && SerialPortForm == null);
            }
            #endregion
        }

        /// <summary>
        /// シリアル通信フォームの表示.
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        private void toolSerialPort_Click(object sender, EventArgs e)
        {
            FVIL.Parser.IAuxSerialPort com = (FVIL.Parser.IAuxSerialPort)Defs.ParserInfo;
            if (com == null) return;
            if (com.Ports.Length == 0) return;
            if (com.Ports[0] == null) return;

            try
            {
                System.IO.Ports.SerialPort port = com.Ports[0];
                SerialPortForm = FVIL.Ports.SerialPortTool.CreatePropertyDialog(port);
                SerialPortForm.FormClosed += SerialPortForm_FormClosed;
                SerialPortForm.Show();
            }
            catch (System.Exception ex)
            {
                MessageBox.Show(this, ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
            }
        }

        /// <summary>
        /// シリアル通信フォーム.
        /// </summary>
        private Form SerialPortForm = null;

        /// <summary>
        /// シリアル通信フォームが閉じたとき.
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        private void SerialPortForm_FormClosed(object sender, EventArgs e)
        {
            SerialPortForm = null;
        }
    }
}

Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms

''' <summary>
''' 画像処理アプリケーションメインフォーム
''' </summary>
Public Partial Class MainForm
    Inherits Form

    ''' <summary>
    ''' 定期的な表示更新処理
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub timerUpdateUI_Tick(sender As Object, e As EventArgs)
        '#Region "シリアル通信関連."
        If True Then
            Dim com As FVIL.Parser.IAuxSerialPort = DirectCast(Defs.ParserInfo, FVIL.Parser.IAuxSerialPort)
            Dim com_enable As Boolean = (com.Ports.Length > 0 AndAlso com.Ports(0) IsNot Nothing)
            toolSerialPort.Enabled = (com_enable AndAlso SerialPortForm Is Nothing)
        End If
        '#End Region
    End Sub

    ''' <summary>
    ''' シリアル通信フォームの表示
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub toolSerialPort_Click(sender As Object, e As EventArgs)
        Dim com As FVIL.Parser.IAuxSerialPort = DirectCast(Defs.ParserInfo, FVIL.Parser.IAuxSerialPort)
        If com Is Nothing Then
            Return
        End If
        If com.Ports.Length = 0 Then
            Return
        End If
        If com.Ports(0) Is Nothing Then
            Return
        End If

        Try
            Dim port As System.IO.Ports.SerialPort = com.Ports(0)
            SerialPortForm = FVIL.Ports.SerialPortTool.CreatePropertyDialog(port)
            AddHandler SerialPortForm.FormClosed, AddressOf SerialPortForm_FormClosed
            SerialPortForm.Show()
        Catch ex As System.Exception
            MessageBox.Show(Me, ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
        End Try
    End Sub

    ''' <summary>
    ''' シリアル通信フォーム
    ''' </summary>
    Private SerialPortForm As Form = Nothing

    ''' <summary>
    ''' シリアル通信フォームが閉じたとき
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub SerialPortForm_FormClosed(sender As Object, e As EventArgs)
        SerialPortForm = Nothing
    End Sub
End Class