Computación - R1O2T3A4V5

vapor vapor subir subir
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ComboBox1.Text = "Agua"
ComboBox2.Text = "Etanol"
ComboBox3.Text = "Celcius"
ComboBox4.Text = "mbar"
ComboBox5.Text = "Relación m/m"
End Sub

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
CONVERSIONTEMPERATURA:
If TextBox1.Text = "" Or TextBox1.Text = "-" Or TextBox1.Text = "." Then
T = 0
Else
If ComboBox3.Text = "Celcius" Then
T = Val(TextBox1.Text)
End If
If ComboBox3.Text = "Farenheit" Then
T = Val(TextBox1.Text - 32) / 1.8
End If
If ComboBox3.Text = "Kelvin" Then
T = Val(TextBox1.Text) - 273.15
End If
If ComboBox3.Text = "Rankine" Then
T = Val(TextBox1.Text - 491.67) / 1.8
End If
End If
End Sub

Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
CONVERSIONTEMPERATURA:
If TextBox1.Text = "" Or TextBox1.Text = "-" Or TextBox1.Text = "." Then
T = 0
Else
If ComboBox3.Text = "Celcius" Then
T = Val(TextBox1.Text)
End If
If ComboBox3.Text = "Farenheit" Then
T = Val(TextBox1.Text - 32) / 1.8
End If
If ComboBox3.Text = "Kelvin" Then
T = Val(TextBox1.Text) - 273.15
End If
If ComboBox3.Text = "Rankine" Then
T = Val(TextBox1.Text - 491.67) / 1.8
End If
End If
End Sub

Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.SelectedIndexChanged
If TextBox2.Text = "" Or TextBox3.Text = "" Then
Else
If ComboBox5.Text = "Relación m/m" Then
Porcentaje1 = ((TextBox2.Text * 100)) / (Val(TextBox2.Text) + (Val(TextBox3.Text)))
Porcentaje2 = ((TextBox3.Text * 100)) / (Val(TextBox2.Text) + (Val(TextBox3.Text)))
End If
If ComboBox5.Text = "Porcentaje" Then
Porcentaje1 = (TextBox2.Text)
Porcentaje2 = (TextBox3.Text)
End If
If ComboBox5.Text = "Fracción másica" Then

End If
End If
End Sub

Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
If TextBox2.Text = "" Or TextBox3.Text = "" Then
Else
If ComboBox5.Text = "Relación m/m" Then
Porcentaje1 = ((TextBox2.Text * 100)) / (Val(TextBox2.Text) + (Val(TextBox3.Text)))
Porcentaje2 = ((TextBox3.Text * 100)) / (Val(TextBox2.Text) + (Val(TextBox3.Text)))
End If
If ComboBox5.Text = "Porcentaje" Then
Porcentaje1 = (TextBox2.Text)
Porcentaje2 = (TextBox3.Text)
End If
If ComboBox5.Text = "Fracción másica" Then
End If
End If
End Sub

Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
If TextBox2.Text = "" Or TextBox3.Text = "" Then
Else
If ComboBox5.Text = "Relación m/m" Then
Porcentaje1 = ((TextBox2.Text * 100)) / (Val(TextBox2.Text) + (Val(TextBox3.Text)))
Porcentaje2 = ((TextBox3.Text * 100)) / (Val(TextBox2.Text) + (Val(TextBox3.Text)))
End If
If ComboBox5.Text = "Porcentaje" Then
If ComboBox2.Text = "-" And ComboBox3.Text = "-" Then
Else
Porcentaje1 = (TextBox2.Text)
Porcentaje2 = (TextBox3.Text)
End If
End If
If ComboBox5.Text = "Fracción másica" Then
End If
End If
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
PRESIONSUSTANCIA:
If ComboBox1.Text = ComboBox2.Text Then
MessageBox.Show("igresa dos sustancias distintas")
Else
If String.IsNullOrEmpty(TextBox1.Text) Then
MessageBox.Show("Ingresar la temperatura")
Label53.Text = ""
TextBox6.Text = ""
Else
If ComboBox5.Text = "Relación m/m" Or ComboBox5.Text = "Fracción másica" Then
PRIMERCOMBOBOX1:
TK = T + (273.15)

