EJERCICIO 1:
En un laboratorio se cuenta con un líquido desconocido que a 95°C tiene una solubilidad de 60 g/L y a
30°C tiene 10 g/L. Se necesita de un programa que calcule la solubilidad de dicho líquido a diversas
temperaturas, como por ejemplo a 40°C y 70°C.
1.1 Desarrollo del problema:
A partir de la gráfica se asume que es una función lineal por lo que reemplazamos valores a partir de
esta ecuación:
Ecuación de la Solubilidad:
Desarrollando y hallando la solubilidad a 40°C:
Hallando la solubilidad a 70°C:
1.2 Diagrama de Flujo:
1.3 Código:
Public Class Form1
Sub CAL_SOLUB(ByVal TEMP As Integer, ByRef SOLUB As String)
SOLUB = ((60 - 10) / (95 - 30)) * (TEMP - 30) + 10 & " " & "g/L"
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim TEMP As Integer
Dim SOLUB As String
TEMP = TextBox1.Text
CAL_SOLUB(TEMP, SOLUB)
TextBox2.Text = SOLUB
TextBox3.Text = Math.Round(Val(TextBox2.Text), 2) & " " & "g/L"
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox1.Focus()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
End
End Sub
End Class
1.4 Formulario:
EJERCICIO 2:
Crea un programa en Visual Basic, que me halle las variables de la primera Ley de la Termodinámica:
Q,W,E ; Teniendo como datos las variables de volumen inicial, volumen final, número de moles y
presión (cte)
2.1 Diagrama de flujo:
2.2 Código:
2.3 Formulario:
EJERCICIO 3:
Dada una mezcla gaseosa que presenta las siguientes fracciones molares:
0,3 de Bromo diatómico, 0,3 de cloro diatómico y 0,4 de flúor diatómico. Si la presión total es de 2
atm.
Halle las presiones parciales de cada gas.
3.1 Diagrama de flujo:
Donde:
YF: fracción molar del flúor PBr: Presión parcial bromo
YCl: Fracción molar del cloro PCl: Presión parcial cloro
YBr: Fracción molar del bromo PBr: Presión parcial Bromo
Pt: Presión total Frac: Fracción molar total
3.2 Codificación:
Public Class Form1
Dim YBr, YF, YCl, FRAC As Double
Dim Pt As Integer
Dim PBr, PCl, PF As Double
Sub Presion (ByVal YBr As Double, YCl As Double, YF As Double, Pt As Integer, ByRef PBr As Double,
ByRef PCl As Double, ByRef PF As Double)
FRAC = (YBr + YCl + YF) / 10
If FRAC = 1 Then
PBr = YBr * Pt * 0.1
PCl = YCl * Pt * 0.1
PF = YF * Pt * 0.1
ElseIf FRAC <> 1 Then
PBr = 0
PCl = 0
PF = 0
MessageBox.Show ("Error, Insertar otros datos")
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
YBr = TextBox1.Text
YCl = TextBox2.Text
YF = TextBox3.Text
Pt = TextBox4.Text
Call Presion(YBr, YCl, YF, Pt, PBr, PCl, PF)
TextBox5.Text = PBr
TextBox6.Text = PCl
TextBox7.Text = PF
TextBox8.Text = Frac
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox1.Focus()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
End
End Sub
3.3 Formulario:
EJERCICIO 4
Crear un programa en Visual Basic. Calcular los gramos de una sustancia que hay que pesar para
preparar disoluciones con diferentes volúmenes (mL), de tal manera que la composición sea de 20
g/L.
4.1. Diagrama De Flujo
4.2. Código Visual
Public Class Form1
Dim GSOL As String
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim V As Integer
Dim VC As String
V = TextBox1.Text
CAL_GSOL(V, VC, GSOL)
TextBox2.Text = VC
TextBox3.Text = GSOL
End Sub
Sub CAL_GSOL(ByVal V As Integer, ByRef VC As String, ByRef GSOL As String)
VC = (V * 1) / 1000
GSOL = VC * 20
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
End
End Sub
End Class
4.3. Diseño De Formulario
