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

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

将文件大小变成相应的字符串-VB资料 可以直接用API改变textbox的扩展样式-VB资料 快速读取TextBox第N行的数据 -VB资料 VB利用 API 可以直接拨号 VB利用API 使Text框只读 關于.net程序安全配置的問題 请问你是怎么设置XDSL拨号的? 刚才问题已解决,并已经结帖。现在接着问:怎么样实现从CObject下派生一个子类 BCBX在rh9下的安装 关于DLL的问题 ,请教大家 有酬谢 急:水晶报表错误:fail to get specifical page 菜鸟问题?????再线等》》》》》》》 怎么把一张图片作为清除按钮呢? 如何解决PictureBox第二次读入图片出错!(散分) 既轻又硬又不易变形的材料 超声波加快反应速率的原理 喜欢和爱有什么性质上的区别? 喜欢与爱的最本质区别请不要复制别的内容了 我想听内 喜欢和爱的本质区别是什么 阴极电泳前必须电泳吗阴极电泳前必须磷化吗? 请问有什么材料满足以下条件:1、耐摔 2、传热慢、 寻找某种耐高温材料耐高温要求,1000度以上,材料 在测物体平均速度的实验中,主要的测量器材是()和( 安倍重申欲推进集体自卫权 强调“必须李肇星曾母暗沙泡澡宣示主权日欲解禁武器出口 妄图“一箭三雕”美国57万人联名上书抗议情报监控(图查尔斯的阿Q精神?河北各界座谈燕赵净网2014打击网络承德加快高速公路建设 承平高速有望年[长城时评]与生命赛跑的白衣天使传递“中国梦·赶考行”美丽乡村大型演出走第七届广西(南宁)春茶节即将开幕只有神知道的幻想乡枫叶随想火影之琉璃刃天桥图综漫之夜月海战博物馆旅游粤晖园旅游笑翻天乐园旅游丹水坑风景区旅游南海神庙旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