If ComboBox1.Text = "Agua" Then
A = 8.10765
B = 1750.286
C = 235
M1 = 0.018
Tebu = 373.15
Tfus = 273.15
Tcri = 647.15
Taut = 1000000
Ttri = 273.16
Tmen = 273.15
Tmay = 423.15
End If
If ComboBox1.Text = "Etanol" Then
A = 8.1122
B = 1592.864
C = 226.184
M1 = 0.04607
Tebu = 351.75
Tfus = 159.05
Tcri = 514
Taut = 1066.15
Ttri = 158.93
Tmen = 292.75
Tmay = 366.55
End If
If ComboBox1.Text = "Metanol" Then
A = 8.08097
B = 1582.271
C = 239.726
M1 = 0.03204
Tebu = 337.85
Tfus = 175.35
Tcri = 513.15
Taut = 653.15
Ttri = 175.47
Tmen = 288.05
Tmay = 356.85
End If
If ComboBox1.Text = "Benceno" Then
A = 6.89272
B = 1023.531
C = 219.888
M1 = 0.07811
Tebu = 353.25
Tfus = 278.65
Tcri = 562.16
Taut = 833.15
Ttri = 278.65
Tmen = 287.65
Tmay = 354.05

End If
If ComboBox1.Text = "Hexano" Then
A = 6.88555
B = 1175.817
C = 224.867
M1 = 0.08618
Tebu = 342.15
Tfus = 177.55
Tcri = 507.6
Taut = 498.15
Ttri = 178.15
Tmen = 286.15
Tmay = 342.65

End If
If ComboBox1.Text = "Acetona" Then
A = 7.11714
B = 1210.595
C = 229.664
M1 = 0.05808
Tebu = 329.65
Tfus = 179.15
Tcri = 508.2
Taut = 811.15
Ttri = 178.35
Tmen = 260.25
Tmay = 328.45

End If
If ComboBox1.Text = "Tolueno" Then
A = 6.95805
B = 1346.773
C = 219.693
M1 = 0.09214
Tebu = 384.15
Tfus = 178.15
Tcri = 591.79
Taut = 803.15
Ttri = 178.15
Tmen = 308.45
Tmay = 384.65

End If
If ComboBox1.Text = "Cloroformo" Then
A = 6.95465
B = 1170.966
C = 226.232
M1 = 0.11938
Tebu = 335.41
Tfus = 209.65
Tcri = 536.55
Taut = 1273.15
Ttri = 175.43
Tmen = 262.75
Tmay = 333.45

End If
If ComboBox1.Text = "Fenol" Then
A = 7.13301
B = 1516.79
C = 174.954
M1 = 0.09411
Tebu = 454.9
Tfus = 316.15
Tcri = 694.3
Taut = 988.15
Ttri = 314.15
Tmen = 380.35
Tmay = 454.95

End If
If ComboBox1.Text = "Ciclohexano" Then
A = 6.84941
B = 1206.001
C = 223.148
M1 = 0.08416
Tebu = 342.15
Tfus = 177.55
Tcri = 553.4
Taut = 496.15
Ttri = 178.15
Tmen = 293.05
Tmay = 354.75

End If
If ComboBox1.Text = "Ácido Acético" Then
A = 7.38782
B = 1533.313
C = 222.309
M1 = 0.060052
Tebu = 391.15
Tfus = 290.15
Tcri = 504.75
Taut = 758.15
Ttri = 290.15
Tmen = 302.95
Tmay = 399.65
End If
If ComboBox1.Text = "Amoniaco" Then
A = 7.55466
B = 1002.711
C = 247.885
M1 = 0.017031
Tebu = 239.8
Tfus = 195.45
Tcri = 406.15
Taut = 924.15
Ttri = 195.4
Tmen = 190.15
Tmay = 333.15

End If
If ComboBox1.Text = "Anhídrido Acético" Then
A = 7.149448
B = 1444.718
C = 199.817
M1 = 0.10209
Tebu = 411.15
Tfus = 200.15
Tcri = 595.15
Taut = 589.15
Ttri = 200.15
Tmen = 335.95
Tmay = 412.55

End If
If ComboBox1.Text = "Etilenglicol" Then
A = 8.09083
B = 2088.936
C = 203.454
M1 = 0.06207
Tebu = 470.75
Tfus = 260.15
Tcri = 645.15
Taut = 671.15
Ttri = 262.38
Tmen = 323.15
Tmay = 473.15

End If
If ComboBox1.Text = "Estireno" Then
A = 7.06623
B = 1507.434
C = 214.985
M1 = 0.10415
Tebu = 419.15
Tfus = 242.75
Tcri = 647.55
Taut = 763.15
Ttri = 243.15
Tmen = 303.05
Tmay = 417.95
End If
SEGUNDOCOMBOBOX:
If ComboBox2.Text = "Agua" Then

A2 = 8.10765
B2 = 1750.286
C2 = 235

M2 = 0.018
T2ebu = 373.15
T2fus = 273.15
T2cri = 647.15
T2aut = 1000000
T2tri = 273.16
T2men = 273.15
T2may = 333.15
End If
If ComboBox2.Text = "Etanol" Then
A2 = 8.1122
B2 = 1592.864
C2 = 226.184
M2 = 0.04607
T2ebu = 351.75
T2fus = 159.05
T2cri = 514
T2aut = 1066.15
T2tri = 158.93
T2men = 292.75
T2may = 366.55
End If
If ComboBox2.Text = "Metanol" Then
A2 = 8.08097
B2 = 1582.271
C2 = 239.726
M2 = 0.03204
T2ebu = 337.85
T2fus = 175.35
T2cri = 513.15
T2aut = 653.15
T2tri = 175.47
T2men = 288.05
T2may = 356.85
End If
If ComboBox2.Text = "Benceno" Then
A2 = 6.89272
B2 = 1023.531
C2 = 219.888
M2 = 0.07811
T2ebu = 353.25
T2fus = 278.65
T2cri = 562.16
T2aut = 833.15
T2tri = 278.65
T2men = 287.65
T2may = 354.05
End If
If ComboBox2.Text = "Hexano" Then
A2 = 6.88555
B2 = 1175.817
C2 = 224.867
M2 = 0.08618
T2ebu = 342.15
T2fus = 177.55
T2cri = 507.6
T2aut = 498.15
T2tri = 178.15
T2men = 286.15
T2may = 342.65

