VB下识别有机煤岩显微镜图片-中国显微图像网.PDF

VB 下识别有机煤岩显微镜图片 孟志强，何虎军，秦鹏，阎玉梅，刘海新 (河北工程学院 资源系， 河北 邯郸 056038) 摘要：在煤的有机岩石学中，镜下和照片中显微组分的识别是一件重要而又特别耗眼睛的工 作。本文利用煤显微组分在镜下不同颜色显现的特点，用计算机 VB 编程对煤的三大显微组 分进行灰度识别。 关键词：有机煤岩；识别；VB 中图分类号： 文献标识码：A 文章编号： Identified Micrograph of Organic Anthracology in VB Meng Zhi-qiang, HE Hu-jun, Qin Peng, Yan Yu-mei, Liu Hai-xin (Hebei University of Engineering, Handan 056038,China) Abstract : It is a important and especially used eyes work to identify microscopical element in mirror and picture in the organic petrology. According to appearing character of different color, identified ash degree of coal’s three microscopical element introduced by the program of VB in this paper. Keywords : organic anthracology; identify; VB 0 引言 在煤的有机岩石学研究中，煤的显微组分的划分、识别及反射率的测定是一项必不可少 的工作，煤的三大组分：镜质组、壳质组、惰性组的识别尤为重要。目前，煤的显微组分识 别多运用光学显微镜，在显微镜的反射光下，煤的显微组分呈现不同的灰黑色至白色，煤的 三大组分划分根据其颜色的不同进行判断，一般情况下，镜下镜质组呈现灰色，壳质组呈现 白色，而惰性组呈现灰黑色或黑色。本文拟利用煤显微组分在镜下不同颜色显现的特点，运 用计算机 VB 编程对煤的三大显微组分进行灰度识别，通过鼠标点击选中图片中的相通应颜 色，再和参考样对照，判断三种常见组分，从而实现镜下和照片中显微组分的计算机自动识 别。 1 实例程序 1.1 基本原理 各组分在颜色、灰度上有差别，用鼠标找到适当的点，取出颜色，再和标准颜色对照， 给出结果。 1.2 程序实现 在窗体中加入必要的控件：如图 1，添置控制区和图片区，安排相应的标签、文本框、 命令按纽等。 基金项目：国家 973 计划资助项目(项目编号：2003CB214607) 图 1 1.3 部分代码 Private Declare Function GetWindowDC Lib user32 (ByVal hWnd As Long) As Long Private Declare Function GetCursorPos Lib user32 (lpPoint As POINTAPI) As Long Private Declare Function GetPixel Lib gdi32 (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long Private Type POINTAPI X As Long Y As Long End Type Dim XX, YY Dim MousePos As POINTAPI （1）装入图片：选用通用对话框，CC.ShowOpen ImaII.Picture = LoadPicture(CC.FileName) End Sub （2 ）点击选用图片上的某点，调用三个API 函数，分别为：确定鼠标位置，获取屏幕 设备场景，取得鼠标所指定点的颜色，已在上文中定义。