// 変数 "StartImage" はリングバッファを最も古いインデックスに保存するのに使用されます
int StartImage;

// 変数 "TimerCurrentImage" イメージシーケンスの自動リピート再生の際、現在表示するイメージのインデックスとして使用されます
int TimerCurrentImage;

// "Images" にはイメージリングバッファのコピーが格納されます。これにより、イメージに高速にアクセスが可能となります。
TIS.Imaging.ImageBuffer[] Images;

// 変数 "FrameCount" はキャプチャフレームのカウントに使用されます。この"FrameCount" がリングバッファサイズよりも大きくなると
// "btnCapture" が有効となり、ユーザーはリングバッファが一杯になった事を知る事ができます。
// FrameCount will be set to 0 in btnLiveVideo_Click の中で FrameCount は０にセットされ、ImageAvailableイベント
// ハンドラーの中で増加させていきます。
int FrameCount = 0;

// "Seconds" リングバッファの長さを、物理量である”秒”で指定します。
int Seconds = 2;

' 変数 "StartImage" はイメージをリングバッファの最も古いインデックスに保存するのに使用されます
Dim StartImage As Integer

' 変数 "TimerCurrentImage" イメージシーケンスの自動リピート再生の際、現在表示するイメージのインデックスとして使用されます
Dim TimerCurrentImage As Integer

' "Images" にはイメージリングバッファのコピーが格納されます。これにより、イメージに高速にアクセスが可能となります。
Dim Images() As TIS.Imaging.ImageBuffer

' 変数 "FrameCount" はキャプチャフレームのカウントに使用されます。この"FrameCount" がリングバッファサイズよりも大きくなると
' "btnCapture" が有効となり、ユーザーはリングバッファが一杯になった事を知る事ができます。
' FrameCount will be set to 0 in btnLiveVideo_Click の中で FrameCount は０にセットされ、ImageAvailableイベント
' ハンドラーの中で増加させていきます。
Dim FrameCount As Integer

' "Seconds" リングバッファの長さを、物理量である”秒”で指定します。
Dim Seconds As Integer

icImagingControl1.ShowDeviceSettingsDialog();

if (icImagingControl1.DeviceValid)
{
    // ここでデバイスのフレームレート　×　設定時間により、確保するバッファ数を指定します。
    icImagingControl1.ImageRingBufferSize = Convert.ToInt32(icImagingControl1.DeviceFrameRate * Seconds);
}

' デバイス設定ダイアログを表示します
IcImagingControl1.ShowDeviceSettingsDialog()

If IcImagingControl1.DeviceValid Then
    ' ここでデバイスのフレームレート　×　設定時間により、確保するバッファ数を指定します。
    IcImagingControl1.ImageRingBufferSize = Convert.ToInt32(IcImagingControl1.DeviceFrameRate * Seconds)
    

// "Capture"ボタンがクリックされた後も少しの間フレーム取得をしたい場合、"LiveStop()" の前に "Sleep()" を挿入する事ができます。
//  System.Threading.Thread.Sleep(1000);
// これにより、アプリケーションはボタンがクリックされた後も1秒間だけフレームの取得を続けます。

icImagingControl1.LiveStop();
btnLiveVideo.Text = "Start Live";
// 取得されたイメージバッファへのアクセスを高速にするために、それぞれのバッファへのコピーを生成します
Images = icImagingControl1.ImageBuffers;

' "Capture"ボタンがクリックされた後も少しの間フレーム取得をしたい場合、"LiveStop()" の前に "Sleep()" を挿入する事ができます。
'  System.Threading.Thread.Sleep(1000)
' これにより、アプリケーションはボタンがクリックされた後も1秒間だけフレームの取得を続けます。

IcImagingControl1.LiveStop()
btnLiveVideo.Text = "Start Live"
' 取得されたイメージバッファへのアクセスを高速にするために、それぞれのバッファへのコピーを生成します
Images = IcImagingControl1.ImageBuffers

// リングバッファの最も古いイメージをみつけ、そのインデックスを変数"StartImage"に保存します。
double MinStartTime;

StartImage = 0;
MinStartTime = icImagingControl1.ImageBuffers[StartImage].SampleStartTime;

for (int i = 1; i < (icImagingControl1.ImageRingBufferSize - 1); i++)
{
    if (Images[i].SampleStartTime < MinStartTime)
    {
        StartImage = i;
        MinStartTime = Images[StartImage].SampleStartTime;
        break;
    }
}  

' リングバッファの最も古いイメージをみつけ、そのインデックスを変数"StartImage"に保存します。
Dim i As Integer
Dim MinStartTime As Double
StartImage = 0
MinStartTime = IcImagingControl1.ImageBuffers(StartImage).SampleStartTime
For i = 1 To IcImagingControl1.ImageRingBufferSize - 1
    If Images(i).SampleStartTime < MinStartTime Then
        StartImage = i
        MinStartTime = Images(StartImage).SampleStartTime
    End If
Next

private void DisplayTheImage(int Index)
{
    int i;
    if (!icImagingControl1.LiveVideoRunning)
    {
        i = StartImage + Index;
        // iがリングバッファサイズを超えた場合のハンドリング
        if (i >= icImagingControl1.ImageRingBufferSize)
        {
            i = i - icImagingControl1.ImageRingBufferSize;
        }
        icImagingControl1.DisplayImageBuffer(Images[i]);
    }
} 

Private Sub DisplayTheImage(ByVal Index As Integer)
    Dim i As Integer
    With IcImagingControl1
        If Not .LiveVideoRunning Then
            i = StartImage + Index
            ' iがリングバッファサイズを超えた場合のハンドリング
            If i >= .ImageRingBufferSize Then
                i = i - .ImageRingBufferSize
            End If
            .DisplayImageBuffer(Images(i))
        End If
    End With
End Sub

private void EnableCaptureButton()
{
    btnCapture.Enabled = true;
}      

Private Sub EnableCaptureButton()
    btnCapture.Enabled = True
End Sub  

public delegate void EnableCaptureDelegate(); 

Private Delegate Sub EnableCaptureDelegate()

private void icImagingControl1_ImageAvailable(object sender, TIS.Imaging.ICImagingControl.ImageAvailableEventArgs e)
{
    if (btnCapture.Enabled == false)
    {
        if (FrameCount > icImagingControl1.ImageRingBufferSize)
        {
            // ここでキャプチャボタンを有効にします
            BeginInvoke(new EnableCaptureDelegate(EnableCaptureButton));
        }
        else
        {
            FrameCount++;
        }
    }
}

Private Sub IcImagingControl1_ImageAvailable(ByVal sender As System.Object, ByVal e As TIS.Imaging.ICImagingControl.ImageAvailableEventArgs) Handles IcImagingControl1.ImageAvailable
    If btnCapture.Enabled = False Then
        If FrameCount > IcImagingControl1.ImageRingBufferSize Then
            ' ここでキャプチャボタンを有効にします
            BeginInvoke(New EnableCaptureDelegate(AddressOf EnableCaptureButton))
        Else
            FrameCount = FrameCount + 1
        End If
    End If
End Sub