peltier with 2 fans

Dependencies:   mbed TextLCD

Committer:
redplam
Date:
Mon Apr 14 02:15:32 2014 +0000
Revision:
4:5213bee8158e
Parent:
1:3aec489c7366
myproject;

Who changed what in which revision?

UserRevisionLine numberNew contents of line
redplam 1:3aec489c7366 1 #include "mbed.h"
redplam 1:3aec489c7366 2 #include "buzz.h"
redplam 1:3aec489c7366 3 //#include "buzz.cpp"
redplam 1:3aec489c7366 4
redplam 1:3aec489c7366 5
redplam 1:3aec489c7366 6 //#include "TextLCD.h"
redplam 1:3aec489c7366 7 //extern void timer1(void);
redplam 1:3aec489c7366 8 //extern void beep(float freq,int time);
redplam 1:3aec489c7366 9
redplam 1:3aec489c7366 10 BusIn colonne(PTE2,PTE3,PTE4,PTA16,PTC0,PTC7);
redplam 1:3aec489c7366 11 BusOut righe(PTA1,PTA2,PTB10,PTB9,PTB8);
redplam 1:3aec489c7366 12 //TextLCD lcd(PTE5,PTE4,PTE3,PTE2,PTB11,PTB10);
redplam 1:3aec489c7366 13
redplam 1:3aec489c7366 14 char Keypad(void)
redplam 1:3aec489c7366 15 {
redplam 1:3aec489c7366 16 char key = 100;
redplam 1:3aec489c7366 17 // righe.write(31);//11111
redplam 1:3aec489c7366 18 // switch(colonne) {
redplam 1:3aec489c7366 19 // case 31:
redplam 1:3aec489c7366 20 // key = 1;
redplam 1:3aec489c7366 21 // break;//011111
redplam 1:3aec489c7366 22 // case 47:
redplam 1:3aec489c7366 23 // key = 2;
redplam 1:3aec489c7366 24 // break;//101111
redplam 1:3aec489c7366 25 // case 55:
redplam 1:3aec489c7366 26 // key = 3;
redplam 1:3aec489c7366 27 // break;//110111
redplam 1:3aec489c7366 28 // case 59:
redplam 1:3aec489c7366 29 // key = 4;
redplam 1:3aec489c7366 30 // break;//111011
redplam 1:3aec489c7366 31 // case 61:
redplam 1:3aec489c7366 32 // key = 5;
redplam 1:3aec489c7366 33 // break;//111101
redplam 1:3aec489c7366 34 // case 62:
redplam 1:3aec489c7366 35 // key = 6;
redplam 1:3aec489c7366 36 // break;//111110
redplam 1:3aec489c7366 37 // }
redplam 1:3aec489c7366 38 righe.write(30);//11110
redplam 1:3aec489c7366 39 switch(colonne) {
redplam 1:3aec489c7366 40 case 31:
redplam 1:3aec489c7366 41 key = 7;
redplam 1:3aec489c7366 42 beep(0.0002,100);
redplam 1:3aec489c7366 43 break;//011111
redplam 1:3aec489c7366 44 case 47:
redplam 1:3aec489c7366 45 key = 8;
redplam 1:3aec489c7366 46 beep(0.0002,100);
redplam 1:3aec489c7366 47 break;//101111
redplam 1:3aec489c7366 48 case 55:
redplam 1:3aec489c7366 49 key = 9;
redplam 1:3aec489c7366 50 beep(0.0002,100);
redplam 1:3aec489c7366 51 break;//110111
redplam 1:3aec489c7366 52 case 59:
redplam 1:3aec489c7366 53 key = 10;
redplam 1:3aec489c7366 54 beep(0.0002,100);
redplam 1:3aec489c7366 55 break;//111011
redplam 1:3aec489c7366 56 case 61:
redplam 1:3aec489c7366 57 key = 11;
redplam 1:3aec489c7366 58 beep(0.0002,100);
redplam 1:3aec489c7366 59 break;//111101
redplam 1:3aec489c7366 60 case 62:
redplam 1:3aec489c7366 61 key = 12;
redplam 1:3aec489c7366 62 beep(0.0002,100);
redplam 1:3aec489c7366 63 break;//111110
redplam 1:3aec489c7366 64 }
redplam 1:3aec489c7366 65 righe.write(29);
redplam 1:3aec489c7366 66 switch(colonne) {
redplam 1:3aec489c7366 67 case 31:
redplam 1:3aec489c7366 68 key = 13;
redplam 1:3aec489c7366 69 beep(0.0002,100);
redplam 1:3aec489c7366 70 break;//011111
redplam 1:3aec489c7366 71 case 47:
redplam 1:3aec489c7366 72 key = 14;
redplam 1:3aec489c7366 73 beep(0.0002,100);
redplam 1:3aec489c7366 74 break;//101111
redplam 1:3aec489c7366 75 case 55:
redplam 1:3aec489c7366 76 key = 15;
redplam 1:3aec489c7366 77 beep(0.0002,100);
redplam 1:3aec489c7366 78 break;//110111
redplam 1:3aec489c7366 79 case 59:
redplam 1:3aec489c7366 80 key = 16;
redplam 1:3aec489c7366 81 beep(0.0002,100);
redplam 1:3aec489c7366 82 break;//111011
redplam 1:3aec489c7366 83 case 61:
redplam 1:3aec489c7366 84 key = 17;
redplam 1:3aec489c7366 85 beep(0.0002,100);
redplam 1:3aec489c7366 86 break;//111101
redplam 1:3aec489c7366 87 case 62:
redplam 1:3aec489c7366 88 key = 18;
redplam 1:3aec489c7366 89 beep(0.0002,100);
redplam 1:3aec489c7366 90 break;//111110
redplam 1:3aec489c7366 91 }
redplam 1:3aec489c7366 92 righe.write(27);//11011
redplam 1:3aec489c7366 93 switch(colonne) {
redplam 1:3aec489c7366 94 case 31:
redplam 1:3aec489c7366 95 key = 19;
redplam 1:3aec489c7366 96 beep(0.0002,100);
redplam 1:3aec489c7366 97 break;//011111
redplam 1:3aec489c7366 98 case 47:
redplam 1:3aec489c7366 99 key = 20;
redplam 1:3aec489c7366 100 beep(0.0002,100);
redplam 1:3aec489c7366 101 break;//101111
redplam 1:3aec489c7366 102 case 55:
redplam 1:3aec489c7366 103 key = 21;
redplam 1:3aec489c7366 104 beep(0.0002,100);
redplam 1:3aec489c7366 105 break;//110111
redplam 1:3aec489c7366 106 case 59:
redplam 1:3aec489c7366 107 key = 22;
redplam 1:3aec489c7366 108 beep(0.0002,100);
redplam 1:3aec489c7366 109 break;//111011
redplam 1:3aec489c7366 110 case 61:
redplam 1:3aec489c7366 111 key = 23;
redplam 1:3aec489c7366 112 beep(0.0002,100);
redplam 1:3aec489c7366 113 break;//111101
redplam 1:3aec489c7366 114 case 62:
redplam 1:3aec489c7366 115 key = 24;
redplam 1:3aec489c7366 116 beep(0.0002,100);
redplam 1:3aec489c7366 117 break;//111110
redplam 1:3aec489c7366 118 }
redplam 1:3aec489c7366 119 righe.write(23);//10111
redplam 1:3aec489c7366 120 switch(colonne) {
redplam 1:3aec489c7366 121 case 31:
redplam 1:3aec489c7366 122 key = 25;
redplam 1:3aec489c7366 123 beep(0.0002,100);
redplam 1:3aec489c7366 124 break;//011111
redplam 1:3aec489c7366 125 case 47:
redplam 1:3aec489c7366 126 key = 26;
redplam 1:3aec489c7366 127 beep(0.0002,100);
redplam 1:3aec489c7366 128 break;//101111
redplam 1:3aec489c7366 129 case 55:
redplam 1:3aec489c7366 130 key = 27;
redplam 1:3aec489c7366 131 beep(0.0002,100);
redplam 1:3aec489c7366 132 break;//110111
redplam 1:3aec489c7366 133 case 59:
redplam 1:3aec489c7366 134 key = 28;
redplam 1:3aec489c7366 135 beep(0.0002,100);
redplam 1:3aec489c7366 136 break;//111011
redplam 1:3aec489c7366 137 case 61:
redplam 1:3aec489c7366 138 key = 29;
redplam 1:3aec489c7366 139 beep(0.0002,100);
redplam 1:3aec489c7366 140 break;//111101
redplam 1:3aec489c7366 141 case 62:
redplam 1:3aec489c7366 142 key = 30;
redplam 1:3aec489c7366 143 beep(0.0002,100);
redplam 1:3aec489c7366 144 break;//111110
redplam 1:3aec489c7366 145 }
redplam 1:3aec489c7366 146 righe.write(15);//01111
redplam 1:3aec489c7366 147 switch(colonne) {
redplam 1:3aec489c7366 148 case 31:
redplam 1:3aec489c7366 149 key = 31;
redplam 1:3aec489c7366 150 beep(0.0002,100);
redplam 1:3aec489c7366 151 break;//011111
redplam 1:3aec489c7366 152 case 47:
redplam 1:3aec489c7366 153 key = 32;
redplam 1:3aec489c7366 154 beep(0.0002,100);
redplam 1:3aec489c7366 155 break;//101111
redplam 1:3aec489c7366 156 case 55:
redplam 1:3aec489c7366 157
redplam 1:3aec489c7366 158 key = 33;
redplam 1:3aec489c7366 159 beep(0.0002,100);
redplam 1:3aec489c7366 160 break;//110111
redplam 1:3aec489c7366 161 case 59:
redplam 1:3aec489c7366 162 key = 34;
redplam 1:3aec489c7366 163 beep(0.0002,100);
redplam 1:3aec489c7366 164 break;//111011
redplam 1:3aec489c7366 165 case 61:
redplam 1:3aec489c7366 166 key = 35;
redplam 1:3aec489c7366 167 beep(0.0002,100);
redplam 1:3aec489c7366 168 break;//111101
redplam 1:3aec489c7366 169 case 62:
redplam 1:3aec489c7366 170 key = 36;
redplam 1:3aec489c7366 171 beep(0.0002,100);
redplam 1:3aec489c7366 172 break;//111110
redplam 1:3aec489c7366 173 }
redplam 1:3aec489c7366 174 key=key+50;
redplam 1:3aec489c7366 175 return key;
redplam 1:3aec489c7366 176 }
redplam 1:3aec489c7366 177
redplam 1:3aec489c7366 178