SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: fox29 en Miércoles 10 de Junio de 2009, 19:16

Título: alguin me podria colaborar en esta mini aplicasion
Publicado por: fox29 en Miércoles 10 de Junio de 2009, 19:16

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

Título: Re: alguin me podria colaborar en esta mini aplicasion
Publicado por: korsakof en Miércoles 17 de Junio de 2009, 09:38

Hola aqui tienes un codigo.
                        procedimiento esnumero--> devuelve si es numero.
                                              SI-->Le da formato al numero segun la configuracion regional
                                              NO-->Se le dice al usuario que no es correcto por msgbox

                         procedimiento calcular--> Es el procedimientoque nos realiza los calculos.

Lo hago asi para tenerlo mas ordenado. Ademas si corriges un procedimiento te vale para todos la modificacion.

Código: vb.net

1. Imports System.Windows.Forms.TextBox
2.  
3. Public Class Form1
4. ' #################################################################################################
5. '                                             Procedimiento esnumero
6. '              Comprueba el textbox que desees si es numero o no y pone formato
7. ' #################################################################################################
8.     Private Sub esnumero(ByRef ncaja As TextBox)
9.  
10.         If ncaja.text = "" Then
11.             MsgBox("No has escrito nada")
12.         Else
13.             If Microsoft.VisualBasic.IsNumeric(ncaja.text) = False Then
14.                 MsgBox("No es un numero")
15.                 ncaja.Focus()
16.             Else
17.                 ncaja.Text = FormatNumber(Val(ncaja.Text), -1)
18.             End If
19.         End If
20.     End Sub
21.  
22. ' #################################################################################################
23. '                                        Procedimiento Calcular
24. '                                Aqui realizas los calculos oportunos
25. ' #################################################################################################
26.     Private Sub calcular()
27.          ' Realizar calculos
28.          ' Esto no lo hice porque no entiendo lo que quieres hacer pero defines variable a las que solo asignas valor y no las    usas posteriormente. Eso no tiene sentido.
29.          ' Otra cosa, aunque visual te convierta tipo automaticamente es recomendable que uuses la funcion "val" para recoger el numero de la caja de texto.
30. ' Ej: suma=val(cajadetexto.text)+2
31.  
32.     End Sub
33.  
34. ' ################################################################################################
35. '                                   Evento LostFocus de la caja de texto.
36. ' ################################################################################################
37.    Private Sub txtdiametro_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtdiametro.LostFocus
38.          Call esnumero(sender) 'Llamo al procedimiento que me comprueba que es numero y pone formato
39.     ' Necesitas un evento lost focus para cada caja de texto
40.     End Sub
41.  
42.        
43.     End Sub
44.  

Título: Re: alguin me podria colaborar en esta mini aplicasion
Publicado por: fox29 en Miércoles 17 de Junio de 2009, 16:24

muchas gracias korsakof