Accedi per seguire   
Seguaci 0
the doctor

[vb] Deviazione Standard

5 messaggi in questa discussione

Salve a tutti. Sto cercando di programmare sigma in visual basic, ma a quanto pare secondo i miei modesti calcoli non funziona...dov'è l'errore?

grazie..

	

Dim somma As Double
Dim media As Double
Dim deviazione As Double
Dim primo As Double
Dim secondo As Double
Dim terzo As Double
Private Sub cmdCalcola_Click()

primo = txPrimo.Text
secondo = txSecondo.Text
terzo = txTerzo.Text

media = (primo + secondo + terzo) / 3

txMedia.Text = media

End Sub

Private Sub cmdCalcola2_Click()
somma = primo + secondo + terzo
deviazione = Sqr(somma * (primo - media) ^ 2) / 3
txDeviazione.Text = deviazione
End Sub

Condividi questo messaggio


Link di questo messaggio
Condividi su altri siti

Non riesci ad essere più preciso? Che errore riscontri?

Condividi questo messaggio


Link di questo messaggio
Condividi su altri siti

Facendo i calcoli manualmente non mi trovo con i risultati del programma... :)

Condividi questo messaggio


Link di questo messaggio
Condividi su altri siti

Beh...se clicchi prima su cmdCalcola2 che su cmdCalcola, le variabili primo, secondo e terzo non sono valorizzate...

Vengono valorizzate solo al click di cmdCalcola, se si verifica questa condizione, i risultati saranno sballati sicuramente...

Un'altra cosa che potrebbe non andare, ma non sono sicuro, è il casting implicito che viene fatto da String a Double qui:

primo = txPrimo.Text

Non ricordo come VB si comporta in questi casi...prova con

primo = cType(txPrimo.text,Double)

:)

Condividi questo messaggio


Link di questo messaggio
Condividi su altri siti

Grazie tante, appena ho 5 minuti liberi ci provo.. :)

Condividi questo messaggio


Link di questo messaggio
Condividi su altri siti

Crea un account o accedi per lasciare un commento

Devi essere un utente registrato per partecipare

Crea un account

Iscriviti per un nuovo account nella nostra community. È facile!


Registra un nuovo account

Accedi

Sei già registrato? Accedi qui.


Accedi Ora
Accedi per seguire   
Seguaci 0