|
|
用的e4a，而且用app連上wifi模塊的時(shí)候能看到esp8266閃爍
代碼如下
事件 主窗口.創(chuàng)建完畢()
結(jié)束 事件
事件 按鈕5.被單擊()
客戶1.連接服務(wù)器(編輯框1.內(nèi)容,編輯框2.內(nèi)容,5000)
結(jié)束 事件
事件 按鈕6.被單擊()
客戶1.斷開連接()
按鈕5.可用=真
按鈕6.可用=假
標(biāo)簽7.標(biāo)題="鏈接斷開"
結(jié)束 事件
事件 客戶1.連接完畢(連接結(jié)果 為 邏輯型)
判斷 連接結(jié)果
分支 真
信息框("提示","連接成功","確定")
按鈕5.可用=假
按鈕6.可用=真
標(biāo)簽7.標(biāo)題="鏈接成功"
時(shí)鐘1.可用=真
時(shí)鐘1.時(shí)鐘周期="2000"
分支 假
信息框("提示","連接失敗","確定")
按鈕5.可用=真
按鈕6.可用=假
標(biāo)簽7.標(biāo)題="鏈接斷開"
時(shí)鐘1.可用=假
時(shí)鐘1.時(shí)鐘周期="0"
結(jié)束 判斷
結(jié)束 事件
事件 客戶1.連接斷開()
按鈕5.可用=真
按鈕6.可用=假
標(biāo)簽7.標(biāo)題="鏈接斷開"
時(shí)鐘1.可用=假
時(shí)鐘1.時(shí)鐘周期="0"
信息框("提示","鏈接斷開","確定")
結(jié)束 事件
事件 時(shí)鐘1.周期事件()
如果 標(biāo)簽7.標(biāo)題="鏈接成功" 則
客戶1.發(fā)送數(shù)據(jù)(文本到字節(jié)("ESPCXSJ","GBK"))
結(jié)束 如果
結(jié)束 事件
事件 主窗口.按下某鍵 (鍵代碼 為 整數(shù)型,傳址 屏蔽 為 邏輯型)
變量 結(jié)果 為 整數(shù)型
判斷 鍵代碼
分支 返回鍵
結(jié)果 = 信息框2("提示","確定退出嗎？","確定","取消")
如果 結(jié)果 = 0 則
結(jié)束程序()
結(jié)束 如果
結(jié)束 判斷
結(jié)束 事件
事件 客戶1.收到數(shù)據(jù)(數(shù)據(jù)1 為 字節(jié)型())
編輯框3.內(nèi)容 = 空
編輯框3.內(nèi)容 = 編輯框3.內(nèi)容 &字節(jié)到文本(數(shù)據(jù)1 ,"GBK")'
編輯框3.隱藏光標(biāo)()
結(jié)束 事件
keil發(fā)送代碼
void Send_Uart(uchar value)
{
ES=0;
TI=0;
SBUF=value;
while(TI==0);
TI=0;
ES=1;
TH0=0;
TL0=0;
}
void ESP8266_Set(uchar *puf)
{
while(*puf!='\0')
{
Send_Uart(*puf);
us_delay(5);
puf++;
}
us_delay(5);
Send_Uart('\r');
us_delay(5);
Send_Uart('\n');
}
|
|
QQ好友和群
QQ空間
騰訊微博
騰訊朋友
收藏
淘帖
頂
踩
