標(biāo)記過(guò)度曝光和曝光不足的像素-2

《標(biāo)記過(guò)度曝光和曝光不足的像素-2》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。

1、顯示現(xiàn)場(chǎng)視頻:標(biāo)記過(guò)度曝光和曝光不足的像素－2這個(gè)示例程序演示的是如何通過(guò)編程，控制標(biāo)記像素時(shí)所需的各個(gè)參數(shù)。語(yǔ)言:VisualBasic6版本:3.0.3發(fā)布于:2006年8月20日作者:ICImagingControl技術(shù)支持部系統(tǒng)要求:ICImagingControl3.0或更高版本由WDM數(shù)據(jù)流類(lèi)驅(qū)動(dòng)程序驅(qū)動(dòng)的相機(jī)、視頻轉(zhuǎn)換器或圖像采集卡§下載VB6源代碼mark_pixels_2_vb6.exe下面的示例程序(VisualBasic?6)對(duì)上一節(jié)介紹的程序進(jìn)一步做了擴(kuò)展，它將演示如何直接在程序中，而不是通過(guò)濾鏡的內(nèi)置對(duì)

2、話框，調(diào)節(jié)標(biāo)記過(guò)度曝光或曝光不足的像素時(shí)的各個(gè)參數(shù)。程序窗口如圖所示：首先在Form1中聲明一個(gè)FrameFilter型的變量filter。這個(gè)變量含有幀濾鏡，用于與之交換數(shù)據(jù)。DimfilterAsFrameFilter'ThisvariablewillholdtheClippingfilter濾鏡提供了下列參數(shù)：閾值("Threshold")，參數(shù)"ClipAboveThreshold"，標(biāo)記像素時(shí)的色彩和模式("FillMode"und"FillColor")。閾值可通過(guò)一個(gè)scrollbarsldThreshold控制。

3、一個(gè)像素是否被標(biāo)記通過(guò)兩個(gè)radiobuttonrbClipAbove和rbClipBelow控制。程序開(kāi)始后首先調(diào)用兩個(gè)在主窗體中初始化控件的函數(shù)。InitControlsUpdateControls函數(shù)InitControls初始化scrollbarsldThreshold的最小值與最大值。PrivateSubInitControls()sldThreshold.Min=0sldThreshold.Max=255EndSub函數(shù)UpdateControls將濾鏡的參數(shù)"Enable"、"Threshold"及"ClipAbo

4、veThreshold"賦予復(fù)選框cbEnable、scrollbarsldThreshold及radiobuttonsrbClipAboveundrbClipBelow。PrivateSubUpdateControls()'Updatethe"Enable"checkbox.Iffilter.Parameter("Enable")ThencbEnable.Value=CheckedElsecbEnable.Value=UncheckedEndIf'Updatetheradiobuttons.Iffilter.Parameter

5、("ClipAboveThreshold")ThenrbClipAbove.Value=TruerbClipBelow.Value=FalseElserbClipAbove.Value=FalserbClipBelow.Value=TrueEndIf'Updatetheslider.sldThreshold.Value=filter.Parameter("Threshold")txThreshold.Text=sldThreshold.ValueEndSubsldThreshold的事件處理程序?qū)⑵洚?dāng)前值賦予濾鏡的參數(shù)"Thre

6、shold"，并使用這個(gè)值更新顯示文字txThreshol。PrivateSubsldThreshold_Scroll()filter.Parameter("Threshold")=sldThreshold.ValuetxThreshold.Text=sldThreshold.ValueEndSubRadiobuttonrbClipAbove的事件處理程序?qū)rue值賦予濾鏡參數(shù)"ClipAboveThreshold"，反選radiobuttonrbClipBelow。rbClipBelow的事件處理程序工作原理相同。Priva

7、teSubrbClipAbove_Click()filter.BeginParameterTransferfilter.Parameter("ClipAboveThreshold")=Truefilter.EndParameterTransferrbClipBelow.Value=FalseEndSub相關(guān)源代碼示例