senddata.c

MSP430 examples or customized

//====================================================================
//  MSP430FE427 Application Program Example
//
//  This file send the data from the ESP430 via the serial communication
//  port
//
//  author Stefan Schauer
//  date   04/29/2003
//  fixed  calculation error within MainPeriod calculation
//
//
//    Version 1.0 first release for Application Report
//    06/04/04
//    Version 1.2
//    04/26/05  Fixed display of sign for cosphi 
//
//====================================================================

/* ***********************************************************
* THIS PROGRAM IS PROVIDED "AS IS". TI MAKES NO WARRANTIES OR
* REPRESENTATIONS, EITHER EXPRESS, IMPLIED OR STATUTORY,
* INCLUDING ANY IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS
* FOR A PARTICULAR PURPOSE, LACK OF VIRUSES, ACCURACY OR
* COMPLETENESS OF RESPONSES, RESULTS AND LACK OF NEGLIGENCE.
* TI DISCLAIMS ANY WARRANTY OF TITLE, QUIET ENJOYMENT, QUIET
* POSSESSION, AND NON-INFRINGEMENT OF ANY THIRD PARTY
* INTELLECTUAL PROPERTY RIGHTS WITH REGARD TO THE PROGRAM OR
* YOUR USE OF THE PROGRAM.
*
* IN NO EVENT SHALL TI BE LIABLE FOR ANY SPECIAL, INCIDENTAL,
* CONSEQUENTIAL OR INDIRECT DAMAGES, HOWEVER CAUSED, ON ANY
* THEORY OF LIABILITY AND WHETHER OR NOT TI HAS BEEN ADVISED
* OF THE POSSIBILITY OF SUCH DAMAGES, ARISING IN ANY WAY OUT
* OF THIS AGREEMENT, THE PROGRAM, OR YOUR USE OF THE PROGRAM.
* EXCLUDED DAMAGES INCLUDE, BUT ARE NOT LIMITED TO, COST OF
* REMOVAL OR REINSTALLATION, COMPUTER TIME, LABOR COSTS, LOSS
* OF GOODWILL, LOSS OF PROFITS, LOSS OF SAVINGS, OR LOSS OF
* USE OR INTERRUPTION OF BUSINESS. IN NO EVENT WILL TI'S
* AGGREGATE LIABILITY UNDER THIS AGREEMENT OR ARISING OUT OF
* YOUR USE OF THE PROGRAM EXCEED FIVE HUNDRED DOLLARS
* (U.S.$500).
*
* Unless otherwise stated, the Program written and copyrighted
* by Texas Instruments is distributed as "freeware".  You may,
* only under TI's copyright in the Program, use and modify the
* Program without any charge or restriction.  You may
* distribute to third parties, provided that you transfer a
* copy of this license to the third party and the third party
* agrees to these terms by its first use of the Program. You
* must reproduce the copyright notice and any other legend of
* ownership on each copy or partial copy, of the Program.
*
* You acknowledge and agree that the Program contains
* copyrighted material, trade secrets and other TI proprietary
* information and is protected by copyright laws,
* international copyright treaties, and trade secret laws, as
* well as other intellectual property laws.  To protect TI's
* rights in the Program, you agree not to decompile, reverse
* engineer, disassemble or otherwise translate any object code
* versions of the Program to a human-readable form.  You agree
* that in no event will you alter, remove or destroy any
* copyright notice included in the Program.  TI reserves all
* rights not specifically granted under this license. Except
* as specifically provided herein, nothing in this agreement
* shall be construed as conferring by implication, estoppel,
* or otherwise, upon you, any license or other right under any
* TI patents, copyrights or trade secrets.
*
* You may not use the Program in non-TI devices.
* ********************************************************* */


#include "device.h"
#include "comms_uart.h"
#include "SendData.h"
#include "fet4xx_rtclcd.h"
#include "emeter.h"
#include "parameter.h"

#include <stdio.h>
#include <math.h>


#ifdef withUARTComm


#define	ldfs	"%ld"

// const and var definition


unsigned int TX_Mode = tx_off;  // Transmit mode


