|
|
變量 啟動(dòng)時(shí)間 為 長(zhǎng)整數(shù)型
事件 主窗口.按下某鍵(鍵代碼 為 整數(shù)型,傳址 屏蔽 為 邏輯型)
如果 鍵代碼 = 返回鍵 則
如果 取啟動(dòng)時(shí)間() - 啟動(dòng)時(shí)間 >2000 則
彈出提示("再按一次退出程序")
啟動(dòng)時(shí)間 = 取啟動(dòng)時(shí)間()
否則
結(jié)束程序()
結(jié)束 如果
結(jié)束 如果
結(jié)束 事件
事件 按鈕1.被單擊()
藍(lán)牙1.開(kāi)啟藍(lán)牙()
結(jié)束 事件
事件 藍(lán)牙1.藍(lán)牙設(shè)置完畢(設(shè)置結(jié)果 為 整數(shù)型)
如果 設(shè)置結(jié)果 = 1 則
藍(lán)牙1.置工作模式(2)
彈出提示("設(shè)置完成")
結(jié)束 如果
結(jié)束 事件
事件 按鈕4.被單擊()
藍(lán)牙1.關(guān)閉藍(lán)牙()
結(jié)束 事件
事件 按鈕2.被單擊()
高級(jí)列表框1.清空項(xiàng)目()
藍(lán)牙1.搜索設(shè)備()
結(jié)束 事件
事件 按鈕3.被單擊()
藍(lán)牙1.停止搜索()
結(jié)束 事件
事件 藍(lán)牙1.發(fā)現(xiàn)設(shè)備(設(shè)備名稱(chēng) 為 文本型,設(shè)備地址 為 文本型,是否已配對(duì) 為 邏輯型)
高級(jí)列表框1.添加項(xiàng)目("",設(shè)備名稱(chēng),設(shè)備地址,"",是否已配對(duì))
結(jié)束 事件
事件 高級(jí)列表框1.按鈕被單擊(項(xiàng)目索引 為 整數(shù)型)
變量 設(shè)備地址 為 文本型
設(shè)備地址 = 高級(jí)列表框1.取項(xiàng)目信息(項(xiàng)目索引)
藍(lán)牙1.連接設(shè)備(設(shè)備地址)
彈出提示("連接 - " & 設(shè)備地址)
結(jié)束 事件
事件 藍(lán)牙1.連接完畢(連接結(jié)果 為 邏輯型,設(shè)備名稱(chēng) 為 文本型,設(shè)備地址 為 文本型,連接模式 為 整數(shù)型)
變量 設(shè)備信息 為 文本型
變量 文本數(shù)組 為 文本型()
如果 連接結(jié)果 = 真 則
主窗口.標(biāo)題 = "已連接：" & 設(shè)備名稱(chēng)
彈出提示("連接成功")
否則
彈出提示("連接失敗")
結(jié)束 如果
結(jié)束 事件
|
|
QQ好友和群
QQ空間
騰訊微博
騰訊朋友
收藏
淘帖
頂
踩
