用vb.net实现并口关闭控制

你好

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

为了打开它，它创建了一个根据复选框递增的变量，其中1为最低值，255为最高值

第一个复选框

 Dim intval2write As Integer
 intval2write = intval2write + 1

 Dim intval2write As Integer
 intval2write = intval2write + 128

第二个复选框

 Dim intval2write As Integer
 intval2write = intval2write + 2

 Dim intval2write As Integer
 intval2write = intval2write + 4

 Dim intval2write As Integer
 intval2write = intval2write + 128

第三个复选框

 Dim intval2write As Integer
 intval2write = intval2write + 2

 Dim intval2write As Integer
 intval2write = intval2write + 4

 Dim intval2write As Integer
 intval2write = intval2write + 128

最后一个复选框

 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函数来实现吗？你能给我一些好的方法来关闭并行端口的数据线吗

---

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

intval2write=intval2write+1

：

intval2write = intval2write Or 1

要关闭线路，需要清除相应的位。我们可以使用逻辑and运算来实现这一点

intval2write = intval2write And Not 1

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

---

您可以在这里阅读更多信息：。

这里有一个更好的参考：。谢谢，先生！我现在要试试这个：D