Visual Basic - Problema al realizar operación

Life is soft - evento anual de software empresarial
   
Vista:

Problema al realizar operación

Publicado por David (2 intervenciones) el 06/07/2014 19:31:58
Hola

Estoy haciendo un pequeño programilla con una fórmula para calcular la cota de nieve, pero al dar a Calcular se ponen todos los valores a cero. He utilizado este código:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Class Form1
 
    Private Sub Calcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Calcular.Click
        Dim T850 As Integer
        Dim T500 As Integer
        Dim T1000 As Integer
        Dim H850 As Integer
        Dim HR As Integer
        Dim Cota As Integer
 
        Text1.Text = T850
        Text2.Text = T500
        Text3.Text = T1000
        Text4.Text = H850
        Text5.Text = HR
        Text6.Text = Cota
 
        Cota = (100 + T850) + (50 * T500) + 2100 + (H850 - 1350) + (50 * (T1000 - T850) - 500) + 2 * (((HR) ^ 3) / 10000)
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

Problema al realizar operación

Publicado por Pico (114 intervenciones) el 06/07/2014 20:28:16
Mientras no le pongas tú un valor suele ser mejor que se pongan a 0 que no que tengan el valor que haya en la pila.
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
Imágen de perfil de Hector Moran

Problema al realizar operación

Publicado por Hector Moran hmoran0509@yahoo.com (17 intervenciones) el 07/07/2014 18:14:45
En el codigo que muestra es correcto todo debe ser cero, debes locar textbox en el formulario y luego que le das entrada a los valores, tiene que convertirlos a numericos en tu caso seria algo asi

private sub sub Calcular.....
.
.
.
.
.
let t850 = Cint(text1.text)
let t500=Cint(text2.text)
.
.
cuota.......

y luego realizar los calculos

Espero que te sirva
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

Problema al realizar operación

Publicado por Facundo_Eche (58 intervenciones) el 08/07/2014 05:45:19
Escribilo así:
T850 = val(text1.text)
T500 = val(text2.text)
T1000 = val(text3.text)
H850 = val(text4.text)
HR = val(text5.text)
Text6.Text = Cota
Explicación:
text1.text=T850 lo que hace es poner en el text1 el valor de la variable T850, que luego del dim es igual a cero.
si no usas val, vas a sumar cadenas de texto, que es el tipo de variable del contenido de los textbox.
Contame después si te sirvió.
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

Problema al realizar operación

Publicado por David (2 intervenciones) el 08/07/2014 18:09:51
Muchas Gracias a los tres ;)
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