Alcholismo

Escuela Politécnica del Ejército

Departamento De Ciencias De La Tierra Y La Construcción

CARRERA DE “INGENIERIA CIVIL”

OBRAS CIVILES.

“TRABAJO DE LA TERCERA UNIDAD”

Fernando Cachipuendo

Octavo Nivel

Sangolquí 21 de Julio del 2011

PROGRAMA DE CALCULO DE MUROS

VENTANA DE INICIO Y DE INGRESO DE DATOS DEL PROGRAMA.

CODIGO FUENTE DEL PROGRAMA
Public Class Form1'********************* OBRAS CIVILES**********************
'******* 8° NIVEL
'******* DEPARTAMENTO DE CIENCIAS DE LA TIERRA Y LA CONSTRUCCION
'******* CARRERA DE INGENIERIA CIVIL
'******* PROGRAMA PARA EL CALCULO DE MUROS
'******* 2011 - 07 - 18
'******* ELABORADO POR: FERNANDO CACHIPUENDO

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

' ABRE EL LIBRO DE EXCEL DONDE SE IMPRIMIRAN LOS RESULTADOS
' ---------------------------------------------------------

Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object

'Start a new workbook in Excel
oExcel = CreateObject("Excel.Application")
oBook =oExcel.Workbooks.Add

'Add data to cells of the first worksheet in the new workbook
oSheet = oBook.Worksheets(1)
oSheet.Range("A1:AZ2").Font.Bold = True
oSheet.Range("A8:AZ8").Font.Bold = True

' INGRESO DE DATOS Y DECLARACION DE VARIABLES
' -------------------------------------------

Dim dce, dps, dci, dd, dpi, dt, lz, h1, hp, hz,ht As Single
Dim fi, qs, pes, fy, pem, mu, fc, scg, tpm, tps, c, ym As Single
Dim kac, ea, mv, kp, ep, fsv, fsd As Single

' DATOS EN EL GRAFICO
dce = Val(TextBox1.Text)
dps = Val(TextBox2.Text)
dci = Val(TextBox3.Text)
dd = Val(TextBox5.Text)
dpi = Val(TextBox6.Text)
dt = Val(TextBox7.Text)
h1 =Val(TextBox4.Text)
hz = Val(TextBox9.Text)
hp = Val(TextBox10.Text)

' DATOS EN EL GROUPBOX1
fi = Val(TextBox8.Text)
qs = Val(TextBox11.Text)
pes = Val(TextBox12.Text)
fy = Val(TextBox13.Text)
pem = Val(TextBox14.Text)
fc = Val(TextBox15.Text)
mu = Val(TextBox16.Text)
scg = Val(TextBox17.Text)
'tpm =Val(TextBox18.Text)
tps = Val(TextBox19.Text)
ym = Val(TextBox20.Text)

lz = dd + dpi + dt 'Calculo de la longitud total de la zapata

ht = hz + hp 'Calculo de la altura total del muro

Label1.Text = Str(lz) 'Reporta la longitud total de la zapata en la pantalla del formulario en el Label1


' CALCULO DE LOSRESULTADOS EN EL GROUPBOX2
' -----------------------------------------

kac = (1 - Math.Sin(fi * 3.14159265359 / 180)) / (1 + Math.Sin(fi * 3.14159265359 / 180)) 'K activo
kp = 1 / kac 'K pasivo

'Calculo del empuje activo y pasivo

Select Case tps
Case 1ea = 1 / 2 * pes * ht ^ 2 * kac
ep = pes * (h1 ^ 2) * (kp / 2)

Case 2
c = InputBox("Introduzca la cohesion del suelo en T/m2", "OBRAS CIVILES")
ea = 1 / 2 * pes * ht ^ 2 * kac - 2 * c * ht * kac ^ (1 / 2)
ep = pes * h1 ^ 2 * kp / 2 + 2 * c * h1 * (kp) ^ (1 / 2)

Case 3
c= InputBox("Introduzca la cohesion del suelo en T/m2", "OBRAS CIVILES")
ea = 1 / 2 * pes * ht ^ 2 * kac - 2 * c * ht * kac ^ (1 / 2) + (2 * c ^ 2) / pes
ep = pes * h1 ^ 2 * kp / 2 + 2 * c * h1 * (kp) ^ (1 / 2)
End Select

mv = ea * ht / 3 'Momento Volcador

' Muestra los resultados en el formulario
Label46.Text = Str(kac)...