用的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');
}
|
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
淘帖
顶
踩
