Programacion
FACULTAD: INGENIERIA QUIMICA
TEMA: PROBLEMAS EN VISUAL STUDIO.NET
CURSO: PROGRAMACION PARA COMPUTADORAS
PROFESOR(A): JEANETH ESTRADA
INTEGRANTES:
* ACEDO TAPIA, RONALD
* PINEDA ESTEVES, JUAN
* QUINTANILLA , HEBERT
* SANTOS ALAMO, JHON
*
SEMESTRE: 2007-A
Bellavista, 07 de agosto del 2007
ENTRADA - SALIDA
1. Cuando se preparansoluciones es necesario rotular con su nombre y concentración. Si usamos una determinada masa de una sustancia, para un determinado volumen. Realizar un programa que calcule la concentración de la solución.
Inicio
Escribir n, V
M = n / V
M
Fin
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click
Dim n, v, m As Double
n = TextBox1.Text
v = TextBox2.Text
M = n / v
TextBox3.Text = M
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox1.Focus()
End SubEnd Class
2. dado la siguiente reaccion
CH2=CH=2 (G) + H2O(G) CH3-CH2OH(G)
SE CUMPLE LA SIGUIENTE ECUACIÓN
Donde:
T : temperatura (K)
Hacer un programa, que dado una temperatura, calcule la constante de equilibrio de la reaccion a esa determinada temperatura
INICIO
T
R = 4926.64/T – 14.43
Kp = 2.718281828 ^ R
Kp
FIN
Public Class Form1
Private SubButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim t, r, kp As Double
t = TextBox1.Text
r = 4926.64 / t - 14.34
kp = (2.718281828) ^ r
TextBox2.Text = kp
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()TextBox2.Clear()
TextBox1.Focus()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub
End Class
IF – ELSE – END IF
3. Realizar un programa que ingresando el numero atómico de los elementos del grupo VII A, nos dé el nombre del elemento, su peso atómico, su punto de fusión ysu punto de ebullición.
Cloro, P.Atom,
P.Fus, P.Ebu
Bromo,P.Atom
P.Fus, P.Ebu
Iodo,P.Atom
P.Fus, P.Ebu
AstatoP.Atom
P.Fus, P.Ebu
Z = 17
No
No
No
No
Fluor, P.Atom,
P.Fus, P.Ebu
“Ingrese de nuevo el dato”
Z = 53
Z = 85
No
INICIO
Z
Z = 9
I, c
FIN
Z= 35
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton1.Click
Dim z As Integer
z = TextBox1.Text
If z = 9 Then
MsgBox("El elemento es = Fluor(F), Peso Atomico = 19.0, Punto de fusión = -220 ºC, Punto de ebullición = -188ºC")
ElseIf z = 17 Then
MsgBox("El elemento es = Cloro(Cl), Peso Atomico = 35.45, Punto de fusión = -101.5ºC, Punto de ebullición = -34.1ºC")
ElseIf z = 35Then
MsgBox("El elemento es = Bromo(Br), Peso Atomico = 79.90, Punto de fusión = -7.2ºC, Punto de ebullición = 58.8ºC")
ElseIf z = 53 Then
MsgBox("El elemento es = Iodo(I), Peso Atomico = 126.90, Punto de fusión = 114ºC, Punto de ebullición = 184ºC")
ElseIf z = 85 Then
MsgBox("El elemento es = Astato(At), Peso Atomico = 210, Punto de fusión =302ºC, Punto de ebullición = -")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox1.Focus()
End Sub
End Class
4. En un laboratorio quimico , al realizar una titulacion, se cuenta con el punto final (el PH de la Rxn) y para confirmarlo contamos con la...
Regístrate para leer el documento completo.