用的e4a，而且用app連上wifi模塊的時候能看到esp8266閃爍
代碼如下
事件 主窗口.創建完畢()
結束 事件
事件 按鈕5.被單擊()
客戶1.連接服務器(編輯框1.內容,編輯框2.內容,5000)
結束 事件
事件 按鈕6.被單擊()
客戶1.斷開連接()
按鈕5.可用=真
按鈕6.可用=假
標簽7.標題="鏈接斷開"
結束 事件
事件 客戶1.連接完畢(連接結果 為 邏輯型)
判斷 連接結果
分支 真
信息框("提示","連接成功","確定")
按鈕5.可用=假
按鈕6.可用=真
標簽7.標題="鏈接成功"
時鐘1.可用=真
時鐘1.時鐘周期="2000"
分支 假
信息框("提示","連接失敗","確定")
按鈕5.可用=真
按鈕6.可用=假
標簽7.標題="鏈接斷開"
時鐘1.可用=假
時鐘1.時鐘周期="0"
結束 判斷
結束 事件
事件 客戶1.連接斷開()
按鈕5.可用=真
按鈕6.可用=假
標簽7.標題="鏈接斷開"
時鐘1.可用=假
時鐘1.時鐘周期="0"
信息框("提示","鏈接斷開","確定")
結束 事件
事件 時鐘1.周期事件()
如果 標簽7.標題="鏈接成功" 則
客戶1.發送數據(文本到字節("ESPCXSJ","GBK"))
結束 如果
結束 事件
事件 主窗口.按下某鍵 (鍵代碼 為 整數型,傳址 屏蔽 為 邏輯型)
變量 結果 為 整數型
判斷 鍵代碼
分支 返回鍵
結果 = 信息框2("提示","確定退出嗎？","確定","取消")
如果 結果 = 0 則
結束程序()
結束 如果
結束 判斷
結束 事件
事件 客戶1.收到數據(數據1 為 字節型())
編輯框3.內容 = 空
編輯框3.內容 = 編輯框3.內容 &字節到文本(數據1 ,"GBK")'
編輯框3.隱藏光標()
結束 事件
keil發送代碼
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');
}
|
