neutralizzazione2

esercitazione con visual basic su powerpoint per trovare pH di una soluzione
dopo completa neutralizzazione di una soluzione acida con una basica in
abbondanza rispetto al necessario:
inserire concentrazione di acido e base, volume di acido da neutralizzare,
volume di base per neutralizzare:si controlla se il volume di base
risulta inferiore al necessario (residua acido),se risulta uguale a quello
necessario per completa neutralizzazione (pH = 7),oppure se residua
base che produce un pH di tipo basico:usare normalità e litri per semplificare calcolo

calcolo di pH in soluzione con neutralizzazione
ncompleta con acidi e basi forti
esprimere in normalità e litri per semplificare calcolo

Private Sub CommandButton1_Click()
Rem calcolo di pH in soluzione con neutralizzazione
Rem incompleta con acidi e basi forti
Rem esprimere in normalità e litri per semplificare calcolo
ca = 0.2
va = 0.15
cb = 0.25
vb = 0.3
ListBox1.AddItem ("mescolamento di due soluzioni ")
ListBox1.AddItem ("HCl ca , va " & ca & " " & va)
ListBox1.AddItem ("NaOH cb , vb " & cb & " " & vb)
ListBox1.AddItem ("calcolare pH soluzione finale ")
volume = va + vb
equivalenti = vb * cb - ca * va
normalita = equivalenti / volume
pOH = -Log(normalita) / Log(10)
pH = 14 - pOH
ListBox1.AddItem ("volume soluzione va+vb = " & volume)
ListBox1.AddItem ("equivalenti di NaOH residui = " & equivalenti)
ListBox1.AddItem ("normalità soluzione = " & normalita)
ListBox1.AddItem ("pOH soluzione = " & pOH)
ListBox1.AddItem ("pH soluzione = " & pH)
ListBox1.AddItem ("------------------")
End Sub

Private Sub CommandButton2_Click()
Rem inserire dati da tastiera
Rem in normalità e in litri
ca = Val(TextBox1.Text)
va = Val(TextBox2.Text)
cb = Val(TextBox3.Text)
vb = Val(TextBox4.Text)
ListBox1.AddItem ("------------------")
ListBox1.AddItem ("mescolamento di due soluzioni ")
ListBox1.AddItem ("HCl ca , va " & ca & " " & va)
ListBox1.AddItem ("NaOH cb , vb " & cb & " " & vb)
ListBox1.AddItem ("calcolare pH soluzione finale ")
ListBox1.AddItem ("------------------")
volume = (va) + (vb)
equivalenti = vb * cb - ca * va
ListBox1.AddItem ("equivalenti di acido = " & ca * va)
ListBox1.AddItem ("equivalenti di base = " & cb * vb)
If equivalenti < 0 Then
ListBox1.AddItem ("equivalenti residui di acido " & equivalenti)
ListBox1.AddItem ("volume di base insufficiente")
ListBox1.AddItem ("---------------------------")
End If
If equivalenti = 0 Then
ListBox1.AddItem ("pH = 7 :completa neutralizzazione")
ListBox1.AddItem ("------------------")
End If
Rem escludo calcolo se equivalenti=0 e pH=7
Rem per completa neutralizzazione
Rem e perchè non possibile log
If equivalenti > 0 Then
normalita = equivalenti / (volume)
pOH = -Log(normalita) / Log(10)
pH = 14 - pOH
ListBox1.AddItem ("volume soluzione va+vb = " & volume)
ListBox1.AddItem ("equivalenti di NaOH residui = " & equivalenti)
ListBox1.AddItem ("normalità soluzione = " & normalita)
ListBox1.AddItem ("pOH soluzione = " & pOH)
ListBox1.AddItem ("pH soluzione = " & pH)
ListBox1.AddItem ("------------------")
' Else
'ListBox1.AddItem ("pH = 7 :completa neutralizzazione")
'ListBox1.AddItem ("oppure insufficiente volume di base usato ")
ListBox1.AddItem ("---------------------------")
End If
End Sub

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

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

vedi neutralizza2.ppt