End If
If ComboBox2.Text = "Acetona" Then
A2 = 7.11714
B2 = 1210.595
C2 = 229.664
M2 = 0.05808
T2ebu = 329.65
T2fus = 179.15
T2cri = 508.2
T2aut = 811.15
T2tri = 178.35
T2men = 260.25
T2may = 328.45
End If
If ComboBox2.Text = "Tolueno" Then
A2 = 6.95805
B2 = 1346.773
C2 = 219.693
M2 = 0.09214
T2ebu = 384.15
T2fus = 178.15
T2cri = 591.79
T2aut = 803.15
T2tri = 178.15
T2men = 308.45
T2may = 384.65
End If
If ComboBox2.Text = "Cloroformo" Then
A2 = 6.95465
B2 = 1170.966
C2 = 226.232
M2 = 0.11938
T2ebu = 335.41
T2fus = 209.65
T2cri = 536.55
T2aut = 1273.15
T2tri = 175.43
T2men = 262.75
T2may = 333.45
End If
If ComboBox2.Text = "Fenol" Then
A2 = 7.13301
B2 = 1516.79
C2 = 174.954
M2 = 0.09411
T2ebu = 454.9
T2fus = 316.15
T2cri = 694.3
T2aut = 988.15
T2tri = 314.15
T2men = 380.35
T2may = 454.95
End If
If ComboBox2.Text = "Ciclohexano" Then
A2 = 6.84941
B2 = 1206.001
C2 = 223.148
M2 = 0.08416
T2ebu = 342.15
T2fus = 177.55
T2cri = 553.4
T2aut = 496.15
T2tri = 178.15
T2men = 293.05
T2may = 354.75
End If
If ComboBox2.Text = "Ácido Acético" Then
A2 = 7.38782
B2 = 1533.313
C2 = 222.309
M2 = 0.060052
T2ebu = 391.15
T2fus = 290.15
T2cri = 504.75
T2aut = 758.15
T2tri = 290.15
T2men = 302.95
T2may = 399.65
End If
If ComboBox2.Text = "Amoniaco" Then
A2 = 7.55466
B2 = 1002.711
C2 = 247.885
M2 = 0.017031
T2ebu = 239.8
T2fus = 195.45
T2cri = 406.15
T2aut = 924.15
T2tri = 195.4
T2men = 190.15
T2may = 333.15
End If
If ComboBox2.Text = "Anhídrido Acético" Then
A2 = 7.149448
B2 = 1444.718
C2 = 199.817
M2 = 0.10209
T2ebu = 411.15
T2fus = 200.15
T2cri = 595.15
T2aut = 589.15
T2tri = 200.15
T2men = 335.95
T2may = 412.55
End If
If ComboBox2.Text = "Etilenglicol" Then
A2 = 8.09083
B2 = 2088.936
C2 = 203.454
M2 = 0.06207
T2ebu = 470.75
T2fus = 260.15
T2cri = 645.15
T2aut = 671.15
T2tri = 262.38
T2men = 323.15
T2may = 473.15
End If
If ComboBox2.Text = "Estireno" Then
A2 = 7.06623
B2 = 1507.434
C2 = 214.985
M2 = 0.10415
T2ebu = 419.15
T2fus = 242.75
T2cri = 647.55
T2aut = 763.15
T2tri = 243.15
T2men = 303.05
T2may = 417.95
End If
P1 = (A - (B / (T + C)))
P2 = (A2 - (B2 / (T + C2)))
mmHgCONVERSION:
P1 = (10 ^ P1)
P1 = (Val(P1 * 101325) / 760)
P1 = P1 / 100
Label68.Text = P1
mmHgCONVERSION2:
P2 = (10 ^ P2)
P2 = (Val(P2 * 101325) / 760)
P2 = P2 / 100
Label7.Text = P2
MOSTRARPROPIEDADES:
COMPARACIONES:
If Tebu > T2ebu Then
Label16.Text = TK

Label35.Text = ComboBox1.Text
Label19.Text = Tebu
Label20.Text = Tfus
Label21.Text = Tcri
Label22.Text = Ttri
If Taut = 1000000 Then
Label23.Text = "-"
Else
Label23.Text = Taut
End If
Label26.Text = M1

Label36.Text = ComboBox2.Text
Label27.Text = T2ebu
Label28.Text = T2fus
Label29.Text = T2cri
Label30.Text = T2tri
If T2aut = 1000000 Then
Label31.Text = "-"
Else
Label31.Text = T2aut
End If
Label34.Text = M2
EBULLICIONMAYOR:
EMA = Tebu

If TK <= Tfus Then
MessageBox.Show("Es un solido el programa es para separar una mezcla liquida1")
Label53.Text = ""
TextBox6.Text = ""
Else
If TK <= Ttri Then
MessageBox.Show("Es un solido, el programa es para separar una mezcla liquida2")
Label53.Text = ""
TextBox6.Text = ""
Else
If TK >= Taut Then
MessageBox.Show("Peligro de incendio5")
Label53.Text = ""
TextBox6.Text = ""
Else
If TK <= Tmen Then
MessageBox.Show("La ecuacion de antoine no cubre ese rango1")
Label53.Text = ""
TextBox6.Text = ""
Else
If TK >= Tmay Then
MessageBox.Show("La ecuacion de antoine no cubre ese rango2")
Label53.Text = ""
TextBox6.Text = ""
Else
EBULLICIONMENOR:
EME = T2ebu
If TK <= T2fus Then
MessageBox.Show("Es un solido el programa es para separar una mezcla liquida3")
Label53.Text = ""
TextBox6.Text = ""
Else
If TK >= T2cri Then
MessageBox.Show("Es un vapor sobrecalentado, el programa es para separar una mezcla liquida")
Label53.Text = ""
TextBox6.Text = ""
Else
If TK >= T2aut Then
MessageBox.Show("Peligro de incendio7")
Label53.Text = ""
TextBox6.Text = ""
Else
If TK <= T2men Then
MessageBox.Show("La ecuacion de antoine no cubre ese rango3")
Label53.Text = ""
TextBox6.Text = ""
Else
If TK >= T2may Then
MessageBox.Show("La ecuacion de antoine no cubre ese rango5")
Label53.Text = ""
TextBox6.Text = ""
Else
FRACCIONMOLAR:
If String.IsNullOrEmpty(TextBox2.Text) Or String.IsNullOrEmpty(TextBox3.Text) Then
MessageBox.Show("Ingresa las concentraciones1")
Label53.Text = ""
TextBox6.Text = ""
Else
If ComboBox5.Text = "Fracción másica" Then

