 |
:: استاذ و مشرف قسم الالكترونيات ::
تاريخ التسجيل: May 2007
المشاركات: 6,894
|
|
نشاط [ F.Abdelaziz ]
قوة السمعة:333
|
|
13-03-2012, 05:17 PM
المشاركة 5
|
|
كود:
/* This project measures the temperature with a RTD PT100 and
* then displays on a LCD
Eng.F.Abdelaziz
http://www.eeecb.com/vb/index.php
*/
// LCD module connections
sbit LCD_RS at RC0_bit;
sbit LCD_EN at RC1_bit;
sbit LCD_D4 at RC4_bit;
sbit LCD_D5 at RC5_bit;
sbit LCD_D6 at RC6_bit;
sbit LCD_D7 at RC7_bit;
sbit LCD_RS_Direction at TRISC0_bit;
sbit LCD_EN_Direction at TRISC1_bit;
sbit LCD_D4_Direction at TRISC4_bit;
sbit LCD_D5_Direction at TRISC5_bit;
sbit LCD_D6_Direction at TRISC6_bit;
sbit LCD_D7_Direction at TRISC7_bit;
// End LCD module connections
float rtdv,rtdr,temp,y; // Floating-point Types
int msd, isd;
char temperature [6] ;
void main()
{
/* Initialize the microcontroller */
TRISA=0xFF; //configure PORTA as Input direction
TRISB=0; //configure PORTB as Output direction
TRISC=0; //configure PORTD as Output direction
PORTA=0; //Clear
PORTB=0;
PORTC=0;
//===============================================
Lcd_Init(); // Initialize LCD
Lcd_Cmd(_LCD_CLEAR); // CLEAR display
Lcd_Cmd(_LCD_CURSOR_OFF); // Cursor off
Lcd_Out(1,1,"RTD Pt100 TEMP.");
while(1) {
rtdv = ADC_Read(0);// Get RTD voltage 10-bit result
rtdv = rtdv *5 /1024 ; //Scale RTD voltage in Volts
rtdv = rtdv/5; //for op amp gain
/* Calculate RTD resistance rtdr */
rtdr = rtdv*1000.0/(5.0-rtdv);
/* Calculate temperature temp */
y = 0.15274- (rtdr-100.0)*0.0002310;
if(y>= 0)y = sqrt(y) ;
temp = (y-0.39083)/(-0.0001155) ;
ByteToStr(temp,temperature); // Change to string
Lcd_Out(2,6,temperature); // Display
Lcd_Chr(2, 9, 223);// Add degree character
Lcd_Chr(2, 10, 'C');// Add letter "c"
delay_ms(1000);
//==============
}
}
|
. وخواصه :
