Author Topic: IFTTT Outside Temperature example - Still not working  (Read 2295 times)

flookdigital

  • Newbie
  • *
  • Posts: 21
    • View Profile
Re: IFTTT Outside Temperature example - Still not working
« on: June 10, 2016, 08:46:57 pm »
Hello Kristofferis - Thank you for taking the time to have a look.

Here is my code, I'm not getting any errors but I can't get it to post to the Google Drive spreadsheet.

First file: Tony3 -

Class TempSETUP
    Shared Event checktemp() RaiseEvent Every 30 Seconds
        Dim temp As Float = TempSensor.GetTemp()
        Dim tempstring As String = temp.ToString()
       
        Lplan.IFTTT("dQoVzrPWk31UKuZDRMXnSW", "Grinder", tempstring, " ",)
       
       
    End Event
   
    Shared Event blinkgreen() RaiseEvent Every 5000 milliSeconds
        LedGreen = Not LedGreen
       
    End Event
End Class


Second File: TempSensor

Class TempSensor
    // Function returns the temperature in degree celcius or
    // Float.NaN if something is wrong
    Shared Function GetTemp() As Float
        // Define the properties of the I2C peripheral and device address
        Dim sensor As I2c
        sensor = I2c.Create(400000, Pin.SCL, Pin.SDA, 0x48)
       
        // Power up the sensor and give it some time to settle
        Device.EnableTempSensor()
        Thread.Sleep(40000) // See page 13 of the datasheet
       
        // Read the sensor (only 2 bytes to read
        Dim res As ListOfByte = sensor.Read(2)
       
        // See Tmp102 documentation how to interpret the data (page 8)
        Dim temp As Float = Float.NaN
        If res <> Nothing Then
            // Shift the partial part to the right nibble
            Dim part As Float = res(1) >> 4
            // Temperature partial is 1/16*n where n is between 0 and 15           
            part = part / 16
            // Sign extend the byte to an integer
            temp = res(0).SignExtend() + part
        End If
       
        // power off
        Device.DisableTempSensor()
        Return temp
    End Function
   
    Shared Function GetDieTemp() As Float
        // Just get the temperature and return
        Return Device.TempDie
    End Function
   
    Shared Function ToFarenheit(celcius As Float) As Float
        Return (celcius * 9) / 5 + 32
    End Function
   
    Shared Function ToCelcius(farenheit As Float) As Float
        Return (farenheit - 32) * 5 / 9
    End Function
   
End Class