wwwxxx国产_337p日本欧洲亚洲大胆张筱雨_免费在线看成人av_日本黄色不卡视频_国产精品成熟老女人_99视频一区_亚洲精品97久久中文字幕_免费精品视频在线_亚洲色图欧美视频_欧美一区二三区

標題: 可用的E4A藍牙模塊與手機通訊APP源代碼及51單片機程序 [打印本頁]

作者: 15240718601 時間: 2019-7-30 22:55
標題: 可用的E4A藍牙模塊與手機通訊APP源代碼及51單片機程序
在51hei論壇里看見有好幾個用E4A做藍牙模塊與手機通訊的，下載看看，連藍牙都搜索不到，為此某為此特意獻上一款可用的E4A源碼以及51單片機源碼，特以此供諸位檢查及參考，制作多有隨意，還請諸位君不要見怪為是！

小車做得有點隨意，諸位君可不要介意

前言：此款藍牙APP為自己在別人的基礎上改進而來，主要特點是數據雙向傳輸，單片機端可實現手機控制PWM占空比大小，從而實現無極調速，前后左右等等操作，可以回傳單片機端的信號到手機上，只不過偶爾會丟字節，會易安卓的可以多多琢磨。至于說單片機的硬件怎么連接這個就不再多說，可以參考代碼來實現硬件的連接!

藍牙設備顯示，搜索到自己的藍牙后，點擊即可連接。
有兩種模式切換，超聲波模式或藍牙模式，當然無非就是單片機端怎么編程了！其實每一個按鈕都發送一串唯一的數據，在此不累贅!
藍牙模塊可以回傳數據到App上，
只不過偶爾會丟字節，這個不知為何，
若有大神，還請賜教！

//==========E4AAPK藍牙代===============================================================//
變量分割數據為文本型
變量啟動時間為長整數型
變量模式為整數型
變量前燈為整數型
事件按鈕6.被單擊()
      判斷按鈕6.標題
      分支 "搜索設備"
         列表框1.清空項目()
         藍牙1.搜索設備() '搜索設備
         彈出提示("正在搜索")
      分支 "斷開連接"
      藍牙1.斷開連接() '退出處理，釋放資源，結束內部處理線程
      豐富文本框1.內容=""
      編輯框1.內容=""
      編輯框2.內容=""
      速度調節.位置=50
      按鈕6.標題="搜索設備"
結束判斷

結束事件

事件主窗口.按下某鍵(鍵代碼為整數型,傳址屏蔽為邏輯型)
      如果鍵代碼 = 返回鍵則
      如果取啟動時間() - 啟動時間 >2000 則
         彈出提示("再按一次退出程序")
         啟動時間 = 取啟動時間()
      否則
         結束程序()
      結束如果
結束如果
結束事件

事件主窗口.創建完畢()
列表框1.字體大小 = 6
標簽1.背景顏色=無色
列表框1.背景顏色=綠色
模式=0
前燈=0
藍牙1.是否存在()
判斷藍牙1.是否存在()
      分支假
         彈出提示("沒有檢測到藍牙設備,程序將關閉")
         結束程序()
      分支真
         判斷藍牙1.是否已開啟()
            分支假
                  藍牙1.開啟藍牙()
         結束判斷

結束判斷
保存窗口("主窗口",本對象) '本對象是當前窗口

保存窗口("窗口1",創建窗口1)
結束事件

事件藍牙1.發現設備(設備名稱為文本型,設備地址為文本型,是否已配對為邏輯型)
列表框1.添加項目(設備名稱 & "/" & 設備地址 & "/" & 是否已配對)
結束事件

事件列表框1.表項被單擊(項目索引為整數型)
變量設備信息為文本型
變量文本數組為文本型()
變量設備地址為文本型
設備信息 = 列表框1.取項目內容(項目索引)
文本數組 = 分割文本(設備信息,"/")
設備地址 = 文本數組(1)
彈出提示(設備地址)
藍牙1.連接設備(設備地址)       '連接設備我看了有些例程是沒有的
彈出提示("正在連接")

藍牙1.停止搜索()

結束事件

事件藍牙1.連接完畢(連接結果為邏輯型,設備名稱為文本型,設備地址為文本型,連接模式為整數型)
變量設備信息為文本型
變量文本數組為文本型()
如果連接結果 = 真則
      標簽1.標題 = "已連接：" & 設備名稱 & "-" & 設備地址
      按鈕6.標題="斷開連接"
      彈出提示("連接成功")
否則
      彈出提示("連接失敗")
      標簽1.標題 = "已斷開"
      按鈕6.標題="搜索設備"
結束如果
結束事件

事件藍牙1.藍牙設置完畢(設置結果為整數型)
判斷設置結果
      分支 1 '開啟藍牙
         彈出提示("藍牙已開啟")
         藍牙1.置可被發現() '置可被發現
      分支 2 '不開啟藍牙
         信息框("信息","藍牙未被開啟，程序將退出！","確定")
         結束程序()
      分支 3 '置可被發現
         彈出提示("藍牙已設置為可被發現")
         藍牙1.置工作模式(2) '藍牙聊天模式
      分支 4 '不置可被發現
         信息框("信息","藍牙未被設置為可被發現，程序將退出！","確定")
         結束程序()
結束判斷
結束事件

事件按鈕1.被按下(橫坐標為整數型,縱坐標為整數型)
      藍牙1.發送數據(文本到字節("@lefth","GBK"))
結束事件
事件按鈕1.被彈起(橫坐標為整數型,縱坐標為整數型)
藍牙1.發送數據(文本到字節("@stoph","GBK"))
結束事件

事件按鈕2.被按下(橫坐標為整數型,縱坐標為整數型)
      藍牙1.發送數據(文本到字節("@ahead","GBK"))
結束事件
事件按鈕2.被彈起(橫坐標為整數型,縱坐標為整數型)
藍牙1.發送數據(文本到字節("@stoph","GBK"))
結束事件

事件按鈕3.被按下(橫坐標為整數型,縱坐標為整數型)
      藍牙1.發送數據(文本到字節("@right","GBK"))
結束事件
事件按鈕3.被彈起(橫坐標為整數型,縱坐標為整數型)
藍牙1.發送數據(文本到字節("@stoph","GBK"))
結束事件

事件按鈕4.被按下(橫坐標為整數型,縱坐標為整數型)
      藍牙1.發送數據(文本到字節("@backh","GBK"))
結束事件
事件按鈕4.被彈起(橫坐標為整數型,縱坐標為整數型)
藍牙1.發送數據(文本到字節("@stoph","GBK"))
結束事件

事件按鈕5.被單擊()
      藍牙1.發送數據(文本到字節("@stoph","GBK"))
結束事件

事件按鈕7.被單擊()
   藍牙1.發送數據(文本到字節("@sgetd","GBK"))

結束事件
事件按鈕9.被單擊()
判斷前燈
      分支 0
         前燈=1
         藍牙1.發送數據(文本到字節("@ligh1","GBK"))
         按鈕9.標題="前燈開"
      分支 1
         前燈=0
         藍牙1.發送數據(文本到字節("@ligh0","GBK"))
         按鈕9.標題="前燈關"
結束判斷

結束事件
事件按鈕10.被按下(橫坐標為整數型,縱坐標為整數型)
藍牙1.發送數據(文本到字節("@load0","GBK"))
結束事件
事件按鈕10.被彈起(橫坐標為整數型,縱坐標為整數型)
藍牙1.發送數據(文本到字節("@load1","GBK"))
結束事件
事件按鈕8.被單擊()

判斷模式
      分支 0
         按鈕8.標題="藍牙模式"
         藍牙1.發送數據(文本到字節("@mosh1","GBK"))
         模式=1
      分支 1
         按鈕8.標題="超聲波模式"
         藍牙1.發送數據(文本到字節("@mosh0","GBK"))
         模式=0
結束判斷
結束事件

事件速度調節.位置被改變(位置為整數型)
如果位置>9 且位置<100 則
藍牙1.發送數據(文本到字節("@spe"&整數到文本(位置),"GBK"))
結束如果
結束事件
事件藍牙1.收到數據(數據為字節型(),設備名稱為文本型,設備地址為文本型)
變量收到數據為文本型

分割數據=字節到文本(數據,"GBK")

豐富文本框1.內容 =豐富文本框1.內容 & "\r\n " & 字節到文本(數據,"GBK")
豐富文本框1.置光標位置(取文本長度(豐富文本框1.內容))

   如果尋找文本(分割數據,"rp",0) >0 則
' 標簽2.標題=取文本中間(分割數據,2 ,4) &"m/s"
' 結束如果
' 如果尋找文本(分割數據,"dt",0) >= 0 則
' 標簽3.標題=取文本中間(分割數據,2 ,4) &"cm"
      如果尋找文本(分割數據,"dt",0) >0 則
      編輯框1.內容=取指定文本2(分割數據,"dt","cm")
      結束如果
      如果尋找文本(分割數據,"sp",0) >0 則
      編輯框2.內容=取指定文本2(分割數據,"sp","ms")
      結束如果
   '標簽2.標題="速度:"&分割數據 &"m/s"
' 否則如果尋找文本(分割數據,"dt",0) >= 0 則
'    分割數據= 取文本右邊(分割數據,3)
' 標簽3.標題="距離:"&分割數據 &"cm"
結束如果

'=====================以下是接收單片機發送過來的16進制HEX數據的方法=======================
' 變量計次為整數型
' 判斷循環首計次 < 取數組成員數(數據)
'       編輯框1.內容 = 編輯框1.內容 & "  " & 到十六進制(數據(計次))
'       計次 = 計次 + 1
' 判斷循環尾
結束事件

'事件編輯框1.內容被改變(新內容為文本型)
'
'結束事件

事件豐富文本框1.內容被改變(新內容為文本型)

結束事件

事件標簽1.被單擊()

結束事件

事件標簽2.被單擊()

結束事件

事件按鈕11.被單擊()
如果讀取窗口("窗口1")=空則
      保存窗口("窗口1",創建窗口1)
結束如果
切換窗口(讀取窗口("窗口1"))
結束事件

全部資料51hei下載地址：

藍牙小車apk、51單片機源代碼.rar (1.24 MB, 下載次數: 568)

作者: 越南超級人類 時間: 2019-7-31 10:08
終于看到中文編程的了，希望看到更多中文編程出現。為初學者（不懂英文）服務

作者: 15240718601 時間: 2019-7-31 11:32

越南超級人類發表于 2019-7-31 10:08
終于看到中文編程的了，希望看到更多中文編程出現。為初學者（不懂英文）服務

確實，感謝創造中文編程的大神，支持！

作者: zhangfan46147 時間: 2019-8-5 18:39
終于看到中文編程的了，希望看到更多中文編程出現。為初學者（不懂英文）服務

作者: 1368088682 時間: 2019-9-7 11:01
很完整，值得下載學習

作者: 283326736 時間: 2019-12-8 10:59
謝謝共享。。。。。。。。。

作者: xiaodian88 時間: 2020-2-29 22:48
學習了正感興趣

作者: 123451 時間: 2020-3-4 16:10

終于看到中文編程的了，希望看到更多中文編程出現。為初學者（不懂英文）服務

作者: abcdefbcdef 時間: 2020-4-4 00:37
好東西，正在到處找，不過也要掙點黑幣啊

作者: EE_Duan 時間: 2020-4-9 17:53
值得下載學習

作者: qwthh 時間: 2020-4-13 21:33
請問UP有沒有E4A，我的說是免費版，提示那個，可有償請教您，我也是要實現PWM調速，

作者: gaojiaxin123 時間: 2020-5-26 12:22
我的HC05模塊連接手機藍牙失敗，請問您知道原因嗎？

作者: s6155555s 時間: 2020-7-2 10:22
非常感謝大佬分享，非常有用！

作者: liangker 時間: 2020-9-15 20:54
藍牙小車apk、51單片機源代碼.rar (1.24 MB, 下載次數: 230)

作者: aking991 時間: 2020-9-18 08:32
看似不錯，下載下來學習一下，謝謝分享

作者: czhy0417 時間: 2020-10-30 11:03
中文編程厲害了，膜拜

作者: DK.mo 時間: 2020-12-13 11:41

gaojiaxin123 發表于 2020-5-26 12:22
我的HC05模塊連接手機藍牙失敗，請問您知道原因嗎？

請問您連接不上藍牙模塊問題解決了嗎

作者: 15240718601 時間: 2021-3-29 22:33

qwthh 發表于 2020-4-13 21:33
請問UP有沒有E4A，我的說是免費版，提示那個，可有償請教您，我也是要實現PWM調速，

E4A可以免費使用，但是功能和服務肯定沒有購買版權的好

作者: 15240718601 時間: 2021-3-29 22:36

gaojiaxin123 發表于 2020-5-26 12:22
我的HC05模塊連接手機藍牙失敗，請問您知道原因嗎？

用手機鏈接藍牙模塊，你的藍牙模塊先和手機進行配對好才能連，你要知道藍牙的初始密碼

作者: 15240718601 時間: 2021-3-29 22:37

DK.mo 發表于 2020-12-13 11:41
請問您連接不上藍牙模塊問題解決了嗎

你也鏈接不上嗎

作者: 1285574579 時間: 2021-4-20 13:18
APP寫的非常好

作者: zhenyu 時間: 2022-2-18 10:12
這東西好，有學習價值，某一個寶上好像要花錢買的。

作者: mimidog111 時間: 2022-2-22 13:26
很完整，值得下載學習

作者: qidiao007 時間: 2022-3-11 09:50
你好能不能用這個藍牙

作者: Martinku 時間: 2022-3-25 10:29
這個中文編程牛啊。

作者: 56783333 時間: 2024-4-2 15:04
終于看到中文編程的了，希望看到更多中文編程出現，厲害了

作者: 1621359699 時間: 2024-6-5 10:07

你好能不能用這個藍牙

歡迎光臨 (http://m.izizhuan.cn/bbs/)