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

用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;

豌豆荚:“应用内搜索”是打通移动互联网最具竞争力的入口 苹果发布会后的冷思考,64位芯片为开发者带来了什么? 中兴Geek评测:高性价比的英特尔处理器智能机 SAE的资源、安全隔离与Container 平板电脑悬了 Phablets或成为未来移动设备的主流 拿什么拯救你:黑莓今年将裁员4500人 推荐10款免费的在线UI测试工具 最好的Java IDE之争:Eclipse PK IntelliJ IDEA Intel发布E5 2600 v2处理器 开放硬件监控信息 XP寿终大限将近 微软再次呼吁用户尽早“分手” Dropbox CTO:离开办公室就焦虑的技术宅男 看雪学院“走进企业看安全”活动百度站落幕 九大设计技巧+作品赏析 激发你的创作灵感! 排名前十CEO的工资条,你怎么看? 麻省理工TR35之IT界年轻有为创新者(下) Storm的“翻版”:LinkedIn开源实时数据处理系统Samza 呼吸监测耳机:一个在“呼吸”上做文章的可穿戴设备 谷歌7年210亿美元的基础设施建设,及可供17万家庭使用的风电 Touch ID很安全?德国黑客宣布已绕过苹果指纹识别系统 纽约警方鼓励用户升级iOS 7 你想好了吗? Android开发者不可或缺的四大工具 Mozilla开源TogetherJS:让网站拥有实时协作功能 可穿戴技术专家Jawbone UP向所有开发者开放API 18款在线代码片段测试工具 Gartner咨询公司研究副总裁彼得·福斯特布鲁克:互联网安全新兴威胁与挑战 美国智库战略与国际研究中心(CSIS)詹姆斯·刘易斯:网络安全神话、传说与现实 云安全联盟中国分会理事赵粮:建设可信的云生态环境 Web前端优化最佳实践及工具集锦 2013中国互联网安全大会(ISC)9月23日隆重举行 科技界最聪明的人:Facebook首任CTO激情燃烧的岁月 继乔布斯时间胶囊出土 其儿时的家或成历史遗迹 请问上海业成软件公司怎么样? 有关局域网的基础理论问题请教! tomcat 3。1--4。0 乱码问题 高手帮忙,搞不懂的问题!(在网页中使用ActiveX控件,并用VBScript读取本机文件) 疑问:中国编程人是否年纪太大? 在查询的记录集里怎么增加序号?什么函数? 有关局域网的基础理论问题请教! listview用法问题,急用! 《C++ Primer 3e 題解》簡體中文版 出版了没有呀??? 我把paradox数据库引擎BDE改为ODBC,用户名和密码是什么? VC控件问题 急啊,急啊! 急,关于打包问题 当用查询控件时,返回多个结果,该怎样区分啊?!谢谢! C#里可以实现类似VC++的消息响应吗? 没有人回答吗? 如何在vb中把bmp格式的图片转成jpg或gif的格式 请问在asp中怎么输出显示datetime时间和binary类型的图片? 有关unicode 在调试时,高手指点 非常简单的问题,但我不会,也想不出来,在ms sql server中如何获取特定日期后一个月的日期? 谁对identity column 有研究呀?请进来帮个忙。。 大家好:如何用Delphi报表打印信封,还要有邮政编码,就是像个信封。谢意! 正规表达式,痛苦! 很奇怪的事情!!!month calendar使用的问题!!!!!!! 得不到month calendar控件选中的日期?? vb有vss,delphi有什么? VB7.0与VB6.0不兼容 关于ole编程的问题 来新公司一月了,遇到一个问题,请大家帮忙分析! 数据复制的问题,高分求救! 如何获取TitleBar的尺寸? 创建文件夹的函数及检查是否存在某文件夹的函数?(手册上没有) qqq pcAnywhere操作不能刷新的问题?高手来解救我吧!! 请帮我分析一下为什么会出现这样的错误提示:Access vidation at address 004a36B2 in modale'**.exe'read of address FFFFFFFF CTime和CTimeSpan的使用问题!!!很奇怪??????? 我在写Tuxedo服务程序时,在VC++环境下编译连接时发生以下错误。 关于PDF文件(高分奉送) 来新公司一月了,遇到一个问题,请大家帮忙分析! 谋杀——转贴 打安装包时,提示某些dll过期(很多),怎么办呀? 出生年月与年龄的问题 大家帮帮忙!!!!!!!!!!! 我的天啊!CListCtrl不允许设置行间距和字体大小吗? 如何在40G的硬盘(maxtor)上安装nt4.0 100分(我全部的分),加速,代码优化,JPEG 求救 如何编代码自动创建NT的账号、密码(用什么API实现) 大家看看,我在做一个Messagebox的提示信息时的提示!!!!!奇怪,.net真奇怪 关于计数统计的问题 查某一个人全部贴子的方法。 怎样建立无盘工作站?? pcAnywhere操作不能刷新的问题?高手来解救我吧!! 用定积分求直线y=x,x=1,x=2,y=0所围成梯形的面积 一批零件,甲独做6小时完成,乙独做8小时完成.现在两人合做,完成任务时甲比乙多做24个? 请高手说文解字“country”为什么即是“国家”又是“乡下”这个词的来源是什么,拉丁文还是法语还是什么?为什么国家和乡下这两个毫无关联的意思都用这个词表达,恐怕只能从词源和原始意 小林有面值5角和8角的邮票各两枚.他用这些邮票能付多少种不同的邮资?一一列举出来,分好类 有没有关于外出的80词的英语作文? country怎么用是urban的意思?有时是国家,有时是乡村~怎么分! 给远方的同学写信交朋友,给我个地址和姓名,要男的 求一篇社区活动感悟,200字左右内容为劝导清理楼道,收集废电池,垃圾分类 在长12厘米,宽7厘米的长方形里画半径为1厘米的圆最多画多少个? 一辆汽车从甲地开往乙地送货,第一小时行了全程1/4,第二小时行了84千米,这时已行程与全程的比是1:3.甲、乙两地相距多少千米? 小明有20分和30分的邮票各两枚,他用这些邮票能付多少邮资? 假设你是李明,上个星期天你和你的同班同学到公园里快乐的度过了一天.请你给你的笔友Jim写信,词数:80左右提示语:sunny,classmate,go,have a good time,leavefor,on the way,in the park,have lunch,delicious,then,t 小汽车从甲地到乙地平均每时行84千米,用了3.6时,货车从乙地到甲地用了5.6时,货车平均每时行多少千米?(用方程) 本人初二男生,想与年龄相似的男生写信交友,真心坦诚的男生们留下地址或写信绐我:广东省肇庆市怀集县怀城镇第一中学初中部初二A2班林铭豪. 社区活动后的感想 (高中)800字 防静电胶管如何接地 小明有面值5角.8角的邮票各有两枚,他用这些邮票能付多少种不同的邮资? 李明、张华、刘明艳、赵倩、朱亮5位同学组成一个学习小组,星期天集中到其中一位同学家里他们各家之间的距离如下表所示(单位:cm)李 张 刘 赵 朱李 0 张 620 0 刘 780 580 0 赵 450 480 840 0 朱 810 防静电POM板,防静电POM棒,防静电尼龙板,防静电尼龙棒哪里有卖?质量要好 请以“我的初中生活感受”,给小学同学写信 在长为1.25米,宽为0.8米的长方形纸板上,最多能画多少个半径为20厘米的圆. a 12 b 10 c 6 甲,乙俩地距离是m千米,一汽车从甲地开到乙地,汽车速度为a千米/时,现走了一半路程,他索性的时间为? 公交出行的好处英语作文 甲乙两人合作一批零件,计划6小时做完,现在由乙先做1.5小时后,甲再加入合做,完成任务比计划多用5分之3小时,已知甲每小时做54个零件,这批零件一共有多少个零件不要给我像这样的答案:乙1. 华华有2枚3角和3枚5角的邮票,用它们可以支付几种不同面值的邮资? 公交车用英语咋说? 甲乙两人合作一批零件,计划6小时做完,现在由乙先做1.5小时后,甲再加入合做,完成任务比计划多用5分之3小时.这批零件由甲独做需几小时完成? 含有练字练意的意思的词语要3个 无人售票公交有什么好处-英文作文 甲、乙两人合做一批零件计划6小时做完现在由乙先做1点5小时后甲再加入合做完成任务比计划多用3/5小时,已甲每小时做54个零件,这批零件一共有多少个? 谁能几张平面构成渐变构成的作业 良知 阅读答案尼娜没有做好家庭作业.她拿定了一个逃学的主意.要是人家都在工作,在上学,就她提着书包在街上晃荡,别人一眼就能看出她是在逃学的.为了不让熟人发现她逃学,她悄悄拐进了 甲、乙两人合作一批零件,计划6小时做完,现在由乙先做1.5小时后,甲再加入合作,做完任务比计划多用五分之三小时,已知甲每小时做54个零件,这批零件一共有多少个? 平面构成渐变作业怎么做 良心如枕阅读答案 甲乙两人和做一批零件计划6小时完,现乙先做1点5小时后,甲乙和做,完成任务比计划多用5分之3小时 曲线y=cosx,x∈【0,3/2π】 与坐标轴围成的面积.好像用定积分做 《良心如枕》阅读答案午后,倚于床头闲翻杂志,看到了一个句子:“清白的良心,是一个温柔的枕头.”细细体味这个句子让我想起一件事来.这件事是发生在我母亲身上的,夏天晚上我们在院中 跪求一篇1500字以上的社会实践体会活心得(关于春节间打扫街道) 跪求一篇1500字以上的社会实践体会活心得(关于在一工厂打扫的体会与遐想) 曲线y=cosx及直线x=0和直线x=π所围成区域的面积为.用定积分形式表达 求一篇以“我的梦,中国梦”为题的征文 要原创. 社会实践报告 1500字 来两篇 求给力! 定积分的应用,曲线y=e^x * cosx,0 主题 :我的梦.中国梦 征文1阐述自己对“中国梦”的认识和畅想,书写自己的美丽梦想,表达自己爱祖国、爱家乡……的情怀.2.内容积极向上,事例贴近自己的生活.(诗歌可以不写事例)3.体裁 一张长10厘米,宽8厘米的长方形纸板上剪半径是1厘米的圆,最多可剪多少个? 一个外国小朋友手中有4张3分邮票和3张5分邮票,请你帮他算一算他用这些邮票可以组成多少种不同的邮资? 在极坐标系中,求点p(2,-π/6)到直线L:Psin(θ-π/6)=1的距离要程 社会实践论文3000字 有的谢谢了额 画平面构成怎样表达某种情绪? 把底面积相等的一个圆锥形铁块先后浸没在盛水的长方体的容器中.放入圆锥形铁块后,水面上升2厘米.放入圆柱形铁块后,水面又上升了2厘米.已知圆锥高12厘米,圆柱高几厘米?有一块长15.7厘米 再长是10厘米、宽是7厘米的长方形纸板上最多可以剪多少个半径是1厘米的圆? 求这幅图的作者,图的名称,以及图的平面构成 求几篇社会实践活动文章 要求3000多字 字多了些 怎样能画出一个表现出紧张的平面构成?老师布置话一个平面构成的图样 要表现出紧张的感觉 或者说有没什么图样 字母能够表现? 文化是什么 文化在哪里 阅读答案 country在什么时候指农村什么时候指国家? 平面构成!高手来看这个作品是怎么画出来的,具体点呀 蚂蚁的文明阅读答案 速回 country在这里是国家的意思?还是乡下的意思?I live in the country.
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