Question

美好的一天！

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

为了打开它，它创建了一个变量，根据复选框递增，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。

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

1 个答案: