progas1

esercitazione didattica con Visual Basic su PowerPoint, variante più analitica:
problemi sui gas :calcolo di una valore in funzione di dati da inserire
pressione (atmosfere), volume (litri), temperatura (kelvin),massa (grammi), peso molecolare(intero)
costante dei gas r= 0.082
formula principale ( e sue inverse) p*v = g*r*t / m : legge generale dei gas PV=nRT

con un pulsante si visualizzano le legenda da usare per inserimento dati in funzione
della grandezza da calcolare, con altro pulsante si eseguono i calcoli dopo aver inserito
i valori richiesti

nota:possibile dichiarare le variabili con Public, senza doverle dichiarare in ogni subroutine

Public v As Double
Public m As Double
Public t As Double
Public g As Double
Public p As Double
Public r As Double

Private Sub CommandButton1_Click()
Rem problemi sui gas
Rem dati per trovare pressione
Label1.Caption = "volume in litri"
Label2.Caption = "temperatura in kelvin"
Label3.Caption = "massa in grammi"
Label4.Caption = "peso molecolare"
End Sub

Private Sub CommandButton11_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
End Sub

Private Sub CommandButton12_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
ListBox1.Clear
End Sub

Private Sub CommandButton2_Click()
Rem calcolo della pressione
Dim v, t, g, m, r As Double
r = 0.082
v = TextBox1.Text
t = TextBox2.Text
g = TextBox3.Text
m = TextBox4.Text
p = (g * r * t) / (m * v)
ListBox1.AddItem ("pressione = " & p)
End Sub

Private Sub CommandButton3_Click()
Rem dati per trovare volume
Label1.Caption = "pressione in atmosfere"
Label2.Caption = "temperatura in kelvin"
Label3.Caption = "massa in grammi"
Label4.Caption = "peso molecolare"
End Sub

Private Sub CommandButton4_Click()
Rem calcolo del volume
Dim p, t, g, m, r As Double
r = 0.082
p = TextBox1.Text
t = TextBox2.Text
g = TextBox3.Text
m = TextBox4.Text
v = (g * r * t) / (m * p)
ListBox1.AddItem ("volume = " & v)
End Sub

Private Sub CommandButton5_Click()
Rem dati per trovare temperatura
Label1.Caption = "pressione in atmosfere"
Label2.Caption = "volume in litri"
Label3.Caption = "massa in grammi"
Label4.Caption = "peso molecolare"
End Sub

Private Sub CommandButton6_Click()
Rem calcolo della temperatura
Dim v, p, g, m, r As Double
r = 0.082
p = TextBox1.Text
v = TextBox2.Text
g = TextBox3.Text
m = TextBox4.Text
t = (p * v * m) / (g * r)
ListBox1.AddItem ("temperatura = " & t)
End Sub

Private Sub CommandButton7_Click()
Rem dati per trovare massa
Label1.Caption = "pressione in atmosfere"
Label2.Caption = "temperatura in kelvin"
Label3.Caption = "volume in litri"
Label4.Caption = "peso molecolare"
End Sub

Private Sub CommandButton8_Click()
Rem calcolo della massa
Dim v, t, m, p, r As Double
r = 0.082
p = TextBox1.Text
t = TextBox2.Text
v = TextBox3.Text
m = TextBox4.Text
g = (p * v * m) / (r * t)
ListBox1.AddItem ("massa = " & g)
End Sub

Private Sub CommandButton9_Click()
Rem dati per trovare peso molecolare
Label1.Caption = "pressione in atmosfere"
Label2.Caption = "temperatura in kelvin"
Label3.Caption = "massa in grammi"
Label4.Caption = "volume in litri"
End Sub

Private Sub CommandButton10_Click()
Rem calcolo del peso molecolare
Dim v, t, g, p, r As Double
r = 0.082
p = TextBox1.Text
t = TextBox2.Text
g = TextBox3.Text
v = TextBox4.Text
m = (g * r * t) / (p * v)
ListBox1.AddItem ("peso molecolare = " & m)
End Sub

vedi progas1.ppt