Visual Basic para Aplicaciones - ayuda amigos con esta mini aplicasion

Life is soft - evento anual de software empresarial
   
Vista:

ayuda amigos con esta mini aplicasion

Publicado por fox29 (8 intervenciones) el 10/06/2009 19:32:17
bueno amigo despues de tanto leer manuales pude hacer mi mini aplicasion
pero me falta depurarlo o sea mejorarlo
el problema es el siguiente: mejor primero les cuento como lo hice para que tengan una idea de que se trata
en el Form1 agrego 7 TextBox con su correspondiente Label y agrego 2 Buttons ,Buttons1 le agrego el nombre Calcular y Buttons2 Salir bueno ahora vamos al codigo
'Declaro la variable Pi
Dim Pi As Double=3.141592

'ahora en el evento Presskey del TextBox1.Text agrego lo siguiente ( para que no me ingresen letras)
If Char.Isletter(e.Keychar)Then
e.Handled=True
MessageBox.Show("No se admiten letras","ATENCION",messageboxbuttons.ok,messageboxicon.Information)
este evento se lo agreso hasta el Textbox4.text que es hasta donde se ingresan datos

aqui les doy un detalles de los nombres y su orden
aclaro (Textbox1:Label1 escribo Diametro,Textbox2.text: Label2 escribo Altura,Textbox3.text:label3 escribo densidad del mineral,
Textbox4.text:Label4 escribo porcentaje de porosida
bueno hecho esta aclaracion continuamos con el codigo
doble click en el button1 cuyo nombre es Calcular y agrego el siguiente codigo
DIm Diam,Alt,Dens,Poro As Double
Diam=(textBox1.text)/2 ' para que me entrege el radio (Diam es diametro)
Alt=TextBox2.text
Dens=TextBox3.text
Poro=(TextBox4.text)/100 ' es para ingreasar un porsentaje de porosidad (Poro es Porcentaje de porosidad que es la diferencia entre el volumen aparente del cilindro que se calculo menos el volumen real del mineral )
textBox5.text=Pi*(Diam)^2*Alt ' me entrega el volumen del ciclindro que seria el volumen aparente del mineral que necesito para introducirlo en esta columna de Lixiviacion
TextBox6.text=Poro*TextBox5.text ' me entrega el volumen real del mineral que necesito para esta columna de lixiviasion
TextBox7.text=Dens*TextBox6.text ' me entrega el peso del mineral que necesito para agregar a esta columna de lixiviacion

bueno lo ejecuto todo bien y preciso hasta Textbox5.text
despues en el TextBox6 el resultado se me corre una coma hacia la derecha
y en el TextBox7 el resultado se me corre 3 comas hacia la derecha
mi pregunta es amigos como soluciono este problema y porque se me corren las comas en los resultado
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

RE:ayuda amigos con esta mini aplicasion

Publicado por JuanC (431 intervenciones) el 10/06/2009 20:51:21
en la línea
DIm Diam,Alt,Dens,Poro As Double
estás declarando 4 variables como Variant y 1 como Double
debería ser
Dim Diam#, Alt#, Dens#, Poro# (# es lo mismo que poner As Double)

fijate que estás multiplicando texto
TextBox6.text = Poro * TextBox5.text

mejor sería
TextBox6.text = Poro * Val(TextBox5.text)
u otra forma
TextBox6.text = Poro * CDbl(TextBox5.text)

y cuidado con el punto o coma decimal... que Val y CDbl trabajan diferente

si no llegás a solucionarlo, volvé ...

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ayuda amigos con esta mini aplicasion

Publicado por fox29 (8 intervenciones) el 10/06/2009 22:22:09
muchas gracias juanC por darme la solucion a mi problema
te lo agradezco mucho
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar