说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

用Delphi 设 计 拨 动、 跳 线 开 关 组 件

HTML文档下载 WORD文档下载 PDF文档下载
用Delphi 设 计 拨 动、 跳 线 开 关 组 件

---- 计 算 机 测 控 系 统 中 常 使 用 各 种 计 算 机 测 试 板 卡, 在 这 些 板 卡 上 多 设 有 各

种 编 码 和 跳 线 开 关。 在 编 写 与 之 配 用 的 测 控 程 序 时, 常 需 编 写 这 些 开 关 操

作 时 的 相 应 程 序, 如 果 有 一 个 编 码 或 跳 线 开 关 组 件 是 十 分 有 帮 助 的。 以 下

是 我 用Delphi 编 写 的 一 个BiSwitch 控 件。

---- 此 控 件 由TGraphicControl 继 承 而 来, 具 有 常 用 的 属 性, 如Enabled、Tag、Hint 等, 此 外

新 增 加 了State

Color 属 性。 对 于 编 码 和 跳 线 开 关, 只 有 两 个 状 态(ON 和OFF), 在 预

先 编 辑 好 的 资 源 文 件 中 存 有 开 关 在 不 同 状 态 下 的 图 片, 当 开 关 改 变 状 态 时

将 相 应 的 图 形 显 示 出 来, 开 关 在 屏 幕 上 就 能 被“ 拨 动” 了。Color 属 性 用 于 开 关

的 背 景 与 窗 口 背 景 颜 色 配 合, 取 红 色 有 较 好 的 视 觉 效 果, 绿 色 和 黄 色 是 电

路 板 常 用 的 保 护 漆 色, 当Form 被 模 拟 成 电 路 板 时 这 会 有 所 帮 助( 通 过 修 改 资

源 文 件 可 以 得 到 你 想 要 的 开 关 颜 色 和 形 状)。

---- DIP 封 装 的 编 码 开 关 有4 位、8 位、12 位 等 规 格, 跳 线 开 关 则 可 以 任 意 数 量 使

用。 将BiSwitch 组 合 使 用 就 可 以 满 足 不 同 位 数 的 要 求, 所 附 的SWITCH 程 序 中 就

有 一 个8 位 编 码 开 关 的 例 子, 效 果 如 图。 下 面 以 双 诺 公 司 的AC1032 数 字I/O 卡 上

的SW1 开 关 说 明 使 用 方 法,SW1 用 于 设 定 测 试 卡 在 计 算 机 中 的 基 址, 其 开 关

SW1 的 位2 确 定 基 址 的 位10, 开 关 位8 确 定 基 址 的 位4, 基 址 位10 以 上 接 地, 位4 以

下 供 测 试 卡 自 用, 基 址 调 节 范 围 从210H-7F0H。 为 了 使 编 码 开 关 的 拨 动 与 基 址

对 应 起 来, 将 每 一 个BiSwitch 的Tag 属 性 赋 值 为 相 应 基 址 位 的 数 值, 如 开 关 位8 的

Tag 值 为4, 开 关 位1 未 使 用Tag 为0。 在 每 一 个BiSwitch 的OnClick 事 件 中 都 调 用doSwitch 来

响 应。

Procedure doSwitch

var

bs : TBiSwitch;

begin

bs := (Sender as TBiSwitch);

{改变开关的显示状态 }

bs.State := not bs.State;

{根据Tag的值确定新的基址 }

if bs.Tag >0 then

begin

{ HiByte

LoByte为窗体的私有变量作

为中间变量计算基址 }

if bs.Tag >7 then HiByte.SetBit( bs.Tag-8 )

else LoByte.SetBit( bs.Tag );

end;

{将新的基址赋值给测试卡 }

pc1032.SetAddress(HiByte.FValue * 256 + LoByte.FValue);

{在窗体中显示新的地址 }

lbAddress.Caption := Format

('BaseAddress is %xH'

[pc1032.GetAddress]);

end;

最难忘的Bug调试经历 LiveCode:让每个人都能开发APP的开发平台 17173总经理赵佳:媒体移动化需抓住三大要素 Django 1.6发布 支持持久数据库链接 如何优化单页面网站搜索引擎? TechCrunch国际创新峰会将于上海举行 极路由:一场由路由器引发的概念盛宴 14nm制程:三星64bit处理器 Exynos 6/S曝光 从Oracle到MySQL,余额宝云实践分享 从南水北调东线工程看物联网,大数据的另一面 不只是技术!成为IT经理必备的十大软技能 看看传说5亿行代码的Healthcare.gov网站的架构 如何走出选择PHP还是ASP.NET的两难境地? 你的设计够档次吗?分享25个奇异的404页面 百度LBS推Openmap战略:无编程经验者可通过拖拽制作个性化地图应用 百万用户时尚分享网站feed系统扩展实践 Twitter上市首战告捷的四大因素 大幕将启!MDCC2013移动开发者大会下周召开 TUP第30期:微软资深专家论如何用Visual Studio开发iOS、Android应用 [开源推荐]Riot.js:不足1KB的MVP客户端框架 研发周报:最难忘的Bug调试经历 NSA如何侵入Google和雅虎的私有数据网络? 飞天5K:开放比开源更有意义 MDCC之移动娱乐游戏峰会:手游金玩奖即将揭晓 开源巨人火狐浏览器:9周岁生日快乐! 感受OpenStack Summit香港大会 渣打科营中心:创建以技术为核心的企业文化 抱怨IT公司人才缺乏?留住现有人才方是正途 专访Esri中国区技术总监:打造新一代WebGIS平台 TIOBE 2013年11月编程语言排行榜:C#、Transact-SQL及VB.NET厚积薄发 透过KitKat,Android或与ChromeOS融合? 着急!! VC开发如何OFFIC,关于WORD的? 新手请教:如何从一张表中取出最新的50条数据? 硬盘抢救!!!大家帮忙! 国外有没有类似http://bbs.51soft.com/的大的软件讨论站? 格式化字符串的问题 菜鸟 Combobox中如何设置默认值? 如果你是新手! [流氓兄:突然冒出很多新人。。。贴] 请转这里 菜鸟 一个有难度的问题 关于格式化字符串的问题。。。 MYSQL权限与mysql库里的所有表问题~!~!请指教! Installshield中怎样调用MSI文件,并能执行MSI文件 售书 鼠标指针的问题(菜鸟问) 向CList模板类的对象追加节点时出现异常,谁惹的祸??? 为什么我的VB运行时会清空剪贴板? 大侠求救!我的考试题!20分的!急急急急急急急急! 目前asp中使用的主要加密算法有哪些? 怎样设置tab! 关于vb的问题,谢谢大家了。 计算机操作者的食谱(想想大家每天都对着电脑,看看这个食谱吧,或许有好处,人还是要学会爱护自己) 如何将png文件格式转换成bmp文件格式,小弟急需这方面的资料,尤其是关于压缩方面的 关于在存储过程中调用链接服务器权限的问题 用vb打包程序打包后安装出错,运行不了? 我要独自去广州发展,请大家看看我的情况,给我一些帮助,如何在广州找工作? 求助!请问谁有源代码?(画一个线段、图形区域填充、图形区域截剪) 物价飞涨,福建省软考提价!!! 在数据表里,我保存了图片存放的路径,现在我想让他显示出来,怎么做啊?有几个方法啊,请指点 阿沐进来看看,你要的东西 VC++ ADO用SELECT FOR UPDATE锁定Oracle数据库的记录,为什么无效? 关于CGI连接关系数据库? 关于动态链接库一问,释放时的异常 阿沐进来看看2 怎样才能不添加OCX和DLL做出反色效果? 好奇怪的问题,大家帮忙来分析一下 阿沐进来看看3 !!再次求解,关于ADO!! 高分求解!高手请进!疑难杂诊? 在LINUX下,如何修改屏幕分辨率 请教如何将图片插入到sqlserver 7/2000里? 急急急!UDP的问题 有关ISA SERVER 昨晚做了个大梦,哈哈!! 疑问 JINI究竟是什么东东呀?去SUN看了半天也没能明白,谁能解释一下? vb.net的一个问题!!是关于在form1上写字的东西! 关于如何输入的问题*******vb高手请进***************(在线等候,我只有这么多分了) 简单的问题,textbox取不到值。 关于DIALOG对话框的继承问题 。 三年级语文园地八作文怎么写 烟火的意义是什么? 节日的礼花是化学变化吗?霓虹灯呢? 三年级上册语文园地一作文怎么写 锌粉和一些化学物质的水溶液能发生反应吗锌粉遇到水会生成氢气,那锌粉遇到酒精和水的混合溶液是不是也会先和水发生反应?和硫氰酸钠溶液呢?和稀硝酸是不是也能够直接生成氢气呢?反应 水压测试泵怎么用? 从生物学的角度上讲,为什么现代地球不可能产生原始生命?如题. 洗煤厂在洗选炼焦用煤时可以加无烟煤吗(为了降低灰份或挥发份)? 焰火表演是不是化学变化?霓虹灯表演呢?怎么区分. 地球上是怎么形成生物的,初始生命体是什么? 烟煤的灰份是多少? 下列色彩是由化学变化呈现出来的是 A雨后彩虹 B夜晚的霓虹灯 C节日的礼花 D彩色的图画 应该选C请好心人逐个选项讲解一下.谢谢了,很急,我就这儿不懂,九上化学好糊涂呀,谢谢了,急呀,好心 地球上具有生物生命活动的条件. 真正的挤塑板的导热系数是多少? 下列景象伴随有化学变化的是 1.五光十色的烟火礼花 2.不断闪烁的霓虹灯 3.变化无穷的音乐喷泉 4.满屋飘香下列景象伴随有化学变化的是1.五光十色的烟火礼花 2.不断闪烁的霓虹灯 3.变化无 在做托里拆利实验是,测出水银柱的高度是750mm,此时的大气压强的值为多少Pa? 作为外墙保温材料,挤塑板比聚苯板有哪些优点? 为什么霓虹灯是不同颜色的? 托里拆利实验,水银柱液面以上高度750mm,水银柱下10mm,求大气压为多少毫米汞柱 地球是不是个原子或分子?或者是电子?我说的是比如说我们的宇宙在一个生物体内,银河系在这个生物的某个组织的某个细胞的里,是构成这个细胞结构的分子结构,或者原子结构或者其他 某同学用自来水制蒸馏水左边是一个带单孔橡皮塞的试管,中间是一根左端90°的导气管,右端插在另一个试管里,这个试管放在一个烧杯里?问 :该装置的玻璃导管较长,除导气外,其作用是?问: 做托里拆利实验时,测得水银柱高为730mm,则该地的大气压为( )Pa 地球大约有多少原子要数据,不要公式! 如何制出蒸馏水 水塔渗水怎么办? 地球的原子数量有多少大概在多少数量级 制蒸馏水是什么变化 氯水不能与锌粉反应, 原子为什么都是一样大?没有像地球一样大的原子吗?说错了,是核子 需要什么原料,具体步骤是什么, 世上有美人鱼吗?美人鱼是不是很美女的一样?我小时候听说美人鱼很贵`可以值几百万`美人鱼是不是像美女一样``美人女最大的有多大 镁粉,锌粉的混合物m克与一定量的某浓度的稀硫酸恰好完全反应,蒸发水分后得固体(不含结晶水)n克,则反应生成的氢气质量为?A.n-m/48 B.n-m/49 c.m-n/48 D.m-n/49 它分子上的48 是哪里来的?我算出来是4 家因水压低,要安装水压泵,两层半(400平方).请介绍我家住楼顶的两层,水压一直不够,现在想安装水泵.但对这些没什么研究.最主要输出功率不知要多小.共400平方用.之前看了台湾华乐士水泵TQ400 三年级下册语文园地二的作文怎么写啊? 是植物的是植物的 如何用2字词语形容礼炮 我家的太阳能上不去水,水压还够是什么原因啊我的太阳能上水困难,别人家的都能上水,我的太阳能是自动上水的,带水表,四楼的能上水,我家是六楼,但就上不去水了,是什么原因啊 “小于原子,小于夸克”这“夸克”是? 烟花用什么词语修饰最好.如题. 水压越来越低,太阳能上不去水怎么办?春去春又来,水压又不给力了!去年过完夏天听说水网管道改造了,水压就稳定了,想着花几千块装的太阳能今年该能派上用场了,结果这春天刚来,就发现太 原子里的夸克里还有什么? 形容烟花味道的词语有哪些?要好的,不要说臭。 1摩尔甲醛与3摩尔氢气能反应么?方程式.1摩尔乙醛与3谋而氢气能反应么?方程式. 最小的的物质是夸克还是原子? 描写礼花的诗句最好是直接描写的句子 干球温度与湿球温度代表什么物理含义?怎样来反映温度的高低? 我想问一下组成我们整个地球,人身体,宇宙的数量众多电子,夸克,原子,中子,质子最初都是从哪里 形容烟花美丽的词语有哪些? 笑话 求几个讲给女生的笑话,不要黄的.要能逗乐的笑话 水泵之前和水泵之后的水压的计算可以用伯努利方程吗?水泵前的某一位置和水泵后的某一位置上的水压的计算可以用伯努利方程吗?因为伯努利方程只适合在同一流线上用,如果我要比较的是 锌粉与氧化钙反应生成氢气吗? 和女朋友讲笑话要讲什么笑话 烟花咋来滴... 空心菜的做法? 怎样改变煤炭挥发份 没有 阻燃膨胀聚苯板导热系数是多少 小学三年级语文园地一的作文咋写呀!各位高手们快 锌粉遇到水会燃烧,如果把锌粉放到氢氟酸里会不会燃烧了? 电子,银河系,地球,原子,太阳系,分子按从小到大顺序排列,该如何排?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