Rev 2984 Rev 2990
1   1  
2 //Meteorologicka cast 2 //Meteorologicka cast
3 #define VERSION "0.1" 3 #define VERSION "0.1"
4 #define ID "$Id: main.c 2916 2013-04-14 17:42:03Z kaklik $" 4 #define ID "$Id: main.c 2916 2013-04-14 17:42:03Z kaklik $"
5   5  
6 #include <main.h> 6 #include <main.h>
7 #include <math.h> 7 #include <math.h>
8 #include <string.h> 8 #include <string.h>
9   9  
10 #include "SHT25.h" 10 #include "SHT25.h"
11 #include "MPL3115.h" 11 #include "MPL3115.h"
12 #include "HMC5883L.h" 12 #include "HMC5883L.h"
13   13  
14 /*unsigned int16 timer0_overflow_count; 14 /*unsigned int16 timer0_overflow_count;
15 float anemo=0; 15 float anemo=0;
16   16  
17 #int_TIMER1 17 #int_TIMER1
18 void TIMER1_isr(void) 18 void TIMER1_isr(void)
19 { 19 {
20 // 32.768 kHz krystal pro timer1 oscilátor 20 // 32.768 kHz krystal pro timer1 oscilátor
21 anemo = ((timer0_overflow_count * 0xFF) + get_timer0())/(32768.0/0xFFFF); // pocet pulzu za 1s 21 anemo = ((timer0_overflow_count * 0xFF) + get_timer0())/(32768.0/0xFFFF); // pocet pulzu za 1s
22 anemo = anemo / 2; //pocet otacek za sekundu 22 anemo = anemo / 2; //pocet otacek za sekundu
23   23  
24 timer0_overflow_count=0; //nulovani 24 timer0_overflow_count=0; //nulovani
25 set_timer0(0); 25 set_timer0(0);
26 set_timer1(0); 26 set_timer1(0);
27   27  
28 } 28 }
29   29  
30 #int_TIMER0 //pro preteceni èítaèe pùlzù od anemometru (RA4) 30 #int_TIMER0 //pro preteceni èítaèe pùlzù od anemometru (RA4)
31 void TIMER0_isr(void) 31 void TIMER0_isr(void)
32 { 32 {
33 timer0_overflow_count++; 33 timer0_overflow_count++;
34 }*/ 34 }*/
35   35  
36 float wind_speed(void) 36 float wind_speed(void)
37 { 37 {
38 signed int16 Y,Z; 38 signed int16 Y,Z;
39 float b; 39 float b;
40 Y = mag_readY(); 40 Y = mag_readY();
41 Z = mag_readZ(); 41 Z = mag_readZ();
42   42  
43 b = atan2((float)Y,(float)Z); // vypocet azimutu z kartezskych souradnic 43 b = atan2((float)Y,(float)Z); // vypocet azimutu z kartezskych souradnic
44 b = (b/3.141596)*180; // prevod na stupne 44 b = (b/3.141596)*180; // prevod na stupne
45 b += 180; 45 b += 180;
46 return b; 46 return b;
47 } 47 }
48   48  
49   49  
50   50  
51 float wind_direction(void) //vypocet azimutu smeru vetru 51 float wind_direction(void) //vypocet azimutu smeru vetru
52 { 52 {
53 signed int16 X,Y,Z; 53 signed int16 X,Y,Z;
54 float b; 54 float b;
55 X = mag_readX(); 55 X = mag_readX();
56 Y = mag_readY(); 56 Y = mag_readY();
57 57
58   58  
59 b = atan2((float)Y,(float)X); // vypocet azimutu z kartezskych souradnic 59 b = atan2((float)Y,(float)X); // vypocet azimutu z kartezskych souradnic
60 b = (b/3.141596)*180; // prevod na stupne 60 b = (b/3.141596)*180; // prevod na stupne
61 b += 180; 61 b += 180;
62 return b; 62 return b;
63 } 63 }
64   64  
65   65  
66 void welcome(void) // uvodni zprava 66 void welcome(void) // uvodni zprava
67 { 67 {
68 printf("\r\n\r\n# Meteorologicka stanice %s (C) 2013 www.mlab.cz \r\n",VERSION); 68 printf("\r\n\r\n# Meteorologicka stanice %s (C) 2013 www.mlab.cz \r\n",VERSION);
69 printf("\r\n %s \r\n",ID);// Welcome message 69 printf("\r\n %s \r\n",ID);// Welcome message
70 printf("# ver poradi "); 70 printf("# ver poradi ");
71 printf("altimet_t[C] altimet_a[m] altimet_p[Pa] "); 71 printf("altimet_t[C] altimet_a[m] altimet_p[Pa] ");
72 printf("sht_t[C] sht_h[%%] Anemo[m/s]check\r\n\r\n"); 72 printf("sht_t[C] sht_h[%%] Anemo[m/s]check\r\n\r\n");
73 } 73 }
74   74  
75 void main() 75 void main()
76 { 76 {
77 setup_adc_ports(NO_ANALOGS|VSS_VDD); 77 setup_adc_ports(NO_ANALOGS|VSS_VDD);
78 setup_adc(ADC_CLOCK_DIV_2); 78 setup_adc(ADC_CLOCK_DIV_2);
79 setup_spi(SPI_SS_DISABLED); 79 setup_spi(SPI_SS_DISABLED);
80 setup_timer_0(RTCC_EXT_L_TO_H|RTCC_DIV_1); 80 setup_timer_0(RTCC_EXT_L_TO_H|RTCC_DIV_1);
81 setup_timer_1(T1_EXTERNAL|T1_DIV_BY_1|T1_CLK_OUT); 81 setup_timer_1(T1_EXTERNAL|T1_DIV_BY_1|T1_CLK_OUT);
82 setup_timer_2(T2_DISABLED,0,1); 82 setup_timer_2(T2_DISABLED,0,1);
83 setup_ccp1(CCP_OFF); 83 setup_ccp1(CCP_OFF);
84 setup_comparator(NC_NC_NC_NC);// This device COMP currently not supported by the PICWizard 84 setup_comparator(NC_NC_NC_NC);// This device COMP currently not supported by the PICWizard
85   85  
86   86  
87 float altimet_t; //teplota z MPL3115 87 float altimet_t; //teplota z MPL3115
88 float altimet_p; //tlak z MPL3115 88 float altimet_p; //tlak z MPL3115
89 float altimet_a; //vyska z MPL3115 89 float altimet_a; //vyska z MPL3115
90 float sht25_t; //teplota z SHT25 90 float sht25_t; //teplota z SHT25
91 float sht25_h; //relativni vlhkost z SHT25 91 float sht25_h; //relativni vlhkost z SHT25
92 float smer_v; //smer vetru 92 float smer_v; //smer vetru
93 float anemo=0; 93 float anemo=0;
94 94
95 unsigned int8 sht_config; 95 unsigned int8 sht_config;
96   96  
97 //nastaveni SHT25 97 //nastaveni SHT25
98 SHT25_soft_reset(); 98 SHT25_soft_reset();
99 sht_config = SHT25_RH12_T14 | SHT25_HEATER_OFF; //vypnuti topeni v SHT25 99 sht_config = SHT25_RH12_T14 | SHT25_HEATER_OFF; //vypnuti topeni v SHT25
100 SHT25_setup(sht_config); 100 SHT25_setup(sht_config);
101   101  
102 //nastavení pøerušení pro anemometr 102 //nastavení pøerušení pro anemometr
103 /*enable_interrupts(INT_TIMER1); 103 /*enable_interrupts(INT_TIMER1);
104 enable_interrupts(INT_TIMER0); 104 enable_interrupts(INT_TIMER0);
105 enable_interrupts(GLOBAL); 105 enable_interrupts(GLOBAL);
106 // vynulovani promenych pro anemometr 106 // vynulovani promenych pro anemometr
107 set_timer0(0); 107 set_timer0(0);
108 set_timer1(0); 108 set_timer1(0);
109 timer0_overflow_count=0; 109 timer0_overflow_count=0;
110 */ 110 */
111   111  
112 welcome(); 112 welcome();
113 set_mag(); //nastaveni magnetometru pro smer vetru 113 set_mag(); //nastaveni magnetometru pro smer vetru
114   114  
115 while(TRUE) 115 while(TRUE)
116 { 116 {
117 int i=0; 117 unsigned int32 i=0;
118   118  
119 mpl3115_setP(); //nastaveni pro tlak a teplotu 119 mpl3115_setP(); //nastaveni pro tlak a teplotu
120 delay_ms (500); 120 delay_ms (500);
121 altimet_t=mpl3115_T(); 121 altimet_t=mpl3115_T();
122 altimet_p=mpl3115_P(); 122 altimet_p=mpl3115_P();
123 123
124 mpl3115_setA(); //nastaveni pro vysku a teplotu 124 mpl3115_setA(); //nastaveni pro vysku a teplotu
125 delay_ms (500); 125 delay_ms (500);
126 altimet_a = mpl3115_A(); 126 altimet_a = mpl3115_A();
-   127  
-   128 if (i<10000) sht_config = SHT25_RH12_T14 | SHT25_HEATER_OFF; // loop alters on chip heater on and off to check correct function
-   129 else
-   130 {
-   131 sht_config = SHT25_RH12_T14 | SHT25_HEATER_ON;
-   132 if (i > 10050) i = 0;
-   133 }
-   134  
127 135
128 sht25_t = SHT25_get_temp(); //mereni hodnot z SHT25 136 sht25_t = SHT25_get_temp(); //mereni hodnot z SHT25
129 sht25_h = SHT25_get_hum(); 137 sht25_h = SHT25_get_hum();
-   138 SHT25_setup(sht_config);
130 139
131 smer_v = wind_direction(); //vrati azimut aktualniho smeru vetru 140 smer_v = wind_direction(); //vrati azimut aktualniho smeru vetru
132 anemo = wind_speed(); 141 anemo = wind_speed();
133   142  
134 printf(" %6.2f %7.2f %9.2f %6.2f %6.2f %5.2f %6.2f \n\r", altimet_t, altimet_a, altimet_p, sht25_t, sht25_h, smer_v, anemo); 143 printf(" %6.2f %7.2f %9.2f %6.2f %6.2f %X %5.2f %6.2f \n\r", altimet_t, altimet_a, altimet_p, sht25_t, sht25_h, sht_config, smer_v, anemo);
135 144
136 delay_ms(1000); 145 delay_ms(1000);
-   146 i++;
137 } 147 }
138 } 148 }
139   149