|
Ciao ragazzi ho deciso di rivolgermi a voi esperti cosa sbaglio in questo programma visto che il calcolo funziona senza errori ma risulta diverso se fatto con la calcolatrice?Ho provato anche a usare Double e String
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Densita As Decimal
Dim Risultato As Decimal
Dim Eta As Integer
Dim Peso As Integer
Eta = CInt(TextBox1.Text)
Peso = CInt(TextBox2.Text)
Dim M As Integer = 0
Dim A, B, C, D, F, G, H As Integer
A = CInt(TextBox4.Text)
B = CInt(TextBox4.Text)
C = CInt(TextBox4.Text)
D = CInt(TextBox4.Text)
F = CInt(TextBox4.Text)
G = CInt(TextBox4.Text)
H = CInt(TextBox4.Text)
M = (A + B + C + D + F + G + H)
If (RadioButton1.Checked = True) Then
Densita = 1.112 - (0.00043499 * M) + (0.00000055 * (M * M)) - (0.00028826 * Eta)
Risultato = (495 / Densita) - 450
TextBox12.Text = Risultato
TextBox11.Text = (Risultato * Peso) / 100
| ![Visual Basic 6 - Problema semplice ma difficile per un newbie[Urgente per lavoro]](/data/logos/logositov9.png)
