Panoramic affiche la température ambiante.

'  Température ambiante avec include

error_french
  label err
  on_error_goto err
 width 0,1000:height 0,600:color 0,160,120,60
 top 0,(screen_y-height(0))/2
 left 0,(screen_x-width(0))/2
dim  temp_cel$
temp_cel$ ="00.00"
label Afficheur,sp_com,sp_fin
gosub Afficheur
gosub sp_com
button 5:top 5,510:left 5,850:caption 5,"F I N"
on_click 5,sp_fin
on_close 0,sp_fin
' ======
end
' ======
#include "Afficheur.bas"
#include "com_serie.bas"
'  =====FIN========
sp_fin:
 timer_off 15:pause 40
 dll_off:pause 100
 terminate:return

' ======Error=======
 err:
message "erreur "+str$(error_number)+" "+error_type$+" error_line  "+str$( error_line)
 terminate :return
 ' =============

 ' Afficheur.bas

' ======
Afficheur:
container 9 :top 9,30:left 9,60: width 9,850:height 9,420:color 9,50,50,50
alpha 11:parent 11,9:top 11,1:left 11,10
caption 11,temp_cel$:font_color 11,0,255,0
font_bold 11:font_italic 11 :font_size 11,242
alpha 42:parent 42,9:top 42,310:left 42,220
caption 42,"Température ambiante":font_color 42,255,0,0
font_size 42,30
progress_bar 50:parent 50,9:top 50,370:left 50,20: width 50,800:height 50,30
min 50,0: max 50,40: position 50,val(temp_cel$)
return
' ==================

'  com_serie.bas

sp_com:
label sp_15,db_15
 dim res%,dat%,donner$,memdonner$,r,rr
timer 15:timer_interval 15,300: timer_on 15
dll_on "C:\DLL_Panoramic\IO_Acces_COM.dll"
rem  suivant configuration
 r= dll_call1("ComUsePort",8)
 rr= dll_call4("ComConfig",115200,8,1,0)
 pause 20
 if r=1 and rr=1
 on_timer 15,sp_15:' Réception
 else
 message "Défaut du port série"
 end_if
 return
' ==========
  sp_15:

 timer_off 15 : pause 2
 db_15:
 res% = dll_call1("ComGetDataIn",adr(dat%)):pause 10
 if res%>0
    donner$=donner$+chr$(dat%):goto db_15
 end_if
 if memdonner$ <> donner$
  temp_cel$=donner$
  caption 11,temp_cel$
  temp_cel$=left$(temp_cel$, 2)
  position 50,val(temp_cel$)

 end_if
 donner$="":timer_on 15:retur

/*
http://www.matbra.com/en/2012/09/23/sensor-de-temperatura-com-arduino-e-lm35-arduino-lm35/
Nom: Matheus Bratfisch
Date de naissance: 08/12/1989
Sexe: Masculin

Capteur_température_Arduino_LM35
Le capteur LM35 est un capteur de température , il sera variable aléatoire 10mV/Celsius . Il broches peut être vu sur l'image (attention , c'est un regard en bas)

LM35 Pins

Donc, pour le connecter à Arduino, vous devez vous connecter VCC pour Arduino 5V , GND à GND Arduino , et l'axe du milieu, vous devez vous connecter à une broche analogique , dans mon cas, j'ai utilisé A0.

Ce projet ne nécessite aucune résistance ou un condensateur entre l'Arduino et le capteur , donc suffit de le connecter . L'Arduino ADC a une précision de 10 bits , alors dans ce 5V / 2 cas ^ 10 = 5V / 1024 , de sorte que 0,0049 est notre facteur . Pour obtenir la température en degrés Celsius , nous obtenons la valeur et calcule comme suit:

Température = (broche * 0,0049 ) * 100

Mais pourquoi multiplier par 100 ? PIN * 0,0049 donnera les volts sur le port , si l'on multiplie par 1000 nous aurons millivolts sur le port , le capteur varie 10mV / C nous avons donc besoin de le diviser par 10 pour obtenir la température . En mathématiques multiplier par 1000 et diviser par 10 est le même que celui en multipliant par 100 . Comprendre ? [Ajouter le 12 /12]

Et pour l'avoir sur Fahrenheit , nous avons besoin de faire une conversion

TemperatureF = ( température * 1.8) + 32 .

Le code Arduino que j'ai utilisé est le suivant:
*/
// pour panoramic
//' n° 201310191640

