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


  • Newbie
  • *
  • Posts: 21
    • View Profile
Re: IFTTT Outside Temperature example - Still not working
« Reply #15 on: September 10, 2016, 06:16:25 pm »
Hi guys

I'm just trying again to see if I can get the temperature to post to my IFTTT account/google drive

It's still not working?

Can someone send me the correct text so I can test.

I have two files running

First is 'Tony3'
Class TempSETUP
    Shared Event checktemp() RaiseEvent Every 30 Seconds
        Dim temp As Float = TempSensor.GetTemp()
        Dim tempstring As String = temp.ToString()
        Lplan.IFTTT("ixPSxhVnzVN2Fw-PZ5gkDdaGxToDLkLTtpMQ7axDQ7R", "Grinder", tempstring, "", "")
    End Event
    Shared Event blinkgreen() RaiseEvent Every 500 milliSeconds
        LedGreen = Not LedGreen
    End Event
End Class   

And the second is 'Temp Sensor'
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(250000, Pin.SCL, Pin.SDA, 0x48)
        // Power up the sensor and give it some time to settle
        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
        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