X1 = TextBox2.Text
X2 = TextBox3.Text
Else
X1 = (Val(Porcentaje1) / M1) / ((Val(Porcentaje1) / M1) + (Val(Porcentaje2) / M2))
X2 = 1 - X1
End If
Label8.Text = X1
Label9.Text = X2
PRESIONMEZCLA:
PM = (P1 * X1) + (P2 * X2)

TextBox6.Text = Convert.ToDecimal(Val(PM)).ToString("N4")
ComboBox4.Text = "mbar"

Label53.Text = Convert.ToDecimal(Val(P1)).ToString("N4")
Pminima = P2
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Else
EBULLICIONMAYOR2:
EMA = T2ebu
MOSTRARPROPIEDADES2:
Label16.Text = TK

Label35.Text = ComboBox2.Text
Label19.Text = T2ebu
Label20.Text = T2fus
Label21.Text = T2cri
Label22.Text = T2tri
If T2aut = 1000000 Then
Label23.Text = "-"
Else
Label23.Text = T2aut
End If
Label26.Text = M2

Label36.Text = ComboBox1.Text
Label27.Text = Tebu
Label28.Text = Tfus
Label29.Text = Tcri
Label30.Text = Ttri
If Taut = 1000000 Then
Label31.Text = "-"
Else
Label31.Text = Taut
End If
Label34.Text = M1

If TK <= T2fus Then
MessageBox.Show("Es un solido el programa es para separar una mezcla liquida")
Label53.Text = ""
TextBox6.Text = ""
Else
If TK <= T2tri Then
MessageBox.Show("Es un solido, el programa es para separar una mezcla liquida")
Label53.Text = ""
TextBox6.Text = ""
Else
If TK >= T2aut Then
MessageBox.Show("Peligro de incendio2")
Label53.Text = ""
TextBox6.Text = ""
Else
If TK <= T2men Then
MessageBox.Show("La ecuacion de antoine no cubre ese rango")
Label53.Text = ""
TextBox6.Text = ""
Else
If TK >= T2may Then
MessageBox.Show("La ecuacion de antoine no cubre ese rango")
Label53.Text = ""
TextBox6.Text = ""
Else
EME = Tebu
If TK <= Tfus Then
MessageBox.Show("Es un solido el programa es para separar una mezcla liquida")
Label53.Text = ""
TextBox6.Text = ""
Else
If TK >= Tcri Then
MessageBox.Show("Es un vapor sobrecalentado, el programa es para separar una mezcla liquida")
Label53.Text = ""
TextBox6.Text = ""
Else
If TK >= Taut Then
MessageBox.Show("Peligro de incendio1")
Label53.Text = ""
TextBox6.Text = ""
Else
If TK <= Tmen Then
MessageBox.Show("La ecuacion de antoine no cubre ese rango")
Label53.Text = ""
TextBox6.Text = ""
Else
If TK >= Tmay Then
MessageBox.Show("La ecuacion de antoine no cubre ese rango")
Label53.Text = ""
TextBox6.Text = ""
Else
If String.IsNullOrEmpty(TextBox2.Text) Or String.IsNullOrEmpty(TextBox3.Text) Then
MessageBox.Show("Ingresa las concentraciones2")
Label53.Text = ""
TextBox6.Text = ""
Else
If ComboBox5.Text = "Relación m/m" Then
X1 = (Val(Porcentaje1) / M1) / ((Val(Porcentaje1) / M1) + (Val(Porcentaje2) / M2))
X2 = 1 - X1
Else
FRACCIONMOLAR2:
X1 = TextBox2.Text
X2 = TextBox3.Text
End If
Label8.Text = X1
Label9.Text = X2
PRESIONMEZCLA2:
PM = (P1 * X1) + (P2 * X2)

