Programacion

PROGRAMA N.16

“FLUJO VOLUMETRICO Y ACUMULACION DE MATERI”































El código es:

'Variables de entrada
Dim Qe As Single 'Flujo volumetricoentrante
Dim Qs As Single 'Flujo volumetrico saliente
Dim Lf As Single 'Capacidad del tanque
Dim L0 As Single 'Residuo inicial
Dim P As Single 'Concentracion del soluto
'Variables de salida
DimQf As Single 'Flujo volumetrico resultante en el tanque
Dim Tf As Single 'Tiempo de llenado resultante del tanque
Dim Le As Single 'Volumen total entrante al tanque
Dim Ls As Single 'Volumen totalsaliente del tanque
Dim Ment As Single 'Masa total entrante en el tanque
Dim Ms As Single 'Masa total saliente del tanque
Dim Mf As Single 'Masa total acumulada en el tanque

Private SubmnuCalcular_Click()
'Lectura de datos
Qe = Val(txtQe.Text) 'Leer flujo volumetrico entrante
Qs = Val(txtQs.Text) 'Leer flujo volumetrico saliente
Lf = Val(txtLf.Text) 'Leer capacidad del tanque
L0 =Val(txtL0.Text) 'Leer residuo inicial en el tanque
P = Val(txtP.Text) 'Leer concentración del soluto en la mezcla
'Imprimir datos de entrada
txtM.SelText = "Flujo volumetrico entrante Qe = " & Qe &" (L/s)" & vbCrLf
txtM.SelText = "Flujo volumetrico saliente Qs = " & Qs & " (L/s)" & vbCrLf
txtM.SelText = "Capacidad del tanque Lf = " & Lf & " (L)" & vbCrLf
txtM.SelText = "Residuo inicial en eltanque L0 = " & L0 & " (L)" & vbCrLf
txtM.SelText = "Concentracion del soluto p = " & P & " (g/L)" & vbCrLf
'Proceso de datos
'Calcular flujo volumetrico resultante en el tanque
Qf = Qe - Qs'Imprimir flujo volumetrico resultante en el tanque
txtM.SelText = "Flujo volumetrico resultante Qf = " & Qf & " (L/s)" & vbCrLf
If Qe >= Qs Then
'Calcular tiempo de llenado del tanque
Tf = (Lf - L0)/ Qf
'Imprimir tiempo de llenado del tanque
txtM.SelText = "Tiempo de llenado del tanque Tf = " & Tf & " (s)" & vbCrLf
Else
'Notificar que se tiene un flujo resultante negativo en el tanque, y...