PROGRAMACION

PRESENTACIÓN



//---------------------------------------------------------------------------

#include
#pragma hdrstop

#include "frmPrincipal.h"
#include "rugosidad.h"
---
void __fastcall TfrmRugosidad::btnCalcularClick(TObject *Sender)
{
Coeficiente = 0;
GroupBox1->Visible = false;

if(ComboBox1->Text == "Concreto Presforzado")
{Coeficiente = 0.012;
}else if(ComboBox1->Text == "Acero Galvanizado")
{
Coeficiente = 0.014;
}

else if(ComboBox1->Text == "Acero sin revestimiento")
{
Coeficiente = 0.014;
}
else if(ComboBox1->Text == "Acero con Revestimiento")
{
Coeficiente = 0.044;
}
elseif(ComboBox1->Text == "Policloruro de vinilo")
{
Coeficiente = 0.009;
}
else if(ComboBox1->Text == "Polietileno de alta densidad")
{
Coeficiente = 0.009;
}




if(Diametro->Text.Length()>0)
{
if(Coeficiente>0)
{
try
{
//Calculodouble Temp=0;
Temp = Diametro->Text.ToDouble();
Temp = Temp * Coeficiente;
Resultado->Text = Temp;

GroupBox1->Visible = true;
}
catch (Exception &VCLException)
{
ShowMessage("Error: " +VCLException.Message);
};


}else
{
//Poner Mensaje
ShowMessage("No seas burro");

}
}




}
//---------------------------------------------------------------------------

void __fastcall TfrmRugosidad::btmcalcular2Click(TObject *Sender)
{

CoeficienteVolumen = 0;
GroupBox2->Visible =false;

if(ComboBox2->Text == "Concreto presforzado")
{
CoeficienteVolumen = 3.5;
}

if(ComboBox2->Text == "Acero galvanizado")
{
CoeficienteVolumen = 5;
}

if(ComboBox2->Text == "Acero sin revestimiento")
{
CoeficienteVolumen = 5;
}
if(ComboBox2->Text == "Acero conrevestimiento")
{
CoeficienteVolumen = 5;
}

if(ComboBox2->Text == "Policloruro de Vinilo")
{
CoeficienteVolumen = 5;
}

if(ComboBox2->Text == "Polietileno de alta densidad")
{
CoeficienteVolumen = 5;

}
if(Diametro->Text.Length()>0)
{if(CoeficienteVolumen>0)
{
try
{
//Calculo
double Temp=0;
Temp = Diametro->Text.ToDouble();
Temp = Temp * CoeficienteVolumen;
R2->Text = Temp;

GroupBox2->Visible = true;
}
catch(Exception &VCLException)
{
ShowMessage("Error: " + VCLException.Message);
};


}
}




}

//---------------------------------------------------------------------------

VOLUMEN.


//---------------------------------------------------------------------------

#include
#pragma hdrstop

#include "volumen.h"//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmVolumen *frmVolumen;

int VolHabitacional = 0;
int VolComercial = 0;
int VolReligiosos = 0;
int VolHoteles= 0;
int VolSanitarios= 0;
int VolReclusorio= 0;
int VolClubes= 0;
int VolEscuelas= 0;
int VolBodegas= 0;
int VolEstacionamientos= 0;...