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:
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
0
