| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485 |
- -- LuaTools需要PROJECT和VERSION这两个信息
- PROJECT = "air8000_wifi"
- VERSION = "1.0.5"
- --[[
- 本demo演示的功能是:
- 1. 创建AP, 提供wifi设备, 通过4G上网
- 2. 创建以太网, 为局域网内的设备, 通过4G上网
- ]]
- dnsproxy = require("dnsproxy")
- dhcpsrv = require("dhcpsrv")
- httpplus = require("httpplus")
- gpio.setup(140, 1, gpio.PULLUP)
- sys.subscribe("PING_RESULT", function(id, time, dst)
- log.info("ping", id, time, dst);
- end)
- function eth_lan()
- -- sys.wait(3000)
- local result = spi.setup(
- 1,--spi id
- nil,
- 0,--CPHA
- 0,--CPOL
- 8,--数据宽度
- 51200000--,--波特率
- )
- log.info("main", "open spi",result)
- if result ~= 0 then--返回值为0,表示打开成功
- log.info("main", "spi open error",result)
- return
- end
- log.info("netdrv", "初始化以太网")
- netdrv.setup(socket.LWIP_ETH, netdrv.CH390, {spi=1,cs=12,irq=255})
- log.info("netdrv", "等待以太网就绪")
- sys.wait(1000)
- netdrv.ipv4(socket.LWIP_ETH, "192.168.5.1", "255.255.255.0", "0.0.0.0")
- while netdrv.ready(socket.LWIP_ETH) ~= true do
- -- log.info("netdrv", "等待以太网就绪")
- sys.wait(100)
- end
- log.info("netdrv", "以太网就绪")
- log.info("netdrv", "创建dhcp服务器, 供以太网使用")
- dhcpsrv.create({adapter=socket.LWIP_ETH, gw={192,168,5,1}})
- log.info("netdrv", "创建dns代理服务, 供以太网使用")
- dnsproxy.setup(socket.LWIP_ETH, socket.LWIP_GP)
- end
- sys.taskInit(function()
- while airlink.ready() ~= true do
- sys.wait(100)
- end
- wlan.init()
- sys.taskInit(eth_lan)
- sys.wait(3000)
- log.info("socket", "ip",socket.localIP(socket.LWIP_ETH))
-
- while 1 do
- if netdrv.ready(socket.LWIP_GP) then
- log.info("netdrv", "4G作为网关")
- netdrv.napt(socket.LWIP_GP)
- break
- end
- sys.wait(1000)
- end
- -- for i = 0, 2, 1 do
- -- local ip = "192.168.5." .. (i+100)
- -- icmp.ping(socket.LWIP_AP, ip)
- -- sys.waitUntil("PING_RESULT", 3000)
- -- end
- -- sys.wait(1000)
- end)
- -- 用户代码已结束---------------------------------------------
- -- 结尾总是这一句
- sys.run()
- -- sys.run()之后后面不要加任何语句!!!!!
|