Visual Basic - ayudarme en un formulario en visual basic 6.0

Life is soft - evento anual de software empresarial
   
Vista:

ayudarme en un formulario en visual basic 6.0

Publicado por sol soledad_padilla_06@hotmail.com (1 intervención) el 12/02/2013 06:12:04
No sé cómo resolver la formula R = ((2 * g * m) / c) ^ 2 para que funcione en visual Basic 6.0 le intente l programa si funciona cuando lo corro pero no me da el resultado que ocupo el 2 al principio no me multiplica y no me divide solo quiero que me de esta resultado

R = 2 G M/c2


R = 2 (6,67 x 10-11) (6 x 10 24) / (3,0 x 108) 2



R = 8,0 x 1014 / 9.0 x 1016


R = 0,0089 m, o 8,9 milímetros.

También les voy a pasar el formulario de un botón y de textbox los primeros el tercer textbox es el que muestra el resultado la verdad no se si poner otro textbox solo quiero sacar el resultado de la operacion

Option Explicit
Dim G,M,c As Double

Private Sub Text1_Change()
M = Val(Text1.Text)
G = Val(Text1.Text)
End Sub

Private Sub Text2_Change()
c = Val(Text2.Text)
End Sub

Private Sub Command3_Click()
R = ((2*G*M)/c)^2
Label1.Caption = "R = ((2*G*M)/c)^2="
Text3.Text = Str(R)
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

ayudarme en un formulario en visual basic 6.0

Publicado por Eddy Ortega (1 intervención) el 12/02/2013 07:36:08
crea 4 textbox y un boton de comando:



g [text1 ] g, m y c los puse como labels 1,2,3 respectivamente (e cambias el caption)
m [text2] en estas es en donde vas a introducir los datos
c [text3]

Label4 [text4 box] en esta se mostrara el resultado

buton de comando aqui [ ]




EL CODIGO ( lo introduces en el boton de comando) COMMAND BUTTON


Dim G,M,R, c As Double


M = Val(Text1.Text)
G = Val(Text2.Text)
c = Val(Text3.Text)

R = ((2*G*M)/c) ^ 2
Label4.text = "R = ((2*G*M)/c)^2="
Text4.Text = Str(R)



Y si me funciono.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar