Programacion

Solo disponible en BuenasTareas
  • Páginas : 13 (3234 palabras )
  • Descarga(s) : 0
  • Publicado : 6 de noviembre de 2011
Leer documento completo
Vista previa del texto
UNIVERSIDAD NACIONAL DEL CALLAO
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...
tracking img