可用的E4A藍(lán)牙模塊與手機(jī)通訊APP源代碼及51單片機(jī)程序

ID:156494 · 發(fā)表于 2019-7-30 22:55

在51hei論壇里看見有好幾個(gè)用E4A做藍(lán)牙模塊與手機(jī)通訊的，下載看看，連藍(lán)牙都搜索不到，為此某為此特意獻(xiàn)上一款可用的E4A源碼以及51單片機(jī)源碼，特以此供諸位檢查及參考，制作多有隨意，還請(qǐng)諸位君不要見怪為是！

小車做得有點(diǎn)隨意，諸位君可不要介意

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

藍(lán)牙設(shè)備顯示，搜索到自己的藍(lán)牙后，點(diǎn)擊即可連接。
有兩種模式切換，超聲波模式或藍(lán)牙模式，當(dāng)然無非就是單片機(jī)端怎么編程了！其實(shí)每一個(gè)按鈕都發(fā)送一串唯一的數(shù)據(jù)，在此不累贅!
藍(lán)牙模塊可以回傳數(shù)據(jù)到App上，
只不過偶爾會(huì)丟字節(jié)，這個(gè)不知為何，
若有大神，還請(qǐng)賜教！

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

結(jié)束事件

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

事件主窗口.創(chuàng)建完畢()
列表框1.字體大小 = 6
標(biāo)簽1.背景顏色=無色
列表框1.背景顏色=綠色
模式=0
前燈=0
藍(lán)牙1.是否存在()
判斷藍(lán)牙1.是否存在()
      分支假
         彈出提示("沒有檢測(cè)到藍(lán)牙設(shè)備,程序?qū)㈥P(guān)閉")
         結(jié)束程序()
      分支真
         判斷藍(lán)牙1.是否已開啟()
            分支假
                  藍(lán)牙1.開啟藍(lán)牙()
         結(jié)束判斷

結(jié)束判斷
保存窗口("主窗口",本對(duì)象) '本對(duì)象是當(dāng)前窗口

保存窗口("窗口1",創(chuàng)建窗口1)
結(jié)束事件

事件藍(lán)牙1.發(fā)現(xiàn)設(shè)備(設(shè)備名稱為文本型,設(shè)備地址為文本型,是否已配對(duì) 為邏輯型)
列表框1.添加項(xiàng)目(設(shè)備名稱 & "/" & 設(shè)備地址 & "/" & 是否已配對(duì))
結(jié)束事件

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

藍(lán)牙1.停止搜索()

結(jié)束事件

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

事件藍(lán)牙1.藍(lán)牙設(shè)置完畢(設(shè)置結(jié)果為整數(shù)型)
判斷設(shè)置結(jié)果
      分支 1 '開啟藍(lán)牙
         彈出提示("藍(lán)牙已開啟")
         藍(lán)牙1.置可被發(fā)現(xiàn)() '置可被發(fā)現(xiàn)
      分支 2 '不開啟藍(lán)牙
         信息框("信息","藍(lán)牙未被開啟，程序?qū)⑼顺觯?quot;,"確定")
         結(jié)束程序()
      分支 3 '置可被發(fā)現(xiàn)
         彈出提示("藍(lán)牙已設(shè)置為可被發(fā)現(xiàn)")
         藍(lán)牙1.置工作模式(2) '藍(lán)牙聊天模式
      分支 4 '不置可被發(fā)現(xiàn)
         信息框("信息","藍(lán)牙未被設(shè)置為可被發(fā)現(xiàn)，程序?qū)⑼顺觯?quot;,"確定")
         結(jié)束程序()
結(jié)束判斷
結(jié)束事件

事件按鈕1.被按下(橫坐標(biāo) 為整數(shù)型,縱坐標(biāo) 為整數(shù)型)
      藍(lán)牙1.發(fā)送數(shù)據(jù)(文本到字節(jié)("@lefth","GBK"))
結(jié)束事件
事件按鈕1.被彈起(橫坐標(biāo) 為整數(shù)型,縱坐標(biāo) 為整數(shù)型)
藍(lán)牙1.發(fā)送數(shù)據(jù)(文本到字節(jié)("@stoph","GBK"))
結(jié)束事件

事件按鈕2.被按下(橫坐標(biāo) 為整數(shù)型,縱坐標(biāo) 為整數(shù)型)
      藍(lán)牙1.發(fā)送數(shù)據(jù)(文本到字節(jié)("@ahead","GBK"))
結(jié)束事件
事件按鈕2.被彈起(橫坐標(biāo) 為整數(shù)型,縱坐標(biāo) 為整數(shù)型)
藍(lán)牙1.發(fā)送數(shù)據(jù)(文本到字節(jié)("@stoph","GBK"))
結(jié)束事件

事件按鈕3.被按下(橫坐標(biāo) 為整數(shù)型,縱坐標(biāo) 為整數(shù)型)
      藍(lán)牙1.發(fā)送數(shù)據(jù)(文本到字節(jié)("@right","GBK"))
結(jié)束事件
事件按鈕3.被彈起(橫坐標(biāo) 為整數(shù)型,縱坐標(biāo) 為整數(shù)型)
藍(lán)牙1.發(fā)送數(shù)據(jù)(文本到字節(jié)("@stoph","GBK"))
結(jié)束事件

事件按鈕4.被按下(橫坐標(biāo) 為整數(shù)型,縱坐標(biāo) 為整數(shù)型)
      藍(lán)牙1.發(fā)送數(shù)據(jù)(文本到字節(jié)("@backh","GBK"))
結(jié)束事件
事件按鈕4.被彈起(橫坐標(biāo) 為整數(shù)型,縱坐標(biāo) 為整數(shù)型)
藍(lán)牙1.發(fā)送數(shù)據(jù)(文本到字節(jié)("@stoph","GBK"))
結(jié)束事件

事件按鈕5.被單擊()
      藍(lán)牙1.發(fā)送數(shù)據(jù)(文本到字節(jié)("@stoph","GBK"))
結(jié)束事件

事件按鈕7.被單擊()
   藍(lán)牙1.發(fā)送數(shù)據(jù)(文本到字節(jié)("@sgetd","GBK"))

結(jié)束事件
事件按鈕9.被單擊()
判斷前燈
      分支 0
         前燈=1
         藍(lán)牙1.發(fā)送數(shù)據(jù)(文本到字節(jié)("@ligh1","GBK"))
         按鈕9.標(biāo)題="前燈開"
      分支 1
         前燈=0
         藍(lán)牙1.發(fā)送數(shù)據(jù)(文本到字節(jié)("@ligh0","GBK"))
         按鈕9.標(biāo)題="前燈關(guān)"
結(jié)束判斷

結(jié)束事件
事件按鈕10.被按下(橫坐標(biāo) 為整數(shù)型,縱坐標(biāo) 為整數(shù)型)
藍(lán)牙1.發(fā)送數(shù)據(jù)(文本到字節(jié)("@load0","GBK"))
結(jié)束事件
事件按鈕10.被彈起(橫坐標(biāo) 為整數(shù)型,縱坐標(biāo) 為整數(shù)型)
藍(lán)牙1.發(fā)送數(shù)據(jù)(文本到字節(jié)("@load1","GBK"))
結(jié)束事件
事件按鈕8.被單擊()

判斷模式
      分支 0
         按鈕8.標(biāo)題="藍(lán)牙模式"
         藍(lán)牙1.發(fā)送數(shù)據(jù)(文本到字節(jié)("@mosh1","GBK"))
         模式=1
      分支 1
         按鈕8.標(biāo)題="超聲波模式"
         藍(lán)牙1.發(fā)送數(shù)據(jù)(文本到字節(jié)("@mosh0","GBK"))
         模式=0
結(jié)束判斷
結(jié)束事件

事件速度調(diào)節(jié).位置被改變(位置為整數(shù)型)
如果位置>9 且位置<100 則
藍(lán)牙1.發(fā)送數(shù)據(jù)(文本到字節(jié)("@spe"&整數(shù)到文本(位置),"GBK"))
結(jié)束如果
結(jié)束事件
事件藍(lán)牙1.收到數(shù)據(jù)(數(shù)據(jù) 為字節(jié)型(),設(shè)備名稱為文本型,設(shè)備地址為文本型)
變量收到數(shù)據(jù) 為文本型

分割數(shù)據(jù)=字節(jié)到文本(數(shù)據(jù),"GBK")

豐富文本框1.內(nèi)容 =豐富文本框1.內(nèi)容 & "\r\n " & 字節(jié)到文本(數(shù)據(jù),"GBK")
豐富文本框1.置光標(biāo)位置(取文本長度(豐富文本框1.內(nèi)容))

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

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

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

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

結(jié)束事件

事件標(biāo)簽1.被單擊()

結(jié)束事件

事件標(biāo)簽2.被單擊()

結(jié)束事件

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

全部資料51hei下載地址：

藍(lán)牙小車apk、51單片機(jī)源代碼.rar (1.24 MB, 下載次數(shù): 568)

ID:577423 · 發(fā)表于 2019-7-31 10:08

終于看到中文編程的了，希望看到更多中文編程出現(xiàn)。為初學(xué)者（不懂英文）服務(wù)

ID:156494 · 發(fā)表于 2019-7-31 11:32

越南超級(jí)人類發(fā)表于 2019-7-31 10:08
終于看到中文編程的了，希望看到更多中文編程出現(xiàn)。為初學(xué)者（不懂英文）服務(wù)

確實(shí)，感謝創(chuàng)造中文編程的大神，支持！

ID:5993 · 發(fā)表于 2019-8-5 18:39

終于看到中文編程的了，希望看到更多中文編程出現(xiàn)。為初學(xué)者（不懂英文）服務(wù)

ID:608128 · 發(fā)表于 2019-9-7 11:01

很完整，值得下載學(xué)習(xí)

ID:637146 · 發(fā)表于 2019-12-8 10:59

謝謝共享。。。。。。。。。

ID:191376 · 發(fā)表于 2020-2-29 22:48

學(xué)習(xí)了正感興趣

ID:250820 · 發(fā)表于 2020-3-4 16:10

終于看到中文編程的了，希望看到更多中文編程出現(xiàn)。為初學(xué)者（不懂英文）服務(wù)

ID:527324 · 發(fā)表于 2020-4-4 00:37

好東西，正在到處找，不過也要掙點(diǎn)黑幣啊

ID:709238 · 發(fā)表于 2020-4-9 17:53

值得下載學(xué)習(xí)

ID:364328 · 發(fā)表于 2020-4-13 21:33

請(qǐng)問UP有沒有E4A，我的說是免費(fèi)版，提示那個(gè)，可有償請(qǐng)教您，我也是要實(shí)現(xiàn)PWM調(diào)速，

ID:738502 · 發(fā)表于 2020-5-26 12:22

我的HC05模塊連接手機(jī)藍(lán)牙失敗，請(qǐng)問您知道原因嗎？

ID:104994 · 發(fā)表于 2020-7-2 10:22

非常感謝大佬分享，非常有用！

ID:396065 · 發(fā)表于 2020-9-15 20:54

藍(lán)牙小車apk、51單片機(jī)源代碼.rar (1.24 MB, 下載次數(shù): 230)

ID:65956 · 發(fā)表于 2020-9-18 08:32

看似不錯(cuò)，下載下來學(xué)習(xí)一下，謝謝分享

ID:834441 · 發(fā)表于 2020-10-30 11:03

中文編程厲害了，膜拜

ID:859420 · 發(fā)表于 2020-12-13 11:41

gaojiaxin123 發(fā)表于 2020-5-26 12:22
我的HC05模塊連接手機(jī)藍(lán)牙失敗，請(qǐng)問您知道原因嗎？

請(qǐng)問您連接不上藍(lán)牙模塊問題解決了嗎

ID:156494 · 發(fā)表于 2021-3-29 22:33

qwthh 發(fā)表于 2020-4-13 21:33
請(qǐng)問UP有沒有E4A，我的說是免費(fèi)版，提示那個(gè)，可有償請(qǐng)教您，我也是要實(shí)現(xiàn)PWM調(diào)速，

E4A可以免費(fèi)使用，但是功能和服務(wù)肯定沒有購買版權(quán)的好

ID:156494 · 發(fā)表于 2021-3-29 22:36

gaojiaxin123 發(fā)表于 2020-5-26 12:22
我的HC05模塊連接手機(jī)藍(lán)牙失敗，請(qǐng)問您知道原因嗎？

用手機(jī)鏈接藍(lán)牙模塊，你的藍(lán)牙模塊先和手機(jī)進(jìn)行配對(duì)好才能連，你要知道藍(lán)牙的初始密碼

ID:156494 · 發(fā)表于 2021-3-29 22:37

DK.mo 發(fā)表于 2020-12-13 11:41
請(qǐng)問您連接不上藍(lán)牙模塊問題解決了嗎

你也鏈接不上嗎

ID:405261 · 發(fā)表于 2021-4-20 13:18

APP寫的非常好

ID:581038 · 發(fā)表于 2022-2-18 10:12

這東西好，有學(xué)習(xí)價(jià)值，某一個(gè)寶上好像要花錢買的。

ID:1003226 · 發(fā)表于 2022-2-22 13:26

很完整，值得下載學(xué)習(xí)

ID:258676 · 發(fā)表于 2022-3-11 09:50

你好能不能用這個(gè)藍(lán)牙

ID:577622 · 發(fā)表于 2022-3-25 10:29

這個(gè)中文編程牛啊。

ID:1115148 · 發(fā)表于 2024-4-2 15:04

終于看到中文編程的了，希望看到更多中文編程出現(xiàn)，厲害了

ID:816542 · 發(fā)表于 2024-6-5 10:07

你好能不能用這個(gè)藍(lán)牙

帳號(hào)		自動(dòng)登錄	找回密碼
密碼			立即注冊(cè)

可用的E4A藍(lán)牙模塊與手機(jī)通訊APP源代碼及51單片機(jī)程序

評(píng)分