Mensajes

Veran.. estoy desesperado. No se que hacer.

Tengo un programita hecho por mi , que deve hacer la sencilla operacion de sumar un valor de un textbox con otro valor de otro textbox i dividir ese valor por el valor de otro textbox.

Bien , todo normal , pero cuando deberia dar valores tipo -0.0925 me da -9,25000000000002E-02

La operacion es la siguiente: (-22 + 21.63) / 4

No siempre son esos valores , pero ya no se como hacer para qu eme de el valor real.. es un programa para resolver equaciones de segundo grado siguiendo la formula..pero esque el valor final de la x da mal... u.u

Que puedo hacer?
He provado declarando el valor final como variable poniendo que es bolean o cosas asi.. pero nada sigue dando igual.

Os dejo el codigo

Private Sub Command4_click()

txtxpos.Visible = True
txtxpos = (Val(txtb4.Text) + Val(txtraiz2.Text)) / Val(txtA4.Text) ' -b + (..)

End Sub

Crees realmente que al crearse es detectado como perjudicial y es eliminado?

:s seria muy extraño.. estas seguro de que se crea? O tal vez la compilación nunca llega a su fin. No sera algun fallo del codigo o algo?

Edito

He conseguido limitar los deicmales de la solucion en la raiz cuadrada que tengo.

Siendo elr esultado 21,########
me queda 21,##


Ahora bien , quiero seguir operando con este numero , por lo que tengo que pasar de la coma "," al punto ".".
Para ello utilizo siempre  txtraiz1 = Replace(txtraiz1, ",", ".") Pero no se donde ponerlo para que no me de error. Si lo pongo en el mismo private sub que hace el canvio de decimales me da error. I si ago unprivate sub nuevo tambien.

que hago?

saludos

Oh gracias , sirve de mucho

mUchas gracias.

Veran esque tengo un problema con unos cuantos textbox , y algunos labels tambien .

Tras hacer una serie de operaciones , salen muchos decimales y cuando aparecen en el textbox son demasiado grandes , al seguir operando me salen cifras incorrectas multiplicadas por una E , o algo parecido..

Como puedo limitar los decimales de un textbox o de cualquier otro elemento?

Seria limitarlo a 2 decimales.

Gracias

Soy un tanto lerdo. xD

Como puedo aplicar esa funcion a unos textbox? Independientemente.
tengo esto

Private Sub LlistaX_Click()
LlistaY.ListIndex = LlistaX.ListIndex 'Relacionar la posició entre Llista X i Y
Label1(1).Caption = LlistaX.Text
Label1(0).Caption = LlistaX.Text
Text1.Text = LlistaY.Text
End Sub

Hay una lista que va dando valores , como limitar los valores decimales de la lista , y de los texbox?

Gracias.

Bien gracias utilice como dijeron un picturebox y todo de perlas , no se sale

Otra cosita , ya que estoy para no crear otro tema. Tengo unos textbox que te dan el resultado de una serie de operaciones planteadas previamente.

Me dan muchos decimales y quiero reducirlo a 2 o 3 decimales.

Como lo ago?

Porque aveces me dan valores taaan grandes , los decimales que me sale una cifra incorrecta con una letra E. :S

saludos

Veras esque el codigo es el siguiente.

Private Sub Command2_Click()
        If Xlist.ListCount > 1 Then
            Form1.Refresh
           
            Dim Xbefore, Ybefore
                Xlist.ListIndex = 1
           
            Do Until Xlist.ListIndex = Xlist.ListCount - 1
                Xbefore = Xlist.Text
                Ybefore = Ylist.Text
                Xlist.ListIndex = Xlist.ListIndex + 1
               
           
                Form1.Line (Xbefore * 50 + (Line1.X1 + Line1.X2) / 2, -Ybefore * 50 + (Line2.Y1 + Line2.Y2) / 2)-(Xlist.Text * 50 + (Line1.X1 + Line1.X2) / 2, -Ylist.Text * 50 + (Line2.Y1 + Line2.Y2) / 2)

           
           
           
           
            Loop
       
        Else
            Call MsgBox("Primero representar tabla")
           
        End If
End Sub

Pero yo no se cual es el limite de la grafica que tengo.. asique no se como puedo limitar el tamaño.

Saludos

Veran he creado una grafica , donde represento lineas mediante valores que da una equacion.

Pero se me salen de la grafica y siguen hacia abajo por la parte gris. Como puedo hacer que en caso de que los valores den por fuera , no se representen?.

Saludos

Muchas gracias , tanto al ejemplo como al aporte , me ha servido , empezare a hacerlo..
Gracias