//============================================================================
// Library: Soft_PWM_16F.
// Author : Arezki YOUYOU
// Date:16/07/2014

//this library allow you to use the Soft PWM in the device 16Fxx in any PIN.
//the precision increases as the frequency of the microcontroller increases,
//or decreases the frequency of Soft_PWM.

//==============Importante========================//
//this Library use the TMR0, you can't use it.

//============================================================================
// Contact me:
// email: arezkiyouyou*gmail.com
//============================================================================

unsigned long Soft_PWM_clock,Soft_PWM_duty,Soft_PWM_flip_flop=0;
unsigned long Soft_PWM_duty_bis=0;
extern sfr sbit Soft_PWM_PIN;
extern sfr sbit Direction_Soft_PWM_PIN;
void Soft_PWM_Inter();
/********************************************/
void Soft_PWM_Inter(){

      if (TMR0IF_bit){
     TMR0IF_bit = 0;
     Soft_PWM_flip_flop++;
     if(Soft_PWM_flip_flop<=Soft_PWM_duty){
       Soft_PWM_PIN=1;
                        }
       else if(Soft_PWM_flip_flop>Soft_PWM_duty && Soft_PWM_flip_flop<Soft_PWM_clock){
       Soft_PWM_PIN=0;
                                                  }
       else {Soft_PWM_flip_flop=0; if(Soft_PWM_duty>0)Soft_PWM_PIN=1;}
                  }
     
                     }
                
/***********************************************/
unsigned long Soft_PWM_Init(unsigned long frequance_HZ){
unsigned long clk;
Direction_Soft_PWM_PIN=0;
Soft_PWM_PIN=0;
clk = clock_kHz();
clk*=250;
Soft_PWM_clock = clk/frequance_HZ;
if(Soft_PWM_clock<256) return (0);
Soft_PWM_clock=Soft_PWM_clock/256;

T0CS_bit=0;
PSA_bit=1;
GIE_bit  = 1;
TMR0IE_bit= 0;
Soft_PWM_duty=0;
return  Soft_PWM_clock;
                                                       }
/*************************************************/

char Soft_PWM_set_duty(char set_Soft_PWM_duty){
if (set_Soft_PWM_duty>100) return (0xFF);
           Soft_PWM_duty_bis=set_Soft_PWM_duty*Soft_PWM_clock;
           Soft_PWM_duty_bis/=100;
           Soft_PWM_duty=Soft_PWM_duty_bis;
           return Soft_PWM_duty_bis;
                                     }
/****************************************/
void Soft_PWM_Start(){
           Soft_PWM_flip_flop=0;
           TMR0IE_bit=1;
                     }
/****************************************/
void Soft_PWM_Stop(){
           TMR0IE_bit=0;
          Soft_PWM_PIN=0;
                    }
/****************************************/

//SHT11 connections
sbit SDA_ at RC4_bit;                 // Serial data pin
sbit SCL_ at RC3_bit;                 // Serial clock pin

sbit SDA_direction  at TRISC4_bit;        // Serial data direction pin
sbit SCL_direction at TRISC3_bit;        // Serial clock direction pin

char Temperature[] = "000.00";
char Humidity[]    = "000.00";

Read_SHT1X(1);

static void Read_SHT1X(char compensation)
{
//  INTCON = 0;                      // disable all interrupts

  SDA_Direction = 0;
  SCL_Direction = 0;                 // SCL is output


     // measuring temperature
    SOt = Measure(0x03);        // function for measuring (command 0x03 is for temperature)

     // measuring humidity
    SOrh = Measure(0x05);       // function for measuring (command 0x05 is for humidity)

// calculating temperature
// Ta_res = D1 + D2 * SOt
    if(SOt > D1){                     // if temperature is positive
                 Ta_res = (SOt * D2) - D1;        // calculate temperature
                 negative=1;
                }
    else {                            // else (if temperature is negative)
           Ta_res = D1 - (SOt * D2);        // calculate temperature
           negative=-1;
           Temperature[0]='-'; //mark negative
          }

// calculating humidity
// Rh_res = C1 + C2 * SOrh + C3 * SOrh^2
    sth1x_temp = SOrh * SOrh* C3/ 100000  ;            // calculate humidity
    Rh_res = SOrh * C2 / 100 - sth1x_temp - C1;         // calculate humidity
    Rh_true=((T2*SOrh)/1000)+T1;
   if( compensation==1)
                       {
                         Rh_true =(negative*Ta_res/100-25)*Rh_true;
                         Rh_true=Rh_true+Rh_res;        //calc. temperature compensated Humidity
                        }
   else Rh_true= Rh_res;
   
   if( Rh_true>=10000)Rh_true=10000;// 100%
   else if(Rh_true<100)Rh_true=100; //~ 1%
// preparing temperature for LCD
    if(negative==1)Temperature[0] = (Ta_res / 10000) + 48;  // example: Temperature[0] = 12345 / 10000 = 1, 1 + 48 = '1' - ASCII
    Temperature[1] = ((Ta_res % 10000) / 1000) + 48;           // example: Temperature[1] = 12345 % 10000 = 2345, Temperature[6] = 2345 / 1000 = 2, 2 + 48 = '2' - ASCII
    Temperature[2] = ((Ta_res % 1000) / 100) + 48;             // example: Temperature[2] = 12345 % 1000 = 345, Temperature[7] = 345 / 100 = 3, 3 + 48 = '3' - ASCII
    Temperature[4] = ((Ta_res % 100) / 10) + 48;               // example: Temperature[3] = 12345 % 100 = 45, Temperature[9] = 45 / 10 = 4, 4 + 48 = '4' - ASCII
    Temperature[5] = (Ta_res % 10 )+ 48;                    // example: Temperature[4] = 12345 % 10 = 5, 5 + 48 = '5' - ASCII

// preparing humidity for LCD
    Humidity[0] = Rh_true / 10000 + 48;                  // example: Humidity[0] = 12345 / 10000 = 1, 1 + 48 = '1' - ASCII
    Humidity[1] = Rh_true % 10000 / 1000 + 48;           // example: Humidity[1] = 12345 % 10000 = 2345, Humidity[6] = 2345 / 1000 = 2, 2 + 48 = '2' - ASCII
    Humidity[2] = Rh_true % 1000 / 100 + 48;             // example: Humidity[2] = 12345 % 1000 = 345, Humidity[7] = 345 / 100 = 3, 3 + 48 = '3' - ASCII
    Humidity[4] = Rh_true % 100 / 10 + 48;               // example: Humidity[3] = 12345 % 100 = 45, Humidity[9] = 45 / 10 = 4, 4 + 48 = '4' - ASCII
    Humidity[5] = Rh_true % 10 + 48;                    // example: Humidity[4] = 12345 % 10 = 5, 5 + 48 = '5' - ASCII

// delete unnecessary digits (zeros)
    if (Temperature[0] == '0')                             // if Temperature[5] = '0' then
      Temperature[0] = ' ';                                // insert blank character to Temperature[0]
    if (Temperature[0] == ' ' && Temperature[1] == '0')    // if Temperature[5] is blank and Temperature[1] = '0' then
      Temperature[1] = ' ';                                // insert blank character to Temperature[1]

    if (Humidity[0] == '0')                             // if Temperature[0] = '0' then
      Humidity[0] = ' ';                                // insert blank character to Temperature[0]
    if (Humidity[0] == ' ' && Humidity[1] == '0')       // if Temperature[1] is blank and Temperature[1] = '0' then
      Humidity[1] = ' ';                                // insert blank character to Temperature[1]

}