18-GPRS(Air202)拨打电话

https://www.cnblogs.com/yangfengwu/p/9968883.html

这个直接用官方给的demo就可以


现在说个需求哈,是当初一个人给提出的需求

例如存入的号码

姓名 号码 110086210010... ....

例如存入的号码010501 05代表所有的号码循环拨打5次 01代表延时1小时后重复

GPIO4控制打电话(低电平有效)

开机以后先读取手机卡里面的信息,筛选出来姓名1-99 和对应的号码

取出01对应的次数 5 时间间隔 1小时

读取完成以后如果GPIO4为低电平,先拨打姓名1对应的号码,如果后面还有2 间隔50S就会再拨打2对应的号码,如果还有3,4,5....依次排着拨打

顺序拨打完一遍 次数加1 顺序拨打5次 延时1小时 然后 循环


直接源码

module(...,package.seeall)

require"cc"require"pb"require"sys"require"net"require"pins"require"common"--[[

GPIO4低电平拨打电话

GPIO5,GPIO6,GPIO7信号强度指示

]]

local function print(...)

    _G.print("testCall",...)

end

local ReadTelephoneTable={};

local ReadTelephoneTableCopy={};

local ReadTelephoneCnt=1;

local ReadErr=0;

local LoopCnt=0;

local DelayHour=0;

local CallReadyFlage=0;

local j=1;

local CallMax =0;

local CallCnt =0;

local DelayCallValue =50000;

local InputState =0;

local ReadTelephoneSuccess =0;--是否读取号码完成

InputKey = pio.P0_4;--输入按钮

Led1 = pio.P0_5;--Led1

Led2 = pio.P0_6;--Led2

Led3 = pio.P0_7;--Led3

pio.pin.setdir(pio.OUTPUT,InputKey)

pio.pin.setval(1,InputKey)

pio.pin.setdir(pio.OUTPUT,Led1)

pio.pin.setval(1,Led1)

pio.pin.setdir(pio.OUTPUT,Led2)

pio.pin.setval(1,Led2)

pio.pin.setdir(pio.OUTPUT,Led3)

pio.pin.setval(1,Led3)

function ReadTelephone()

    pb.read(ReadTelephoneCnt, readcb)

end--[[小于70小时,大于35小时使用]]

function Delay35Hour()

    sys.timerStart(CallTelephoneLoop,(DelayHour-35) *60*60*1000)

end--[[小于100小时,大于70小时使用]]

function Delay35HourA()

    sys.timerStart(CallTelephoneLoop,(DelayHour-70) *60*60*1000)

end--[[小于100小时,大于70小时使用]]

function Delay35HourB()

    sys.timerStart(Delay35HourA,35*60*60*1000)

end--[[拨打电话]]

function CallTelephoneLoop()

    ifj<= CallMax and CallMax>=1and DelayHour >=1and LoopCnt>=1 then

        cc.dial(ReadTelephoneTableCopy[j]);

        sys.timerStart(cc.hangUp,30000,ReadTelephoneTableCopy[j])

        print("拨打::"..ReadTelephoneTableCopy[j]);

        j=j+1;

        ifj > CallMax  then--循环了一遍

            j =1;

            CallCnt = CallCnt +1;

            print("循环次数:"..CallCnt);

        end

        ifCallCnt >= LoopCnt  then--循环了设置的次数

            CallCnt =0;

            print("开始延时:"..DelayHour.."小时");

            ifDelayHour <=35  then

                sys.timerStart(CallTelephoneLoop,DelayHour *60*60*1000)

            elseif  DelayHour <=70  then

                sys.timerStart(Delay35Hour,35*60*60*1000)

            elseif  DelayHour <=100  then

                sys.timerStart(Delay35HourB,35*60*60*1000)

            end

        else            print("循环");

            sys.timerStart(CallTelephoneLoop,DelayCallValue)

        end

    end

end--[[读取号码]]

function readcb(result,name,number)

    ifresult ==true  then

        ReadTelephoneCnt = ReadTelephoneCnt +1;

        print(result,name,number);

        print("ReadTelephoneCnt"..ReadTelephoneCnt);

        ifstring.len(name)>0  then

            ReadErr =0;

            ifstring.len(number)>0  then

                ReadErr =0;

                ReadTelephoneTable[name] = number;

            end

        elseifstring.len(number)==0andstring.len(name)==0 then

                print("ReadErr = ReadErr +1");

                ReadErr = ReadErr +1;

                ifReadErr>5  then

                    ReadErr =0;

                    sys.timerStop(ReadTelephone,1);

                    print("timerStop");

                    local i=1;

                    forkey,valueinpairs(ReadTelephoneTable)do                        print(key,value)

                        ifkey =="01" then

                            LoopCnt = tonumber(string.sub(value,1,2))

                            ifLoopCnt>99or LoopCnt<1 then

                                LoopCnt =0;

                            end

                            DelayHour = tonumber(string.sub(value,3,4))

                            ifDelayHour>99or DelayHour<1 then

                                DelayHour =0;

                            end

                            print("DelayHour"..DelayHour) 

                        else                            print("key"..key) 

                            iftonumber(key)~=nil and tonumber(key) <99and tonumber(key)>0  then

                                ReadTelephoneTableCopy[i] = value;

                                i = i +1;

                            end

                        end

                    end

                    CallMax = i -1;

                    ReadTelephoneSuccess  =1;

                end

            end

        end

        ifstring.len(number)>0 then

            ReadErr =0;   

            print("string.len(number)>0 ReadErr = 0");

        end

    else        print(result,name,number);

    end

end

local InputCnt =0;

local cnt =0;