int analogPin = 0;
int readValue = 0;
float temperature = 0;
float temperatureF = 0;

void setup() {
  Serial.begin(115200);
}

void loop() {
  readValue = analogRead(analogPin);
  //Serial.println(readValue);
  temperature = (readValue * 0.0049);
  temperature = temperature * 100;
 // temperatureF = (temperature * 1.8) + 32;
//  Serial.print("Temperature: ");
  Serial.println(temperature);
//  Serial.println("C ");
 // Serial.print(temperatureF);
 // Serial.println("F");
  delay(2000);
}

HEIGHT 0,180 : WIDTH 0,500 : FONT_NAME 0,"Arial Black" : FONT_SIZE 0,100 : FONT_COLOR 0,0,200,0
DIM a% , in% , txt$ , port%, vitesse%
port%=1 : vitesse%=9600

DLL_ON "D:\ARDUINO UNO\Panoramic\IO_Acces_COM.dll"
a%=DLL_CALL1("ComUsePort",port%)
a%=DLL_CALL4("ComConfig", vitesse%, 8, 1, 0)

WHILE INKEY$=""
  a%=DLL_CALL1("ComGetDataIn",adr(in%))
  IF a%=0
    txt$=LEFT$(LTRIM$(txt$),5)
    PRINT_LOCATE 20,-25 : PRINT txt$
    PRINT_LOCATE 420,-25 : PRINT "°"
    txt$=""
  ELSE
    txt$=txt$+chr$(in%)
  END_IF
END_WHILE

TERMINATE

#include <math.h>

double Thermistor(int RawADC) {
 // Inputs ADC Value from Thermistor and outputs Temperature in Celsius
 //  requires: include <math.h>
 // Utilizes the Steinhart-Hart Thermistor Equation:
 //    Temperature in Kelvin = 1 / {A + B[ln(R)] + C[ln(R)]^3}
 long Resistance;  double Temp;  // Dual-Purpose variable to save space.
 Resistance=((10240000/RawADC) - 10000);  //   Calculation is actually: Resistance = (1024 * BalanceResistor/ADC) - BalanceResistor
 Temp = log(Resistance); // Saving the Log(resistance) so not to calculate it 4 times later. // "Temp" means "Temporary" on this line.
 Temp = 1 / (0.0012954816 + (0.00023539242 * Temp) + (0.00000011285038 * Temp * Temp * Temp));   // Now it means both "Temporary" and "Temperature"
 Temp = Temp - 273.15;  // Convert Kelvin to Celsius                                         // Now it only means "Temperature"

 // BEGIN- Remove these lines for the function not to display anything
  Serial.print("ADC: "); Serial.print(RawADC); Serial.print("/1024");  // Print out RAW ADC Number
  Serial.print(", Volts: "); printDouble(((RawADC*5)/1024.0),3);   // 5 volts is what my USB Port outputs.
  Serial.print(", Resistance: "); Serial.print(Resistance); Serial.print("ohms");
 // END- Remove these lines for the function not to display anything

 // Uncomment this line for the function to return Fahrenheit instead.
 //Temp = (Temp * 9.0)/ 5.0 + 32.0; // Convert to Fahrenheit
 return Temp;  // Return the Temperature
}

void printDouble(double val, byte precision) {
  // prints val with number of decimal places determine by precision
  // precision is a number from 0 to 6 indicating the desired decimal places
  // example: printDouble(3.1415, 2); // prints 3.14 (two decimal places)
  Serial.print (int(val));  //prints the int part
  if( precision > 0) {
    Serial.print("."); // print the decimal point
    unsigned long frac, mult = 1;
    byte padding = precision -1;
    while(precision--) mult *=10;
    if(val >= 0) frac = (val - int(val)) * mult; else frac = (int(val) - val) * mult;
    unsigned long frac1 = frac;
    while(frac1 /= 10) padding--;
    while(padding--) Serial.print("0");
    Serial.print(frac,DEC) ;
  }
}

void setup() {
 Serial.begin(115200);
}

#define ThermistorPIN 0   // Analog Pin 0
double temp;
void loop() {
 temp=Thermistor(analogRead(ThermistorPIN));           // read ADC and convert it to Celsius
 Serial.print(", Celsius: "); printDouble(temp,3);     // display Celsius
 Serial.println("");                                   // End of Line
 delay(100);                                           // Delay a bit... for fun, and to not Serial.print faster than the serial connection can output
}