Өнеркәсіптік қазандықты автоматтандыру Translated from English to Kazakh
жүктеу/скачать 2,11 Mb.
|
Boiler Automation using microcontroller.en.kk
PH басқару үшін C коды// СКД модулінің қосылымдары sbit LCD_RS RD4_bit кезінде; sbit LCD_EN RD5_bit кезінде; sbit LCD_D4 RD0_bit кезінде; sbit LCD_D5 RD1_bit кезінде; sbit LCD_D6 кезінде RD2_bit; sbit LCD_D7 кезінде RD3_bit; sbit LCD_RS_Direction TRISD4_bit бойынша; sbit LCD_EN_Direction TRISD5_bit бойынша; sbit LCD_D4_Direction TRISD0_bit бойынша; sbit LCD_D5_Direction TRISD1_bit бойынша; sbit LCD_D6_Direction TRISD2_bit бойынша; sbit LCD_D7_Direction TRISD3_bit бойынша; // СКД модулінің қосылымдарын аяқтау char *мәтін, *мәтін, *мәтін, *мәтін, *мәтін, *мәтін, *мәтін; ұзын ұзын; unsigned char ch,chsp; unsigned long inttlongsp,adc_rd,adc_rdsp;// Айнымалыларды жариялау void main() { ADRESL =0x0C;// AN2 және AN3 түйреуіштері аналог ретінде конфигурацияланған ТРИСА= 0xFF;// Барлық A портының түйреуіштері кіріс ретінде конфигурацияланған ADRESH= 0;// Демалыс түйреуіштер сандық ретінде конфигурацияланған TRISB= 0X3F;// B портының RB7 және RB6 істіктері шығыс ретінде конфигурацияланған TRISD= 0;// Барлық D портының түйреуіштері шығыс ретінде конфигурацияланған ADCON1.F4 = 1;// Сенсор кірісі RA3 істікшесіне жеткізіледі. Lcd_Init();// СКД дисплейін баптандыру Lcd_Cmd(_LCD_CURSOR_OFF);// СКД командасы (курсор өшірулі) Lcd_Cmd(_LCD_CLEAR); // СКД пәрмені (таза СКД) text = " Суды беру";// Бірінші хабарламаны анықтаңыз Lcd_Out(1,1,text);// Бірінші жолға бірінші хабарламаны жазыңыз text = "PH контроллері";// Екінші хабарламаны анықтаңыз Lcd_Out(2,1,мәтін); кешігу_мс(10); Lcd_Cmd(_LCD_CLEAR); texta="MOT=RUN"; textb="INJ=ON"; textc="MOT=STP"; textd="INJ=OFF"; texte="Prcs PH төмен SP"; textf=" Prcs PH ҚАЛЫПТЫ";// Бірінші хабарламаны анықтаңыз істеу { adc_rd = ADC_Read(2); // A/D түрлендіру нәтижесі adc_rd tlong = adc_rd*5000 файлына көшірілді; // Нәтижені милливольтке түрлендіру тлонг = тлонг /1023;// 0..1023 -> 0-5000мВ //ch = tlong / 1000; adc_rdsp=ADC_READ(3); tlongsp=adc_rdsp*5000; tlongsp=tlongsp/1023; //chsp=tlongsp/1000;егер(PORTA.F4==1) { PORTB.F6=1; Lcd_out(1,1,мәтін); } басқа { PORTB.F6=0; Lcd_out(1,1,мәтін); } егер(tlong>tlongsp) { PORTB.F7=1; Lcd_out(1,10,мәтін);Lcd_out(2,1,мәтін); } басқа { PORTB.F7=0; Lcd_out(1,10,мәтін);Lcd_out(2,1,textf); } } while(1);// Шексіз цикл } жүктеу/скачать 2,11 Mb. Достарыңызбен бөлісу:
|