新建 文本文档.txt

来自「VB与单片机通信实现智能照明温度控制示例 包括Vb代码和C代码」· 文本 代码 · 共 24 行

    Dim i As Byte
    Dim CmdPing(2) As Byte
    FrmMain.TView.Nodes.Clear
    FrmMain.TView.Nodes.Add , , "Building", "大楼"
    GenCmd CmdPing, CMD_PING
    For i = 12 To 12
        LblDev.Caption = i
        ProgressBar.Value = i
        If SendCommand(CmdPing, i) Then
            AddDevice i
        End If
    Next i



    Load FrmInitDev
    FrmInitDev.Visible = True
    FrmInitDev.Show
    FrmMain.Hide
    While FrmInitDev.Visible = True
        DoEvents
        Sleep 50
    Wend
    FrmMain.Show