从 Excel 控制 USB 模块 Ke-USB24A。方案、说明

从 Excel 控制 Ke-USB24A 模块。无线电电子电气工程百科全书

免费技术库

当出现需要用一些不太普遍的语言编写程序的问题时，或者在任何似乎无法提供使用能力的环境中编写程序时，可以欣赏到对 Ke-USB24A USB 模块进行编程的全部魅力USB 设备。怎么会在这里？ - 处理连接库、调用系统函数等？这一切通常都很困难。 Ke-USB24A模块是完全不同的事情！由于编程接口以串行端口的形式实现，因此几乎可以用任何语言对模块进行编程。让我们用一个例子来证明这一点。在本文中，我们将了解如何控制 Excel 中的模块输出！是的，是的，它来自它，您通常在其中制作表格和构建图表。

为了让 Excel 与 COM 端口通信，我们需要在系统中安装一个来自 Microsoft 的特殊组件 - MSComm ActiveX 元素。为了这下载本文的文件。那里有一个 ActiveX 文件夹。

从 Excel 控制 Ke-USB24A 模块

要安装组件，只需执行文件 安装.bat - 他自己将执行所有必要的工作以在系统中安装和注册组件。在此过程中，您将被问到以下问题：

从 Excel 控制 Ke-USB24A 模块

单击是。将出现安装成功消息。我们按“确定”。

从 Excel 控制 Ke-USB24A 模块

所有组件都安装好了，你可以直接拿来换Excel。我们启动程序。下一步我们需要启用 Excel 宏的执行，因为默认情况下，它们很可能被禁用。为此，请转到菜单 工具 -> 宏 -> 安全...

从 Excel 控制 Ke-USB24A 模块

设置低安全选项——因为我们确信我们自己的程序是安全的。

从 Excel 控制 Ke-USB24A 模块

现在让我们决定我们真正想从 Excel 中得到什么： 让工作表包含允许我们打开对设备的访问并将低或高电压电平写入我们指定的 I/O 线的控件。

我们来看看控件的排列。为此，请调用相应的窗口，例如，通过右键单击程序的主菜单并在出现的列表中选择“控件”。

从 Excel 控制 Ke-USB24A 模块

我们将必要的控件拖到工作表上：三个标签、三个输入框和两个按钮。您可以通过在元素属性编辑器中单击鼠标右键来更改元素的文本。结果应如下所示：

从 Excel 控制 Ke-USB24A 模块

现在是时候开始编程了。 Excel 程序以及 Microsoft 的其他办公程序（例如 Word、Acsess 等）具有对 VBA（Visual Basic For Application）编程语言的内置支持。它是一个稍微扩展的 Visual Basic。要进入程序编辑器，请双击“打开端口”按钮，因为它将从中启动程序执行过程。

我们进入 VBA 编辑器，在那里我们看到一个用于处理按钮单击事件的空白代码。

从 Excel 控制 Ke-USB24A 模块

在我们直接开始编写程序之前，我们需要连接MSComm组件（我们刚刚在系统中安装的高一点的组件）。为此，在菜单的 VBA 编辑器中，选择 工具 -> 参考....

从 Excel 控制 Ke-USB24A 模块

按下按钮 浏览...。在出现的文件选择窗口中，找到我们的组件 MSCOMM32.OCX - 它必须在目录中 C：\ WINDOWS \ system32 \... 推开放, 然后按钮 Ok.

从 Excel 控制 Ke-USB24A 模块

我们编写以下代码。他在做什么？我们创建一个组件实例来使用端口，配置它的参数，最后打开端口。

'创建组件的实例以使用端口
Dim KeUSB 作为新的 MSCommPrivate 子 CommandButton1_Click()
'配置端口
KeUSB.CommPort = Val(TextBox1.Value)
KeUSB.Settings=9600,N,8,1"
KeUSB.Handshaking = comNone
KeUSB.InputLen = 0
KeUSB.InBufferSize = 40
KeUSB.OutBufferSize = 40
KeUSB.R阈值 = 0
'打开端口
KeUSB.PortOpen = True
END SUB

接下来，我们返回 Excel 工作表。双击按钮 写下来. 添加以下代码：

私有子 CommandButton2_Click()
'形成命令$KE,WR
KeUSB.Output =$KE,WR," & TextBox2.Value &," & TextBox3.Value & Chr(13) & Chr(10)
END SUB

全部通过编程完成。您可以关闭 VBA 编辑器（退出前不要忘记保存）。现在我们需要在 Excel 工作表上从控制编辑器模式切换到运行模式。为此，在“控件”马上，您必须按三角条形式的相应按钮，使其变为非活动状态（未突出显示）。

从 Excel 控制 Ke-USB24A 模块

