Codice Vb

[Xidius]

Ragazzi qualcuno di voi esperto saprebbe dirmi perchè nn funziona questo programma? il debug è ok solo che l'ouput è il seguente:

Tu hai altezza: (Altezza data in input)
Peso Peso dato in input )
il risultato è:

E' un programma per calcolare un indice corporeo ora ve lo posto:

Module Module1

Private Altezza1 As Double = 0
Private Peso1 As Double = 0
Private Risultato As String

Sub Main()

DammiValoriInput()

CalcoloIndice(Altezza1, Peso1, Risultato)

Risultati(Risultato)

End Sub

Private Function CalcoloIndice(ByVal Altezza As Double, ByVal Peso As Double, ByVal result As String) As String
Dim Temp As Double
Temp = Peso / Altezza
If (Temp < 18.5) Then
result = "Sottopeso"
ElseIf (Temp > 18.5 And Temp < 25) Then
result = "Stai apposto"
Else
result = "Sovrappeso"
End If
Return result
End Function

Private Function DammiValore(ByVal Prompt As String) As String
Console.WriteLine(Prompt)
Return Console.ReadLine
End Function

Private Sub DammiValoriInput()
Console.WriteLine()
Altezza1 = CDbl(DammiValore("Altezza: "))
Peso1 = CDbl(DammiValore("Peso: "))
Console.WriteLine()
End Sub

Private Sub Risultati(ByVal Risultato1 As String)
Console.WriteLine()
Console.WriteLine("Se tu hai peso {0:c}", Peso1)
Console.WriteLine("E altezza {0:c}", Altezza1)
Console.WriteLine("il risultato sarà: {0:c}", Risultato1)
End Sub
End Module


VI ringrazio anticipatamente

[matpez]

Sei sicuro che sia VB, a me sa molto di VB.NET

[Mixmar]

Originariamente inviato da matpez
Sei sicuro che sia VB, a me sa molto di VB.NET

quoto, inoltre (è un po' OT, non è per questo che il programma non funziona, almeno credo ) l'indice di massa corporea è Peso [in kg] / Altezza [in m] ^ 2, non Peso / Altezza...

[Xidius]

si avete ragion tutti e due mi sono scordato di mettere che è in Vb.net e ho riguardato ora l'indice ed è errato, percaso avete trovate qualcosa che nn va oltre a questi?

[Mixmar]

Allora, CalcoloIndice è una funzione che restituisce una String: per invocarla devi usare una sintassi tipo:

Risultato = CalcoloIndice(Altezza1, Peso1)

e poi puoi usare Risultato come vuoi.

Il problema nel tuo codice è che tu passi sì la variabile Risultato nella chiamata alla funzione perchè ti ritorni il valore, ma dichiari che la passi ByVal! Questo significa che tu in realtà passi il valore di Risultato in quell'istante (che è ""), e il programma non ritorna il valore che tu poni in result (che distrugge alla fine della funzione). Il valore di ritorno (return result) viene tornato dalla stessa chiamata di funzione, come ho scritto sopra...

Quindi togli pure il parametro "result" da CalcoloIndice, e, se vuoi, dichiara una variabile "result" al suo interno... anche se in questo caso, secondo me, non è nemmeno necessario...

[Xidius]

Quindi tu mi dici di nn dichiarare quela variabile Byval e di levare result in quanto secondo te nn serve....

[Mixmar]

Ecco, diciamo che farei così:

Originariamente inviato da Xidius
Module Module1

Private Altezza1 As Double = 0
Private Peso1 As Double = 0
Private Risultato As String

Sub Main()

DammiValoriInput()

Risultato = CalcoloIndice(Altezza1, Peso1)

Risultati(Risultato)

End Sub

Private Function CalcoloIndice(ByVal Altezza As Double, ByVal Peso As Double) As String
Dim Temp As Double
Temp = Peso / (Altezza ^ 2)
If (Temp < 18.5) Then
return "Sottopeso"
ElseIf (Temp > 18.5 And Temp < 25) Then
return "Stai apposto"
Else
return "Sovrappeso"
End If
End Function

...

End Module


VI ringrazio anticipatamente

Dovrebbe funzionare... comunque, le modifiche a CalcoloIndice le ho fatte seguendo i miei gusti personali, non erano affatto necessarie... Diciamo che così risparmi una variabile...

Spero di non aver fatto errori...

[Xidius]

ho fatto il tutto eliminando la variabile result cioè dichiarabdola solo dentro la funzione, grazie di tutto, ma esiste una sezione per il .net ?