TextBox6.Text = Convert.ToDecimal(Val(PM)).ToString("N4")
ComboBox4.Text = "mbar"

Label53.Text = Convert.ToDecimal(Val(P2)).ToString("N4")
Pminima = P1

End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Else
If ComboBox5.Text = "Porcentaje" Then
If (Val(TextBox2.Text) + Val(TextBox3.Text)) <> 100 Then
MessageBox.Show("La suma de ambas concentarciones debe ser 100%")
Label53.Text = ""
TextBox6.Text = ""
Else
'/////////PRIMERCOMBOBOX////////
TK = T + (273.15)

If ComboBox1.Text = "Agua" Then
If TK <= 333.15 Then
A = 8.10765
B = 1750.286
C = 235
End If
If TK > 331.15 Then
A = 7.96681
B = 1668.21
C = 228
End If
M1 = 0.018
Tebu = 373.15
Tfus = 273.15
Tcri = 647.15
Taut = 1000000
Ttri = 273.16
Tmen = 273.15
Tmay = 423.15
End If
If ComboBox1.Text = "Etanol" Then
A = 8.1122
B = 1592.864
C = 226.184
M1 = 0.04607
Tebu = 351.75
Tfus = 159.05
Tcri = 514
Taut = 1066.15
Ttri = 158.93
Tmen = 292.75
Tmay = 366.55
End If
If ComboBox1.Text = "Metanol" Then
A = 8.08097
B = 1582.271
C = 239.726
M1 = 0.03204
Tebu = 337.85
Tfus = 175.35
Tcri = 513.15
Taut = 653.15
Ttri = 175.47
Tmen = 288.05
Tmay = 356.85
End If
If ComboBox1.Text = "Benceno" Then
A = 6.89272
B = 1023.531
C = 219.888
M1 = 0.07811
Tebu = 353.25
Tfus = 278.65
Tcri = 562.16
Taut = 833.15
Ttri = 278.65
Tmen = 287.65
Tmay = 354.05

End If
If ComboBox1.Text = "Hexano" Then
A = 6.88555
B = 1175.817
C = 224.867
M1 = 0.08618
Tebu = 342.15
Tfus = 177.55
Tcri = 507.6
Taut = 498.15
Ttri = 178.15
Tmen = 286.15
Tmay = 342.65

End If
If ComboBox1.Text = "Acetona" Then
A = 7.11714
B = 1210.595
C = 229.664
M1 = 0.05808
Tebu = 329.65
Tfus = 179.15
Tcri = 508.2
Taut = 811.15
Ttri = 178.35
Tmen = 260.25
Tmay = 328.45

End If
If ComboBox1.Text = "Tolueno" Then
A = 6.95805
B = 1346.773
C = 219.693
M1 = 0.09214
Tebu = 384.15
Tfus = 178.15
Tcri = 591.79
Taut = 803.15
Ttri = 178.15
Tmen = 308.45
Tmay = 384.65

End If
If ComboBox1.Text = "Cloroformo" Then
A = 6.95465
B = 1170.966
C = 226.232
M1 = 0.11938
Tebu = 335.41
Tfus = 209.65
Tcri = 536.55
Taut = 1273.15
Ttri = 175.43
Tmen = 262.75
Tmay = 333.45

End If
If ComboBox1.Text = "Fenol" Then
A = 7.13301
B = 1516.79
C = 174.954
M1 = 0.09411
Tebu = 454.9
Tfus = 316.15
Tcri = 694.3
Taut = 988.15
Ttri = 314.15
Tmen = 380.35
Tmay = 454.95

End If
If ComboBox1.Text = "Ciclohexano" Then
A = 6.84941
B = 1206.001
C = 223.148
M1 = 0.08416
Tebu = 342.15
Tfus = 177.55
Tcri = 553.4
Taut = 496.15
Ttri = 178.15
Tmen = 293.05
Tmay = 354.75

