标记过度曝光和曝光不足的像素-2

《标记过度曝光和曝光不足的像素-2》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、显示现场视频:标记过度曝光和曝光不足的像素－2这个示例程序演示的是如何通过编程，控制标记像素时所需的各个参数。语言:VisualBasic6版本:3.0.3发布于:2006年8月20日作者:ICImagingControl技术支持部系统要求:ICImagingControl3.0或更高版本由WDM数据流类驱动程序驱动的相机、视频转换器或图像采集卡§下载VB6源代码mark_pixels_2_vb6.exe下面的示例程序(VisualBasic™6)对上一节介绍的程序进一步做了扩展，它将演示如何直接在程序中，而不是通过滤镜的内置对

2、话框，调节标记过度曝光或曝光不足的像素时的各个参数。程序窗口如图所示：首先在Form1中声明一个FrameFilter型的变量filter。这个变量含有帧滤镜，用于与之交换数据。DimfilterAsFrameFilter'ThisvariablewillholdtheClippingfilter滤镜提供了下列参数：阈值("Threshold")，参数"ClipAboveThreshold"，标记像素时的色彩和模式("FillMode"und"FillColor")。阈值可通过一个scrollbarsldThreshold控制。

3、一个像素是否被标记通过两个radiobuttonrbClipAbove和rbClipBelow控制。程序开始后首先调用两个在主窗体中初始化控件的函数。InitControlsUpdateControls函数InitControls初始化scrollbarsldThreshold的最小值与最大值。PrivateSubInitControls()sldThreshold.Min=0sldThreshold.Max=255EndSub函数UpdateControls将滤镜的参数"Enable"、"Threshold"及"ClipAbo

4、veThreshold"赋予复选框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的事件处理程序将其当前值赋予滤镜的参数"Thre

6、shold"，并使用这个值更新显示文字txThreshol。PrivateSubsldThreshold_Scroll()filter.Parameter("Threshold")=sldThreshold.ValuetxThreshold.Text=sldThreshold.ValueEndSubRadiobuttonrbClipAbove的事件处理程序将True值赋予滤镜参数"ClipAboveThreshold"，反选radiobuttonrbClipBelow。rbClipBelow的事件处理程序工作原理相同。Priva

7、teSubrbClipAbove_Click()filter.BeginParameterTransferfilter.Parameter("ClipAboveThreshold")=Truefilter.EndParameterTransferrbClipBelow.Value=FalseEndSub相关源代码示例