facuclop facuclop / Mbed 2 deprecated 02_serial_cheto_facuclop

LCD Hello World Program

Dependencies:   TextLCD mbed

Fork of 04LCD_Hello_Word by Eduvance vanmat

main.cpp@2:fae7972e0801, 2014-08-05 (annotated)

Committer:
facuclop
Date:
Tue Aug 05 23:33:36 2014 +0000
Revision:
2:fae7972e0801
Parent:
1:99f6b4191e94 
serial communication whit digital out for kl46z by facuclop

Who changed what in which revision?

UserRevisionLine numberNew contents of line
facuclop 2:fae7972e0801 1 #include "mbed.h"
facuclop 2:fae7972e0801 2 #include "string.h"
facuclop 2:fae7972e0801 3 //#include "conio.h"
facuclop 2:fae7972e0801 4
facuclop 2:fae7972e0801 5 DigitalOut da0(D0);
facuclop 2:fae7972e0801 6 DigitalOut da1(D1);
facuclop 2:fae7972e0801 7 DigitalOut da2(D2);
facuclop 2:fae7972e0801 8 DigitalOut da3(D3);
facuclop 2:fae7972e0801 9 DigitalOut da4(D4);
facuclop 2:fae7972e0801 10 DigitalOut da5(D5);
facuclop 2:fae7972e0801 11 DigitalOut da6(D6);
facuclop 2:fae7972e0801 12 DigitalOut da7(D7);
facuclop 2:fae7972e0801 13 DigitalOut da8(D8);
facuclop 2:fae7972e0801 14 DigitalOut da9(D9);
facuclop 2:fae7972e0801 15 DigitalOut da10(D10);
facuclop 2:fae7972e0801 16 DigitalOut da11(D11);
facuclop 2:fae7972e0801 17 DigitalOut da12(D12);
facuclop 2:fae7972e0801 18 DigitalOut da13(D13);
facuclop 2:fae7972e0801 19 DigitalOut da14(D14);
facuclop 2:fae7972e0801 20 DigitalOut da15(D15);
facuclop 2:fae7972e0801 21 DigitalOut da16(PTB18);
facuclop 2:fae7972e0801 22 DigitalOut da17(PTB19);
facuclop 2:fae7972e0801 23 DigitalOut da18(PTC0);
facuclop 2:fae7972e0801 24 DigitalOut da19(PTC4);
facuclop 2:fae7972e0801 25 DigitalOut da20(PTC6);
facuclop 2:fae7972e0801 26 DigitalOut da21(PTC7);
facuclop 2:fae7972e0801 27 DigitalOut da22(PTC10);
facuclop 2:fae7972e0801 28 DigitalOut da23(PTC11);
facuclop 2:fae7972e0801 29 DigitalOut da24(PTC13);
facuclop 2:fae7972e0801 30 DigitalOut da25(PTC16);
facuclop 2:fae7972e0801 31 DigitalOut da26(PTA7);
facuclop 2:fae7972e0801 32 DigitalOut da27(PTA6);
facuclop 2:fae7972e0801 33 DigitalOut da28(PTA14);
facuclop 2:fae7972e0801 34 DigitalOut da29(PTA15);
facuclop 2:fae7972e0801 35 DigitalOut da30(PTA16);
facuclop 2:fae7972e0801 36 DigitalOut da31(PTA17);
facuclop 2:fae7972e0801 37 DigitalOut da32(PTB9);
facuclop 2:fae7972e0801 38 DigitalOut da33(PTE30);
facuclop 2:fae7972e0801 39 DigitalOut da34(PTB20);
facuclop 2:fae7972e0801 40 DigitalOut da35(PTE23);
facuclop 2:fae7972e0801 41 DigitalOut da36(PTE22);
facuclop 2:fae7972e0801 42 DigitalOut da37(PTE21);
facuclop 2:fae7972e0801 43 DigitalOut da38(PTE20);
facuclop 2:fae7972e0801 44 DigitalOut da39(PTE2);
facuclop 2:fae7972e0801 45 DigitalOut da40(PTE3);
facuclop 2:fae7972e0801 46 DigitalOut da41(PTE6);
facuclop 2:fae7972e0801 47 DigitalOut da42(PTE16);
facuclop 2:fae7972e0801 48 DigitalOut da43(PTE17);
facuclop 2:fae7972e0801 49 DigitalOut da44(PTE18);
facuclop 2:fae7972e0801 50 DigitalOut da45(PTE19);
facuclop 2:fae7972e0801 51 DigitalOut da46(PTE31);
facuclop 2:fae7972e0801 52 DigitalOut da47(PTC1);
facuclop 2:fae7972e0801 53 DigitalOut da48(PTC2);
facuclop 2:fae7972e0801 54 DigitalOut da49(PTB3);
facuclop 2:fae7972e0801 55 DigitalOut da50(PTB2);
facuclop 2:fae7972e0801 56 DigitalOut da51(PTB1);
facuclop 2:fae7972e0801 57 DigitalOut da52(PTB0);
facuclop 2:fae7972e0801 58 DigitalOut da53(PTA20);
facuclop 2:fae7972e0801 59
facuclop 2:fae7972e0801 60
facuclop 2:fae7972e0801 61 Serial pc(USBTX, USBRX);
facuclop 2:fae7972e0801 62 char* leer (char* texto)
facuclop 2:fae7972e0801 63
facuclop 2:fae7972e0801 64 {char car[10]=""; do {car[0]=pc.getc();
facuclop 2:fae7972e0801 65 strcat(texto,car);}
facuclop 2:fae7972e0801 66 while (car[0] != 'z'); //mientras car sea diferente a z suma las palabras (es como un enter el z)
facuclop 2:fae7972e0801 67 return texto;} // fo = c y z es el x
facuclop 2:fae7972e0801 68 char c[6]="";
facuclop 2:fae7972e0801 69 char enter[6]="";
facuclop 2:fae7972e0801 70 float pepe = 0.01;
Eduvance 0:9dc21787f133 71
facuclop 2:fae7972e0801 72 int main()
facuclop 2:fae7972e0801 73 {
facuclop 2:fae7972e0801 74 pc.printf("online");
facuclop 2:fae7972e0801 75 while(1)
facuclop 2:fae7972e0801 76 {
facuclop 2:fae7972e0801 77 strcpy(c,leer(enter));
facuclop 2:fae7972e0801 78
facuclop 2:fae7972e0801 79 if( strcmp(c,"fo0zz")==0){da0 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 80 if( strcmp(c,"fb0zz")==0){da0 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 81 if( strcmp(c,"fo1zz")==0){da1 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 82 if( strcmp(c,"fb1zz")==0){da1 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 83 if( strcmp(c,"fo2zz")==0){da2 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 84 if( strcmp(c,"fb2zz")==0){da2 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 85 if( strcmp(c,"fo3zz")==0){da3 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 86 if( strcmp(c,"fb3zz")==0){da3 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 87 if( strcmp(c,"fo4zz")==0){da4 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 88 if( strcmp(c,"fb4zz")==0){da4 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 89 if( strcmp(c,"fo5zz")==0){da5 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 90 if( strcmp(c,"fb5zz")==0){da5 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 91 if( strcmp(c,"fo6zz")==0){da6 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 92 if( strcmp(c,"fb6zz")==0){da6 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 93 if( strcmp(c,"fo7zz")==0){da7 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 94 if( strcmp(c,"fb7zz")==0){da7 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 95 if( strcmp(c,"fo8zz")==0){da8 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 96 if( strcmp(c,"fb8zz")==0){da8 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 97 if( strcmp(c,"fo9zz")==0){da9 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 98 if( strcmp(c,"fb9zz")==0){da9 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 99 if( strcmp(c,"fo10zz")==0){da10 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 100 if( strcmp(c,"fb10zz")==0){da10 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 101 if( strcmp(c,"fo11zz")==0){da11 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 102 if( strcmp(c,"fb11zz")==0){da11 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 103 if( strcmp(c,"fo12zz")==0){da12 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 104 if( strcmp(c,"fb12zz")==0){da12 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 105 if( strcmp(c,"fo13zz")==0){da13 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 106 if( strcmp(c,"fb13zz")==0){da13 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 107 if( strcmp(c,"fo14zz")==0){da14 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 108 if( strcmp(c,"fb14zz")==0){da14 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 109 if( strcmp(c,"fo15zz")==0){da15 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 110 if( strcmp(c,"fb15zz")==0){da15 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 111 if( strcmp(c,"fo16zz")==0){da16 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 112 if( strcmp(c,"fb16zz")==0){da16 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 113 if( strcmp(c,"fo17zz")==0){da17 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 114 if( strcmp(c,"fb17zz")==0){da17 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 115 if( strcmp(c,"fo18zz")==0){da18 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 116 if( strcmp(c,"fb18zz")==0){da18 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 117 if( strcmp(c,"fo19zz")==0){da19 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 118 if( strcmp(c,"fb19zz")==0){da19 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 119 if( strcmp(c,"fo20zz")==0){da20 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 120 if( strcmp(c,"fb20zz")==0){da20 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 121 if( strcmp(c,"fo21zz")==0){da21 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 122 if( strcmp(c,"fb21zz")==0){da21 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 123 if( strcmp(c,"fo22zz")==0){da22 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 124 if( strcmp(c,"fb22zz")==0){da22 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 125 if( strcmp(c,"fo23zz")==0){da23 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 126 if( strcmp(c,"fb23zz")==0){da23 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 127 if( strcmp(c,"fo24zz")==0){da24 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 128 if( strcmp(c,"fb24zz")==0){da24 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 129 if( strcmp(c,"fo25zz")==0){da25 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 130 if( strcmp(c,"fb25zz")==0){da25 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 131 if( strcmp(c,"fo26zz")==0){da26 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 132 if( strcmp(c,"fb26zz")==0){da26 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 133 if( strcmp(c,"fo27zz")==0){da27 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 134 if( strcmp(c,"fb27zz")==0){da27 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 135 if( strcmp(c,"fo28zz")==0){da28 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 136 if( strcmp(c,"fb28zz")==0){da28 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 137 if( strcmp(c,"fo29zz")==0){da29 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 138 if( strcmp(c,"fb29zz")==0){da29 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 139 if( strcmp(c,"fo30zz")==0){da30 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 140 if( strcmp(c,"fb30zz")==0){da30 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 141 if( strcmp(c,"fo31zz")==0){da31 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 142 if( strcmp(c,"fb31zz")==0){da31 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 143 if( strcmp(c,"fo32zz")==0){da32 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 144 if( strcmp(c,"fb32zz")==0){da32 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 145 if( strcmp(c,"fo33zz")==0){da33 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 146 if( strcmp(c,"fb33zz")==0){da33 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 147 if( strcmp(c,"fo34zz")==0){da34 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 148 if( strcmp(c,"fb34zz")==0){da34 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 149 if( strcmp(c,"fo35zz")==0){da35 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 150 if( strcmp(c,"fb35zz")==0){da35 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 151 if( strcmp(c,"fo36zz")==0){da36 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 152 if( strcmp(c,"fb36zz")==0){da36 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 153 if( strcmp(c,"fo37zz")==0){da37 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 154 if( strcmp(c,"fb37zz")==0){da37 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 155 if( strcmp(c,"fo38zz")==0){da38 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 156 if( strcmp(c,"fb38zz")==0){da38 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 157 if( strcmp(c,"fo39zz")==0){da39 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 158 if( strcmp(c,"fb39zz")==0){da39 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 159 if( strcmp(c,"fo40zz")==0){da40 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 160 if( strcmp(c,"fb40zz")==0){da40 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 161 if( strcmp(c,"fo41zz")==0){da41 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 162 if( strcmp(c,"fb41zz")==0){da41 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 163 if( strcmp(c,"fo42zz")==0){da42 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 164 if( strcmp(c,"fb42zz")==0){da42 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 165 if( strcmp(c,"fo43zz")==0){da43 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 166 if( strcmp(c,"fb43zz")==0){da43 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 167 if( strcmp(c,"fo44zz")==0){da44 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 168 if( strcmp(c,"fb44zz")==0){da44 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 169 if( strcmp(c,"fo45zz")==0){da45 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 170 if( strcmp(c,"fb45zz")==0){da45 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 171 if( strcmp(c,"fo46zz")==0){da46 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 172 if( strcmp(c,"fb46zz")==0){da46 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 173 if( strcmp(c,"fo47zz")==0){da47 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 174 if( strcmp(c,"fb47zz")==0){da47 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 175 if( strcmp(c,"fo48zz")==0){da48 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 176 if( strcmp(c,"fb48zz")==0){da48 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 177 if( strcmp(c,"fo49zz")==0){da49 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 178 if( strcmp(c,"fb49zz")==0){da49 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 179 if( strcmp(c,"fo50zz")==0){da50 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 180 if( strcmp(c,"fb50zz")==0){da50 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 181 if( strcmp(c,"fo51zz")==0){da51 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 182 if( strcmp(c,"fb51zz")==0){da51 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 183 if( strcmp(c,"fo52zz")==0){da52 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 184 if( strcmp(c,"fb52zz")==0){da52 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 185 if( strcmp(c,"fo53zz")==0){da53 = 0;strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 186 if( strcmp(c,"fb53zz")==0){da53 = 1;strcpy(c,""); strcpy(enter,"");} //apaga
facuclop 2:fae7972e0801 187
facuclop 2:fae7972e0801 188
facuclop 2:fae7972e0801 189 if( strcmp(c,"apazz")==0){
facuclop 2:fae7972e0801 190 da0 = 0;
facuclop 2:fae7972e0801 191 da1 = 0;
facuclop 2:fae7972e0801 192 da2= 0;
facuclop 2:fae7972e0801 193 da3= 0;
facuclop 2:fae7972e0801 194 da4= 0;
facuclop 2:fae7972e0801 195 da5= 0;
facuclop 2:fae7972e0801 196 da6= 0;
facuclop 2:fae7972e0801 197 da7= 0;
facuclop 2:fae7972e0801 198 da8= 0;
facuclop 2:fae7972e0801 199 da9= 0;
facuclop 2:fae7972e0801 200 da10= 0;
facuclop 2:fae7972e0801 201 da11= 0;
facuclop 2:fae7972e0801 202 da12= 0;
facuclop 2:fae7972e0801 203 da13= 0;
facuclop 2:fae7972e0801 204 da14= 0;
facuclop 2:fae7972e0801 205 da15= 0;
facuclop 2:fae7972e0801 206 da16= 0;
facuclop 2:fae7972e0801 207 da17= 0;
facuclop 2:fae7972e0801 208 da18= 0;
facuclop 2:fae7972e0801 209 da19= 0;
facuclop 2:fae7972e0801 210 da20= 0;
facuclop 2:fae7972e0801 211 da21= 0;
facuclop 2:fae7972e0801 212 da22= 0;
facuclop 2:fae7972e0801 213 da23= 0;
facuclop 2:fae7972e0801 214 da24= 0;
facuclop 2:fae7972e0801 215 da25= 0;
facuclop 2:fae7972e0801 216 da26= 0;
facuclop 2:fae7972e0801 217 da27= 0;
facuclop 2:fae7972e0801 218 da28= 0;
facuclop 2:fae7972e0801 219 da29= 0;
facuclop 2:fae7972e0801 220 da30= 0;
facuclop 2:fae7972e0801 221 da31= 0;
facuclop 2:fae7972e0801 222 da32= 0;
facuclop 2:fae7972e0801 223 da33= 0;
facuclop 2:fae7972e0801 224 da34= 0;
facuclop 2:fae7972e0801 225 da35= 0;
facuclop 2:fae7972e0801 226 da36= 0;
facuclop 2:fae7972e0801 227 da37= 0;
facuclop 2:fae7972e0801 228 da38= 0;
facuclop 2:fae7972e0801 229 da39= 0;
facuclop 2:fae7972e0801 230 da40= 0;
facuclop 2:fae7972e0801 231 da41= 0;
facuclop 2:fae7972e0801 232 da42= 0;
facuclop 2:fae7972e0801 233 da43= 0;
facuclop 2:fae7972e0801 234 da44= 0;
facuclop 2:fae7972e0801 235 da45= 0;
facuclop 2:fae7972e0801 236 da46= 0;
facuclop 2:fae7972e0801 237 da47= 0;
facuclop 2:fae7972e0801 238 da48= 0;
facuclop 2:fae7972e0801 239 da49= 0;
facuclop 2:fae7972e0801 240 da50= 0;
facuclop 2:fae7972e0801 241 da51= 0;
facuclop 2:fae7972e0801 242 da52= 0;
facuclop 2:fae7972e0801 243 da53= 0;
facuclop 2:fae7972e0801 244
facuclop 2:fae7972e0801 245 strcpy(c,""); strcpy(enter,"");} //apaga todo
facuclop 2:fae7972e0801 246
facuclop 2:fae7972e0801 247 if( strcmp(c,"prezz")==0){
facuclop 2:fae7972e0801 248 da0 = 1;
facuclop 2:fae7972e0801 249 da1 = 1;
facuclop 2:fae7972e0801 250 da2= 1;
facuclop 2:fae7972e0801 251 da3= 1;
facuclop 2:fae7972e0801 252 da4= 1;
facuclop 2:fae7972e0801 253 da5= 1;
facuclop 2:fae7972e0801 254 da6= 1;
facuclop 2:fae7972e0801 255 da7= 1;
facuclop 2:fae7972e0801 256 da8= 1;
facuclop 2:fae7972e0801 257 da9= 1;
facuclop 2:fae7972e0801 258 da10= 1;
facuclop 2:fae7972e0801 259 da11= 1;
facuclop 2:fae7972e0801 260 da12= 1;
facuclop 2:fae7972e0801 261 da13= 1;
facuclop 2:fae7972e0801 262 da14= 1;
facuclop 2:fae7972e0801 263 da15= 1;
facuclop 2:fae7972e0801 264 da16= 1;
facuclop 2:fae7972e0801 265 da17= 1;
facuclop 2:fae7972e0801 266 da18= 1;
facuclop 2:fae7972e0801 267 da19= 1;
facuclop 2:fae7972e0801 268 da20= 1;
facuclop 2:fae7972e0801 269 da21= 1;
facuclop 2:fae7972e0801 270 da22= 1;
facuclop 2:fae7972e0801 271 da23= 1;
facuclop 2:fae7972e0801 272 da24= 1;
facuclop 2:fae7972e0801 273 da25= 1;
facuclop 2:fae7972e0801 274 da26= 1;
facuclop 2:fae7972e0801 275 da27= 1;
facuclop 2:fae7972e0801 276 da28= 1;
facuclop 2:fae7972e0801 277 da29= 1;
facuclop 2:fae7972e0801 278 da30= 1;
facuclop 2:fae7972e0801 279 da31= 1;
facuclop 2:fae7972e0801 280 da32= 1;
facuclop 2:fae7972e0801 281 da33= 1;
facuclop 2:fae7972e0801 282 da34= 1;
facuclop 2:fae7972e0801 283 da35= 1;
facuclop 2:fae7972e0801 284 da36= 1;
facuclop 2:fae7972e0801 285 da37= 1;
facuclop 2:fae7972e0801 286 da38= 1;
facuclop 2:fae7972e0801 287 da39= 1;
facuclop 2:fae7972e0801 288 da40= 1;
facuclop 2:fae7972e0801 289 da41= 1;
facuclop 2:fae7972e0801 290 da42= 1;
facuclop 2:fae7972e0801 291 da43= 1;
facuclop 2:fae7972e0801 292 da44= 1;
facuclop 2:fae7972e0801 293 da45= 1;
facuclop 2:fae7972e0801 294 da46= 1;
facuclop 2:fae7972e0801 295 da47= 1;
facuclop 2:fae7972e0801 296 da48= 1;
facuclop 2:fae7972e0801 297 da49= 1;
facuclop 2:fae7972e0801 298 da50= 1;
facuclop 2:fae7972e0801 299 da51= 1;
facuclop 2:fae7972e0801 300 da52= 1;
facuclop 2:fae7972e0801 301 da53= 1;
facuclop 2:fae7972e0801 302
facuclop 2:fae7972e0801 303 strcpy(c,""); strcpy(enter,"");} //prende
facuclop 2:fae7972e0801 304
facuclop 2:fae7972e0801 305 if( strcmp(c,"juezz")==0){
facuclop 2:fae7972e0801 306 da0 = 1;
facuclop 2:fae7972e0801 307 wait (pepe);
facuclop 2:fae7972e0801 308 da1 = 1;
facuclop 2:fae7972e0801 309 wait (pepe);
facuclop 2:fae7972e0801 310 da2= 1;
facuclop 2:fae7972e0801 311 wait (pepe);
facuclop 2:fae7972e0801 312 da3= 1;
facuclop 2:fae7972e0801 313 wait (pepe);
facuclop 2:fae7972e0801 314 da4= 1;
facuclop 2:fae7972e0801 315 wait (pepe);
facuclop 2:fae7972e0801 316 da5= 1;
facuclop 2:fae7972e0801 317 wait (pepe);
facuclop 2:fae7972e0801 318 da6= 1;
facuclop 2:fae7972e0801 319 wait (pepe);
facuclop 2:fae7972e0801 320 da7= 1;
facuclop 2:fae7972e0801 321 wait (pepe);
facuclop 2:fae7972e0801 322 da8= 1;
facuclop 2:fae7972e0801 323 wait (pepe);
facuclop 2:fae7972e0801 324 da9= 1;
facuclop 2:fae7972e0801 325 wait (pepe);
facuclop 2:fae7972e0801 326 da10= 1;
facuclop 2:fae7972e0801 327 wait (pepe);
facuclop 2:fae7972e0801 328 da11= 1;
facuclop 2:fae7972e0801 329 wait (pepe);
facuclop 2:fae7972e0801 330 da12= 1;
facuclop 2:fae7972e0801 331 wait (pepe);
facuclop 2:fae7972e0801 332 da13= 1;
facuclop 2:fae7972e0801 333 wait (pepe);
facuclop 2:fae7972e0801 334 da14= 1;
facuclop 2:fae7972e0801 335 wait (pepe);
facuclop 2:fae7972e0801 336 da15= 1;
facuclop 2:fae7972e0801 337 wait (pepe);
facuclop 2:fae7972e0801 338 da16= 1;
facuclop 2:fae7972e0801 339 wait (pepe);
facuclop 2:fae7972e0801 340 da17= 1;
facuclop 2:fae7972e0801 341 wait (pepe);
facuclop 2:fae7972e0801 342 da18= 1;
facuclop 2:fae7972e0801 343 wait (pepe);
facuclop 2:fae7972e0801 344 da19= 1;
facuclop 2:fae7972e0801 345 wait (pepe);
facuclop 2:fae7972e0801 346 da20= 1;
facuclop 2:fae7972e0801 347 wait (pepe);
facuclop 2:fae7972e0801 348 da21= 1;
facuclop 2:fae7972e0801 349 wait (pepe);
facuclop 2:fae7972e0801 350 da22= 1;
facuclop 2:fae7972e0801 351 wait (pepe);
facuclop 2:fae7972e0801 352 da23= 1;
facuclop 2:fae7972e0801 353 wait (pepe);
facuclop 2:fae7972e0801 354 da24= 1;
facuclop 2:fae7972e0801 355 wait (pepe);
facuclop 2:fae7972e0801 356 da25= 1;
facuclop 2:fae7972e0801 357 wait (pepe);
facuclop 2:fae7972e0801 358 da26= 1;
facuclop 2:fae7972e0801 359 wait (pepe);
facuclop 2:fae7972e0801 360 da27= 1;
facuclop 2:fae7972e0801 361 wait (pepe);
facuclop 2:fae7972e0801 362 da28= 1;
facuclop 2:fae7972e0801 363 wait (pepe);
facuclop 2:fae7972e0801 364 da29= 1;
facuclop 2:fae7972e0801 365 wait (pepe);
facuclop 2:fae7972e0801 366 da30= 1;
facuclop 2:fae7972e0801 367 wait (pepe);
facuclop 2:fae7972e0801 368 da31= 1;
facuclop 2:fae7972e0801 369 wait (pepe);
facuclop 2:fae7972e0801 370 da32= 1;
facuclop 2:fae7972e0801 371 wait (pepe);
facuclop 2:fae7972e0801 372 da33= 1;
facuclop 2:fae7972e0801 373 wait (pepe);
facuclop 2:fae7972e0801 374 da34= 1;
facuclop 2:fae7972e0801 375 wait (pepe);
facuclop 2:fae7972e0801 376 da35= 1;
facuclop 2:fae7972e0801 377 wait (pepe);
facuclop 2:fae7972e0801 378 da36= 1;
facuclop 2:fae7972e0801 379 wait (pepe);
facuclop 2:fae7972e0801 380 da37= 1;
facuclop 2:fae7972e0801 381 wait (pepe);
facuclop 2:fae7972e0801 382 da38= 1;
facuclop 2:fae7972e0801 383 wait (pepe);
facuclop 2:fae7972e0801 384 da39= 1;
facuclop 2:fae7972e0801 385 wait (pepe);
facuclop 2:fae7972e0801 386 da40= 1;
facuclop 2:fae7972e0801 387 wait (pepe);
facuclop 2:fae7972e0801 388 da41= 1;
facuclop 2:fae7972e0801 389 wait (pepe);
facuclop 2:fae7972e0801 390 da42= 1;
facuclop 2:fae7972e0801 391 wait (pepe);
facuclop 2:fae7972e0801 392 da43= 1;
facuclop 2:fae7972e0801 393 wait (pepe);
facuclop 2:fae7972e0801 394 da44= 1;
facuclop 2:fae7972e0801 395 wait (pepe);
facuclop 2:fae7972e0801 396 da45= 1;
facuclop 2:fae7972e0801 397 wait (pepe);
facuclop 2:fae7972e0801 398 da46= 1;
facuclop 2:fae7972e0801 399 wait (pepe);
facuclop 2:fae7972e0801 400 da47= 1;
facuclop 2:fae7972e0801 401 wait (pepe);
facuclop 2:fae7972e0801 402 da48= 1;
facuclop 2:fae7972e0801 403 wait (pepe);
facuclop 2:fae7972e0801 404 da49= 1;
facuclop 2:fae7972e0801 405 wait (pepe);
facuclop 2:fae7972e0801 406 da50= 1;
facuclop 2:fae7972e0801 407 wait (pepe);
facuclop 2:fae7972e0801 408 da51= 1;
facuclop 2:fae7972e0801 409 wait (pepe);
facuclop 2:fae7972e0801 410 da52= 1;
facuclop 2:fae7972e0801 411 wait (pepe);
facuclop 2:fae7972e0801 412 da53= 1;
facuclop 2:fae7972e0801 413 wait (pepe);
facuclop 2:fae7972e0801 414
facuclop 2:fae7972e0801 415 // ff
facuclop 2:fae7972e0801 416
facuclop 2:fae7972e0801 417 da0 = 0;
facuclop 2:fae7972e0801 418 wait (pepe);
facuclop 2:fae7972e0801 419 da1 = 0;
facuclop 2:fae7972e0801 420 wait (pepe);
facuclop 2:fae7972e0801 421 da2= 0;
facuclop 2:fae7972e0801 422 wait (pepe);
facuclop 2:fae7972e0801 423 da3= 0;
facuclop 2:fae7972e0801 424 wait (pepe);
facuclop 2:fae7972e0801 425 da4= 0;
facuclop 2:fae7972e0801 426 wait (pepe);
facuclop 2:fae7972e0801 427 da5= 0;
facuclop 2:fae7972e0801 428 wait (pepe);
facuclop 2:fae7972e0801 429 da6= 0;
facuclop 2:fae7972e0801 430 wait (pepe);
facuclop 2:fae7972e0801 431 da7= 0;
facuclop 2:fae7972e0801 432 wait (pepe);
facuclop 2:fae7972e0801 433 da8= 0;
facuclop 2:fae7972e0801 434 wait (pepe);
facuclop 2:fae7972e0801 435 da9= 0;
facuclop 2:fae7972e0801 436 wait (pepe);
facuclop 2:fae7972e0801 437 da10= 0;
facuclop 2:fae7972e0801 438 wait (pepe);
facuclop 2:fae7972e0801 439 da11= 0;
facuclop 2:fae7972e0801 440 wait (pepe);
facuclop 2:fae7972e0801 441 da12= 0;
facuclop 2:fae7972e0801 442 wait (pepe);
facuclop 2:fae7972e0801 443 da13= 0;
facuclop 2:fae7972e0801 444 wait (pepe);
facuclop 2:fae7972e0801 445 da14= 0;
facuclop 2:fae7972e0801 446 wait (pepe);
facuclop 2:fae7972e0801 447 da15= 0;
facuclop 2:fae7972e0801 448 wait (pepe);
facuclop 2:fae7972e0801 449 da16= 0;
facuclop 2:fae7972e0801 450 wait (pepe);
facuclop 2:fae7972e0801 451 da17= 0;
facuclop 2:fae7972e0801 452 wait (pepe);
facuclop 2:fae7972e0801 453 da18= 0;
facuclop 2:fae7972e0801 454 wait (pepe);
facuclop 2:fae7972e0801 455 da19= 0;
facuclop 2:fae7972e0801 456 wait (pepe);
facuclop 2:fae7972e0801 457 da20= 0;
facuclop 2:fae7972e0801 458 wait (pepe);
facuclop 2:fae7972e0801 459 da21= 0;
facuclop 2:fae7972e0801 460 wait (pepe);
facuclop 2:fae7972e0801 461 da22= 0;
facuclop 2:fae7972e0801 462 wait (pepe);
facuclop 2:fae7972e0801 463 da23= 0;
facuclop 2:fae7972e0801 464 wait (pepe);
facuclop 2:fae7972e0801 465 da24= 0;
facuclop 2:fae7972e0801 466 wait (pepe);
facuclop 2:fae7972e0801 467 da25= 0;
facuclop 2:fae7972e0801 468 wait (pepe);
facuclop 2:fae7972e0801 469 da26= 0;
facuclop 2:fae7972e0801 470 wait (pepe);
facuclop 2:fae7972e0801 471 da27= 0;
facuclop 2:fae7972e0801 472 wait (pepe);
facuclop 2:fae7972e0801 473 da28= 0;
facuclop 2:fae7972e0801 474 wait (pepe);
facuclop 2:fae7972e0801 475 da29= 0;
facuclop 2:fae7972e0801 476 wait (pepe);
facuclop 2:fae7972e0801 477 da30= 0;
facuclop 2:fae7972e0801 478 wait (pepe);
facuclop 2:fae7972e0801 479 da31= 0;
facuclop 2:fae7972e0801 480 wait (pepe);
facuclop 2:fae7972e0801 481 da32= 0;
facuclop 2:fae7972e0801 482 wait (pepe);
facuclop 2:fae7972e0801 483 da33= 0;
facuclop 2:fae7972e0801 484 wait (pepe);
facuclop 2:fae7972e0801 485 da34= 0;
facuclop 2:fae7972e0801 486 wait (pepe);
facuclop 2:fae7972e0801 487 da35= 0;
facuclop 2:fae7972e0801 488 wait (pepe);
facuclop 2:fae7972e0801 489 da36= 0;
facuclop 2:fae7972e0801 490 wait (pepe);
facuclop 2:fae7972e0801 491 da37= 0;
facuclop 2:fae7972e0801 492 wait (pepe);
facuclop 2:fae7972e0801 493 da38= 0;
facuclop 2:fae7972e0801 494 wait (pepe);
facuclop 2:fae7972e0801 495 da39= 0;
facuclop 2:fae7972e0801 496 wait (pepe);
facuclop 2:fae7972e0801 497 da40= 0;
facuclop 2:fae7972e0801 498 wait (pepe);
facuclop 2:fae7972e0801 499 da41= 0;
facuclop 2:fae7972e0801 500 wait (pepe);
facuclop 2:fae7972e0801 501 da42= 0;
facuclop 2:fae7972e0801 502 wait (pepe);
facuclop 2:fae7972e0801 503 da43= 0;
facuclop 2:fae7972e0801 504 wait (pepe);
facuclop 2:fae7972e0801 505 da44= 0;
facuclop 2:fae7972e0801 506 wait (pepe);
facuclop 2:fae7972e0801 507 da45= 0;
facuclop 2:fae7972e0801 508 wait (pepe);
facuclop 2:fae7972e0801 509 da46= 0;
facuclop 2:fae7972e0801 510 wait (pepe);
facuclop 2:fae7972e0801 511 da47= 0;
facuclop 2:fae7972e0801 512 wait (pepe);
facuclop 2:fae7972e0801 513 da48= 0;
facuclop 2:fae7972e0801 514 wait (pepe);
facuclop 2:fae7972e0801 515 da49= 0;
facuclop 2:fae7972e0801 516 wait (pepe);
facuclop 2:fae7972e0801 517 da50= 0;
facuclop 2:fae7972e0801 518 wait (pepe);
facuclop 2:fae7972e0801 519 da51= 0;
facuclop 2:fae7972e0801 520 wait (pepe);
facuclop 2:fae7972e0801 521 da52= 0;
facuclop 2:fae7972e0801 522 wait (pepe);
facuclop 2:fae7972e0801 523 da53= 0;
facuclop 2:fae7972e0801 524 wait (pepe);
facuclop 2:fae7972e0801 525
facuclop 2:fae7972e0801 526
facuclop 2:fae7972e0801 527
facuclop 2:fae7972e0801 528 strcpy(c,""); strcpy(enter,"");} //juego de luces prendidas secuencialmente
facuclop 2:fae7972e0801 529
facuclop 2:fae7972e0801 530 pc.printf(c);
facuclop 2:fae7972e0801 531
facuclop 2:fae7972e0801 532
facuclop 2:fae7972e0801 533 }
facuclop 2:fae7972e0801 534 }