vba8
formule per calcolo legge dei gas PV=nRT con VBA EXCEL PASCAL
VBA
Private Sub
CommandButton1_Click()
'calcolo pressione da PV=grt/mv
Dim p, v, g, r, t, m As Double
r = 10
Cells(3, 3) = "volume="
Cells(4, 3) = "grammi="
Cells(5, 3) = "temperatura="
Cells(6, 3) = "peso molecolare="
v = Cells(3, 4)
g = Cells(4, 4)
t = Cells(5, 4)
m = Cells(6, 4)
p = g * r * t / (m * v)
Cells(10, 3) = "pressione="
Cells(10, 4) = p
End Sub
Private Sub
CommandButton2_Click()
Cells(3, 3) = ""
Cells(4, 3) = ""
Cells(5, 3) = ""
Cells(6, 3) = ""
Cells(3, 4) = 1
Cells(4, 4) = 1
Cells(5, 4) = 1
Cells(6, 4) = 1
Cells(10, 3) = ""
Cells(10, 4) = ""
End Sub
Private Sub
CommandButton3_Click()
Dim p, v, g, r, t, m As Double
r = 10
Cells(3, 3) = "pressione="
Cells(4, 3) = "grammi="
Cells(5, 3) = "temperatura="
Cells(6, 3) = "peso molecolare="
p = Cells(3, 4)
g = Cells(4, 4)
t = Cells(5, 4)
m = Cells(6, 4)
v = g * r * t / (m * p)
Cells(10, 3) = "volume="
Cells(10, 4) = v
End Sub
Private Sub
CommandButton4_Click()
Dim p, v, g, r, t, m As Double
r = 10
Cells(3, 3) = "volume="
Cells(4, 3) = "pressione="
Cells(5, 3) = "temperatura="
Cells(6, 3) = "peso molecolare="
v = Cells(3, 4)
p = Cells(4, 4)
t = Cells(5, 4)
m = Cells(6, 4)
g = p * v * m / (r * t)
Cells(10, 3) = "grammi="
Cells(10, 4) = g
End Sub
Private Sub
CommandButton5_Click()
Dim p, v, g, r, t, m As Double
r = 10
Cells(3, 3) = "volume="
Cells(4, 3) = "grammi="
Cells(5, 3) = "pressione="
Cells(6, 3) = "peso molecolare="
v = Cells(3, 4)
g = Cells(4, 4)
p = Cells(5, 4)
m = Cells(6, 4)
t = p * v * m / (r * g)
Cells(10, 3) = "temperatura="
Cells(10, 4) = t
End Sub
Private Sub
CommandButton6_Click()
Dim p, v, g, r, t, m As Double
r = 10
Cells(3, 3) = "volume="
Cells(4, 3) = "grammi="
Cells(5, 3) = "temperatura="
Cells(6, 3) = "pressione="
v = Cells(3, 4)
g = Cells(4, 4)
t = Cells(5, 4)
p = Cells(6, 4)
m = g * r * t / (p * v)
Cells(10, 3) = "peso molecolare="
Cells(10, 4) = m
End Sub
EXCEL inserire valori richiesti in celle e scrivere formule nelle celle B,D,F,H,J
A ......................B....................................C.......................D.................................E.........................F..................................G..................H....................................I...........................J...........................
program pro33; uses crt; const r=0.082; var p,v,t,m,g,risposta:real ; procedure pressione; var volume,massa,temperatura,pesom:real; begin clrscr; write('volume=');readln(volume); write('massa =');readln(massa); write('temperatura=');readln(temperatura); write('peso molecolare=');readln(pesom); risposta:=massa*r*temperatura/(pesom*volume); writeln('pressione=',risposta:6:2); end; procedure volume; var pressione,massa,temperatura,pesom:real; begin clrscr; write('pressione=');readln(pressione); write('massa =');readln(massa); write('temperatura=');readln(temperatura); write('peso molecolare=');readln(pesom); risposta:=massa*r*temperatura/(pesom*pressione); writeln('volume=',risposta:6:2); end; procedure massa; var volume,pressione,temperatura,pesom:real; begin clrscr; write('volume=');readln(volume); write('pressione =');readln(pressione); write('temperatura=');readln(temperatura); write('peso molecolare=');readln(pesom); risposta:=pressione*volume*pesom/(r*temperatura); writeln('massa=',risposta:6:2); end; procedure temperatura; var volume,massa,pressione,pesom:real; begin clrscr; write('volume=');readln(volume); write('massa =');readln(massa); write('pressione=');readln(pressione); write('peso molecolare=');readln(pesom); risposta:=pressione*volume*pesom/(r*massa); writeln('temperatura=',risposta:6:2); end; procedure pesomolecolare; var volume,massa,temperatura,pressione:real; begin clrscr; write('volume=');readln(volume); write('massa =');readln(massa); write('temperatura=');readln(temperatura); write('pressione=');readln(pressione); risposta:=massa*r*temperatura/(pressione*volume); writeln('peso molecolare=',risposta:6:2); end; begin clrscr; pressione;readln;volume;readln;massa;readln; temperatura;readln;pesomolecolare; readln; end.
RUN
volume=100 massa =20 temperatura=300 pressione=2.46 peso molecolare= 2.00