先打开使用过的例程。在VB编程窗口的右边，有一个工程管理器（如下图），类似于Windows中的资源管理器，它以树状结构的形式把程序的各部分包含进来。我们的这个程序名字叫“工程l”，在它的下边有一个“窗体”文件夹和一个“模块”文件夹。“窗体”文件夹中有一个窗体文件Forml，“模块”文件夹中有一个模块文件Modull（特别说明：一项工程可以有多个．“窗体”和“模块”）。
我们已经知道，一个“窗体”包括“窗体”的可视界面和“窗体”附加的代码。那么模块文件有什么作用呢？模块文件中存放着一些公用的代码段（即函数或过程）。
可以双击Modull，打开这个文件，会看到许多的函数或过程。这些函数或过程是并口控制编程的关键部分，不能轻易改动。如果有兴趣，可以研究一下这些代码。这里不再多叙。
Modull文件在后面的编程中将要用到，所以我们现在把它导出去：左键点Modull，再右击，出现右键菜单，选“Modull.bas另存为”，把它保存在电脑桌面上。关闭当前的VB6编程环境。
重新打开VB6，选择新建程序，出现有一个空白窗体界面。在VB菜单栏点击“工程”，在出现的菜单中选“添加文件”，把刚才保存在电脑桌面上的模块文件Modull.bas加入到工程中去。
在空白窗体上拖曳出一个按钮，可以随意调节它的大小，也可以在属性窗口改变按钮上面的文字为：点亮1号灯（Caption属性，如下图），然后双击按钮进入代码窗口，在首行和末行中间输入：Hlbad。并在代码窗口左上角的下拉框中选“通用”，在代码窗口的首行前面加一行：Constbad=&H378，结果如右图。OK!第一个并口程序完成，点试运行。
点击刚才“创造”的按钮，1号灯亮了。哦!我只告诉怎样试运行程序，还没有告诉怎样让它停止运行，现在告诉，点击VB菜单栏上的画。
程序结束运行，但1号灯还亮着。为什么？我在本文的第一部分曾经说过，并口线上的这些电压是可以自保持的，就是在没有控制它变化时，它可以保持原来的电压。所以，我们还需要设置另一个按钮和代码，并运行程序来控制打印口l号线的电平变为低。读者可参考我们的例程中第1号按钮和第2号按钮的代码自己完成。
每新建一个工程，编写代码之前都要做两件事，
1、把模块文件Modull添加到工程中，因为Modull中有并口控制必须的函数和过程。
2、在窗体的附加代码前面要加一行：Constbad=＆H378，它指出了打印口中第一个并口的地址。这样，就可以利用前面列出的各种函数，在VB中编程来控制打印口了。
再给出一个简单例程，来说明打印口中数据输入线(10、11、12、13、15)的用法。也是一个4位流水灯的程序，不过在程序启动以后，每循环1周，必须把第13线对地短路一下，否则流水灯停转，等10秒后会出现对话框，问程序是否停止运行。
程序是从上至下逐句执行的，当执行到13线输入函数W13L10，bad时，如果满足其条件：13线有低电平，则继续向下执行，不满足条件，程序就停止运行，这种输入函数就像一个严密防守的关口。
在数控过程中，输入信号一般用于进行过程的监控，如机件的运行位置、加料量是否达到规定等。
比如：打印口的1线控制的是一送料电机，料到位后，有一连接10线的位置开关闭合，打印口10线输入低电平，同时，送料电机停止运转。相应的程序应为：
Hlbad（1线高电平，电机运转，送料）WlOL20bad（等待10线低电平，如20秒内低电平到（料到位），执行下一步。否则提示故障）Llbad（一旦10线低电平到，1线变为低电平，电机停转，送料停止）
本文关键字：暂无联系方式接口电路，单元电路 - 接口电路
