Marco Haufe / RMFWeb

Small Testprogram to have WebAccess via Webserver to a 433Mhz tranmitter to control remotly some devices from remote, with TFTP, NTP and RMF. This could be a base to develop applications.

Dependencies:   ChaNFSSD TFTPServer RMFWeb

Dependents:   RMFWeb

NetServices/drv/gprsmodule/TelitModule.cpp@1:809b59c7a800, 2014-06-16 (annotated)

Committer:
ED7418
Date:
Mon Jun 16 07:40:08 2014 +0000
Revision:
1:809b59c7a800
Parent:
0:51f1ef89ec7b 
mbed-lib and other libs are a based on a project, published in a Elektor-book "ARM-microkontroller Part II".

Who changed what in which revision?

UserRevisionLine numberNew contents of line
ED7418 0:51f1ef89ec7b 1
ED7418 0:51f1ef89ec7b 2 /*
ED7418 0:51f1ef89ec7b 3 Copyright (c) 2010 Donatien Garnier (donatiengar [at] gmail [dot] com)
ED7418 0:51f1ef89ec7b 4
ED7418 0:51f1ef89ec7b 5 Permission is hereby granted, free of charge, to any person obtaining a copy
ED7418 0:51f1ef89ec7b 6 of this software and associated documentation files (the "Software"), to deal
ED7418 0:51f1ef89ec7b 7 in the Software without restriction, including without limitation the rights
ED7418 0:51f1ef89ec7b 8 to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
ED7418 0:51f1ef89ec7b 9 copies of the Software, and to permit persons to whom the Software is
ED7418 0:51f1ef89ec7b 10 furnished to do so, subject to the following conditions:
ED7418 0:51f1ef89ec7b 11
ED7418 0:51f1ef89ec7b 12 The above copyright notice and this permission notice shall be included in
ED7418 0:51f1ef89ec7b 13 all copies or substantial portions of the Software.
ED7418 0:51f1ef89ec7b 14
ED7418 0:51f1ef89ec7b 15 THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
ED7418 0:51f1ef89ec7b 16 IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
ED7418 0:51f1ef89ec7b 17 FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
ED7418 0:51f1ef89ec7b 18 AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
ED7418 0:51f1ef89ec7b 19 LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
ED7418 0:51f1ef89ec7b 20 OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
ED7418 0:51f1ef89ec7b 21 THE SOFTWARE.
ED7418 0:51f1ef89ec7b 22 */
ED7418 0:51f1ef89ec7b 23
ED7418 0:51f1ef89ec7b 24 #include "TelitModule.h"
ED7418 0:51f1ef89ec7b 25
ED7418 0:51f1ef89ec7b 26 #include "mbed.h"
ED7418 0:51f1ef89ec7b 27
ED7418 0:51f1ef89ec7b 28 //#define __DEBUG
ED7418 0:51f1ef89ec7b 29 #include "dbg/dbg.h"
ED7418 0:51f1ef89ec7b 30
ED7418 0:51f1ef89ec7b 31 #include "netCfg.h"
ED7418 0:51f1ef89ec7b 32 #if NET_GPRS_MODULE
ED7418 0:51f1ef89ec7b 33
ED7418 0:51f1ef89ec7b 34 TelitModule::TelitModule(PinName pwrSetPin, PinName pwrMonPin) : m_pwrSetPin(pwrSetPin), m_pwrMonPin(pwrMonPin)
ED7418 0:51f1ef89ec7b 35 {
ED7418 0:51f1ef89ec7b 36 //m_pwrSetPin.write(0);
ED7418 0:51f1ef89ec7b 37
ED7418 0:51f1ef89ec7b 38 //m_pwrMonPin.mode(PullDown);
ED7418 0:51f1ef89ec7b 39 }
ED7418 0:51f1ef89ec7b 40
ED7418 0:51f1ef89ec7b 41 TelitModule::~TelitModule() {
ED7418 0:51f1ef89ec7b 42
ED7418 0:51f1ef89ec7b 43 }
ED7418 0:51f1ef89ec7b 44
ED7418 0:51f1ef89ec7b 45 bool TelitModule::isOn() //True if on
ED7418 0:51f1ef89ec7b 46 {
ED7418 0:51f1ef89ec7b 47 return m_pwrMonPin.read();
ED7418 0:51f1ef89ec7b 48 }
ED7418 0:51f1ef89ec7b 49
ED7418 0:51f1ef89ec7b 50 bool TelitModule::on() //True if OK
ED7418 0:51f1ef89ec7b 51 {
ED7418 0:51f1ef89ec7b 52 Timer tmr;
ED7418 0:51f1ef89ec7b 53 if(!m_pwrMonPin.read()){
ED7418 0:51f1ef89ec7b 54 //On
ED7418 0:51f1ef89ec7b 55 DBG("Switching On...\n");
ED7418 0:51f1ef89ec7b 56 m_pwrSetPin.write(1);
ED7418 0:51f1ef89ec7b 57 wait(1.);
ED7418 0:51f1ef89ec7b 58 m_pwrSetPin.write(0);
ED7418 0:51f1ef89ec7b 59
ED7418 0:51f1ef89ec7b 60 tmr.start();
ED7418 0:51f1ef89ec7b 61 while(!m_pwrMonPin.read())
ED7418 0:51f1ef89ec7b 62 {
ED7418 0:51f1ef89ec7b 63 wait(.001);
ED7418 0:51f1ef89ec7b 64 if(tmr.read() > 2)
ED7418 0:51f1ef89ec7b 65 {
ED7418 0:51f1ef89ec7b 66 DBG("ERROR - MUST RESET MODULE\n");
ED7418 0:51f1ef89ec7b 67 break;
ED7418 0:51f1ef89ec7b 68 }
ED7418 0:51f1ef89ec7b 69 }
ED7418 0:51f1ef89ec7b 70 tmr.stop();
ED7418 0:51f1ef89ec7b 71 }
ED7418 0:51f1ef89ec7b 72 wait(.1);
ED7418 0:51f1ef89ec7b 73 return m_pwrMonPin.read();
ED7418 0:51f1ef89ec7b 74 }
ED7418 0:51f1ef89ec7b 75
ED7418 0:51f1ef89ec7b 76 bool TelitModule::off() { //True if OK
ED7418 0:51f1ef89ec7b 77 Timer tmr;
ED7418 0:51f1ef89ec7b 78 if(m_pwrMonPin.read()){
ED7418 0:51f1ef89ec7b 79 //Off
ED7418 0:51f1ef89ec7b 80 DBG("Switching Off...\n");
ED7418 0:51f1ef89ec7b 81 m_pwrSetPin.write(1);
ED7418 0:51f1ef89ec7b 82 wait(3.);
ED7418 0:51f1ef89ec7b 83 m_pwrSetPin.write(0);
ED7418 0:51f1ef89ec7b 84 DBG("Waiting....\n");
ED7418 0:51f1ef89ec7b 85 tmr.start();
ED7418 0:51f1ef89ec7b 86 while(m_pwrMonPin.read())
ED7418 0:51f1ef89ec7b 87 {
ED7418 0:51f1ef89ec7b 88 wait(.001);
ED7418 0:51f1ef89ec7b 89 if(tmr.read() > 15)
ED7418 0:51f1ef89ec7b 90 {
ED7418 0:51f1ef89ec7b 91 DBG("ERROR - MUST RESET MODULE\n");
ED7418 0:51f1ef89ec7b 92 break;
ED7418 0:51f1ef89ec7b 93 }
ED7418 0:51f1ef89ec7b 94 }
ED7418 0:51f1ef89ec7b 95 tmr.stop();
ED7418 0:51f1ef89ec7b 96 }
ED7418 0:51f1ef89ec7b 97 return !m_pwrMonPin.read();
ED7418 0:51f1ef89ec7b 98 }
ED7418 0:51f1ef89ec7b 99
ED7418 0:51f1ef89ec7b 100 #endif