Programacion de Proyecto - Hidraulica de Canales
Programacion de Proyecto - Hidraulica de Canales
Programacion de Proyecto - Hidraulica de Canales
PROGRAMAMOS (FORM-1)
1. BOOTON INGRESAR
If TextBox1.Text = "WILMER DAVID" And TextBox2.Text = "2015480018" Then
Form2.Show()
PROGRAMAMOS (FORM-2)
1. PROGRAMA EN ToolStripMenuItem
Private Sub FORMULASToolStripMenuItem_Click(sender As Object, e As
EventArgs) Handles FORMULASToolStripMenuItem.Click
Form3.Show()
End Sub
1. PROGRAMAMOS EN PictureBox1
Elegir imagen luego a exportar
PROGRAMAMOS (FORM-4)
1. PROGRAMAMOS EN PictureBox1
Elegir imagen luego a exportar
PROGRAMAMOS (FORM-5)
1. BOOTON CALCULAR
'PARA LA FECHA
If FECHADateTimePicker.Text = "" Then
MessageBox.Show("ingrese dato a fecha", "verifique")
Else
FECHA = FECHADateTimePicker.Text
End If
'PARA TIRANTE
If TIRANTETextBox.Text = "" Then
MessageBox.Show("ingrese dato a tirante", "verifique")
Else
TIRANTE = TIRANTETextBox.Text
End If
'PARA AREA
If AREATextBox.Text = "" Then
MessageBox.Show("ingrese dato a area", "verifique")
Else
AREA = AREATextBox.Text
End If
'PARA CAUDAL
If CAUDALTextBox.Text = "" Then
MessageBox.Show("ingrese dato a caudal", "verifique")
Else
CAUDAL = CAUDALTextBox.Text
End If
'PARA GRADIENTE HIDRAULICO
If GRADIENTE_HIDRAULICOTextBox.Text = "" Then
MessageBox.Show("ingrese dato a gradiente_hidraulico", "verifique")
Else
GRADIENTE = GRADIENTE_HIDRAULICOTextBox.Text
End If
'PARA ANGULO
If ANGULOTextBox.Text = "" Then
MessageBox.Show("ingrese dato a angulo", "verifique")
Else
ANGULO = ANGULOTextBox.Text
End If
'PARA VELOCIDAD
If VELOCIDADTextBox.Text = "" Then
MessageBox.Show("ingrese dato a velocidad", "verifique")
Else
VELOCIDAD = VELOCIDADTextBox.Text
End If
'CALCULOS
'TIRANTE
TIRANTE = ((CAUDALTextBox.Text * 4 ^ (1 / 3)) / ((1 /
(COEFICIENTE_MANINGTextBox.Text)) * ((2 - Math.Sin(Val(ANGULOTextBox.Text) *
Math.PI / 180))) / (Math.Cos(Val(ANGULOTextBox.Text) * Math.PI / 180)) *
(GRADIENTE_HIDRAULICOTextBox.Text) ^ (0.5))) ^ 0.375
TIRANTETextBox.Text = TIRANTE
'AREA
AREA = (TIRANTETextBox.Text) ^ 2 * ((2 - Math.Sin(Val(ANGULOTextBox.Text)
* Math.PI / 180)) / (Math.Cos(Val(ANGULOTextBox.Text) * Math.PI / 180)))
AREATextBox.Text = AREA
'PERIMETRO
PERIMETRO = 2 * TIRANTETextBox.Text * ((2 -
(Math.Sin(Val(ANGULOTextBox.Text) * Math.PI / 180))) /
(Math.Cos(Val(ANGULOTextBox.Text) * Math.PI / 180)))
PERIMETRO_MOJADOTextBox.Text = PERIMETRO
'ANCHO SOLERA
ANCHO_SOLERA = 2 * TIRANTETextBox.Text * ((1 -
(Math.Sin(Val(ANGULOTextBox.Text) * Math.PI / 180))) /
(Math.Cos(Val(ANGULOTextBox.Text) * Math.PI / 180)))
ANCHO_SOLERATextBox.Text = ANCHO_SOLERA
'RADIO
RADIO = (TIRANTETextBox.Text) / 2
RADIO_HIDRAULICOTextBox.Text = RADIO
'BORDE LIBRE
BORDE_LIBRE = (TIRANTETextBox.Text) / 3
BORDE_LIBRETextBox.Text = BORDE_LIBRE
'ANCHO BERMA
ANCHO_BERMA = BORDE_LIBRETextBox.Text
ANCHO_BERMATextBox.Text = ANCHO_BERMA
'VERIFICACION DE LA VELOCIDAD
'AGREGAMOS FILAS
Me.DISEÑO_CANALTableAdapter.AGREGAR(CODIGOTextBox.Text,
FECHADateTimePicker.Text, CAUDALTextBox.Text,
GRADIENTE_HIDRAULICOTextBox.Text, ANGULOTextBox.Text,
COEFICIENTE_MANINGTextBox.Text, VELOCIDADTextBox.Text, TIRANTETextBox.Text,
AREATextBox.Text, PERIMETRO_MOJADOTextBox.Text, ANCHO_SOLERATextBox.Text,
RADIO_HIDRAULICOTextBox.Text, BORDE_LIBRETextBox.Text,
ANCHO_BERMATextBox.Text, VERIFICACION_VELOCIDADTextBox.Text)
Me.DISEÑO_CANALTableAdapter.Fill(Me.HIDRAULICA_CANALESDataSet.DISEÑO_CANAL
)
4. BOOTON MODIFICAR
'MODIFICAMOS FILAS
Me.DISEÑO_CANALTableAdapter.MODIFICAR(CODIGOTextBox.Text,
FECHADateTimePicker.Text, CAUDALTextBox.Text,
GRADIENTE_HIDRAULICOTextBox.Text, ANGULOTextBox.Text,
COEFICIENTE_MANINGTextBox.Text, VELOCIDADTextBox.Text, TIRANTETextBox.Text,
AREATextBox.Text, PERIMETRO_MOJADOTextBox.Text, ANCHO_SOLERATextBox.Text,
RADIO_HIDRAULICOTextBox.Text, BORDE_LIBRETextBox.Text,
ANCHO_BERMATextBox.Text, VERIFICACION_VELOCIDADTextBox.Text,
CODIGOTextBox.Text)
Me.DISEÑO_CANALTableAdapter.Fill(Me.HIDRAULICA_CANALESDataSet.DISEÑO_CANAL
)
5. BOOTON ELIMINAR
'ELIMINAR FILAS
Me.DISEÑO_CANALTableAdapter.ELIMINAR(CODIGOTextBox.Text)
Me.DISEÑO_CANALTableAdapter.Fill(Me.HIDRAULICA_CANALESDataSet.DISEÑO_CANAL
)
6. BOOTON BUSCAR
'BUSCANOS FILAS
Me.DISEÑO_CANALTableAdapter.BUSCAR(Me.HIDRAULICA_CANALESDataSet.DISEÑO_CANAL,
CODIGOTextBox.Text)
8. BOOTON LIMPIAR
'LIMPIAMOS CAJAS DE TEXTO
CODIGOTextBox.Clear()
FECHADateTimePicker.Text = ""
CAUDALTextBox.Clear()
GRADIENTE_HIDRAULICOTextBox.Clear()
ANGULOTextBox.Clear()
COEFICIENTE_MANINGTextBox.Clear()
VELOCIDADTextBox.Clear()
TIRANTETextBox.Clear()
AREATextBox.Clear()
PERIMETRO_MOJADOTextBox.Clear()
ANCHO_SOLERATextBox.Clear()
RADIO_HIDRAULICOTextBox.Clear()
BORDE_LIBRETextBox.Clear()
ANCHO_BERMATextBox.Clear()
VERIFICACION_VELOCIDADTextBox.Clear()
9. BOOTON LIMPIAR
'CERRAMOS LA EJECUCION
Close()