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

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

学生强则国强,访天猫推荐算法大赛Top 9团队 Mozilla与三星之子——Servo特性解读 360天巡启动公测 打造新一代企业级无线安全解决方案 继Storm和Spark之后,Hortonworks添加对Kafka的支持 一周消息树:国产操作系统最快10月发布,并支持应用商店 技术团队看板方法实践的难点分析 SAP云服务加速转型:调动资源瞄准中国市场 开发测试全承包!移动应用开发工具Telerik平台 火火火火火!看HomeKit如何改变物联网和智能家居? MDCC应用与工具关键词:平台、社交、垂直、解决方案 Leap Motion正式入华 将发布第二代软件SDK 120万操作/秒Redis Cloud 集群单一服务器非基准测试程序 2014微信开发者大会顺利结束 TOP10优秀微信开发商名单公布 【最佳实践】通过DevOps确保可靠和有效的信息安全 2048 Hello World:跨平台快速应用开发Python框架Kivy Forrester:关于私有云的10个事实 2014年8月操作系统份额:Win 8.x大涨,Linux继续下跌 0代码、不编程—交互式网页设计工具VXPLO 揭秘Instagram Hyperlapse背后的技术 【CTO俱乐部在线教育研讨会】用互联网技术深入创新教育产品 降低门槛!Hybrid应用开发框架LigerMobile 下一代IT革命:微服务器和雾计算 使用Mongo Connector和Elasticsearch实现模糊匹配 时隔8个月,物联网联盟AllSeen如今怎样? 《近匠》简网:开发零门槛 快速建原生App MDCC免费展位申请超预期 大会内容初曝光 在服务器与交换机定制之后,谷歌着手量子计算机CPU设计 电信天翼开放平台鲍占斌:优质能力 分成比例高 艾格拉斯副总裁王晓波:手游定价如何设计 Xcode 6 Beta 7发布:语法定、内库改,Swift何时完善? 干货来袭:由22个联邦机构分享的6482个数据集 小弟的软件刚发布请各位高手指点!来者都给分 使用存储过程建立数据集时怎样指定数据集参数? 救命:Beta2安装时候出错:在Disk1上找不到源文件。 如何将图标文件存入到一个dll文件中? ********杨家将请进********** 求救!!为什么我一打开windows就出现说缺少dll文件,storm.dll,还有load.exe.是为什么呀? 请大虾出手:MFC的DLL工程, 我实现了把一个dll工程的menu装载到我的主工程,但与其对应的ToolBar怎么调出来呢??我很着急! 在mdi表單中調用設為最大化的子表單時,它首先顯示小的子表單,然后才把它最大化,影響美觀,有何辦法解決? 关于在菜单中陷入文本框 20分求助有关SQL数据库的问题(为什么select...into语句无法执行) 哪有里Crystal Reports可以下载(无内容)? Where the 广东外贸外语学院 关于ODBC客户机端配置的问题 谁能给我一个delphi连接access数据库的实例,小弟万分感谢!!!!!!!!!!!!! 我机器里,98,2000装在C盘,XP装在D盘,现在我想只留下XP,不知道该怎么处理???????????????????????????? 如何实现5M以上的文件的上传 从windows进入unix Oracle 中文输入 是否onkeypress和onkeydown不能同时使用呀? Delphi 5下要做一个多 Y 轴的曲线图形,如何实现? 哪有xteamlindows下载?? 万分感谢!!!!! borland 会不会出一个 C# Builder? 乱码,头大了,不知道为什么pb导入excel怎么办 数据统计问题,请大侠门帮忙!急急急!!! 求解ZModem通讯协议源程序----有谁用过CZModemCore 我也不知道对不对! 最高级的问题?搞一个专业的VC程序员基地~~~~~~ 在研究directshow filter的push模式的兄弟请进 800分+工资管理原代码,如何解决ActiveReports打印图片的一个很难题;否则我快下岗了 有两个问题,每题40分,马上给分!!!! 如何使用打印机? 在爱情方面谁能做到这一点? 谁有 file cutter v1.4的注册码? 有急用! 搞一个专业的VC程序员基地~~~~~~谁愿意加入????? 最新发现:原来C++Bilder的项目文件(.bpr)是XML格式的! 关于FAT32和NTSF的问题 如何用VC实现Email的发送? 800分+工资管理原代码,如何解决ActiveReports打印图片的一个很难题;否则我快下岗了! 搞一个专业的VC程序员基地~~~~~~需要网页制作高手!! ADO 的用法 m_pRecordset->Fields->GetItem(index)->GetName() 关于CRichEditCtrl的问题之二,取的当前可见行数? 请问在哪里下载IMAIL SERVER???各位帮帮忙!!! 高手请回答,ADO和BDE到底有什么区别,你选择谁?为什么? 高分求教!!!!!!!!!!!!!!!!怎样得到局域网上所有的机器名?(普通WINDOWS网络,用VB?,好象用WNET API可以的) 如何安装com.ibm.bridge2java.*这个包阿? 有人吗???求救! 你也许也会遇到这样的问题? 800分+工资管理原代码,如何解决ActiveReports打印图片的一个很难题!!! 大虾看过来. 一个access表一万条记录,想转到Mysql下(Mysql在Linux下)用什么方法和什么语言来做好? 上海哪里有买欧姆龙血压计的吗?母亲节快到了,想给妈妈买个欧姆龙原装进口的机器?上海哪里有买?可以打折吗? 历史是什么,它看不见摸不着 0.8吨等于几千克? 形容读书刻苦的成语啊给好评 瓦楞纸板耐破强度得到的KPa怎么转化为磅,边压得到结果KPa怎么转换为磅/英寸 0.01吨等于几千克快来帮帮我 蛋白质的有关习题 海拔三千米是什么意思 0.433吨等于几千克? 欧姆龙7200和7201,这2个型号有什么区别?哪个型号比较好? 蛋白质的相对分子质量怎么算?(具体点,最好能举个例题) 一个人从空中三千米的高度掉到海里 身体正面接触海水 接触的瞬间会不会将人拍死《平面掉下来》 欧姆龙血压计7200好吗帮朋友问的,想知道欧姆龙7200这款怎么样,用着方便吗,天津到哪里买比较好 一条绳长2米,第一次剪去5/2,第二次剪去的比第一次多3/1米,一共剪去多少米?列式 上帝你在哪里?可是,我看不见你! 一条绳子长2分之1米,用去2分之1后,还剩2分之1.判断 关于蛋白质的一道生物计算题~脑残的我求第一小题的解啊~已知有一种多肽,其分子式为C55H70O19N10其完全水解后只得到下列四种氨基酸:甘氨酸C2~H5~O2~N,丙氨酸C3~H7~O2~N,谷氨酸C5~H9~O4~N,苯丙氨酸C9~ 因为天气不好我们看不见下面的东西 形容读书勤奋的成语 Kgf/mm是什么单位?130Kgf/mm是什么意思? 一根10米长的绳子,第一次剪去它的一半,第二次减去剩下的1/3,第三次减去剩下的1/4,如此继续下去,第五次剪后,剩下的绳子长多少米? 尿干化学分析蛋白质+-是什么意思?尿干化学分析结果,蛋白质的结果是+-参考值是- 不知道是什么意思?大夫没说出什么意思来,问问大家是什么意思? 在比例尺是1:2000000的地图上量得甲乙两个城市之间的距离是7.5cm,如果该画在比例尺为1:3000000的地图上,那麽图上的距离是多少cm? 19.5KN换算成kgf是多少? 蛋白质 什么意思 在比例尺时1:2000000的地图上测的长是4.5cm,如果把长改画在比例尺是1:3000000的地图上,应画多长?要列算式,不要打一些横杠! 有一个绳子10米长,第一次减去一半,第二次减去剩下的一半,剪7次后,剩下多少米 化学上把氨基酸和蛋白质定义为同系物吗 什么东西别人看不到,而自己还可以欣赏到的那? 青海玉数海拔三千米缺氧嘛? -蛋白质什么意思 为啥子鸟晚上看不见东西? 在比例尺是1:6000000的地图上,量得南京到北京的距离是15cm.南京到北京的实际距离大约是多少米? 鱼跃血压计和欧姆龙血压计,哪种校准? 为什么人在黑夜里看不见东西? 小明对小红说能用掉一生三分之一时间的东西是什么 血压计是买欧姆龙的还是鱼跃的? 用什么东西在纸上写字看不见? 大家都在追求什么?世界上什么东西最值得我们花一生时间去追求呢? 我在长沙想买台血压计,有谁知道是鱼跃的血压计好.还是欧姆龙血压计好. 有一根10米长的绳子,第一次剪去一半,第二次剪去剩余的一半,……剪七次后,剩下的绳子长多少米?A 六十四分之一米 B 一百二十八分之一米 C 六十四分之五米 D一百二十八分之五米 人的一生是短暂的,决不能白白把生命浪费掉 这句话对应的名言是什么? 在比例尺是1:2000000的地图上,量得两城市间的距离是6厘米,如果是在1:4000000的地图上,图上距离是多少厘米? 木啊有一根绳子长10米,第一次剪去一半,第二次减去剩余的一半,.剪7次后,剩下的绳子有多长? 真空能不能以绝对压力(绝压,PSIA)为单位?如果不能,下图标出的部分是什么意思? 在一幅比例尺是1比2000000的地图上,甲乙两地间的距离是10厘米,如果在比例尺是1比4000000的图上,这两地间的距离是多少?用正反比例解正反 比例的知识解 一根绳子,第一次用去了一半,第二次用去了剩下的一半多6米还剩3米,绳子长多少米 为这么压力传感器的标称值是psia,而psia是压强单位!我想知道传感器的测量范围这么求! 电子血压计品牌选购?松下血压计比欧姆龙的质量差吗?差在哪里?为什么都说欧姆龙的好我选择松下了 什么东西看不见摸不着但很重要? 畦是什么意思?是个单位吗 欧姆龙血压计怎么样,能不能用的住啊,质量挺好的吗?还有么有其他比较好的品牌?具体哪里有卖的? 什么东西看不见、摸不到, 第一次准备去海拔5000米的高原地区,都要注意哪些问题?三月中旬就出发,而且现在还有点感冒! 某蛋白质由n条肽链组成,氨基酸的平均分子量为a,控制蛋白质合成的基因含b个碱基对,则该蛋白质的分子量约()DNA(基因)中碱基数:信使RNA中碱基数:蛋白质中氨基酸数=6:3:1 这个是怎么看 什么东西对于人来说看不见摸不着但很重要? 浪费掉人生三分之一时间的会是什么东西? 关于生物蛋白质的计算题.急啊!有图!有一处不理解,就那个求基因的相对分子质量,为什么要减去,减的是什么?就这一问,其余都会.请求解答,多谢. 什么东西看不见却摸不到? 在比例尺是4000000分之1的地图上,量的甲乙两地的距离是15cm,一辆汽车以每小时60千米的速度从甲乙两地开要几小时(用比例)
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn