使用vb.net进行并行端口关闭控制

Question

您好！

我一直在为一个并行端口项目编码，该项目输出到一组发光二极管。这是它的主要控制

为了打开它，它制作了一个根据复选框递增的变量，其中1是最低的，255是最高的。。

第一个复选框

 Dim intval2write As Integer
 intval2write = intval2write + 1

第二个复选框

 Dim intval2write As Integer
 intval2write = intval2write + 2

第三个复选框

 Dim intval2write As Integer
 intval2write = intval2write + 4

最后一个复选框

 Dim intval2write As Integer
 intval2write = intval2write + 128

现在，我的代码打开LED的

Try
        Out(&H378, intval2write)
        MessageBox.Show("Successfully Turned On!" & vbNewLine & "Code " & intval2write, "USeP Electrical System", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Catch ex As Exception
        MsgBox(ex.Message, MsgBoxStyle.Critical)
    End Try

现在，我的问题是，我可以用OFF功能来实现吗？你能给我一些关闭并行端口数据线的好方法吗？

提前感谢：D

Answer 1

首先，可以改进ON代码。例如，应用第一个两次将导致执行第二个一次。您真正想要做的是逻辑位操作。因此，不要使用intval2write = intval2write + 1，而是尝试：

intval2write = intval2write Or 1

为了关闭线路，您需要清除相应的位。我们可以使用逻辑和运算。

intval2write = intval2write And Not 1

对于其他线路，将1替换为2、4、8等

您可以在此处阅读更多信息：https://support.microsoft.com/en-us/kb/113476.