Temperature App Development - Code 3 of 3
Code Insert 1
Voltage = 5; % Placeholder for Voltage
TempK = 298; % Place Holder for Temp in Kelvin
switch app.UnitsDropDown.Value %Identifying what to reference
case "Voltage" % When the string is "Voltage"
app.TempLabel.Text = num2str(Voltage,3); % Convert the value to a string and assign to the label. Precision 3
case 'Celsius' % When the string is "Celsius"
TempC = TempK - 273.15; % Convert Kelvin to Celsius
app.TempLabel.Text = num2str(TempC,3); % Convert the value to a string and assign to the label. Precision 3
case 'Fahrenheit' % When the string is "Fahrenheit"
TempF=((TempK -273.15)*1.8)+32; % Convert Kelvin to Fahrenheit
app.TempLabel.Text = num2str(TempF,3); % Convert the value to a string and assign to the label. Precision 3
end
Code Insert 2
app.a = arduino(); % Connects the Arduino
app.TakeReadingA0Button.BackgroundColor = [0.30,0.75,0.93]; % Changes color of button after connection
Code Insert 3
volts = readVoltage(app.a,'A1'); % Get value from the digital pin an store it in digital
R2=10000; % the value of the precision resistor
temp0 = 298.15; % reference temperature (25 C), in Kelvin
res0 = 10000; % resistance at reference temperature, in Ohms
B = 3950; % thermistor B parameter, in Kelvin
current=volts/R2; % calculate the current using Ohm's law
Resistance=(5-volts)/current; % find the resistance of the thermistor
recip_temp = 1/temp0 + log(Resistance/res0)/B; % Calculate the reciprocal of the TempK
TempK = 1./recip_temp; % Calculate Temp in Kelvin
switch app.UnitsDropDown.Value % Identifying what to reference
case "Voltage" % When the string is "Voltage"
app.TempLabel.Text = num2str(volts,3) % Convert the value to a string and assign to the label. Precision 3
case "Celsius" % When the string is "Voltage"
TempC = TempK -273.15 % Convert to Celsius
app.TempLabel.Text = num2str(TempC,3) % Convert the value to a string and assign to the label. Precision 3
case "Fahrenheit" % When the string is "Voltage"
TempF=((TempK -273.15)*1.8)+32; % Convert to Fahrenheit
app.TempLabel.Text = num2str(TempF,3) % Convert the value to a string and assign to the label. Precision 3
end