I2C  SSD1306 0.9" LCD


Author Message
oh3gdo
Newbie

Joined: 18/11/2021
Location: Finland
Posts: 35
Posted: 05:53pm 26 Oct 2022      

phil99
You right, I was searching LOG10 MATH(LOG10 x), but it was right LOG(x=
'Pico Pi NTC10k resitor to 3.3V is 10k, NTC has Bcoefficient 4000, using adc0 in pin31

Option explicit
Dim ADCX As float
Dim stainhart As float
Dim Res As float
Dim I As float
SetPin 31,Ain
ADCX= Pin(31)
I=(3.3-ADCX)/10000
RES = ADCX/I
Stainhart = RES/10000
Stainhart=LOG (Stainhart)
Print "Math(log10",  Stainhart
Stainhart =Stainhart/4000
Print "Stainhart/4000", Stainhart
Stainhart = Stainhart + 1/(25+273.15)
Print "Stainhart + 1/(25+273)" ,Stainhart
Stainhart = 1/Stainhart
Print "1/Stainhart",Stainhart
Stainhart =Stainhart - 273.15
Print "Temp=", Stainhart,"C"  
This gives 22.4898C
==
I found also how to upload a PC file to Teraterm
When the Edit is off, write in Teraterm: Xmodem Receive
The look in Teraterm File/Tansfer/Xmodem/Send
Then select file with PC, which should to send the TeraTerm
==
I have to search SSD1306 ( it is 0.9" height) LCD.
Why it works only half?

Pekka