Rem calcolo pH soluzione dopo mescolamento
Rem tra due soluzioni acida e basica
Rem di note grammi,volumi in litri,pesi molecolari,valenze
rem dati prefissati da codice
ga = 36 'grammi di acido
gb = 40 'grammi di base
va = 1 'litri acido
vb = 1 'litri base
pa = 36 'peso molecolare acido
pb = 40 'peso molecolare base
valea = 1 'valenza acido
valeb = 1 'valenza base
Call calcola(ga, gb, va, vb, pa, pb, valea, valeb)
'MsgBox ("clicca per altro esempio")
Call calcola(72, 40, 2, 2, 36, 40, 1, 1)
'MsgBox ("clicca per altro esempio")
Call calcola(36, 80, 1, 2, 36, 40, 1, 1)
'MsgBox ("clicca per altro esempio")
Call calcola(36.8, 40, 1, 1, 36, 40, 1, 1)
'MsgBox ("clicca per altro esempio")
Call calcola(36, 40, 0.5, 1, 36, 40, 1, 1)
'MsgBox ("clicca per altro esempio")
End Sub
Private Sub calcola(ga1, gb1, va1, vb1, pa1, pb1, valea1, valeb1)
volume = va1 + vb1
eqa = ga1 * valea1 * va1 / pa1
eqb = gb1 * valeb1 * vb1 / pb1
If eqa = eqb Then
pH = 7
End If
If eqa > eqb Then
eq = eqa - eqb
H = eq / volume
pH = -Log(H) / Log(10)
End If
If eqa < eqb Then
eq = eqb - eqa
OH = eq / volume
poH = -Log(OH) / Log(10)
pH = 14 - poH
End If
ListBox1.AddItem ("grammi acido = " & ga1)
ListBox1.AddItem ("grammi base = " & gb1)
ListBox1.AddItem ("peso molecolare acido = " & pa1)
ListBox1.AddItem ("peso molecolare base = " & pb1)
ListBox1.AddItem ("volume acido = " & va1)
ListBox1.AddItem ("volume base = " & vb1)
ListBox1.AddItem ("valenza acido =" & valea1)
ListBox1.AddItem ("valenza base =" & valeb1)
ListBox1.AddItem ("grammoequivalenti acido =" & eqa)
ListBox1.AddItem ("grammoequivalenti base =" & eqb)
ListBox1.AddItem ("equivalenti di residui=" & eq)
ListBox1.AddItem ("volume totale= " & volume)
ListBox1.AddItem ("pH risultante= " & pH)
ListBox1.AddItem ("------------------------------")
End Sub
Private Sub CommandButton2_Click()
rem dati inseriti da tastiera
ga = Val(TextBox1.Text)
gb = Val(TextBox2.Text)
va = Val(TextBox3.Text)
vb = Val(TextBox4.Text)
pa = Val(TextBox5.Text)
pb = Val(TextBox6.Text)
valea = Val(TextBox7.Text)
valeb = Val(TextBox8.Text)
Call calcola(ga, gb, va, vb, pa, pb, valea, valeb)
End Sub
Private Sub CommandButton3_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
End Sub
Private Sub CommandButton4_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
ListBox1.Clear
End Sub
Private Sub CommandButton5_Click()
Label5.Visible = True
End Sub
Private Sub CommandButton6_Click()
Label5.Visible = False
End Sub
