骨髓细胞学图文报告系统的软件设计
合集下载
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
SoftwareDesignofReportSystem forBoneMarrow Cell’sMorphology
LIU Jie1,HAN Lingxia1,GUAN Xiao2 1LaboratoryofBeijingMilitaryRegionalGeneralHospital,Beijing 100700; 2TheTeachingandTesearchSectionofAnalyticalChemistryofLaboratoryDepartmentofThirdMilitary
Selection.ShapeRange.LockAspectRatio=msoTrue Selection.ShapeRange.Height=H Selection.ShapeRange.Width=W Selection.ShapeRange.Rotation=0 WithSelection
.Placement=xlFreeFloating .PrintObject=True EndWith Selection.Name="PIC"& pn-1
Ifpic_n=2Then X1=70; Y1=90; X2=70; Y2=240; L1=410; T1=180; L2=410; T2=320 H1=141.75; W1=141.75
EndIf
(4)打开操作 者 指 定 的 文 件 夹,查 看 该 文 件 夹 下 所 有 图 像 文 件 的 缩 略 图 ,当 检 验 技 师 找 到 满 意 的 、 有诊断意义的涂片 图 像 时,点 选 即 可 获 取 数 码 图 像 文件名。
【Keywords】 bonemarrowsmear;testreport;colorcell’simage;VisualBasicforapplication
0 引 言
骨髓细胞涂片显微镜检查是医学临床检验学重 要的常规检查项目。随着计算机技术在医学领域中 的广泛应用,微机图 像 系 统 开 始 进 入 临 床 医 学 的 细 胞形态学研究,为医 院 临 床 医 师 提 供 更 高 水 平 的 检 验分析报 告。 但 目 前 商 用 的 图 像 分 析 系 统 报 价 昂 贵 ,动 辄 十 几 万 到 数 十 万 ,除 了 专 门 从 事 血 液 病 研 究 和治疗的大型医院或研究所骨髓细胞科室对骨髓细 胞项目的检查外,多 数 医 院 检 验 科 的 骨 髓 报 告 仍 然 停留在手工填写化 验 单 的 原 始 模 式 下,无 法 实 现 电
(1)清 除 模 板 指 定 范 围 内 的 图 片 和 文 本 框 对 象。
Dim pAsShape SetMy=Worksheets("CELL") ForEachpInMy.Shapes IfNotApplication.Intersect(p.TopLeftCell, Range ("A9:AH26"))IsNothingThenp.Delete Next
作 者 单 位 :1.北 京 军 区 总 医 院 检 验 科 (北 京 100700) 2.第三军医大学医学检 验 系 分 析 化 学 与 药 物 分 析 教 研 室 (重 庆 400038)
作 者 简 介 :刘 杰 (1968— ),男 ,主 任 技 师 ,主 要 从 事 医 学 检 验
子图文纪录。因此本文将重点讨论如何基于最常用 的办 公 软 件 MicrosoftOfficeExcel,利 用 其 内 嵌 的 VBA(VisualBasicforapplication)编 程 开 放 代 码,实 现免费的骨髓细胞学图文报告系统。
(2)输入准备 插 入 的 图 像 的 数 量,有 ห้องสมุดไป่ตู้ 范 围 为 2~6张 图 片,根 据 插 入 的 数 量,决 定 图 像 的 位 置 和 大小。
pic_n=InputBox("请 输 入 准 备 插 入 的 图 像 的 数 量 "," 插 入 的 图 像 ") Ifpic_n=""Then 无录入
第 30卷 第 1期 2011年 2月
北京生物医学工程 BeijingBiomedicalEngineering
Vol.30 No.1 February 2011
骨髓细胞学图文报告系统的软件设计
刘 杰1 韩 玲 霞1 管 潇2
摘 要 根据医院 检 验 科 在 骨 髓 涂 片 结 果 报 告 中 需 要 彩 色 细 胞 图 像 的 特 殊 要 求,基 于 Microsoft OfficeExcel的 VisualBasicforApplication(VBA)编程开放代码,研发了一套适合骨髓细胞学彩色图文 报 告 的 系 统 平 台 。 通 过 上 述 软 件 ,临 床 检 验 医 师 可 快 速 方 便 地 形 成 精 确 的 图 文 报 告 ,这 对 提 高 医 院 的 整 体诊断水平具有重要作用。
文 件 类 型 列 表 ,可 以 自 定 义 增 加 各 种 图 象 文 件 类 型 。 Filt="JPEG文件交换格式(.jpg),.jpg,"& _
"Windows位图(.bmp),.bmp,"& _ "图形交换格式 (.gif),.gif,"& _ "可移植网络图形(.png),.png,"& _ "TGA图像格式(.tif),.tif,"& _ "AllFiles( . ), . " FilterIndex=6'显示‘. ’为默认条件 Title="选 择 准 备 插 入 的 图 像 " 获得文件名 FileName=Application.GetOpenFilename(FileFilter:= Filt,FilterIndex:=FilterIndex,Title:=Title) IfFileName=FalseThen MsgBox"未 选 择 任 何 文 件 " ExitSub
第 1期
骨髓细胞学图文报告系统的软件设计
· 87·
EndIf 显示所选文件的路径和文件名 MsgBox"Youselected"& FileName
(5)插 入 所 选 的 图 片 文 件 。
Dim pic_name AsString pic_name=FileName Cells(3.1).Select ActiveSheet.Pictures.Insert(pic_name).Select Selection.ShapeRange.IncrementLeftX Selection.ShapeRange.IncrementTopY
用户首先 在 EXCEL中 的 一 个 Sheet1上,按 照 全国血液学实验诊断手册和权威机构的报告模板, 结合本单位的常用 化 验 单 样 式,设 计 出 自 己 特 色 的 报告模板,使诊 断 报 告 规 范 化。 另 外 可 将 患 者 信 息 (如病案号、年 龄、性 别、科 室 )和 检 验 信 息 (骨 髓 来 源、骨髓特征、检 验 诊 断、审 核 医 生、检 验 医 生、回 报 日期等)应用 EXCEL的 数 据 有 效 性,最 大 限 度 地 降 低操作人员的文字录入(如连接 HIS/LIS数据库,则 患者信息可自动 生 成)。然 后 由 控 件 工 具 箱 进 入 设 计 模 式 ,在 非 打 印 区 域 内 定 义 一 个 命 令 按 钮 ,命 名 为 “图文报告”,并将按 钮 属 性 中 定 义 为 PrintObject为 False,以 免 按 钮 打 印 到 最 终 报 告 中。 然 后 启 动 VBE,分 别 写 入 编 程 代 码 。 2.2 图 像 采 集 模 块
一般的骨 髓 细 胞 形 态 学 图 像 工 作 站 都 是 单 机 版,如果需要连接 HIS或 LIS则需要另付费,有关导 入或导出 HIS或 LIS的 数 据 相 关 编 程 代 码,参 见 刘 杰另一论文 [8],可以实现联机功能。
2 图 文 报 告 系 统 软 件 结 构
本系统采用尽 可 能 简 单 的 设 计 原 则,使 具 有 入 门级 VBA水平的读者容易阅读和理解,也 使软件 容 易 测 试 和 调 试 ,也 能 提 高 软 件 的 可 修 改 性 ,因 而 有 助 于提高软件的可靠性。整个软件系统由下列代码组 成。 2.1 报 告 模 板 设 计
ExitSub EndIf
(3)根据数量,定 义 插 入 的 图 像 和 注 释 文 本 框 (放大倍数和注解)的大小 和 位 置 数 据,以 插 入 2个 图为例,X、Y为 图 片 距 模 板 的 左 边 界、上 边 界,L、T 为注释文本框距 模 板 的 左 边 界、上 边 界,H、W 为 图 片 的 高 、宽 。
1 设 计 思 路
1.1 数 码 图 像 的 获 取 (1)利 用 普 通 数 码 相 机 骨 髓 标 本 涂 片 进 行 显 微
摄影是一种最简单 易 行 的 方 法,特 别 适 合 小 型 检 验 科 使 用 。 [1-2]
(2)数码显微镜 DIY[3]。由于数码显微镜售 价 昂贵。有人 利 用 现 有 的 光 学 显 微 镜 (包 括 解 剖 镜 ) 和一般的数码摄像头(售 价 100元 左 右 ),简 单 组 装 和调试成了完全可 以 实 用 的 数 码 显 微 镜,用 于 获 取 数 码 图 像 ,此 法 稍 微 复 杂 ,但 功 能 较 全 。
MedicalUniversity,Chongqing 400038
【Abstract】 Inthisthesis,areportingsystem ofimageandtextforbonemarrowcellsisdevelopedby programmingopencodebasedonVisualBasicforApplication,whichisusedtomeetthedemandofcolor resultsinclinicallaboratoryofhospital.Usingthisreportingsystem,physiciancancompletetheaccurateimage andtextreportrapidlyandconveniently,thatwouldcontributetheimprovementofdiagnosislevelinhospital.
件等代码参见论文27术语库和基础数据模块术语库词典库包括临床诊断术语骨髓像类型及相关细胞形态描述术语检验诊断术语等基础数据包括医院的临床科室设置病区设置标本采集部位染色情况涂片情况髓粒情况等可利用数据有效性功能调用术语库工作表和基础数据工作表实现所有用户即时选用或添加改动删除修改现有的模板及词库中术语和数据大大提高操作人员的工作效率
关 键 词 骨 髓 涂 片 ;检 验 报 告 ;彩 色 细 胞 图 像 ;VBA DOI:10.3969/j.issn.1002-3208.2011.01.17. 中 图 分 类 号 R318.6 文 献 标 志 码 A 文 章 编 号 1002-3208(2011)01-0085-04
该模块主 要 实 现 骨 髓 涂 片 细 胞 图 像 文 件 的 采 集,获得结果图像,并 将 其 显 示 在 计 算 机 显 示 屏 上。 当 检 验 技 师 找 到 满 意 的 、有 诊 断 意 义 的 涂 片 图 像 时 , 即 可 作 实 时 采 集 ,系 统 自 动 将 图 像 存 入 相 关 模 板 中 , 同时将相应图片的放大倍 数 和 (或 )注 解,以 注 释 文 本框的形式插入图片右下角。
· 86·
北京生物医学工程 第 30卷
(3)购 买 数 码 显 微 镜 。 1.2 图 文 报 告 系 统 软 件
VBA是从当前流行 的 VisualBasic编 程 语 言 中 派生出 来 的 一 种 面 向 应 用 程 序 的 语 言 。 [4-7] 对 于 MicrosoftOffice应 用 程 序 来 讲,VBA功 能 是 一 个 单 独的、并 行 的 编 辑 环 境,就 像 在 独 立 的 VisualBasic 中工作一样。对于 用 户 而 言,采 用 灵 活 的 手 段 按 自 己的要求设计模板 并 提 取 所 需 的 数 据,可 以 自 行 编 程 、无 付 费 困 扰 ,无 疑 是 很 有 意 义 的 。 1.3 连接 HIS和(或)LIS模块