vbagas
per variante più compatta e logica vedi vbagasx.htm

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
i dati da elaborare e poi cliccare pulsante1 per eseguire il calcolo
(per motivi interni al programma, la cancellazione avviene con pulsante2
che inserisce il numero 1 in ogni cella:al momento del calcolo perciò
appare sempre, assieme al risultato atteso per la incognita, anche quello
eseguito sui numeri 1 presenti come dati ed elaborati dalle formule
relative alle varie grandezze da calcolare...)
con VBA su Excel vedi anche vbagas.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
Cells(1, 1) = "cancellare dati nella colonna B con pulsante2"
Cells(2, 1) = "poi inserire valori e cliccare pulsante1"
Cells(2, 2) = "volume ?"
Cells(2, 3) = "pressione ?"
Cells(2, 4) = "temperatura ?"
Cells(2, 5) = "massa ?"
Cells(2, 6) = "peso m."
Cells(2, 7) = "moli ?"
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) = "calcolo volume"
Cells(12, 1) = "calcolo pressione"
Cells(13, 1) = "calcolo temperatura"
Cells(14, 1) = "calcolo massa"
Cells(15, 1) = "calcolo peso molecolare"
Cells(16, 1) = "calcolo numero moli"
Cells(11, 2) = (Cells(7, 2) * Cells(3, 2) * Cells(6, 2)) / (Cells(4, 2) * Cells(8, 2))
Cells(12, 3) = (Cells(7, 3) * Cells(3, 2) * Cells(6, 3)) / (Cells(5, 3) * Cells(8, 3))
Cells(13, 4) = (Cells(4, 4) * Cells(5, 4) * Cells(8, 4)) / (Cells(7, 4) * Cells(3, 2))
Cells(14, 5) = (Cells(4, 5) * Cells(5, 5) * Cells(8, 5)) / (Cells(6, 5) * Cells(3, 2))
Cells(15, 6) = (Cells(7, 6) * Cells(3, 2) * Cells(6, 6)) / (Cells(4, 6) * Cells(5, 6))
Cells(16, 7) = (Cells(4, 7) * Cells(5, 7)) / (Cells(6, 7) * Cells(3, 2))
Cells(18, 1) = "inserire i dati nelle celle della colonna"
Cells(19, 1) = "con incognita alla intestazione"
Cells(20, 1) = "avviene calcolo per grandezza selezionata"
Cells(21, 1) = "vengono visualizzati risultati anche per altre grandezze"
Cells(22, 1) = "che assumono come dati i numeri 1"

End Sub

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