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

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

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

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

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

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

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

結(jié)束事件

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

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

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

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

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

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

藍牙1.停止搜索()

結(jié)束事件

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

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

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

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

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

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

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

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

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

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

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

事件速度調(diào)節(jié).位置被改變(位置為整數(shù)型)
如果位置>9 且位置<100 則
藍牙1.發(fā)送數(shù)據(jù)(文本到字節(jié)("@spe"&整數(shù)到文本(位置),"GBK"))
結(jié)束如果
結(jié)束事件
事件藍牙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.置光標位置(取文本長度(豐富文本框1.內(nèi)容))

   如果尋找文本(分割數(shù)據(jù),"rp",0) >0 則
' 標簽2.標題=取文本中間(分割數(shù)據(jù),2 ,4) &"m/s"
' 結(jié)束如果
' 如果尋找文本(分割數(shù)據(jù),"dt",0) >= 0 則
' 標簽3.標題=取文本中間(分割數(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é)束如果
   '標簽2.標題="速度:"&分割數(shù)據(jù) &"m/s"
' 否則如果尋找文本(分割數(shù)據(jù),"dt",0) >= 0 則
'    分割數(shù)據(jù)= 取文本右邊(分割數(shù)據(jù),3)
' 標簽3.標題="距離:"&分割數(shù)據(jù) &"cm"
結(jié)束如果

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

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

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

結(jié)束事件

事件標簽1.被單擊()

結(jié)束事件

事件標簽2.被單擊()

結(jié)束事件

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

全部資料51hei下載地址：

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

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

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

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

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

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

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

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

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

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

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

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

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

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

作者: 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, 下載次數(shù): 230)

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

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

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

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

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

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

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

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

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

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

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

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

DK.mo 發(fā)表于 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
終于看到中文編程的了，希望看到更多中文編程出現(xiàn)，厲害了

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

你好能不能用這個藍牙

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