// Programma cp_stand_1 (ArcTools) // Latella Maria Veronica - Giugno 2005 #define USE_TI89 // Compilo per TI-89 #define OPTIMIZE_ROM_CALLS // Uso chiamate-ROM Ottimizzate #define MIN_AMS 100 // Compilo per AMS 1.00 o maggiore. #define SAVE_SCREEN // Salva/Ripristina stato LCD. #include // Includo tutti gli Header-Files // Tracciare una linea da (x1,y1) a (x2,y2). // Occhio che lo (0,0) è nell'angolo in alto a sinistra. // Asse X va a destra, Asse Y va in giù. // Risoluzione dello schermo: 160x100 ovvero 8/5. void DrawLineFast(short x1, short y1, short x2, short y2) { short x = x1, y = y1; short dx = abs (x2 - x1), dy = abs (y2 - y1); short ystep = (y1 < y2) ? 1 : -1, pystep = 30 * ystep; short mov = dx ? 0 : -1; unsigned char *ptr = (char*)LCD_MEM + 30 * y + (x >> 3); short mask = 1 << (~x & 7); if (x1 < x2) while (x != x2 || y != y2) { *ptr |= mask; if (mov < 0) y += ystep, ptr += pystep, mov += dx; else { mov -= dy; if (++x & 7) mask >>= 1; else ptr++, mask = 0x80; } } else while (x != x2 || y != y2) { *ptr |= mask; if (mov < 0) y += ystep, ptr += pystep, mov += dx; else { mov -= dy; if (x-- & 7) mask <<= 1; else ptr--, mask = 1; } } } void Errore() { ClrScr (); clrscr(); DrawLineFast (38, 38, 122, 38); //Linea sopra DrawLineFast (38, 60, 123, 60); //Linea sotto DrawStr(53,42,"Errore!!!",A_NORMAL); DrawStr(41,50,"Scelta Errata",A_NORMAL); //8 punti sotto... DrawLineFast (38, 38, 38, 60); //Linea sx DrawLineFast (122, 38, 122, 60); //Linea dx } // Main Function void _main(void) { //Variabili di sistema e assegnazioni //Risoluzione dello schermo: 160x100 ovvero 8/5. int ips = 0; //Ordinata (ipsilon) per tracciare la rete iniziale. int ics = 0; //Ascissa (ics) per tracciare la rete iniziale. int ind_i = 0; //indice I della matrice int edificio = 0; //scelta (1,2) dell'edificio int ripartizione = 0; //scelta (1,2,3,4,5,6,7,8,9,10) della ripartizione float jump = 15.0; //numero di linee float stepx, stepy; //spazi fra linee int incremento; //incremento cicli linee float matricea[10]; //Matrice A float matriceb[7]; //Matrice B int pix = 0; ClrScr (); //Pulizia dello schermo grafico clrscr(); //Pulizia dello schermo di testo //Assegnazione Valori della Matrice A: matricea [0] = 15.0; matricea [1] = 0.01; matricea [2] = 0.15; matricea [3] = 0.8; matricea [4] = 1.6; matricea [5] = 80.0; matricea [6] = 0.6; matricea [7] = 75.0; matricea [8] = 0.0; matricea [9] = 5.0; //Assegnazione Valori della Matrice B: matriceb [0] = 30.0; matriceb [1] = 50.0; matriceb [2] = 70.0; matriceb [3] = 90.0; matriceb [4] = 120.0; matriceb [5] = 160.0; matriceb [6] = 160.0; //Maschera di Avvio //Traccia una rete nell'angolo in alto a sinistra //e la scritta "Arc Tools" nel centro dello schermo. stepx = 160 / jump; stepy = 100 / jump; incremento = 0; while (incremento != (jump + 1)) { ics = stepx * incremento; ips = 100 - (stepy * incremento); DrawLineFast (ics, 0, 0, ips); incremento ++; } //Inserisco scritta Programma // nella zona con 125 parte da y=22 con incrementi di 8. // c_ca_NN alta 7*8=56 pixels -> parte da y=35 con incrementi di 8 // Larghezza 6 -> x=135 costante! //Inserisco scritta Programma // nella zona con 125 parte da y=22 con incrementi di 8. // c_ca_NN alta 7*8=56 pixels -> parte da y=35 con incrementi di 8 // Larghezza 6 -> x=135 costante! DrawLineFast (138, 10, 138, 93); //Linea sx DrawLineFast (138, 10, 148, 10); //Linea sopra DrawStr(140,13,"C",A_NORMAL); DrawStr(140,21,"P",A_NORMAL); DrawStr(140,36,"S",A_NORMAL); DrawStr(140,44,"T",A_NORMAL); DrawStr(140,52,"A",A_NORMAL); DrawStr(140,60,"N",A_NORMAL); DrawStr(140,68,"D",A_NORMAL); //DrawStr(140,67,"*",A_NORMAL); DrawStr(140,84,"1",A_NORMAL); DrawLineFast (138, 93, 148, 93); //Linea sotto DrawLineFast (148, 10, 148, 93); //Linea dx //Inserisco scritta Autore DrawStr(53,40,"Cartesio",A_NORMAL); DrawStr(35,60,"Ing&Arch TI-89",A_NORMAL); //Attendo pressione di un tasto per riprendere l'esecuzione ngetchx (); ClrScr (); clrscr(); //Descrizione Ambiente Operativo //--- Cuore del Programma --- //Su una riga ci stanno solo 26 caratteri!!! while (edificio != 0x1 && edificio != 0x2) { ClrScr (); clrscr(); printf(" CONSUMI ENERGETICI \n\n"); // Acquisizione dei dati necessari alla elaborazione. printf("Scelta edificio:\n\n"); printf("1)Passivo (inverno)\n"); printf("2)Casaclima BZ (inverno)\n"); printf("\n"); printf("Scelta: "); scanf("%d", &edificio); // Controllo correttezza dell'input: if (edificio != 1 && edificio != 2) { Errore(); ngetchx (); } } switch(edificio) { case 1: ClrScr (); clrscr(); printf("Parametri caratteristici:\n"); printf("------------------------\n\n"); printf ("-)Fabbisogno termico:\n"); printf (" %c%f kWh/m%ca \n", 156,matricea[0],178); printf ("-)Assenza ponti termici:\n"); printf (" %c%c%f W/mK \n", 146,156,matricea[1]); printf("\n"); printf ("ENTER per continuare..."); ngetchx (); ClrScr (); clrscr(); printf ("\n-)Trasmittanza facciata:\n"); printf (" a)Elementi opachi:\n"); printf (" U<%f W/m%cK \n", matricea[2],178); printf (" b)Vetrate:\n"); printf (" - Comfort termico:\n"); printf (" Uv%c%f W/m%cK \n", 156,matricea[3],178); printf (" - Comfort energetico:\n"); printf (" Uv%c%f W/m%cK \n", 156,matricea[4],178); printf("\n"); printf ("ENTER per continuare..."); ngetchx (); ClrScr (); clrscr(); printf ("\n-)Recupero calore:"); printf (" >%f%c \n", matricea[5],37); printf ("-)Impermeabilità al vento:\n"); printf (" n50<%f/h \n", matricea[6]); printf ("-)Rend. recupero calore:\n"); printf (" nrc%c%f%c \n", 158,matricea[7],37); printf ("-)Flusso d'aria: Orientato\n"); printf ("-)Afflusso/Deflusso aria:\n"); printf (" equilibrato<%c%f%c \n", 177,matricea[9],37); ngetchx (); ClrScr (); clrscr(); break; case 2: ClrScr (); clrscr(); printf("Categorie Consumo Calore:\n"); printf("------------------------\n\n"); printf ("-)Cat A: "); printf ("HWB%c%f kWh/m%ca\n", 156,matriceb[0],178); printf ("-)Cat B: "); printf ("HWB%c%f kWh/m%ca\n", 156,matriceb[1],178); printf ("-)Cat C: "); printf ("HWB%c%f kWh/m%ca\n", 156,matriceb[2],178); printf ("-)Cat D: "); printf ("HWB%c%f kWh/m%ca\n", 156,matriceb[3],178); printf ("-)Cat E: "); printf ("HWB%c%f kWh/m%ca\n", 156,matriceb[4],178); printf ("-)Cat F: "); printf ("HWB%c%f kWh/m%ca\n", 156,matriceb[5],178); printf ("-)Cat G: "); printf ("HWB>%f kWh/m%ca\n", matriceb[6],178); // Pressione di un tasto per uscire... ngetchx (); ClrScr (); clrscr(); break; } }