欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

標題: E4A BLE藍牙實驗 [打印本頁]

作者: xzk123 時間: 2023-3-26 09:17
標題: E4A BLE藍牙實驗
  易安卓E4A安卓手機BLE藍牙控制，通過BLE藍牙模塊串口連接電腦或單片機實現通信，手機接收顯示電腦或單片機發來的信息，同時手機可通過藍牙發送控制命令到電腦或單片機。手機APP用E4A6.9版本實現，純中文的安卓手機APP編程軟件，界面友好，實例與教程也很詳細，學習中文編程的好軟件。
下面是主窗口代碼：
變量服務UUID 為文本型
變量通道UUID 為文本型
變量設備地址為文本型

      事件主窗口.創建完畢()
      '安卓6.0以上的系統需要動態申請權限,否則app可能無法正常運行
      如果權限操作1.取系統版本號()>=23 則
            權限操作1.申請全部權限()
      結束如果

      置狀態欄顏色(標簽_窗口標題.背景顏色)'E4A的設置里,窗口風格要設置為沉浸模式,此命令才能生效

      '添加底部導航選項卡,組件的高度建議設置為32
      '底部導航1.背景顏色 = 白色
      '底部導航1.置文字顏色("#C0C0C0")
      '底部導航1.置文字激活顏色("#00BFFF")
      '底部導航1.置字體大小(10)
      '底部導航1.添加項目("直播","btn_live.png","btn_live_selected.png")
      '底部導航1.添加項目("視頻","btn_video.png","btn_video_selected.png")
      '底部導航1.添加項目("更多","btn_more.png","btn_more_selected.png")
      '底部導航1.添加項目("我的","btn_user.png","btn_user_selected.png")
      '底部導航1.置現行選中項(0)

      '添加右上角的菜單
      高級菜單1.初始化(R.bkg,白色,真)'bkg是一個9宮格圖片,存放在drawable圖片資源里
      高級菜單1.添加菜單項("menu_icon_1.png","菜單項一")
      高級菜單1.添加菜單項("menu_icon_2.png","菜單項二")
      高級菜單1.添加菜單項("menu_icon_3.png","菜單項三")
      變量結果為邏輯型




      結果 = BLE藍牙1.初始化()
      彈出提示("初始化結果： " & 結果)
結束事件
事件權限操作1.申請完畢(權限數組為文本型(),申請結果為整數型())
      '可以把需要特殊權限的代碼寫在此處,當申請權限成功后再執行相關代碼
結束事件
'事件底部導航1.項目被選擇(項目索引為整數型)
'       彈出提示("項目被選擇：" & 項目索引)
'結束事件
事件主窗口.按下某鍵(鍵代碼為整數型,傳址屏蔽為邏輯型)
      如果鍵代碼 = 返回鍵則
            返回桌面()
      結束如果
結束事件
事件圖片框_返回.被單擊()
      返回桌面()
結束事件
事件圖片框_菜單.被單擊()
      高級菜單1.彈出菜單2(圖片框_菜單,200)
結束事件
事件高級菜單1.菜單被選擇(索引為整數型,圖標為文本型,標題為文本型)
      彈出提示(標題)
結束事件
事件 BLE藍牙1.創建完畢()

結束事件
事件搜索藍牙.被單擊()
      如果搜索藍牙.標題 = "開始搜索" 則
      位置傳感器1.開始監測()
      BLE藍牙1.開始搜索()
      時鐘1.時鐘周期 = 10*1000
      搜索藍牙.標題 = "停止搜索"
否則
   BLE藍牙1.停止搜索()
      時鐘1.時鐘周期 = 0
   搜索藍牙.標題 = "開始搜索"
結束如果
結束事件
事件時鐘1.周期事件()
      BLE藍牙1.停止搜索()
   搜索藍牙.標題 = "開始搜索"
   時鐘1.時鐘周期 = 0
結束事件
事件 BLE藍牙1.發現設備(名稱為文本型,地址為文本型,MajorID 為整數型,MinorID 為整數型,配對狀態為整數型)
如果名稱 = "BT24" 則       '屏蔽掉沒有名稱的藍牙設備
   彈出提示("發現設備")
   列表框1.添加項目("名稱： " & 名稱 & "\n 地址： " & 地址)
   列表框1.置項目標記(列表框1.取項目數()-1,地址)
   結束如果
結束事件
事件 BLE藍牙1.信號強度改變(名稱為文本型,地址為文本型,信號強度為整數型)
   如果名稱 = "BT24" 則
   列表框1.置項目內容(0,"名稱： " & 名稱 & "\n 地址： " & 地址 & "\n 信號： " & 信號強度)