End If
If ComboBox1.Text = "Ácido Acético" Then
A = 7.38782
B = 1533.313
C = 222.309
M1 = 0.060052
Tebu = 391.15
Tfus = 290.15
Tcri = 504.75
Taut = 758.15
Ttri = 290.15
Tmen = 302.95
Tmay = 399.65
End If
If ComboBox1.Text = "Amoniaco" Then
A = 7.55466
B = 1002.711
C = 247.885
M1 = 0.017031
Tebu = 239.8
Tfus = 195.45
Tcri = 406.15
Taut = 924.15
Ttri = 195.4
Tmen = 190.15
Tmay = 333.15

End If
If ComboBox1.Text = "Anhídrido Acético" Then
A = 7.149448
B = 1444.718
C = 199.817
M1 = 0.10209
Tebu = 411.15
Tfus = 200.15
Tcri = 595.15
Taut = 589.15
Ttri = 200.15
Tmen = 335.95
Tmay = 412.55

End If
If ComboBox1.Text = "Etilenglicol" Then
A = 8.09083
B = 2088.936
C = 203.454
M1 = 0.06207
Tebu = 470.75
Tfus = 260.15
Tcri = 645.15
Taut = 671.15
Ttri = 262.38
Tmen = 323.15
Tmay = 473.15

End If
If ComboBox1.Text = "Estireno" Then
A = 7.06623
B = 1507.434
C = 214.985
M1 = 0.10415
Tebu = 419.15
Tfus = 242.75
Tcri = 647.55
Taut = 763.15
Ttri = 243.15
Tmen = 303.05
Tmay = 417.95
End If
SEGUNDOCOMBOBOX1:
If ComboBox2.Text = "Agua" Then
If TK <= 333.15 Then
A2 = 8.10765
B2 = 1750.286
C2 = 235
End If
If TK > 331.15 Then
A2 = 7.96681
B2 = 1668.21
C2 = 228
End If
M2 = 0.018
T2ebu = 373.15
T2fus = 273.15
T2cri = 647.15
T2aut = 1000000
T2tri = 273.16
T2men = 273.15
T2may = 333.15
End If
If ComboBox2.Text = "Etanol" Then
A2 = 8.1122
B2 = 1592.864
C2 = 226.184
M2 = 0.04607
T2ebu = 351.75
T2fus = 159.05
T2cri = 514
T2aut = 1066.15
T2tri = 158.93
T2men = 292.75
T2may = 366.55
End If
If ComboBox2.Text = "Metanol" Then
A2 = 8.08097
B2 = 1582.271
C2 = 239.726
M2 = 0.03204
T2ebu = 337.85
T2fus = 175.35
T2cri = 513.15
T2aut = 653.15
T2tri = 175.47
T2men = 288.05
T2may = 356.85
End If
If ComboBox2.Text = "Benceno" Then
A2 = 6.89272
B2 = 1023.531
C2 = 219.888
M2 = 0.07811
T2ebu = 353.25
T2fus = 278.65
T2cri = 562.16
T2aut = 833.15
T2tri = 278.65
T2men = 287.65
T2may = 354.05
End If
If ComboBox2.Text = "Hexano" Then
A2 = 6.88555
B2 = 1175.817
C2 = 224.867
M2 = 0.08618
T2ebu = 342.15
T2fus = 177.55
T2cri = 507.6
T2aut = 498.15
T2tri = 178.15
T2men = 286.15
T2may = 342.65

