发新帖我要提问
123下一页
返回列表
打印
[DemoCode下载]

刚刚做的ESP8266遥控灯，感觉还可以

[复制链接]
5391|57
手机看帖
扫描二维码
随时随地手机跟帖
跳转到指定楼层
楼主
598330983|  楼主 | 2017-3-22 16:45 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
遥控灯, ESP8266, wifi, TI
本帖最后由 598330983 于 2017-3-22 17:43 编辑

版本：0.001
复制
--init.lua

print("set up wifi mode")

wifi.setmode(wifi.STATION)

wifi.sta.config("ssidxxxx","pwdxxxxxx")

wifi.sta.connect()

print("IP unavaiable, Waiting...")

tmr.alarm(1, 1000, 1, function()

 if wifi.sta.getip()~= nil then



     tmr.stop(1)

     print("Config done, IP is "..wifi.sta.getip())

     dofile("kaiguan.lua")

 end



end)


使用特权

评论回复 赏
沙发
598330983|  楼主 | 2017-3-22 16:46 | 只看该作者
这个是初始化文件，配置网络信息，等待完成。。。。还是很不错的，参考了贝壳的初始化代码，做了优化。

使用特权

评论回复 赏
板凳
598330983|  楼主 | 2017-3-22 16:47 | 只看该作者
复制
--kaiguan.lua

LED=3

gpio.mode(LED,gpio.OUTPUT)

svr=net.createServer(net.TCP, 30)



function receiver(sck,data)

   if (data=="ON")

   then

   gpio.write(LED,gpio.LOW)

      sck:send("LED is ON")

   else

   gpio.write(LED,gpio.HIGH)

      sck:send("LED is OFF")

   end

   print("Receive: "..data)





--   sck:close()

end



if svr then

   svr:listen(80,function(conn)

                                                  conn:on("receive",receiver)

                                                  conn:send("Hell world,my LED Light")

                        end)

end


使用特权

评论回复 赏
地板
598330983|  楼主 | 2017-3-22 16:50 | 只看该作者
这个是联网后的执行开关文件，创建服务，进行侦听端口，通过手机的TCP调试软件发指令。
联网成功后会有欢迎信息，Hell world，my LED  Light
然后相应接收事件。。
收到后对数据比对，如果是ON字符串，就打开，并发送给手机那个LED的开关状态。。。

使用特权

评论回复 赏
5楼
598330983|  楼主 | 2017-3-22 16:52 | 只看该作者
LED遥控灯，TCP的.zip (700 Bytes)



后面的版本我随着学习的深入加大复杂度，比如调节亮度。比如链接服务器。。。比如实现自动光照控制和遥控控制的结合。

使用特权

评论回复 赏
6楼
598330983|  楼主 | 2017-3-22 16:55 | 只看该作者

使用特权

评论回复 赏
7楼
598330983|  楼主 | 2017-3-22 16:56 | 只看该作者

使用特权

评论回复 赏
8楼
598330983|  楼主 | 2017-3-22 16:57 | 只看该作者
等再研究研究，就可以用这个小东西挂单片机上玩大型的控制了。

使用特权

评论回复 赏
9楼
598330983|  楼主 | 2017-3-22 17:25 | 只看该作者
下载了好多TCP手机助手，好多带广告，还比较大，经过比选，发现一个好用的，发来

TCP&UDP 测试工具
应用简介：这个工具只能作为CS模式的客户端，输入IP，端口号，发送数据即可。 举个例子： 服务器采用TCP模式，IP： 192.168.1.101， 监听端口：1234 在此应用程序中选择TCP模式 输入 IP：192.168.1.101 端口： 1234 输入想要发送的内容，点发送按钮即可 服务器发送的数据会在接收框里出现。 【基本信息】 作者：车春立 更新时间：2014-12-25 版本：1.0 系统：Android 2.2.x以上 语言：中文


com.example.tcpudptester_1.zip (271.85 KB)





使用特权

评论回复 赏
10楼
598330983|  楼主 | 2017-3-22 17:26 | 只看该作者
另外如果有漂亮的没有广告的版本，欢迎推荐给我啊。。拜托了。

使用特权

评论回复 赏
11楼
说书先生| | 2017-3-22 19:59 | 只看该作者

撸啊编程

使用特权

评论回复 赏
12楼
稳稳の幸福| | 2017-3-22 20:26 | 只看该作者
那单片机只能从串口中获取指令和传递指令了。

使用特权

评论回复 赏
13楼
734774645| | 2017-3-22 21:30 | 只看该作者
下载后认真看了一遍，这是我见过写的最好的TCP控制LED程序。

使用特权

评论回复 赏
14楼
598330983|  楼主 | 2017-3-23 10:05 | 只看该作者
准备自己学学那个安卓开发

使用特权

评论回复 赏
15楼
mintspring| | 2017-3-23 19:10 | 只看该作者
很好用，我试了一下。。

使用特权

评论回复 赏
16楼
zhuotuzi| | 2017-3-24 00:08 | 只看该作者
创建服务，进行侦听端口，通过手机的TCP调试软件发指令

使用特权

评论回复 赏
17楼
598330983|  楼主 | 2017-3-24 08:46 | 只看该作者
接下来做个模式为STATIONAP的，可以直接在手机上设置WIFI信息。

使用特权

评论回复 赏
18楼
643757107| | 2017-3-24 23:41 | 只看该作者
期待楼主上位机全套做齐。

使用特权

评论回复 赏
19楼
mintspring| | 2017-3-29 20:21 | 只看该作者
该APP分为两个窗口设计，参考了官方提供的例程。

主窗口和通信窗口，启动软件后在主窗口设置IP和PORT，点击链接跳转到通信窗口，也可以从通信窗口返回
主窗口代码为：
  • 变量 已切换 为 逻辑型
  • 事件 按钮1.被单击()
  • 已切换 = 假
  • 客户1.连接服务器(编辑框1.内容,编辑框2.内容,5000) '在模拟器中，本地IP为10.0.2.2
  • '如果要在外网连接内网里的服务器,可以使用nat123进行端口映射,例如：客户1.连接服务器("si.nat123.net",1,5000)
  • 'nat123的具体使用方法请参考存放在资源文件里的那张图片
  • '注意：E4A的客户组件目前只能与易语言的服务器组件配合使用,其他的可能无**常连接通讯
  • 保存对象("客户1",客户1) '保存客户组件
  • 保存设置("地址",编辑框1.内容)       
  • 保存设置("端口",编辑框2.内容)
  • 结束 事件
  • 事件 客户1.连接完毕(结果 为 逻辑型)
  • 如果 结果 = 真 则
  • 弹出提示("连接成功")
  • 如果 已切换 = 假 则
  • 切换窗口(创建 通信窗口)
  • 结束 如果
  • 已切换 = 真
  • 否则
  • 信息框("LED Light","连接服务器失败","确定")
  • 结束 如果
  • 结束 事件
  • 事件 主窗口.创建完毕()
  • 保存窗口("主窗口",主窗口)
  • 结束 事件
  • 事件 编辑框1.内容被改变(新内容 为 文本型)
  • 结束 事件
  • 事件 编辑框2.内容被改变(新内容 为 文本型)
  • 结束 事件
  • 事件 按钮2.被单击()
  • 结束程序()       
  • 结束 事件
  • ——————————————————————————————————————————————————
  • 通信窗口

代码为：
  • 变量 客户1 为 客户
  • 事件 通信窗口.创建完毕()
  • 客户1 = 读取对象("客户1") '读取在主窗口中保存的客户组件
  • 结束 事件
  • 事件 客户1.收到数据(数据 为 字节型())
  • 编辑框1.内容 = 编辑框1.内容 & "\n" & "服务器：" & "\n" & 字节到文本(数据,"GBK") '收到服务器发来的字节集数据，转换成文本
  • 编辑框1.置光标位置(取文本长度(编辑框1.内容))
  • 结束 事件
  • 事件 按钮1.被单击()
  • 编辑框1.内容 = 编辑框1.内容 & "\n" & "客户端：" & "\n" & 编辑框2.内容
  • 客户1.发送数据(文本到字节(编辑框2.内容,"GBK")) '向服务器发送数据
  • 结束 事件
  • 事件 按钮3.被单击()
  • 客户1.断开连接() '断开与服务器的连接
  • 结束 事件
  • 事件 按钮2.被单击()
  • 客户1.连接服务器(读取设置("地址"),"80",5000)
  • 结束 事件
  • 事件 客户1.连接断开()
  • 弹出提示("连接已断开")
  • 结束 事件
  • 事件 按钮4.被单击()
  • 切换窗口(读取窗口("主窗口"))
  • 结束 事件
  • 事件 按钮5.被单击()
  • 客户1.发送数据(文本到字节("ON","GBK")) '向服务器发送数据       
  • 结束 事件
  • 事件 按钮6.被单击()
  • 客户1.发送数据(文本到字节("OFF","GBK")) '向服务器发送数据       
  • 结束 事件



                                                                         


使用特权

评论回复 赏
20楼
mintspring| | 2017-3-29 20:22 | 只看该作者

该APP分为两个窗口设计，参考了官方提供的例程。

主窗口和通信窗口，启动软件后在主窗口设置IP和PORT，点击链接跳转到通信窗口，也可以从通信窗口返回

主窗口代码为：

  • 变量 已切换 为 逻辑型
  • 事件 按钮1.被单击()
  •         已切换 = 假
  •         客户1.连接服务器(编辑框1.内容,编辑框2.内容,5000) '在模拟器中，本地IP为10.0.2.2
  •         '如果要在外网连接内网里的服务器,可以使用nat123进行端口映射,例如：客户1.连接服务器("si.nat123.net",1,5000)
  •         'nat123的具体使用方法请参考存放在资源文件里的那张图片
  •         '注意：E4A的客户组件目前只能与易语言的服务器组件配合使用,其他的可能无**常连接通讯
  •         保存对象("客户1",客户1) '保存客户组件
  •         保存设置("地址",编辑框1.内容)        
  •         保存设置("端口",编辑框2.内容)
  • 结束 事件
  • 事件 客户1.连接完毕(结果 为 逻辑型)
  •         如果 结果 = 真 则
  •                 弹出提示("连接成功")
  •                 如果 已切换 = 假 则
  •         
  •                         切换窗口(创建 通信窗口)
  •                 结束 如果
  •                 已切换 = 真
  •         否则
  •                 信息框("LED Light","连接服务器失败","确定")
  •         结束 如果
  • 结束 事件
  • 事件 主窗口.创建完毕()
  •         保存窗口("主窗口",主窗口)
  • 结束 事件
  • 事件 编辑框1.内容被改变(新内容 为 文本型)
  • 结束 事件
  • 事件 编辑框2.内容被改变(新内容 为 文本型)
  • 结束 事件
  • 事件 按钮2.被单击()
  •         结束程序()        
  • 结束 事件
  • ——————————————————————————————————————————————————
  • 通信窗口

代码为：

  • 变量 客户1 为 客户
  • 事件 通信窗口.创建完毕()
  •         客户1 = 读取对象("客户1") '读取在主窗口中保存的客户组件
  • 结束 事件
  • 事件 客户1.收到数据(数据 为 字节型())
  •         编辑框1.内容 = 编辑框1.内容 & "" & "服务器：" & "" & 字节到文本(数据,"GBK") '收到服务器发来的字节集数据，转换成文本
  •         编辑框1.置光标位置(取文本长度(编辑框1.内容))
  • 结束 事件
  • 事件 按钮1.被单击()
  •         编辑框1.内容 = 编辑框1.内容 & "" & "客户端：" & "" & 编辑框2.内容
  •         客户1.发送数据(文本到字节(编辑框2.内容,"GBK")) '向服务器发送数据
  • 结束 事件
  • 事件 按钮3.被单击()
  •         客户1.断开连接() '断开与服务器的连接
  • 结束 事件
  • 事件 按钮2.被单击()
  •         客户1.连接服务器(读取设置("地址"),"80",5000)
  • 结束 事件
  • 事件 客户1.连接断开()
  •         弹出提示("连接已断开")
  • 结束 事件
  • 事件 按钮4.被单击()
  • 切换窗口(读取窗口("主窗口"))        
  • 结束 事件
  • 事件 按钮5.被单击()
  •         客户1.发送数据(文本到字节("ON","GBK")) '向服务器发送数据        
  • 结束 事件
  • 事件 按钮6.被单击()
  •         客户1.发送数据(文本到字节("OFF","GBK")) '向服务器发送数据        
  • 结束 事件


使用特权

评论回复 赏
下一页 »
123下一页
返回列表
发新帖 我要提问
高级模式
B Color Image Link Quote Code 收费 Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

598330983

246

主题

5384

帖子

22

粉丝