门禁考勤机VB源代码，vb考勤管理源代码

最新推荐文章于 2023-11-16 16:26:14 发布

原创

最新推荐文章于 2023-11-16 16:26:14 发布 · 2.6k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vb #command #通讯 #integer #date

这是一个使用VB编写的门禁考勤机通信管理程序，包含打开/关闭端口、读取设备状态、设置时间等功能。通过RS-485或以太网TCP/IP与设备进行通讯，并提供了详细的代码示例。

详细代码如下（如有疑问可13826029618进行了解询问，或者直接到--www.icmcu.com详细页面下载源码压缩包）

Private Sub Command1_Click()
    If Command1.Caption = "打开端口" Then
        MJ011.DevComPort = Right(Combo1.Text, Len(Combo1.Text) - 3) '端口号
        MJ011.DevComPortOpen = 1
        If MJ011.DevComPortOpen = 1 Then

            Command1.Caption = "关闭端口"
        End If
    Else
        MJ011.DevComPortOpen = 0
        Command1.Caption = "打开端口"

    End If
End Sub

Private Sub Command13_Click()
Form2.Show 1
End Sub

Private Sub Command14_Click()
Form3.Show 1
End Sub

Private Sub Command15_Click()
Form4.Show 1
End Sub

Private Sub Command2_Click()
    If (Combo2.Text = "RS-485") Then
    '485方式
        MJ011.DevLinkMode = 0
        If MJ011.DevComPortOpen = 1 Then
            MJ011.DevNumber = CLng(Text23.Text)
            MJ011.DevStateRead

        Else
            MsgBox "端口未打开！"
            Exit Sub
        End If
    ElseIf (Combo2.Text = "以太网TCPIP") Then
    '以太网方式
        MJ011.DevLinkMode = 1
        MJ011.DevIpAddrStr = Text38.Text

MJ011.DevStateRead

    End If

    If MJ011.OperatingResults = 0 Then
        If MJ011.DevStateRecNew > 0 Then '有新记录
            Check1.Value = 1
        Else
            Check1.Value = 0
        End If

最低0.47元/天解锁文章