function  InputShowLed()

    ifpio.pin.getval(InputKey) ==0 then

        InputCnt = InputCnt +1;

        ifInputCnt>6and InputState==0 then

            InputCnt =0;

            ifReadTelephoneSuccess ==1  then

                InputState =1;

                j=1;

                CallCnt =0;

                sys.timerStopAll(CallTelephoneLoop)

                sys.timerStart(CallTelephoneLoop,1)

            end

        end

    else        InputCnt =0;

        InputState =0;

        sys.timerStopAll(CallTelephoneLoop)

    end

    cnt = cnt +1;

    ifcnt>100  then

        cnt =0;

        print("信号强度:"..net.getRssi())

        ifnet.getRssi() ==0  then

            pio.pin.setval(0,Led1);--用三个指示灯指示信号的强度

            pio.pin.setval(0,Led2);

            pio.pin.setval(0,Led3);

        elseif  net.getRssi()<10 then

            pio.pin.setval(0,Led1);

            pio.pin.setval(0,Led2);

            pio.pin.setval(1,Led3);

        elseif  net.getRssi()<20 then

            pio.pin.setval(0,Led1);

            pio.pin.setval(1,Led2);

            pio.pin.setval(1,Led3);

        elseif  net.getRssi()>20 then

            pio.pin.setval(1,Led1);

            pio.pin.setval(1,Led2);

            pio.pin.setval(1,Led3);

        end

    end

end--[[可以打电话]]

local function CallReadyMethod()

    CallReadyFlage =1;

    print("*****************************CALL_READY*****************************");

end---对方接听--string num,建立通话的对方号码

local function connected(num)

    print("主动结束通话")

    cc.hangUp(num)

end--结束通话

local function disconnected(para)

    print("disconnected:"..(para or"nil"))

end

sys.timerLoopStart(ReadTelephone,1000,1)

sys.subscribe("CALL_CONNECTED",connected)

sys.subscribe("CALL_READY",CallReadyMethod)

sys.subscribe("CALL_DISCONNECTED",disconnected)

sys.timerLoopStart(InputShowLed,10)

cc.dtmfDetect(true)



其实逻辑处理也挺复杂的





源码打包出售https://item.taobao.com/item.htm?spm=a2126o.11854294.0.0.3e3a4831ODxjIk&id=582359919556

剩余的大家自己去研究哈,也可以按照规定的存储手机卡号码,看看拨打情况

资料源码链接

链接:https://pan.baidu.com/s/1-SRfsKGQ7rZVvFmp1ObHWw密码:p9qs

基础教程源码链接如果失效,请在淘宝介绍中下载,由于链接还是失效,请联系卖家,谢谢

https://item.taobao.com/item.htm?spm=a1z10.1-c-s.w4004-18540610442.6.36a74814ZSaRsu&id=569295486025

©著作权归作者所有,转载或内容合作请联系作者
  • 序言:七十年代末,一起剥皮案震惊了整个滨河市,随后出现的几起案子,更是在滨河造成了极大的恐慌,老刑警刘岩,带你破解...
    沈念sama阅读 218,546评论 6 507
  • 序言:滨河连续发生了三起死亡事件,死亡现场离奇诡异,居然都是意外死亡,警方通过查阅死者的电脑和手机,发现死者居然都...
    沈念sama阅读 93,224评论 3 395
  • 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
    开封第一讲书人阅读 164,911评论 0 354
  • 文/不坏的土叔 我叫张陵,是天一观的道长。 经常有香客问我,道长,这世上最难降的妖魔是什么? 我笑而不...
    开封第一讲书人阅读 58,737评论 1 294
  • 正文 为了忘掉前任,我火速办了婚礼,结果婚礼上,老公的妹妹穿的比我还像新娘。我一直安慰自己,他们只是感情好,可当我...
    茶点故事阅读 67,753评论 6 392
  • 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
    开封第一讲书人阅读 51,598评论 1 305
  • 那天,我揣着相机与录音,去河边找鬼。 笑死,一个胖子当着我的面吹牛,可吹牛的内容都是我干的。 我是一名探鬼主播,决...
    沈念sama阅读 40,338评论 3 418
  • 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
    开封第一讲书人阅读 39,249评论 0 276
  • 序言:老挝万荣一对情侣失踪,失踪者是张志新(化名)和其女友刘颖,没想到半个月后,有当地人在树林里发现了一具尸体,经...
    沈念sama阅读 45,696评论 1 314
  • 正文 独居荒郊野岭守林人离奇死亡,尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 37,888评论 3 336
  • 正文 我和宋清朗相恋三年,在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 40,013评论 1 348
  • 序言:一个原本活蹦乱跳的男人离奇死亡,死状恐怖,灵堂内的尸体忽然破棺而出,到底是诈尸还是另有隐情,我是刑警宁泽,带...
    沈念sama阅读 35,731评论 5 346
  • 正文 年R本政府宣布,位于F岛的核电站,受9级特大地震影响,放射性物质发生泄漏。R本人自食恶果不足惜,却给世界环境...
    茶点故事阅读 41,348评论 3 330
  • 文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹,春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 31,929评论 0 22
  • 文/苍兰香墨 我抬头看了看天上的太阳。三九已至,却和暖如春,着一层夹袄步出监牢的瞬间,已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 33,048评论 1 270
  • 我被黑心中介骗来泰国打工, 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留,地道东北人。 一个月前我还...
    沈念sama阅读 48,203评论 3 370
  • 正文 我出身青楼,却偏偏与公主长得像,于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子,可洞房花烛夜当晚...
    茶点故事阅读 44,960评论 2 355

推荐阅读更多精彩内容