**TI92P*mainT:å÷øä6&×8'³÷T÷:å:å÷'åV%×À®RC_CA_PR1y ¥Z () Prgm ©Pilastri H per copertura pref. Local Vers,Data,Tit ©*********************** "c_ca_pr1"Tit ©Autori: ing. P.Benetti © : prof.A.Carotti "27/06/2005"Data " 0.0.1"Vers ©*********************** ©Global OldMode ©Inizio del programma*** Local choice, index Local OldDir Local IsNum, maxArea Local tmp,strRes Local row,col ©Create and set the Temp Folder getFold()OldDir try ZLib\ChngFold("Temp") ZLib\ChngMode() Else Dialog Title "Errore" Text "L'installazione non e' stata" Text "eseguita correttamente oppure" Text "e' corrotta." Text "Copiare il programma Setup_IA" Text "sulla TI-89 ed eseguirlo." EndDlog Return EndTry {"m 6x14.40", "m 6x16.80", "m 6x21.60", "m 6x24.00"}maxArea [[2,2,2,2,1,1][2,2,2,2,1,1][2,0,2,0,1,0][2,0,2,0,1,0][4,4,3,3,3,3][4,4,3,3,3,3][4,0,3,0,3,0][4,0,3,0,3,0]]indexes Define IsNum(checkVar) = Func If GetType(checkVar)="NUM" Then return true Else return false EndIf EndFunc ClrIo Disp ZLib\Splash(Tit,Vers,Data) Lbl start ClrIo ZLib\OutputEx (1, "PILASTRI AD H", "C") ZLib\OutputEx (2, "CAPAV + NEOCEM", "C") ZLib\OutputEx (7, "Seleziona travi e carichi", "C") If NOT IsNum(beanInd) 0beanInd If NOT IsNum(loadInd) 0loadInd If NOT IsNum (cpInd) 0cpInd Dialog Title "Dati pag.1" Text "p vento = 0.48 kN/m²" DropDown "Travi",{"CAPAV B3", "CAPAV B5"}, beanInd DropDown "Sovraccarico (kN/m²)", {"1.20","1.50","1.80"}, loadInd DropDown "Carroponte", {"No","5 tonn."},cpInd EndDlog If ok = 0 Then Goto blExit EndIf If beanInd = 1 Then {"50x48 int. / 6","45x48 lat. / 6", "50x48 lat. / 8", "45x48 int. / 8"}tmp Else {"50x48 lat. / 6","45x48 int. / 6", "50x48 lat. / 8", "45x48 lat. / 8"}tmp EndIf If NOT IsNum(colInd) 0ColInd Dialog Title "Dati pag.2" Text "Sez.Pilastro e alt.utile" DropDown "cm x cm/m", tmp, colInd EndDlog if ok=0 Goto blExit colInd+(beanInd-1)*4row cpInd+(loadInd-1)*2col indexes[row,col]tmp If tmp>0 Then maxArea[tmp]strRes Else "NESSUN RISULTATO TROVATO"strRes EndIf ClrIo ZLib\OutputEx (1, "MAGLIA MASSIMA","L") ZLib\OutputEx (2, "COMP. CON PIL. E CARICHI","L") ZLib\OutputEx (4, strRes, "C") ZLib\OutputEx (7, "Premi ENTER", "R") Pause Goto Start Lbl blExit Dialog Title "fine programma" Text " " EndDlog If ok=0 Then Goto Start EndIf SetMode(OldMode) DelVar OldMode SetFold(#OldDir) EndPrgm äåÜ‹³