Nuevas NORMAS para el foro

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Julio 26, 2008, 06:18:11
Boton Buscar
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Programación Basica  |  Tema: Ayuda con mi codigo de vb 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: Ayuda con mi codigo de vb  (Leído 290 veces)
kaliyas
Visitante
« en: Noviembre 25, 2003, 10:35:28 »
bueno tengo que hacer la formula cuadratica en vb
el codigo lo saque de un libro y es este

Private Sub cmdCalcular_Click()

Dim sqr As Double
Dim A, B, C, X1, X2 As Single
A = Val(txtA.Text)
B = Val(txtB.Text)
C = Val(txtC.Text)

If A = 0 Or B = 0 Or C = 0 Then
Dim x As Integer
x = MsgBox("Introduzca todos los valores", vbCritical, "Error")
End If
txtX1.Text = X1
txtX2.Text = X2


X1 = (-B + sqr(B ^ 2 - 4 * A * C)) / (2 * A)
X2 = (-B - sqr(B ^ 2 - 4 * A * C)) / (2 * A)

se supone que todo debe de estar bien... porque como es del libro... pero cuando lo corre me tira error
que esta mal....
gracias
saludox
En línea
Shadow
Visitante
« Respuesta #1 en: Noviembre 26, 2003, 05:28:47 »
« Última modificación: Noviembre 27, 2003, 12:25:50 por Shadow » En línea
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Programación Basica  |  Tema: Ayuda con mi codigo de vb « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.5 | SMF © 2006-2007, Simple Machines LLC