add:增加tm1637驱动

script/libs/tm1637/package.json

@@ -0,0 +1,9 @@
+{
+    "type" : "lua", // 可以是lua(纯lua), c(纯c), 或者lua-c(混合)
+    "enterpoint" : "tm1637.lua",
+    "compatibility" : {
+        "soc" : true,
+        "air" : true
+    },
+    "dependency" : ["gpio"] // 需要何种硬件或软件接口
+}

script/libs/tm1637/tm1637.lua

@@ -0,0 +1,147 @@
+--[[
+@module tm1637
+@summary tm1637 驱动
+@version 1.0
+@date    2022.04.06
+@author  Dozingfiretruck
+@usage
+--注意:因使用了sys.wait()所有api需要在协程中使用
+-- 用法实例
+local tm1637 = require "tm1637"
+sys.taskInit(function()
+    tm1637.init(1,4)
+    tm1637.singleShow(0,2)
+    tm1637.singleShow(1,1,true)
+    tm1637.singleShow(2,3)
+    tm1637.singleShow(3,6)
+    while 1 do
+        sys.wait(1000)
+    end
+end)
+]]
+local tm1637 = {}
+
+local sys = require "sys"
+
+local TM1637_SCL
+local TM1637_SDA
+
+local function i2c_init(scl,sda)
+    TM1637_SCL = gpio.setup(scl, 0, gpio.PULLUP)
+    TM1637_SDA = gpio.setup(sda, 0, gpio.PULLUP)
+end
+
+local function i2c_strat()
+    TM1637_SDA(1)
+    TM1637_SCL(1)
+    TM1637_SDA(0)
+    TM1637_SCL(0)
+    -- sys.wait(10)
+end
+local function i2c_send(data)
+    for i = 0, 7, 1 do
+        TM1637_SCL(0)
+        local mbit = bit.isset(data, i) and 1 or 0
+        TM1637_SDA(mbit)
+        TM1637_SCL(1)
+    end
+    TM1637_SCL(0)
+    TM1637_SDA(1)
+    TM1637_SCL(1)
+    -- mack = TM1637_SDA()
+    -- if mack == 0 then TM1637_SDA(0) end
+    TM1637_SDA(0)
+    TM1637_SCL(0)
+
+end
+local function i2c_stop()
+    TM1637_SCL(0)
+    TM1637_SDA(0)
+    TM1637_SCL(1)
+    TM1637_SDA(1)
+end
+
+local function i2c_recv(num)
+    local revData = i2c.recv(i2cid, i2cslaveaddr, num)
+    return revData
+end
+
+--[[ 
+      0
+     ---
+  5 |   | 1   *
+     -6-      7 (on 2nd segment)
+  4 |   | 2   *
+     ---
+      3
+76543210
+ ]]
+
+      --[[   0   1    2    3    4    5    6    7    8    9    A    b    C    d    E    F    G     H    I   J    K     L    M    n    O    P    q    r    S    t    U    v    W    X    y   Z          -   * ]]
+hextable = {0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f,0x77,0x7c,0x39,0x5e,0x79,0x71,0x3d,0x76,0x06,0x1e,0x76,0x38,0x55,0x54,0x3f,0x73,0x67,0x50,0x6d,0x78,0x3e,0x1c,0x2a,0x76,0x6e,0x5b,0x00,0x40,0x63};
+
+
+--[[
+TM1637显示清空
+@api tm1637.clear()
+@usage
+tm1637.clear()
+]]
+function tm1637.clear()
+    i2c_strat()
+    i2c_send(0x40) -- 自加模式
+    i2c_stop()
+    i2c_strat()
+    i2c_send(0xc0)
+    for i = 1, 4 do i2c_send(0x00) end
+    i2c_stop()
+end
+
+--[[
+TM1637显示
+@api tm1637.singleShow(com,date,comma)
+@number com com端口号
+@number date 显示数字,0-9即显示0-9,10会显示a以此类推
+@bool   comma 是否带逗号或冒号
+@usage
+tm1637.singleShow(0,2)
+tm1637.singleShow(1,1,true)
+tm1637.singleShow(2,3)
+tm1637.singleShow(3,6)
+]]
+function tm1637.singleShow(com,date,comma)
+    if com then
+        i2c_strat()
+        i2c_send(0x44) -- 地址模式
+        i2c_stop()
+        i2c_strat()
+        i2c_send(0xc0+com)
+        if comma then
+            i2c_send(bit.bor(hextable[date+1],0x80))
+        else
+            i2c_send(hextable[date+1])
+        end
+        i2c_stop()
+    end
+end
+
+--[[
+TM1637初始化
+@api tm1637.init(scl,sda)
+@number scl i2c_scl
+@number sda i2c_sda
+@return bool   成功返回true
+@usage
+tm1637.init(1,4)
+]]
+function tm1637.init(scl,sda)
+    i2c_init(scl,sda)
+    sys.wait(200)
+    tm1637.clear()
+    i2c_strat()
+    i2c_send(0x8f)
+    i2c_stop()
+    return true
+end
+
+return tm1637