End If
If ComboBox2.Text = "Acetona" Then
A2 = 7.11714
B2 = 1210.595
C2 = 229.664
M2 = 0.05808
T2ebu = 329.65
T2fus = 179.15
T2cri = 508.2
T2aut = 811.15
T2tri = 178.35
T2men = 260.25
T2may = 328.45
End If
If ComboBox2.Text = "Tolueno" Then
A2 = 6.95805
B2 = 1346.773
C2 = 219.693
M2 = 0.09214
T2ebu = 384.15
T2fus = 178.15
T2cri = 591.79
T2aut = 803.15
T2tri = 178.15
T2men = 308.45
T2may = 384.65
End If
If ComboBox2.Text = "Cloroformo" Then
A2 = 6.95465
B2 = 1170.966
C2 = 226.232
M2 = 0.11938
T2ebu = 335.41
T2fus = 209.65
T2cri = 536.55
T2aut = 1273.15
T2tri = 175.43
T2men = 262.75
T2may = 333.45
End If
If ComboBox2.Text = "Fenol" Then
A2 = 7.13301
B2 = 1516.79
C2 = 174.954
M2 = 0.09411
T2ebu = 454.9
T2fus = 316.15
T2cri = 694.3
T2aut = 988.15
T2tri = 314.15
T2men = 380.35
T2may = 454.95
End If
If ComboBox2.Text = "Ciclohexano" Then
A2 = 6.84941
B2 = 1206.001
C2 = 223.148
M2 = 0.08416
T2ebu = 342.15
T2fus = 177.55
T2cri = 553.4
T2aut = 496.15
T2tri = 178.15
T2men = 293.05
T2may = 354.75
End If
If ComboBox2.Text = "Ácido Acético" Then
A2 = 7.38782
B2 = 1533.313
C2 = 222.309
M2 = 0.060052
T2ebu = 391.15
T2fus = 290.15
T2cri = 504.75
T2aut = 758.15
T2tri = 290.15
T2men = 302.95
T2may = 399.65
End If
If ComboBox2.Text = "Amoniaco" Then
A2 = 7.55466
B2 = 1002.711
C2 = 247.885
M2 = 0.017031
T2ebu = 239.8
T2fus = 195.45
T2cri = 406.15
T2aut = 924.15
T2tri = 195.4
T2men = 190.15
T2may = 333.15
End If
If ComboBox2.Text = "Anhídrido Acético" Then
A2 = 7.149448
B2 = 1444.718
C2 = 199.817
M2 = 0.10209
T2ebu = 411.15
T2fus = 200.15
T2cri = 595.15
T2aut = 589.15
T2tri = 200.15
T2men = 335.95
T2may = 412.55
End If
If ComboBox2.Text = "Etilenglicol" Then
A2 = 8.09083
B2 = 2088.936
C2 = 203.454
M2 = 0.06207
T2ebu = 470.75
T2fus = 260.15
T2cri = 645.15
T2aut = 671.15
T2tri = 262.38
T2men = 323.15
T2may = 473.15
End If
If ComboBox2.Text = "Estireno" Then
A2 = 7.06623
B2 = 1507.434
C2 = 214.985
M2 = 0.10415
T2ebu = 419.15
T2fus = 242.75
T2cri = 647.55
T2aut = 763.15
T2tri = 243.15
T2men = 303.05
T2may = 417.95
End If
P1 = (A - (B / (T + C)))
P2 = (A2 - (B2 / (T + C2)))
mmHgCONVERSION1:
P1 = (10 ^ P1)
P1 = (Val(P1 * 101325) / 760)
P1 = P1 / 100
mmHgCONVERSION21:
P2 = (10 ^ P2)
P2 = (Val(P2 * 101325) / 760)
P2 = P2 / 100
COMPARACIONES1:
If Tebu > T2ebu Then
MOSTRARPROPIEDADES1:
Label16.Text = TK

Label35.Text = ComboBox1.Text
Label19.Text = Tebu
Label20.Text = Tfus
Label21.Text = Tcri
Label22.Text = Ttri
If Taut = 1000000 Then
Label23.Text = "-"
Else
Label23.Text = Taut
End If
Label26.Text = M1

Label36.Text = ComboBox2.Text
Label27.Text = T2ebu
Label28.Text = T2fus
Label29.Text = T2cri
Label30.Text = T2tri
If T2aut = 1000000 Then
Label31.Text = "-"
Else
Label31.Text = T2aut
End If
Label34.Text = M2
EBULLICIONMAYOR1:
EMA = Tebu

If TK <= Tfus Then
MessageBox.Show("Es un solido el programa es para separar una mezcla liquida1")
Label53.Text = ""
TextBox6.Text = ""
Else
If TK <= Ttri Then
MessageBox.Show("Es un solido, el programa es para separar una mezcla liquida2")
Label53.Text = ""
TextBox6.Text = ""