void SendData(void)
{
  static unsigned int value;
  static signed int svalue;
  static unsigned long lvalue;
  static char strbuf[20];

  switch (TX_Mode)
  {
//    static unsigned i =0;
    case tx_off: break;
    case tx_ch1:

            _DINT();
            SendResult((unsigned char*) &wfs1, 2);
            SendString("\r");
            _EINT(); // Enable Interrupts
            break;
    case tx_ch2:
            _DINT();
            SendResult((unsigned char*) &wfs2, 2);
            SendString("\r");
            _EINT(); // Enable Interrupts
            break;
    case tx_ch3:
            _DINT();
            SendResult((unsigned char*) &wfs3, 2);
            SendString("\r");
            _EINT(); // Enable Interrupts
            break;
    case tx_temp:
            SendString("\rTemp: ");
            SendResult((unsigned char*) &temperature, 2);
            SendString("\r");
            break;
    case tx_dump:
            SendChar(0x0C);
            SendString("Active Energy1: ");
            SendResult((unsigned char*) &energy, 4);
            SendChar('\r');

            energy.w[0] = ACTENERGY2_LO;
            energy.w[1] = ACTENERGY2_HI;
            SendString("Active Energy2: ");
            SendResult((unsigned char*) &energy, 4);
            SendChar('\r');

            energy.w[0] = REACTENERGY_LO;
            energy.w[1] = REACTENERGY_HI;
            SendString("Reactive Energy: ");
            SendResult((unsigned char*) &energy, 4);
            SendChar('\r');

            energy.w[0] = APPENERGY_LO;
            energy.w[1] = APPENERGY_HI;
            SendString("Apparent Energy: ");
            SendResult((unsigned char*) &energy, 4);
            SendChar('\r');

            value = V1RMS;
            SendString("V(RMS): ");
            SendResult((unsigned char*) &value, 2);
            SendChar('\r');

            value = IRMS_HI;
            SendString("I(RMS): ");
            SendResult((unsigned char*) &value, 2);
            SendChar('.');
            value = IRMS_LO;
            SendResult((unsigned char*) &value, 2);
            SendChar('\r');

            value = VPEAK;
            SendString("V(Peak): ");
            SendResult((unsigned char*) &value, 2);
            SendChar('\r');

            value = IPEAK;
            SendString("I(Peak): ");
            SendResult((unsigned char*) &value, 2);
            SendChar('\r');

            value = POWERFCT;
            SendString("PF: ");
            SendResult((unsigned char*) &value, 2);
            SendChar('\r');

            value = (unsigned int)((unsigned char)CAPIND);
            SendString("CapInd: ");
            SendResult((unsigned char*) &value, 2);
            SendString("  Energy: ");
            if (negenfg != 0) { SendChar('-'); } else { SendChar('+'); }
            SendChar('\r');

            value = MAINSPERIOD;
            SendString("f: ");
            SendResult((unsigned char*) &value, 2);
            SendChar('\r');

            lvalue = LINECYCLCNT_LO;
            lvalue += (unsigned long)LINECYCLCNT_HI << 16;
            SendString("Cycles: ");
            SendResult((unsigned char*) &lvalue, 4);
            SendChar('\r');

            lvalue = NMBMEAS_LO;
            lvalue += (unsigned long)NMBMEAS_HI << 16;
            SendString("Num of Meas.: ");
            SendResult((unsigned char*) &lvalue, 4);
            SendChar('\r');

            SendChar('\r');
            break;
    case tx_energy:
            lvalue = (unsigned long)((float) energy.l * (s_parameters.EnergyRatio/1000));
            SendString("Active Energy1 (mW): ");
            sprintf(strbuf, ldfs,lvalue);
            SendString(strbuf);
            SendChar('\r');
            break;
    case tx_cal:
            SendResult((unsigned char*) &energy, 4);
            SendChar('\r');
            TX_Mode = tx_off;
            break;

    case tx_values:
            SendChar(0x0C);

            SendString("Time: ");
            SendResult((unsigned char*) &HOUR, 1);
            SendString(":");
            SendResult((unsigned char*) &MIN, 1);
            SendString(":");
            SendResult((unsigned char*) &SEC, 1);
            SendString("    ");
            SendResult((unsigned char*) &DAY, 1);
            SendString(".");
            SendResult((unsigned char*) &MONTH, 1);
            SendString(".");
            SendResult((unsigned char*) &YEAR, 1);
            SendChar('\r');

            lvalue = ((unsigned long) (V1RMS * (s_parameters.VRatio*1000))/1000);
            SendString("V(RMS/mV): ");
            sprintf(strbuf, ldfs,lvalue);
            SendString(strbuf);
            SendChar('\r');

            lvalue = ((unsigned long) (IRMS_HI * (s_parameters.IRatio*1000))/1000);
            SendString("I(RMS/mA): ");
            sprintf(strbuf, ldfs,lvalue);
            SendString(strbuf);
            SendChar('\r');

            lvalue = ((unsigned long) (VPEAK * (s_parameters.VRatio*1000))/1000);
            SendString("V(Peak/mV): ");
            sprintf(strbuf, ldfs,lvalue);
            SendString(strbuf);
            SendChar('\r');

            lvalue = ((unsigned long) (IPEAK * s_parameters.IRatio*1000))/1000;