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

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

安徽农信:30人,13轮测试,完成日均270万笔交易的综合业务系统架构调整 研究员带来5D光存储技术:容量达360TB,寿命高于百万年 LSI闪存加速或助力互联网IDC自我设计与建设 怎样让用户从100涨到200万?硅谷创业教父如是说 大作修炼之道:就算是手游,也要搞点剧情吧! Java EE 8愿望清单:缺少这些,Java EE将不会完美 Surface Watch?传微软正测试搭载Win 8的智能手表 又一美国造?联想在美设厂制造产品 软件定义未来 2013 SDCC中国软件开发者大会全面开启 可以直接拿来用的15个jQuery代码片段 程序员最害怕的5件事 你中招了吗? 机器智商已达四岁:亲,是时候考虑你的饭碗了 读60行代码完成的NoSQL数据库,看数据库打造面临的挑战 聚焦全球移动市场:韩国,开放之后是春天? Github 终于开始认真考虑开源项目许可证了 雅虎发布今年第二季度财报 总营收为11.35亿美元 既然无法避免被GAE锁定,何不考虑其中的机遇并自力更生 19亿美金背后的分析:91为什么要卖?百度为什么要买? 直接拿来用!最火的iOS开源项目(三) 让代码飞一会儿,超级有用的CSS编码工具集 创业者如何在Demo演讲上打动投资人? 微软小打小闹的移动版Outlook Web App,会不会被用户抛弃? 哪门编程语言影响力最大? 微软启动“Companion Web”计划 可互连多屏幕设备 让你望而却步的密码管理服务已获得100万美元的种子基金 SDCC 2013开始公开征集讲师和演讲主题 不用图片和JS,照样创建绚丽的动态CSS3菜单 是福还是祸?开发者饱经风雨的内心独白 设计师/开发者看过来,七月35款新工具速递! Hadoop进军机器学习:Cloudera收购Myrrix共创“Big Learning” 张民杰:三人团队的OpenStack机会 成熟OA系统,B/S模式,三十几个模块,四十几个功能,超底价出售原代码,包你满意,有意者留个油箱,我把部分文档给你发过去,如果你离南 win2000安装后,每个一秒种读一次盘,请帮我解决问题。谢谢! 谁还来个高程QQ群? 大家都上过哪些收费电影下载网站? 请问那里有好的中文输入法下载。我的是redhat72 在线等待----100分,急!!! 光标定位问题 asp mail question 一些比较菜的问题 实用问题,在触发器中如何退出? 怎样来通过我的程序来控制另一个程序的下拉菜单 VS 2003哪里有下?VB的GRIDCTRL如何调整各列的宽度? 请问如何把datagrid中的数据到出到Excel中做报表 DLLHOST.EXE是什么东西?它占用了CPU的99%,服务器慢如蜗牛,ASP文件不能正常运行,救命啊!!!!!! 急用!谁能提供五子棋的算法和设计? 谁有无限制的activethread控件,通知一下, 很急! 谁能提供五子棋的算法和设计?急用! 请教一个WebLogic问题,请高手帮忙! 怎么知道DLL里函数以及它的参数 有关IE主页被恶意修改的问题请教。。__急! 急用!谁能提供五子棋的算法和设计? set mail=server.createobject("cdonts.newmail") 错误,高手指点一下!!! 谁能提供五子棋的算法和设计?急用! 如何解决??? UNIX中文录入的问题 菜鸟求一个语句 500分给前辈 大家都来看看这些女人(三分长相,七分打扮) 兄弟们,帮忙提供个参数~送100分了,承蒙关照了 调查:你现在用哪种开发工具,感觉如何? 防火墙经常出现类似记录信息 请问.pdg格式的电子图书如何浏览 新版net2003web Service 奇怪的FileNotFoundException错误 求救:支持汉字的OCR控件。给个制作思路也成。 在网络中运行in.readline 的时候会不会等待有流传来才读取的??很矛盾 ODBC的作用?=我的机器上没安任何数据库管理系统(如:access,foxpro等)但我可以用asp访问某个.mdb文件,是吗? 怎样用程序实现把FTP站点映射为一个驱动器? 虚拟光驱是怎样做的? //非常奇特的系统启动现象,进来看看// 有没有这样的涂鸦板的代码 //非常奇特的系统启动现象,进来看看// //非常奇特的系统启动现象,进来看看// //非常奇特的系统启动现象,进来看看// 请问各位大虾,JSP服务器使用j2ee的多不多??? 为何crystal report4.6打印出来的纸张长度大于预览时的长度 怎样实现? 听在迈普(maipu)的同学说,在这学期的毕业实习里,很多新人被开掉了,为自己的想象力惭愧 在datagrid模板中绑定的label控件怎么解决显示文本宽度的固定 有点困惑! add() mssql中如何将字段类型设为“布尔”类型? “顶天立地”这个词是什么意思?谢谢~~~ y=(3-cosx)/(3+cosx) 最值y=3-cosx/3+cosx think you are very crzy! 小学六年生活的得与失要作文的 马上就要用一定要作文完整的 1 1 1 1 这个该怎么算到24点呀太难了 好久没做忘了( 一元二次方)(2x-1)的平方=(3-X)的平方 读了《匆匆》,我想借用“------------------------------”这句话名言警句来提醒自己莫让时间“匆匆流逝”同时又想起了三个成语,哪三个? 关于感恩的心的手抄报 含ow的单词 匆匆一文,我想借用 这句名言提醒自己匆匆流逝 关于感恩的心的名言 与瞧不起意思相近的两个字的词语不能是鄙视和歧视 读了《匆匆》,我想用 这句名言警句在提醒自己莫让时间匆匆而逝 今年产梨大丰收,年产量达到3.6万吨,比去年增产两成,去年产梨多少万吨?要列式 数学选修2—2麻烦解释下 向来很久 时间飞逝的谚语只要谚语 积分 (cos3x-cosx)^2 函数f(x)=x2+2x+5在[t,t+1]上的最小值为g(t),求g(t)的表达式.函数f(x)=x 2 +2x+5 在[t,t+1]上的最小值为g(t),求g(t)的表达式 . 设P是椭圆x^2+y^2/2=1上一个动点,F为其右焦点,求PF中点M的轨迹方程要过程不要思路、 请问cos3x/2+cosx/2怎么化简? 描写路途辛苦的成语 求cosx-cos3x=2sin2xsinx的详细化简过程, 弘扬雷锋精神的活动感想要怎么写? ppt中点一次出来第一个标题,再点一次出来解释此标题的内容,再点一次隐去以上解释内容并出现下个标题.以上过程在同一张幻灯片中完成,这是怎么做到的,研究了老半天没研究明白, 复兴镇今年大丰收,年产24万吨,是去年产量的五分之六,去年这个镇产香梨量是多少万吨 感伤的风搭配着苦涩的Coffee,在宁静的夜晚里,你有什么样的感触呢?静静的享受音乐的描述…… 我由此想到,老师们在平凡的教学岗位上付出的一切不会是徒劳的.这句话的意思 2sin2xsinx+cos3x如何化简 猜猜1+1=? 这题怎么算?然后答案是什么 要画一个面积为18平方厘米的矩形,使它的边长之比为2:3,它的边长应取多少? 手抄报感恩的心内容,要少一点,5个以上,不要老师的! 怎么算?答案是什么 已知a=1/根号5-2,b=1/根号+2,求根号(a^2+b^2+7)的值. 内洞一团漆黑,什么也看不见是什么成语 这个图有几个角,几个直角? 如图,将矩形纸片 abcd沿其对角线折叠,使点b落到点b'的位置,ab'与cd交于点e. 结拜 程序 磕头 磕几个,谁有详细的程序!烧香 3根香?磕头 磕几个?还是3跪9拜?盟誓喝酒规矩是这样么 请问还有详细点的没!要割手指啊是洒酒 还是喝酒? 这道题怎么算?、我等着要答案.谢谢 关于《匆匆》的名言 摩托车三小时行135千米,汽车每小时行65千米.摩托车每小时比汽车慢多少千米? 图上有几个角,几个直角! 名人名言;复恐匆匆说不尽,下一句是? 设f(x)=x^2,0≤x 中共在50-70年代社会主义建设中的失败教训和原因?请尽量具体一点! 十分钟之内.答的好追加.一道二次根式题.看不清的地方统统是2次方.答案是2a分之(2+a)倍的根号下2a. 读[əu]含ow的英文单词有哪些?越多越好! I'm often ill.M_______I hardly ever exercise空格上填以M开头的单词 感恩的心手抄报的内容 与low的ow发音相同(字母相同)的英文单词 His father hardly ever exercise.变成反义疑问句、 如图,将矩形纸片ABCD沿对角线AC折叠,使点B落到点B’的位置,AB'与CD交于点E.(1)试找出一个与△AED全等的三角形,并加以证明.(2)若AD=5,P为线段AC上的任意一点,PH⊥EC于点H,PG⊥AE于点G,试求PG+PH 匆匆片段的阅读求答案 有the big stick这项政策吗 6.如图,将矩形纸片ABCD沿对角线AC折叠,使点B落到点B′的位置,AB′与CD交于点E.若AB=8,DE=3P为对角线AC上的动点,PG⊥AE于G,PH⊥DC于H.设PG的长度为x,PG•PH为y.则y的最大值是(  )  A. found,mike,notebook,english,in,an,school,library,the,this,afternoon,.连词成句. hardly ever的同义词是什么? 说男人用顶天立地,说女人用什么词? 求y=(cosx-3)/(cosx+3)的最值 什么狗好 穆尔西抵达开罗法庭 埃及高度戒备审判法国人卫仁博眼中的中国改革开放澳工业部长麦克法兰:中澳自由贸易协议蒙古国发现世界最大兽脚类恐龙筑巢地伊朗称希望与“六方”就核计划开展严肃百年一遇全环食壮观上演 美欧非观星族美国海军一高官被控受贿 其中包括性贿《好声音》第三季冠名2.5亿 浙江卫法国前部长称法国总统奥朗德头号问题是阿盟秘书长称支持卜拉希米就叙问题斡旋日本一司机醉酒驾车连撞5名女中学生后英国三百余名议员被指仍挪公款用于日常韩国总统朴槿惠巴黎会见联合国教科文组加拿大10岁男童发现超新星 为全球最中央印发通知要求开展“四风”突出问题存在环境违法 北京35家餐饮企业和单河南警方异地用警突查涉黄会所 搜出大南京富二代杀妻案开审 被告人称自首否澳12岁少年成商界奇才 开养鸡场月赚阿富汗总统批美击毙巴基斯坦塔利班头目想坐飞机逃生门附近座位?德航新规定要女子被疑投毒获刑无期 13年牢狱之灾饮料、糖、白血病?孩子一天能喝多少饮农民也上儒学课 谁是山东“国学热”幕洛阳一男子自索道车跳入虎园护网 称想这个年代,还教孩子“善良”的人,都是黑莓Q3财报解读:软件有亮点,整合成每个女人,都应该以狐狸精为榜样大盒子,北京钓鱼台七号院七号别墅项目唐世平:与“标签型”和“判定型”文章朱立伦:国民党党产信托透明公开 非绿洪秀柱上海会台商:国民党要逆转胜 盼台\"立法院\"三读通过 企业帮员工2016选战重头戏 首场领导人电视政朱立伦谈\"执政\"理念:要打造开放朱立伦痛批绿搞对抗抹黑 承诺拼经济让马英九探访罕见病孩童 赞许小朋友画作郭台铭谈顶新黑心油案:不能拿废油炼是王如玄谈蔡英文:同样是女人 但我们又你单身,有没有深层次的原因山西临猗崇相西小学举办趣味运动会一辈子都要记住!冬天起床别做这5件事
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