Home Su

Codice VB di calcolo delle classi di stabilità di Pasquill

Sub Command1_Click ()
label1.caption = ""
a$ = "A: condizioni estremamente instabili"
b$ = "B: condizioni moderatamente instabili"
c$ = "C: condizioni debolmente instabili"
d$ = "D: condizioni di neutralità"
e$ = "E: condizioni debolmente stabili"
f$ = "F: condizioni moderatamente stabili"

If option1.value And option6.value Then label1.caption = a$
If option2.value And option6.value Then label1.caption = a$ + " e " + b$
If option3.value And option6.value Then label1.caption = b$
If option4.value And option6.value Then label1.caption = c$
If option5.value And option6.value Then label1.caption = c$

If option1.value And option7.value Then label1.caption = a$ + " e " + b$
If option2.value And option7.value Then label1.caption = b$
If option3.value And option7.value Then label1.caption = b$ + " e " + c$
If option4.value And option7.value Then label1.caption = c$ + " e " + d$
If option5.value And option7.value Then label1.caption = d$

If option1.value And option8.value Then label1.caption = b$
If option2.value And option8.value Then label1.caption = c$
If option3.value And option8.value Then label1.caption = c$
If option4.value And option8.value Then label1.caption = d$
If option5.value And option8.value Then label1.caption = d$

If option1.value And option9.value Then label1.caption = e$
If option2.value And option9.value Then label1.caption = e$
If option3.value And option9.value Then label1.caption = d$
If option4.value And option9.value Then label1.caption = d$
If option5.value And option9.value Then label1.caption = d$

If option1.value And option10.value Then label1.caption = f$
If option2.value And option10.value Then label1.caption = f$
If option3.value And option10.value Then label1.caption = e$
If option4.value And option10.value Then label1.caption = d$
If option5.value And option10.value Then label1.caption = d$

End Sub

Il programma completo è disponibile nella sezione Software del sito.


Questa pagina è stata realizzata da Vittorio Villasmunta

Ultimo aggiornamento: 29/11/14