Rev Author Line No. Line
2742 kaklik 1 #include ".\main.h"
2  
3 #define LED1 PIN_C6 //CHANGE PIN_XX TO YOUR LED PIN NUMBER, EX: PIN_A5
4 #define LED2 PIN_C5 //CHANGE PIN_XX TO YOUR LED PIN NUMBER, EX: PIN_A5
3020 jacho 5 #define LED3 PIN_C4 // pulse detect
2744 kaklik 6 #define LED4 PIN_D3 //CHANGE PIN_XX TO YOUR LED PIN NUMBER
2742 kaklik 7  
3020 jacho 8 #define S1 PIN_C2 // raw up
9 #define S2 PIN_C3 // raw down
10 #define S3 PIN_D0 // fine up
11 #define S4 PIN_D1 // fine down
12 #define S5 PIN_B1 // time setup
13 #define S6 PIN_B2 // treshold setup
2742 kaklik 14  
2744 kaklik 15 #define BEEP PIN_D2 //piezo beeper
16  
17 #define LCD_ENABLE_PIN PIN_E0 ////
18 #define LCD_RS_PIN PIN_E1 ////
19 #define LCD_RW_PIN PIN_E2 ////
20 #define LCD_DATA4 PIN_D4 ////
21 #define LCD_DATA5 PIN_D5 ////
22 #define LCD_DATA6 PIN_D6 ////
23 #define LCD_DATA7 PIN_D7
24 #include <lcd.c>
25  
26  
27 unsigned int32 pulse_count=0;
28 unsigned int16 overflow_count=0;
29 unsigned int16 time_overflow_count=0;
30  
31  
32 #int_RTCC
33 void RTCC_isr(void)
2742 kaklik 34 {
2744 kaklik 35 time_overflow_count++;
36 }
37  
38 #int_TIMER1
39 void TIMER1_isr(void)
40 {
41 overflow_count++;
2742 kaklik 42 output_toggle(LED3);
2744 kaklik 43 output_toggle(BEEP);
2742 kaklik 44 }
45  
2744 kaklik 46 void sound_beep( unsigned int lenght, int16 frequency)
47 {
48 unsigned int i;
49  
50 for(i=0;i<=lenght;i++)
51 {
52 output_toggle(BEEP);
53 delay_us(1/frequency);
54 }
55 }
56  
2742 kaklik 57 void main()
58 {
2744 kaklik 59 unsigned int16 integration_time=60;
60 unsigned int16 time;
61 unsigned int16 last_timer; // promena pro praskani
3020 jacho 62 unsigned int1 button_press,voltage_setup,time_setup; // semafor pro cteni tlacitek
2744 kaklik 63 unsigned int16 measurement_number=0;
2742 kaklik 64  
65 setup_adc_ports(sAN0|VSS_VDD);
66 setup_adc(ADC_CLOCK_DIV_32);
67 setup_spi(SPI_SS_DISABLED);
2744 kaklik 68 setup_timer_0(RTCC_INTERNAL|RTCC_DIV_256);
69 setup_timer_1(T1_EXTERNAL|T1_DIV_BY_1);
70 setup_timer_2(T2_DISABLED,0,1);
2742 kaklik 71 setup_ccp1(CCP_PWM);
72 setup_ccp2(CCP_PWM);
73 setup_oscillator(OSC_8MHZ);
74  
75 set_pwm1_duty(0);
76 set_pwm2_duty(0);
77  
78 output_high(LED1);
79 output_high(LED2);
80 output_high(LED3);
81 output_high(LED4);
2744 kaklik 82 output_low(BEEP);
2742 kaklik 83  
2744 kaklik 84 setup_comparator(CP2_A0_VREF|CP2_OUT_ON_A5); // sets two comparators(A1 and VR and A2 as the output)
85 setup_vref(VREF_HIGH|6); //sets 3.6(vdd *value/32 +vdd/4) if vdd is 5.0V
86 enable_interrupts(INT_COMP); //enables the comparator interrupt
87 enable_interrupts(INT_RTCC);
88 enable_interrupts(INT_TIMER1);
89 enable_interrupts(INT_TIMER2);
2742 kaklik 90 enable_interrupts(GLOBAL);
2744 kaklik 91 lcd_init();
2742 kaklik 92  
2744 kaklik 93 lcd_putc("\fGM counter V1.0 \n 2013 MLAB");
94 printf("Geiger-Muller Counter V1.0 \r\n");
95 printf("(c) 2013 MLAB and UST.cz \r\n");
96 Delay_ms(1000);
2742 kaklik 97  
2744 kaklik 98 lcd_putc("\f");
99 printf("\r\n");
2742 kaklik 100  
2744 kaklik 101 set_timer1(0);
3020 jacho 102  
103 lcd_gotoxy(1,1); // vypsani hodnoty count, abz byla na LCD hned od zapnuti
104 printf(lcd_putc,"Count:%lu ",pulse_count);
105  
2742 kaklik 106 while(true)
107 {
3020 jacho 108 pulse_count = get_timer1() + (0xffff * overflow_count); // compute pulse count
109 time = integration_time + 1 - (time_overflow_count * 0.0327); // compute time interval
2744 kaklik 110  
3020 jacho 111 if(get_timer1() != last_timer) // timer count increment detection
2742 kaklik 112 {
2744 kaklik 113 output_toggle(BEEP);
3020 jacho 114 delay_ms(1);
115 output_toggle(BEEP);
116 output_toggle(LED3);
2744 kaklik 117 last_timer=get_timer1();
3020 jacho 118 lcd_gotoxy(1,1); // prepsani dat na displeje
119 printf(lcd_putc,"Count:%lu ",pulse_count);
2742 kaklik 120 }
2744 kaklik 121  
122 lcd_gotoxy(1,2);
123 printf(lcd_putc,"T:%lu ",time);
124 lcd_gotoxy(9,2);
125 printf(lcd_putc,"I:%lu ", integration_time);
126  
3020 jacho 127 if(time == 0) // po uplynuti mereneho intervalu vypis na seriovku
2742 kaklik 128 {
2744 kaklik 129 set_timer0(0);
130 time_overflow_count=0;
131 sound_beep(1000,700);
132 printf("$GMC1.0 %lu %lu %lu \r\n", measurement_number, integration_time, pulse_count);
133 set_timer1(0);
134 overflow_count=0;
135 measurement_number++;
2742 kaklik 136 }
137  
2744 kaklik 138 if(button_press==false ) // tlacitka se ctou znovu pouze pokud v redchozim cyklu nebyla zmacknuta.
139 {
140 if(!input(S1))
141 {
142 delay_ms(20);
143 if(!input(S1))
144 {
145 button_press=true;
3020 jacho 146 if(time_setup==TRUE)
147 {
148 sound_beep(100,700);
149 if(integration_time < 0xfffa ) integration_time+=5;
150 }
2744 kaklik 151 }
152 }
2742 kaklik 153  
2744 kaklik 154 if(!input(S2))
155 {
156 delay_ms(20);
157 if(!input(S2))
158 {
159 button_press=true;
3020 jacho 160 if(time_setup==TRUE)
161 {
162 sound_beep(100,600);
163 if(integration_time > 0x0005 ) integration_time-=5;
2742 kaklik 164  
3020 jacho 165 set_timer0(0); // vynulovani pocitadel, kdyz uzivatel sahne na tlacitka
166 time_overflow_count=0;
167 set_timer1(0);
168 overflow_count=0;
169 }
2744 kaklik 170 }
171 }
172  
173 if(!input(S3))
174 {
175 delay_ms(20);
176 if(!input(S3))
177 {
178 button_press=true;
3020 jacho 179 if(time_setup==TRUE)
180 {
181 sound_beep(100,500);
182 if(integration_time < 0xffff ) integration_time++;
183 }
2744 kaklik 184 }
185 }
186  
187 if(!input(S4))
188 {
189 delay_ms(20);
190 if(!input(S4))
191 {
192 button_press=true;
3020 jacho 193 if(time_setup==TRUE)
194 {
195 sound_beep(100,400);
196 if(integration_time > 0x0001 ) integration_time--;
2744 kaklik 197  
3020 jacho 198 set_timer0(0); // vynulovani pocitadel, kdyz uzivatel sahne na tlacitka
199 time_overflow_count=0;
200 set_timer1(0);
201 overflow_count=0;
202 }
203 if(time_setup==TRUE)
204 {
2744 kaklik 205 }
206 }
3020 jacho 207  
208 if(!input(S5)) // prepnuti na nastavovani casu
209 {
210 delay_ms(20);
211 if(!input(S5))
212 {
213 button_press=true;
214 sound_beep(100,800);
215 voltage_setup=FALSE;
216 time_setup=TRUE;
217 }
218 }
219  
220 if(!input(S6)) // prepnuti na nastavovani napeti
221 {
222 delay_ms(20);
223 if(!input(S6))
224 {
225 button_press=true;
226 sound_beep(100,800);
227 voltage_setup=TRUE;
228 time_setup=FALSE;
229 }
230 }
2744 kaklik 231 }
232  
3020 jacho 233 if ( input(S1) && input(S2) && input(S3) && input(S4) && input(S5) && input(S6)) // detekce pustenych tlacitek
2744 kaklik 234 {
235 button_press=false;
3020 jacho 236 }
2744 kaklik 237 }
2742 kaklik 238 }