现在你可以组装电路了——我这里什么都不做，我像上一篇文章一样使用它：LED连接到Ke-USB24A模块的所有输入/输出线。所有行都设置为输出。这实际上是整个电路。

从 Excel 控制 Ke-USB24A 模块。方案

所以，我们标明模块的COM口号，按下按钮 开放端口. 然后，指定所需行的编号和记录的值（0 或 1）。我们按下按钮 写下来 - 闪烁 LED。

从 Excel 控制 Ke-USB24A 模块

这是结构的照片。该电路是在面包板上输入的 - 非常方便，您不需要焊接任何东西。并非所有 24 个 LED 都安装在这里，但更少。

从 Excel 控制 Ke-USB24A 模块。面包板上的组装电路

所以，我们标明模块的COM口号，按下按钮 开放端口. 然后，指定所需行的编号和记录的值（0 或 1）。我们按下按钮 写下来 - 闪烁 LED。

当然，程序需要现代化 - 这里我们不分析执行错误或输入的数据本身。然而，尽管该示例很简单，但它表明您可以在几乎任何支持 ActiveX 组件和至少某种编程语言（甚至脚本）的环境中使用 Ke-USB24A 模块。例如，使用模块可以集成到 Microsoft Access 程序中并维护数据库；例如，您可以将此概念集成到 1C 程序中，并根据来自传感器（按键）等的外部事件执行任何操作。 - 可能性是无止境。或者，您可以继续使用 Excel 开发该主题 - 例如，使用它根据从 ADC 模块接收的数据自动构建图表。

作者：德米特里·伊万诺夫（格里罗格）；出版：cxem.net

查看其他文章 部分电脑.

读和写 有帮助对这篇文章的评论.

<< 返回

科技、新电子最新动态：

用于触摸仿真的人造革 15.04.2024

在现代科技世界，距离变得越来越普遍，保持联系和亲密感非常重要。萨尔大学的德国科学家最近在人造皮肤方面的进展代表了虚拟交互的新时代。萨尔大学的德国研究人员开发出了超薄膜，可以远距离传输触觉。这项尖端技术为虚拟通信提供了新的机会，特别是对于那些发现自己远离亲人的人来说。研究人员开发的超薄膜厚度仅为 50 微米，可以融入纺织品中并像第二层皮肤一样穿着。这些薄膜充当传感器，识别来自妈妈或爸爸的触觉信号，并充当将这些动作传递给婴儿的执行器。父母触摸织物会激活传感器，对压力做出反应并使超薄膜变形。这 ... >>

Petgugu全球猫砂 15.04.2024

照顾宠物通常是一项挑战，尤其是在保持房屋清洁方面。 Petgugu Global 初创公司推出了一种有趣的新解决方案，这将使猫主人的生活变得更轻松，并帮助他们保持家中干净整洁。初创公司 Petgugu Global 推出了一款独特的猫厕所，可以自动冲掉粪便，让你的家保持干净清新。这款创新设备配备了各种智能传感器，可以监控宠物的厕所活动并在使用后激活自动清洁。该设备连接到下水道系统，确保有效清除废物，无需业主干预。此外，该厕所还具有较大的可冲水存储容量，非常适合多猫家庭。 Petgugu 猫砂碗专为与水溶性猫砂一起使用而设计，并提供一系列附加功能 ... >>

体贴男人的魅力 14.04.2024

长期以来，女性更喜欢“坏男孩”的刻板印象一直很普遍。然而，英国莫纳什大学科学家最近进行的研究为这个问题提供了新的视角。他们研究了女性如何回应男性的情感责任和帮助他人的意愿。这项研究的结果可能会改变我们对男性对女性吸引力的理解。莫纳什大学科学家进行的一项研究得出了有关男性对女性吸引力的新发现。在实验中，女性看到了男性的照片，并附有关于他们在各种情况下的行为的简短故事，包括他们对遇到无家可归者的反应。一些人无视这名无家可归的人，而另一些人则帮助他，比如给他买食物。一项研究发现，与表现出同理心和善良的男性相比，表现出同理心和善良的男性对女性更具吸引力。 ... >>

来自档案馆的随机新闻

恐惧激发 14.12.2005

正如德国昆虫学家发现的那样，当被天敌——瓢虫攻击时，无翅蚜虫会分泌一种“焦虑物质”。闻到它的气味，其余的蚜虫抬起腿从树枝上掉下来。

如果经常重复攻击，非常害怕的蚜虫的后代就会长出翅膀，然后飞到任何他们的眼睛寻找更安全的地方。

据推测，通过用这种信息素的合成类似物喷洒植物，可以从植物中去除蚜虫。

其他有趣的新闻：

▪ 糖水过滤器

免费技术图书馆的有趣材料：