Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: Senior++ en 29 Noviembre 2011, 20:37 PM

Título: fallo de mi visual basic 6.0¿?Raiz cuadrada
Publicado por: Senior++ en 29 Noviembre 2011, 20:37 PM
Bueno estaba creando un raiz cuadrada:

Código:

Function Raiz(N As Double) As Double
If N < 0 Then
        Exit Function
    Else
        Raiz = Sqr(N)
        End If
End Function

Private Sub Command1_Click()
cuadrada = Raiz(Text1.Text)
Label1.Caption = cuadrada
End Sub


Entonces cogí la calculadora de windows 7 todo esto lo hice para ver si funcionaba correctamente el código y cuando pongo para que calcule la raiz cuadrada de 2 pasa esto:



Raiz cuadrada hecha en vb6: La raiz cuadrada de 2 es: 1,4142135623731
Raiz cuadrada hecha en calculadora: La raiz cuadrada de 2 es:  1,414213562373095


Osea,no entiendo por que en cada uno da resultado distinto

Saludos
Título: Re: fallo de mi visual basic 6.0¿?Raiz cuadrada
Publicado por: CAR3S? en 29 Noviembre 2011, 21:05 PM
ami con la calculadora cientifica "casio" , me da

1.414213562


:huh:
Título: Re: fallo de mi visual basic 6.0¿?Raiz cuadrada
Publicado por: $Edu$ en 29 Noviembre 2011, 21:14 PM
Solamente esta redondeando porque tanto drama? xD
Título: Re: fallo de mi visual basic 6.0¿?Raiz cuadrada
Publicado por: 79137913 en 29 Noviembre 2011, 21:44 PM
HOLA!!!

Simplemente ninguna computadora ni ser humano es capaz de calcular la raiz exacta de 2, esto fue lo que volvio loco a pitagoras ya que la raiz de 2 es un numero irracional, en otras palabras es un numero con infinitas cifras decimales no periodicas, entonces NUNCA nadie ni nada podra mostrar TODAS las cifras decimales de la raiz de 2 por que son INFINITAS.

P.D: Matematica de 7mo grado SixToes, eso no es una duda de VB6 eso es que hay que volver a la escuela.

GRACIAS POR LEER!!!
Título: Re: fallo de mi visual basic 6.0¿?Raiz cuadrada
Publicado por: tremolero en 29 Noviembre 2011, 22:11 PM
Buenas...

Sinceramente no veo ningun error, lo unico, es que en un sitio da mas decimales que ne otro.

Es mas, si eso te parece raro, mira la calculadora de windows, y haz la raiz cuadrada de 2, en estandar y luego en modo cientifico, y en uno te da mas decimales que en otro xD.

Se ve que se lo toma mas en serio la calculadora jejeje.


Saludos.
Título: Re: fallo de mi visual basic 6.0¿?Raiz cuadrada
Publicado por: BlackZeroX en 30 Noviembre 2011, 07:29 AM
.
* Primero: aprende matematicas.
* Segundo: aprendete los rangos de cada tipo.
* Tercero: aprende a programar.

Dulces Lunas!¡.
Título: Re: fallo de mi visual basic 6.0¿?Raiz cuadrada
Publicado por: x64core en 30 Noviembre 2011, 07:42 AM
Cita de: BlackZeroX (Astaroth) en 30 Noviembre 2011, 07:29 AM
.
* Primero: aprende matematicas.
* Segundo: aprendete los rangos de cada tipo.
* Tercero: aprende a programar.

Dulces Lunas!¡.
Cita de: 79137913 en 29 Noviembre 2011, 21:44 PM
HOLA!!!

Simplemente ninguna computadora ni ser humano es capaz de calcular la raiz exacta de 2, esto fue lo que volvio loco a pitagoras ya que la raiz de 2 es un numero irracional, en otras palabras es un numero con infinitas cifras decimales no periodicas, entonces NUNCA nadie ni nada podra mostrar TODAS las cifras decimales de la raiz de 2 por que son INFINITAS.

P.D: Matematica de 7mo grado SixToes, eso no es una duda de VB6 eso es que hay que volver a la escuela.

GRACIAS POR LEER!!!

vale no sean tan duros con el chico :P me imagino que aprende no :P
lo que si es que agarrad consejo SixToes
Título: Re: fallo de mi visual basic 6.0¿?Raiz cuadrada
Publicado por: Senior++ en 30 Noviembre 2011, 10:17 AM
No se por que os ponéis  así, solo es una duda que tuve... en fin

de los errores se aprende, todos hemos pasado por esto alguna vez..


Black sobre que aprenda a programar: Tiempo al tiempo :D
Saludos
Título: Re: fallo de mi visual basic 6.0¿?Raiz cuadrada
Publicado por: BlackZeroX en 30 Noviembre 2011, 20:18 PM
Cita de: SixToes en 30 Noviembre 2011, 13:01 PM

No lo entiendo entiendo por que me as hablado de esa manera, yo siempre te e hablado con mucho respeto, nos e a que viene eso, no todos somos tan buenos como tu en vb6 y tampoco todos somos tan buenos como tu en las matematicas...

no lo entiendo, espero que este mensaje sea respondido por ti...

Saludos ;-)

El comentario no fue con un afan de ataque ni nada.

* Primero aprende matematicas en el caso computacional:
Con una simple observacion se puede ver claramente que todos los numeros son identicos los unicos que difieren son los ultimos y estos estan redondeados segun la regla de <= .5 pasa a 0 de lo contrario pasa a 1 (solo en el caso computacional).

Código (Vb) [Seleccionar]


Option Explicit

Private Sub Form_Load()
Dim a As Integer
    a = 10.5
    MsgBox a ' // 10
   
    a = 10.51
    MsgBox a ' // 11
End Sub



* Segundo aprendete los rangos de cada tipo:
Solo para saber en que momento se realiza un redondedo en un numero real (en este caso los ultimos 3 numeros o la longitud de los mismos).

* Tercero: Aprende a programar:
No declaraste varias variables, varias de ellas las dejaste que se decidan por si solas, es decir, seran variables tipo variant.

* Cuarto Robo de Nick:
Te robaste mi identidad en otro(s) foro(s).

Dulces Lunas!¡.
Título: Re: fallo de mi visual basic 6.0¿?Raiz cuadrada
Publicado por: 79137913 en 1 Diciembre 2011, 12:27 PM
HOLA!!!

Cita de: BlackZeroX (Astaroth) en 30 Noviembre 2011, 20:18 PM
* Cuarto Robo de Nick:
Te robaste mi identidad en otro(s) foro(s).

:o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o

No me caia bien y ahora mucho menos.

GRACIAS POR LEER!!!
Título: Re: fallo de mi visual basic 6.0¿?Raiz cuadrada
Publicado por: Senior++ en 1 Diciembre 2011, 12:34 PM
Cita de: 79137913 en  1 Diciembre 2011, 12:27 PM
HOLA!!!

:o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o :o

No me caia bien y ahora mucho menos.

GRACIAS POR LEER!!!
Ya veo... todo tiene una explicación amigo :D

Nota: Que algún moderador cierre esto, yo aquí vengo a aprender no a discutir :D