neutralizzazione3

esercitazione con visual basic su powerpoint
per soluzione problemi di ricerca del pH risultante dopo il
mescolamento di due soluzioni con concentrazione e volumi noti
usare normalitÓ e litri per semplificare calcolo
dati da
elaborare codificati oppure da inserire da tastiera
variabili dichiarate automaticamente(variant)
uso di procedure e if-end

 

Private Sub CommandButton1_Click()
Rem calcolo pH soluzione dopo mescolamento
Rem tra due soluzioni acida e basica
Rem di note normalitÓ e volumi in litri
a = 0.2 'ca
b = 0.15 'va
c = 0.25 'cb
d = 0.3 'vb

Call calcola7(1, 1, 1, 1)
MsgBox ("premi per altro esempio")
Call calcola7(2, 2, 1, 1)
MsgBox ("premi per altro esempio")
Call calcola7(1, 1, 2, 2)
MsgBox ("premi per altro esempio")
Call calcola7(a, b, c, d)
End Sub

Private Sub calcola7(x, y, z, w)
eqa = x * y
eqb = z * w
If eqa = eqb Then
pH = 7
pOH = 7
volume = Val(y) + Val(w)
residui = "equivalenti residui= 0"
End If
If eqa > eqb Then
eq = eqa - eqb
volume = (y) + (w)
H = eq / volume
pH = -Log(H) / Log(10)
pOH = 14 - pH
residui = "equivalenti acidi residui="
End If
If eqa < eqb Then
eq = eqb - eqa
volume = (y) + (w)
OH = eq / volume
pOH = -Log(OH) / Log(10)
pH = 14 - pOH
residui = "equivalenti basici residui="
End If

ListBox1.AddItem ("concentrazione acido=" & x)
ListBox1.AddItem ("volume acido=" & y)
ListBox1.AddItem ("equivalenti di acido=" & eqa)
ListBox1.AddItem ("---------------------------------")
ListBox1.AddItem ("concentrazione base=" & z)
ListBox1.AddItem ("volume base=" & w)
ListBox1.AddItem ("equivalenti di base =" & eqb)
ListBox1.AddItem ("*********************************")
ListBox1.AddItem (residui & eq)
ListBox1.AddItem ("volume soluzione=" & volume)
ListBox1.AddItem ("**********************************")
ListBox1.AddItem ("ph risultante=" & pH)
ListBox1.AddItem ("pOH risultante=" & pOH)
ListBox1.AddItem ("pH + pOH = " & pH + pOH)
ListBox1.AddItem ("---------------------------------")
End Sub

Private Sub CommandButton2_Click()
ca = Val(TextBox1.Text)
va = Val(TextBox2.Text)
cb = Val(TextBox3.Text)
vb = Val(TextBox4.Text)

Call calcola7(ca, va, cb, vb)
End Sub

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

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

Private Sub CommandButton5_Click()
Label5.Visible = True
End Sub

Private Sub CommandButton6_Click()
Label5.Visible = False
End Sub

vedi neutralizza3.ppt