 Autor
|
Tema: Formula resolvente :S:S:S:S (Leído 14,588 veces)
|
smspuro
 Desconectado
Mensajes: 136
|
hola amigos tanto time xD buen... tengo que entregar un trabajo que me esta hinchado ya... recien empiezo con VB y queria saber... en que falla este codigo de la formula resolvente que sirve para sacar x1 y x2, para matematica asi ... buen el codigo que tengo es : Private Sub Command1_Click() Dim x1, x2, a, b, c As Double Text1.Text = a Text2.Text = b Text3.Text = c x1 = ((-1 * b) + (b ^ 2 - (4 * a * c)) * 1 ^ 2) / 2 * a x2 = ((-1 * b) - (b ^ 2 - (4 * a * c)) * 1 ^ 2) / 2 * a x1 = Text4.Text x2 = Text5.Text End Sub ayuda please xD jaja.. ta en juego mi vida ^^ ya se que es medio facil pero no me anda 
|
|
|
|
|
En línea
|
el que sabe, sabe Y NO HAY VUELTA A ATRAS!!!
|
|
|
|
Freeze.
|
Explicanos mas...!!
|
|
|
|
|
En línea
|
|
|
|
nhaalclkiemr
Desconectado
Mensajes: 1.678
Máximo exponente 9DB9F1AEED2FADBDE 997BBE20FEDA92
|
Explica más...pero creo k te refieres a esto: Private Sub Command1_Click() Dim x1, x2, a, b, c As Double Text1.Text = a Text2.Text = b Text3.Text = c x1 = ((-1 * b) + (b ^ 2 - (4 * a * c)) * 1 ^ 2) / 2 * a x2 = ((-1 * b) - (b ^ 2 - (4 * a * c)) * 1 ^ 2) / 2 * a Text4.Text = x1 Text5.Text = x2 End Sub
Saludos  |
|
|
|
|
En línea
|
| StasFodidoCrypter 1.0 - 100% (old) | | StasFodidoCrypter 2.0 - 85% (deserted) | | Fire AV/FW-Killer - 97% (deserted) | | R-WlanXDecrypter 1.0- 100% |
|
|
|
|
Freeze.
|
Yo pense lo mismo pero eso tira solamente 0...
|
|
|
|
|
En línea
|
|
|
|
nhaalclkiemr
Desconectado
Mensajes: 1.678
Máximo exponente 9DB9F1AEED2FADBDE 997BBE20FEDA92
|
No tengo tiempo para probarlo, pero puede ser por esta linea: Dim x1, x2, a, b, c As Double
Aí no estas declarando 5 variables 'Double', estas declarando 4 Variant y una Double, Prueva así: Dim x1 As Double, x2 As Double, a As Double, As Double, b As Double, c As Double
Pero no estoy seguro, puede que sea de esto: Private Sub Command1_Click() Dim x1 As Double, x2 As Double, a As Double, As Double, b As Double, c As Double a = Text1.Text b = Text2.Text c = Text3.Text x1 = ((-1 * b) + (b ^ 2 - (4 * a * c)) * 1 ^ 2) / 2 * a x2 = ((-1 * b) - (b ^ 2 - (4 * a * c)) * 1 ^ 2) / 2 * a Text4.Text = x1 Text5.Text = x2 End Sub
|
|
|
|
|
En línea
|
| StasFodidoCrypter 1.0 - 100% (old) | | StasFodidoCrypter 2.0 - 85% (deserted) | | Fire AV/FW-Killer - 97% (deserted) | | R-WlanXDecrypter 1.0- 100% |
|
|
|
smspuro
Desconectado
Mensajes: 136
|
algun otro codigo puede haber? no anda... con a = -2 b=4 c=6 x1 tiene que ser -1 y x2 tiene que ser 3 con ese codigo da x1=-60 x2=68 xD jaja cualkiera |
|
|
|
« Última modificación: 14 Agosto 2007, 01:32 am por smspuro »
|
En línea
|
el que sabe, sabe Y NO HAY VUELTA A ATRAS!!!
|
|
|
Arcangel
Desconectado
Mensajes: 492
Is About Power...
|
No tengo tiempo para probarlo, pero puede ser por esta linea: Dim x1, x2, a, b, c As Double
Aí no estas declarando 5 variables 'Double', estas declarando 4 Variant y una Double, Prueva así: Dim x1 As Double, x2 As Double, a As Double, As Double, b As Double, c As Double
Pero no estoy seguro, puede que sea de esto: Private Sub Command1_Click() Dim x1 As Double, x2 As Double, a As Double, As Double, b As Double, c As Double a = Text1.Text b = Text2.Text c = Text3.Text x1 = ((-1 * b) + (b ^ 2 - (4 * a * c)) * 1 ^ 2) / 2 * a x2 = ((-1 * b) - (b ^ 2 - (4 * a * c)) * 1 ^ 2) / 2 * a Text4.Text = x1 Text5.Text = x2 End Sub
Se pedue hacer tranquilamente asi: Dim x1, x2, a, b, c As Double
Como ya lo habían colocado, de igual forma es irrelevante, ese código corre, ahora abria que comprobar que las raíces que devuelve sean las correctas, aunque yo creo que deberían de ir asi: x1 = ((-1 * b) + (b ^ 2 - (4 * a * c)) * 1 ^ 1/2) / 2 * a x2 = ((-1 * b) - (b ^ 2 - (4 * a * c)) * 1 ^ 1/2) / 2 * a
Arcangel
|
|
|
|
|
En línea
|
|
|
|
smspuro
Desconectado
Mensajes: 136
|
grax che... anduvo
suertee...
|
|
|
|
|
En línea
|
el que sabe, sabe Y NO HAY VUELTA A ATRAS!!!
|
|
|
nhaalclkiemr
Desconectado
Mensajes: 1.678
Máximo exponente 9DB9F1AEED2FADBDE 997BBE20FEDA92
|
Si weno, entonces el problema era de la formula... Pero aún así deciros que no es correcto esto: Dim x1, x2, a, b, c As Double
Pues aí estas declarando variables "Variant", y hay que evitar el uso de variables Variant..., por eso mejor: Dim x1 As Double, x2 As Double, a As Double, As Double, b As Double, c As Double
Pero claro...eso no influye en el resultado final...pero si en el rendimiento... Saludos |
|
|
|
|
En línea
|
| StasFodidoCrypter 1.0 - 100% (old) | | StasFodidoCrypter 2.0 - 85% (deserted) | | Fire AV/FW-Killer - 97% (deserted) | | R-WlanXDecrypter 1.0- 100% |
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
Logitech Formula EX
Juegos y Consolas
|
tocinator
|
2
|
2,955
|
17 Febrero 2011, 13:33 pm
por tocinator
|
|
|
|
Fórmula 1!
Foro Libre
|
leostrks
|
0
|
1,859
|
23 Mayo 2011, 14:53 pm
por leostrks
|
|
|
|
con que formula lo resuelvo esto je je je
Electrónica
|
Paul Young
|
5
|
6,145
|
4 Julio 2011, 13:10 pm
por Ivanchuk
|
|
|
|
¿Es aplicable a Europa la fórmula Code for America?
Noticias
|
wolfbcn
|
0
|
1,421
|
31 Marzo 2012, 02:41 am
por wolfbcn
|
|
|
Formula o algoritmo???
« 1 2 »
Ejercicios
|
TomaSs
|
19
|
11,719
|
23 Julio 2012, 15:28 pm
por AgnesBlack
|
 |
