Nedsänkning spis kontrolleras av Arduino (13 / 13 steg)

Steg 13:

/*****************************************************/
/* */
/ * Titel: Imersion spis Controller * /
/ * Version: 1.0 * /
/ * Versionsdatum: 05/01/2012 * /
/ * Författare: Edward A Ranzenbach * /
/ * MCWSM * /
/* */
/ * Beskrivning: * /
/ * Denna skiss körs på den Arduino Uno plattformen * /
/ * en SainSmart 1602 LCD/tangentbord sköld, * /
/ * SainSmart halvledar relä enhet och LM35 * /
/ * temperaturgivare. Den är utformad att kontroll * /
/ * två gemensamma upphettning elementara och en liten * /
/ * Dränkbara pump i en nedsänkning spis. Den * /
/ * användare helt enkelt slår i ett set temperatur använder den * /
/ * tangentbord och contrioller strobes uppvärmning * /
/ * element för att uppnå och bibehålla det inställda vattnet * /
/ * temperatur. */
/* */
/ * FRAMTID: lägga till timer/klocka funktioner * /
/* */
/ * Historia: * /
/* */
/ * 2012-05-01 - Edward A Ranzenbach * /
/ * Ursprungliga kodning * /
/* */
/*****************************************************/
#include < LiquidCrystal.h >
#define VERSION_STRING "1.0"
#define btnRIGHT 0
#define btnUP 1
#define btnDOWN 2
#define btnLEFT 3
#define btnSELECT 4
#define btnNONE 5
#define ELEMENT_1 2 / / Element 1 kontroll port
#define ELEMENT_2 3 / / faktor 2 kontroll port
#define LED_PORT 13
#define THIRTY_SECONDS 30000; 30.000 mikrosekunder
#define KEYBOARD_PORT 0
#define TEMP_PORT 1
#define ökning 1
#define minskning -1
#define NO_CHANGE 0
#define Välj 999
#define CELSIUS 0
#define FARENHEIT 1
#define TEMP_COUNT 10
#define KEY_BOUNCE_DELAY 333
int iTempMode = FARENHEIT; standard till Farenheit...
int iSetTemp = 130; iSetTemp är globalt...
int iKeyPressIn = 0;
float fTemp [TEMP_COUNT]; globala temperaturen utjämning array...
int iCurrentIndex = 0; iCurrentIndex är globala index i temp array...
byte bDegreeSymbol [8] = / / bitmask för ° symbol...
{
B11100,
B10100,
B11100,
B00000,
B00000,
B00000,
B00000,
B00000
};
byte bCheckMarkSymbol [8] = / / bitmask för √ symbol...
{
B00000,
B00000,
B00000,
B00001,
B00010,
B10100,
B01100,
B01000
};
LiquidCrystal lcd (8, 9, 4, 5, 6, 7); initiera bibliotek med numrerar av gränssnittet stiften
void setup()
{
/*****************************************************/
/* */
/ * Modul: setup * /
/ * Version: 1.0 * /
/ * Versionsdatum: 05/01/2012 * /
/ * Författare: Edward A Ranzenbach * /
/ * Beskrivning: * /
/ * Initierar LCD-display och visar splash * /
/ * skärmen. */
/ * Under setup sekvensen, temperaturen * /
/ * utjämning array initieras med läsningar som * /
/ * väl. */
/* */
/ * Historia: * /
/* */
/ * 2012-05-01 - Edward A Ranzenbach * /
/ * Ursprungliga kodning * /
/* */
/*****************************************************/
Sträng strLine1;
Sträng strLine2;
String strElipses = ".";
lcd.createChar (0, bDegreeSymbol); Skapa tecken LCD
lcd.createChar (1, bCheckMarkSymbol);
LCD.BEGIN (16, 2); setup LCD display kolumner, rader...
DisplayLCD ("Uppstart...", "");
för (int iIndex = 0; iIndex < TEMP_COUNT; iIndex ++) / / initiera arrayen temperatur för signal utjämning...
{
fTemp [iIndex] = analogRead(TEMP_PORT);
fTemp [iIndex] = ((fTemp [iIndex] * 3.3) / 1023); 10 Millivolt per grad Celsius
om (iTempMode == FARENHEIT)
{
fTemp [iIndex] = ConvertCelsiusToFarenheit(fTemp[iIndex]); / / konvertera till Farenheit...
}
DisplayLCD ("Uppstart...", strElipses);
strElipses += ".";
Delay(100);
}
pinMode (ELEMENT_1, OUTPUT);
pinMode (ELEMENT_2, OUTPUT);
pinMode (LED_PORT, OUTPUT);
strLine1 = "Nedsänkning spis"; Skapa och Visa startbild
strLine2 = "Version:";
strLine2 += VERSION_STRING;
DisplayLCD (strLine1, strLine2);
Delay(2000);
}
void loop()
{
/*****************************************************/
/* */
/ * Modul: loop * /
/ * Version: 1.0 * /
/ * Versionsdatum: 05/01/2012 * /
/ * Författare: Edward A Ranzenbach * /
/ * Beskrivning: * /
/ * Blir ny SetTemp, om någon. Sedan anropar SetTemp * /
/ * strobe värmeelementen att justera den * /
/ * temp. Det sedan visar temp info, försenar en * /
/ * andra sedan returnerar. Fördröjningen förhindrar den * /
/ * solid-state reläer från att vara kontinuerligt * /
/ * vände på och bort. */
/ * Historia: * /
/* */
/ * 2012-05-01 - Edward A Ranzenbach * /
/ * Ursprungliga kodning * /
/* */
/*****************************************************/
String strLCDLine0 = "";
String strLCDLine1 = "";
iSetTemp = GetSetTemp(iSetTemp); se om användaren vill ändra temp...
SetTemp(iSetTemp); kontroll värmeelement...
DisplayTemps (iSetTemp, GetCurrentTemp(), 'S'); Visa temps...
Delay(1000); inte överväxel SSRs...
}
int GetSetTemp (int iSetTemp)
{
/*****************************************************/
/* */
/ * Modul: GetSetTemp * /
/ * Version: 1.0 * /
/ * Versionsdatum: 05/01/2012 * /
/ * Författare: Edward A Ranzenbach * /
/ * Beskrivning: * /
/ * Läser knappsatsen för att se om justeringar är att vara * /
/ * till aktuell uppsättning temp. Standard är * /
/ * att inga nycklar är att vara deprimerad. Detta returnerar * /
/ * btnNone från ReadKeypad och resulterar i en * /
/ * omedelbar avkastning till anroparen. Annars, den * /
/ * Ställ in temperaturen justeras på rätt sätt och * /
/ * nya justerade temperatur. */
/* */
/ * Denna modul också tillåt förbrukaren till gå in * /
/ * en undermeny där de kan göra saker som att byta * /
/ * driftsläge från Fahrenheit till Celsius. */
/* */
/ * Om användaren har deprimerad någon nyckel göra temp * /
/ * justeringar, de måste sänka knappen Select * /
/ * att göra justeringarna permanent och återvändande * /
/ * till anroparen. */
/ * Historia: * /
/* */
/ * 2012-05-01 - Edward A Ranzenbach * /
/ * Ursprungliga kodning * /
/* */
/*****************************************************/
int iKeyIn;
int iNewSetTemp;
int iTempDelta; ÖKA. MINSKNINGEN, eller Välj...
char cSetTemp [4].
booleska bSelected = false;
char cTempMode = s ';
iNewSetTemp = iSetTemp; börja med nuvarande temp...
iKeyIn = ReadKeypad();
om (iKeyIn! = btnNONE) / / btnNONE = inget att göra, bara tillbaka till den som ringer...
{
göra / / tills bSelected...
{
Switch(iKeyIn)
{
fall btnUP: / / Justera temperaturen upp...
iNewSetTemp + = 1;
cTempMode = 'A', informera användaren justering pågår...
bryta;
fall btnDOWN: / / Justera temperaturen nedåt...
iNewSetTemp-= 1;
cTempMode = 'A', informera användaren justering pågår...
bryta;
fall btnLEFT:
iNewSetTemp = Menu(); Alternativ-menyn...
bSelected = sant; komma ut en gång menyalternativ komplett...
bryta;
fall btnSELECT: / / justeringar komplett...
bSelected = sant;
bryta;
standard: / / ignorera andra nycklar...
bryta;
}
DisplayTemps (iNewSetTemp, GetCurrentTemp(), cTempMode); Visa varje justering som det uppstår...
Delay(KEY_BOUNCE_DELAY); jämna ut viktiga studsa...
iKeyIn = ReadKeypad(); inre Läs loop...
} medan (! bSelected);
}
Return(iNewSetTemp);
}
void SetTemp(int iSetTemp)
{
/*****************************************************/
/* */
/ * Modul: SetTemp * /
/ * Version: 1.0 * /
/ * Versionsdatum: 05/01/2012 * /
/ * Författare: Edward A Ranzenbach * /
/ * Beskrivning: * /
/ * Denna modul jämför parametern iSetTemp * /
/ * Nuvarande temp. Om det finns en större än en * /
/ * grad varians, det visar värmeelementen * /
/ * på eller av vid behov. */
/ * Historia: * /
/* */
/ * 2012-05-01 - Edward A Ranzenbach * /
/ * Ursprungliga kodning * /
/* */
/*****************************************************/
int iCurrentTemp;
iCurrentTemp = GetCurrentTemp(); Kolla aktuell temp...
om (abs (iSetTemp - iCurrentTemp) > = 1) / / om temperaturen varierade efter mer än 1 grad
{
om (iCurrentTemp > iSetTemp) / / om temp för hög, stänga av värmeelement
{
digitalWrite (ELEMENT_1, låg);
digitalWrite (ELEMENT_2, låg);
digitalWrite (LED_PORT, låg);
}
annat
{
digitalWrite (ELEMENT_1, hög); om temp alltför låg, slå på värmeelement
digitalWrite (ELEMENT_2, hög);
digitalWrite (LED_PORT, hög);
}
}
}
int GetCurrentTemp()
{
/*****************************************************/
/* */
/ * Modul: GetCurrentTemp * /
/ * Version: 1.0 * /
/ * Versionsdatum: 05/01/2012 * /
/ * Författare: Edward A Ranzenbach * /
/ * Beskrivning: * /
/ * Denna modul läser aktuella temp från den * /
/ * sensor och lagrar det att signalera jämnar * /
/ * array. Temperaturen från sensorn är i * /
/ * Celsius och vi konvertera till Farenheit som krävs * /
/ * av det aktuella driftsläget. Användaren är sedan * /
/ * returneras ett heltal som representerar den jämnas * /
/ * (dvs. genomsnittet av alla temps i matrisen) * /
/ * temperatur. */
/ * Historia: * /
/* */
/ * 2012-05-01 - Edward A Ranzenbach * /
/ * Ursprungliga kodning * /
/* */
/*****************************************************/
int iReturnTemp = 0;
flyta fCumulativeTemp = 0;
float fADCIn;
om ((iCurrentIndex) == TEMP_COUNT) / / bo inom array gränser...
{
iCurrentIndex = 0;
}
fADCIn = analogRead(TEMP_PORT); får temp signalen från sensorn...
om (iTempMode == CELSIUS) / / göra konvertering Celsius...
{
fTemp [iCurrentIndex] = (((fADCIn * 3.7) / 1024) * 100);
}
annat
{
fTemp [iCurrentIndex] = fADCIn; raka behandlingen är i farenheit...
}
för (int iIndex = 0; iIndex < TEMP_COUNT; iIndex ++) / / summera senaste X avläsningar...
{
fCumulativeTemp += fTemp [iIndex];
}
iReturnTemp = ((int)(fCumulativeTemp / TEMP_COUNT)); återgå jämnas temp...
iCurrentIndex ++; bula index för nästa samtal...
Return(iReturnTemp);
}
void DisplayTemps (int iSetTemp, int iCurrentTemp, char cTempMode)
{
/*****************************************************/
/* */
/ * Modul: DisplayTemps * /
/ * Version: 1.0 * /
/ * Versionsdatum: 05/01/2012 * /
/ * Författare: Edward A Ranzenbach * /
/ * Beskrivning: * /
/ * Denna modul visar två rader av temperaturer * /
/ * på LCD-skärmen. Först är set temp * /
/ * och är märkt baserat på om vi är * /
/ * justera det, eller det är den inställda temperaturen. Den * /
/ * andra raden i displayen alltid aktuellt * /
/ * temperatur. */
/* */
/ * Om denna modul kallas kontinuerligt, den * /
/ * kommer att blinka så anroparen bör fördröjning mellan * /
/ * samtal. */
/ * Historia: * /
/* */
/ * 2012-05-01 - Edward A Ranzenbach * /
/ * Ursprungliga kodning * /
/* */
/*****************************************************/
Sträng strLine1;
Sträng strLine2;
om (cTempMode == "A") / / justera läge...
{
strLine1 = "justera:";
}
annat
{
strLine1 = "Ange:"; Inställda läge...
}
strLine1 += iSetTemp;
strLine2 = sträng ("nuvarande:");
strLine2 += iCurrentTemp;
LCD.Clear();
lcd.setCursor (0, 0);
LCD.Print(strLine1);
LCD.write(byte(0)); Gradsymbolen...
om (iTempMode == FARENHEIT)
{
LCD.Print("F");
}
annat
{
LCD.Print("C");
}
lcd.setCursor (0, 1);
LCD.Print(strLine2);
LCD.write(byte(0));
om (iTempMode == FARENHEIT)
{
LCD.Print("F");
}
annat
{
LCD.Print("C");
}
}
void DisplayLCD (sträng strLine0, sträng strLine1)
{
/*****************************************************/
/* */
/ * Modul: DisplayLCD * /
/ * Version: 1.0 * /
/ * Versionsdatum: 05/01/2012 * /
/ * Författare: Edward A Ranzenbach * /
/ * Beskrivning: * /
/ * Denna modul visar två rader text på LCD * /
/ * visas. */
/ * Om denna modul kallas kontinuerligt, den * /
/ * kommer att blinka så anroparen bör fördröjning mellan * /
/ * samtal. */
/ * Historia: * /
/* */
/ * 2012-05-01 - Edward A Ranzenbach * /
/ * Ursprungliga kodning * /
/* */
/*****************************************************/
LCD.Clear();
om (strLine0.length() > 0)
{
lcd.setCursor (0, 0);
LCD.Print(strLine0);
}
om (strLine1.length() > 0)
{
lcd.setCursor (0, 1);
LCD.Print(strLine1);
}
}
int ReadKeypad()
{
/*****************************************************/
/* */
/ * Modul: ReadKeypad * /
/ * Version: 1.0 * /
/ * Versionsdatum: 05/01/2012 * /
/ * Författare: Edward A Ranzenbach * /
/ * Beskrivning: * /
/ * Läser det SainSmart tangentbordet. Om användaren * /
/ * trycker ned en nyckel, ett värde returneras. Detta värde * /
/ * kan variera från enhet till enhet. Således vi * /
/ * bestämma genom att se om vi är nära * /
/ * Läs värdet. */
/ * Historia: * /
/* */
/ * 2012-05-01 - Edward A Ranzenbach * /
/ * Ursprungliga kodning * /
/* */
/*****************************************************/
int iKeyIn = analogRead(KEYBOARD_PORT);
om (iKeyIn > 1000) / / Detta kommer att vara den mest ofta resultat...
{
återvända btnNONE;
}
annars om (iKeyIn < 50)
{
Delay(KEY_BOUNCE_DELAY); hantera viktiga studsa...
återvända btnRIGHT;
}
annars om (iKeyIn < 195)
{
Delay(KEY_BOUNCE_DELAY); hantera viktiga studsa...
återvända btnUP;
}
annars om (iKeyIn < 380)
{
Delay(KEY_BOUNCE_DELAY); hantera viktiga studsa...
återvända btnDOWN;
}
annars om (iKeyIn < 555)
{
Delay(KEY_BOUNCE_DELAY); hantera viktiga studsa...
återvända btnLEFT;
}
annars om (iKeyIn < 790)
{
Delay(KEY_BOUNCE_DELAY); hantera viktiga studsa...
återvända btnSELECT;
}
annars return btnNONE; om allt annat misslyckas...
}
int Menu()
{
/*****************************************************/
/* */
/ * Modul: menyn * /
/ * Version: 1.0 * /
/ * Versionsdatum: 05/01/2012 * /
/ * Författare: Edward A Ranzenbach * /
/ * Beskrivning: * /
/ * Denna modul ger användaren ett sätt att * /
/ * tillgång till andra funktioner inom den * /
/ * nedsänkning spis. Detta är begränsad för version 1.0 * /
/ * ändra driftsläge mellan Farenheit * /
/ * och Celsius. För framtiden, detta kommer att inbegripa * /
/ * tillgång till klocka funktioner. */
/ * Denna modul returnerar när knappen Select är * /
/ * deprimerad. */
/ * Historia: * /
/* */
/ * 2012-05-01 - Edward A Ranzenbach * /
/ * Ursprungliga kodning * /
/* */
/*****************************************************/
int iKeyIn;
booleska bSelected = false;
int iStartingTempMode = iTempMode;
DisplayLCD ("Celsius", "Farenheit"); börja med att Visa nuvarande inställning...
om (iTempMode == CELSIUS)
{
lcd.setCursor (10, 0);
}
annat
{
lcd.setCursor (10, 1);
}
LCD.write(byte(1)); Visa markeringen för det aktuella alternativet...
göra
{
iKeyIn = ReadKeypad(); får användaren urval...
Switch(iKeyIn)
{
fall btnUP:
DisplayLCD ("Celsius", "Farenheit");
lcd.setCursor (10, 0);
LCD.write(byte(1)); Visa markeringen för det valda alternativet...
iTempMode = CELSIUS;
bryta;
fall btnDOWN:
DisplayLCD ("Celsius", "Farenheit");
lcd.setCursor (10, 1);
LCD.write(byte(1)); Visa markeringen för det valda alternativet...
iTempMode = FARENHEIT;
bryta;
fall btnSELECT: / / detta avslutar menyn och implementerar den begärda åtgärden...
bSelected = sant;
bryta;
standard: / / ignorera andra nycklar...
bryta;
}
Delay(KEY_BOUNCE_DELAY);
} medan (! bSelected);
om (iTempMode! = iStartingTempMode) / / om vi ändrat lägen...
{
om (iTempMode == CELSIUS)
{
iSetTemp = (int) ConvertFarenheitToCelsius((float) iSetTemp); konvertera iSetTemp till Celsius för visning...
}
annat
{
iSetTemp = (int) ConvertCelsiusToFarenheit((float) iSetTemp) ;// konvertera iSetTemp till Farenheit för Visa ändamål...
}
ConvertTempSmoothingArray(iTempMode); konvertera temps i temperaturen utjämning array...
}
Return(iSetTemp);
}
void ConvertTempSmoothingArray(int iNewTempMode)
{
/*****************************************************/
/* */
/ * Modul: ConvertTempSmoothingArray * /
/ * Version: 1.0 * /
/ * Versionsdatum: 05/01/2012 * /
/ * Författare: Edward A Ranzenbach * /
/ * Beskrivning: * /
/ * Denna modul växlar mellan temperaturen * /
/ * utjämning array konvertera temperaturer mellan * /
/ * Fahrenheit och Celsius baserad på den nyligen * /
/ * valda driftsläge. */
/ * Historia: * /
/* */
/ * 2012-05-01 - Edward A Ranzenbach * /
/ * Ursprungliga kodning * /
/* */
/*****************************************************/
int iIndex = 0;
Switch(iNewTempMode)
{
fall FARENHEIT:
för (int iIndex = 0; iIndex < TEMP_COUNT; iIndex ++) / / för varje temp i matrisen utjämning...
{
fTemp [iIndex] = ConvertCelsiusToFarenheit(fTemp[iIndex]); konvertera den till Farenheit...
}
bryta;
fallet CELSIUS:
för (int iIndex = 0; iIndex < TEMP_COUNT; iIndex ++) / / för varje temp i matrisen utjämning...
{
fTemp [iIndex] = ConvertFarenheitToCelsius(fTemp[iIndex]); konvertera den till Celsius...
}
bryta;
standard:
bryta;
}
}
float ConvertCelsiusToFarenheit(float fCelsiusTemp)
{
/*****************************************************/
/* */
/ * Modul: ConvertCelsiusToFarenheit * /
/ * Version: 1.0 * /
/ * Versionsdatum: 05/01/2012 * /
/ * Författare: Edward A Ranzenbach * /
/ * Beskrivning: * /
/ * Den här modulen konverterar en temperatur från Celsius * /
/ * till Farenheit * /
/ * Historia: * /
/* */
/ * 2012-05-01 - Edward A Ranzenbach * /
/ * Ursprungliga kodning * /
/* */
/*****************************************************/
Return ((fCelsiusTemp * 1.8) + 32,0);
}
float ConvertFarenheitToCelsius(float fFarenheitTemp)
{
/*****************************************************/
/* */
/ * Modul: ConvertFarenheitToCelsius * /
/ * Version: 1.0 * /
/ * Versionsdatum: 05/01/2012 * /
/ * Författare: Edward A Ranzenbach * /
/ * Beskrivning: * /
/ * Den här modulen konverterar en temperatur från * /
/ * Fahrenheit till Celsius. */
/ * Historia: * /
/* */
/ * 2012-05-01 - Edward A Ranzenbach * /
/ * Ursprungliga kodning * /
/* */
/*****************************************************/
återgå ((fFarenheitTemp-32.0) *. 555);
}