tpt.trimpot.test.sb

// Copyright (c) 2013, Laird
//
// Permission to use, copy, modify, and/or distribute this software for any
// purpose with or without fee is hereby granted, provided that the above
// copyright notice and this permission notice appear in all copies.
//
// THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
// WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
// MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
// SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
// WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
// ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR
// IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
//
// SPDX-License-Identifier:ISC
//
// +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// +++++                                                                      ++
// +++++  When UwTerminal downloads the app it will store it as a filenname   ++
// +++++  which consists of all characters up to the first . and excluding it ++
// +++++                                                                      ++
// +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//
// Simple program that reads the development board trim pot value and
// prints it to the UART
//
// 25/01/2013
//
// Close the uart to reduce current consumption
//
//******************************************************************************

//******************************************************************************
// Definitions
//******************************************************************************

//Define how often to read the adc value in milliseconds
#define pollrate 1000

//******************************************************************************
// Library Import
//******************************************************************************

//******************************************************************************
// Global Variable Declarations
//******************************************************************************

dim rc      //Result code
Dim adc
Dim mv


//******************************************************************************
// Function and Subroutine definitions
//******************************************************************************

//==============================================================================
//==============================================================================
sub pollgpio()               //This subroutine sets up the GPIO and starts the main timer
rc=GpioSetFunc(5,1,2)        //Remove the pull resistor
rc=GpioSetFunc(5,3,0)        //Set as SIO 5 as analog in
TimerStart(0,pollrate,1)     //Starts a repeating timer using the value defined by poll rate
endsub

//==============================================================================
//==============================================================================
sub printvalues()            //This subroutine prints the ADC values every time the timer rolls over
print "adc value is ";adc;"\n"
print "Trim Pot millivolt value is ";mv;"\n"
print "\n"
endsub

//******************************************************************************
// Handler definitions
//******************************************************************************

//==============================================================================
//==============================================================================
function HandlerTimer0()     //This is what happens everytime the timer rolls over
adc=GpioRead(5)              //Get the adc value from SIO 5
mv=(adc*225)/128             //Convert the adc value into millivolts
printvalues()                //Call the subroutine that prints the values
endfunc 1



//******************************************************************************
// Equivalent to main() in C
//******************************************************************************

OnEvent EVTMR0 call HandlerTimer0  //Wait for timer to roll over and  then do everthing in handlertimer0

pollgpio()                         //This is what kicks it all off by calling the pollgpio subroutine

//------------------------------------------------------------------------------
// Wait for a synchronous event.
// An application can have multiple <WaitEvent> statements
//------------------------------------------------------------------------------
waitevent