結束如果
結束事件
事件 BLE藍牙1.連接狀態改變(狀態為整數型)
如果狀態 = 1 則
   連接狀態.標題 = "已連接"
   連接狀態.背景顏色 = 綠色
否則
   連接狀態.標題 = "已斷開"
   連接狀態.背景顏色 = 紅色
結束如果
結束事件
事件 BLE藍牙1.發現服務(服務信息為集合)
如果服務信息.取項目總數() < 0 則
   退出
結束如果
變量 i 為整數型
變量 j 為整數型
      變量信息數組為文本型()
      i = 0
      判斷循環首 i < 服務信息.取項目總數()
   信息數組 = 服務信息.取項目(i)
j = 0
判斷循環首 j < 取數組成員數(信息數組)
   如果 j >0 則
   如果 BLE藍牙1.是否可讀(信息數組(0),信息數組(j)) =真且 BLE藍牙1.是否可寫(信息數組(0),信息數組(j)) =真且 BLE藍牙1.是否可通知(信息數組(0),信息數組(j)) =真則
   服務UUID = 信息數組(0)
   通道UUID = 信息數組(j)
      'BLE藍牙1.讀取數據(服務UUID,通道UUID)
'接收框.內容 = 服務 UUID &"\n"&通道 UUID
   時鐘2.時鐘周期 = 1000
   結束如果
   結束如果
   j = j + 1
   判斷循環尾
   i = i + 1
   判斷循環尾
結束事件




事件 BLE藍牙1.讀取數據完畢(結果為整數型,服務UUID 為文本型,通道UUID 為文本型,數據為字節型())
  如果結果 = 1 則
   彈出提示("讀取數據成功： " & 通道UUID & "\n 數據： " & 字節集到十六進制(數據))
否則
   彈出提示("讀取數據失敗： " & 通道UUID & "\n 數據： " & 字節集到十六進制(數據))
      結束如果
結束事件
事件 BLE藍牙1.通道數據改變(服務UUID 為文本型,通道UUID 為文本型,數據為字節型())
   彈出提示("通道數據改變" & 通道UUID & "\n 數據： " & 字節集到十六進制(數據))
   接收框.加入文本(字節到文本(數據,"GBK"))
結束事件
事件 BLE藍牙1.寫入數據完畢(結果為整數型)
   如果結果 = 1 則
      彈出提示("寫入數據成功")
   否則
   彈出提示("寫入數據失敗")
結束如果
結束事件
事件列表框1.表項被單擊(項目索引為整數型)
      設備地址 = 列表框1.取項目標記(項目索引)
BLE藍牙1.連接設備(設備地址)
      'BLE 藍牙 1.連接設備(列表框 1.取項目標記(項目索引))
彈出提示("正在連接")
連接狀態.標題 = "正在連接"
結束事件
事件上.被單擊()
      BLE藍牙1.寫入數據(服務UUID,通道UUID,文本到字節("上\n","GBK"))
結束事件
事件左.被單擊()
      BLE藍牙1.寫入數據(服務UUID,通道UUID,文本到字節("左\n","GBK"))
結束事件
事件右.被單擊()
      BLE藍牙1.寫入數據(服務UUID,通道UUID,文本到字節("右\n","GBK"))
結束事件
事件下.被單擊()
      BLE藍牙1.寫入數據(服務UUID,通道UUID,文本到字節("下\n","GBK"))
結束事件
事件讀取.被單擊()
      BLE藍牙1.讀取數據(服務UUID,通道UUID)
結束事件
事件清空.被單擊()
      接收框.內容 = 空
結束事件
事件接收框.內容被改變(新內容為文本型)

結束事件
事件接收框.創建完畢()
      接收框.置多行模式(真)
結束事件
事件發送.被單擊()
      BLE藍牙1.寫入數據(服務UUID,通道UUID,文本到字節(發送框.內容,"GBK"))
結束事件
事件斷開連接.被單擊()
      BLE藍牙1.斷開連接()
結束事件

E4A運行界面.png (120.83 KB, 下載次數: 58)

E4A編程界面

設計窗口1.png (26.05 KB, 下載次數: 70)

設計窗口2.png (7.12 KB, 下載次數: 62)

代碼窗口1.png (36.7 KB, 下載次數: 60)

代碼窗口2.png (28.13 KB, 下載次數: 70)

歡迎光臨 (http://www.raoushi.com/bbs/)