vbagasx

variante di vbagas.htm con uso di Select case k (più compatto e logico)

legge generale dei gas :inserire dati per calcolare le diverse incognite
pressione, volume, massa, peso molecolare, temperatura , applicando la
formula PV=gRT/M

P=gRT/MV......V=gRT/MP....g=PVM/RT...T=PVM/gR...M=gRT/PV
per ogni grandezza (incognita) da calcolare, inserire nella corrispondente colonna B
i dati da elaborare e poi cliccare pulsante1 per eseguire il calcolo
inserire nella cella indicata il codice corrispondente alla incognita 1,2,3,4,5,6
con VBA su Excel vedi anche vbagasx.xls
codice da copiare e incollare su foglio di excel, creando due pulsanti nei quali
inserire il code stesso (cfr. per spiegazione spiega1.htm)

Private Sub CommandButton1_Click()
Rem legge generale dei gas,variante con Select case k
Cells(1, 1) = "cancellare dati nella colonna B con pulsante2"
Cells(2, 1) = "poi inserire valori e cliccare pulsante1"
Cells(2, 2) = "indicare incognita"
Cells(2, 3) = "VPTgMn con 1,2,3,4,5,6"
Cells(3, 1) = "costante dei gas"
Cells(3, 2) = 0.082
Cells(4, 1) = "pressione in atmosfere"
Cells(5, 1) = "volume in litri"
Cells(6, 1) = "temperatura in kelvin"
Cells(7, 1) = "massa in grammi"
Cells(8, 1) = "peso molecolare"
Cells(9, 1) = "numero moli non inserire"
Cells(10, 1) = "calcolo incognita, poi cancella"
Cells(11, 1) = "1 calcolo volume"
Cells(12, 1) = "2 calcolo pressione"
Cells(13, 1) = "3 calcolo temperatura"
Cells(14, 1) = "4 calcolo massa"
Cells(15, 1) = "5 calcolo peso molecolare"
Cells(16, 1) = "6 calcolo numero moli"
k = Cells(3, 3)
Select Case k
Case 1 'volume
Cells(11, 2) = (Cells(7, 2) * Cells(3, 2) * Cells(6, 2)) / (Cells(4, 2) * Cells(8, 2))
Case 2 'pressione
Cells(12, 2) = (Cells(7, 2) * Cells(3, 2) * Cells(6, 2)) / (Cells(5, 2) * Cells(8, 2))
Case 3 'temperatura
Cells(13, 2) = (Cells(4, 2) * Cells(5, 2) * Cells(8, 2)) / (Cells(7, 2) * Cells(3, 2))
Case 4 'massa
Cells(14, 2) = (Cells(4, 2) * Cells(5, 2) * Cells(8, 2)) / (Cells(6, 2) * Cells(3, 2))
Case 5 'peso molecolare
Cells(15, 2) = (Cells(7, 2) * Cells(3, 2) * Cells(6, 2)) / (Cells(4, 2) * Cells(5, 2))
Case 6 'numero moli
Cells(16, 2) = (Cells(4, 2) * Cells(5, 2)) / (Cells(6, 2) * Cells(3, 2))
End Select
End Sub

Private Sub CommandButton2_Click()
For riga = 4 To 16
Cells(riga, 2) = 1
Next riga
End Sub

inserire sempre codice per incognita e valori per 4 dati