neutralizzzaione1

esercitazione con visual basic su powerpoint per la soluzione di
problemi di titolazione, neutralizzazione con acidi e basi forti
inserire tre elementi sui quattro necessari :due concentrazioni e due volumi
viene eseguito il calcolo con la relazione ca*va = cb*vb e visualizzato
il risultato e dati inseriti

Private Sub CommandButton1_Click()
Rem calcolo in neutralizzazione acido-base forte
Rem in funzione di concentrazioni e volumi inseriti
Rem o da inserire da tastiera
rem esempio con dati prefissati
Const h = "----------"
ca = 0.5
cb = 0.5
va = 100
vb = ca * va / cb
ListBox1.AddItem ("calcolare volume di base neutralizzante")
ListBox1.AddItem ("vb=ca*va/cb")
ListBox1.AddItem ("normalità acido ca = " & ca)
ListBox1.AddItem ("normalità base cb = " & cb)
ListBox1.AddItem ("volume acido va = " & va)
ListBox1.AddItem ("volume base calcolato vb = " & vb)
ListBox1.AddItem (h)
ca = 0.5
cb = 1
va = 100
vb = ca * va / cb
ListBox1.AddItem ("calcolare volume di base neutralizzante")
ListBox1.AddItem ("normalità acido ca = " & ca)
ListBox1.AddItem ("normalità base cb = " & cb)
ListBox1.AddItem ("volume acido va = " & va)
ListBox1.AddItem ("volume base vb calcolato = " & vb)
ListBox1.AddItem (h)

ListBox1.AddItem ("calcolare normalità di base neutralizante")
ListBox1.AddItem (" cb = ca*va/vb")
ca = 0.5
va = 100
vb = 100
cb = ca * va / vb
ListBox1.AddItem ("normalità acido ca = " & ca)
ListBox1.AddItem ("volume acido va = " & va)
ListBox1.AddItem ("volume base vb = " & vb)
ListBox1.AddItem ("normalità base calcolata cb = " & cb)
ListBox1.AddItem (h)
ListBox1.AddItem ("calcolare normalità di base neutralizzante")
ca = 0.5
va = 100
vb = 25
cb = ca * va / vb
ListBox1.AddItem ("normalità acido ca = " & ca)
ListBox1.AddItem ("volume acido va = " & va)
ListBox1.AddItem ("volume base vb = " & vb)
ListBox1.AddItem ("normalità base calcolata cb = " & cb)
ListBox1.AddItem (h)
End Sub

Private Sub CommandButton2_Click()
Rem calcolo mediante dati da tastiera
ListBox1.AddItem ("calcolare volume di base neutralizzante")
ListBox1.AddItem ("vb=ca*va/cb")
ca = TextBox1.Text
cb = TextBox2.Text
va = TextBox3.Text
vb = ca * va / cb
ListBox1.AddItem ("normalità acido ca = " & ca)
ListBox1.AddItem ("volume acido va = " & va)
ListBox1.AddItem ("normalità base cb = " & cb)
ListBox1.AddItem ("volume base calcolato vb = " & vb)
ListBox1.AddItem (h)
End Sub

Private Sub CommandButton3_Click()
ListBox1.Clear
End Sub


Private Sub CommandButton5_Click()
Rem calcolo mediante dati da tastiera
ListBox1.AddItem ("calcolare normalità di base neutralizzante")
ListBox1.AddItem ("cb=ca*va/vb")
ca = TextBox1.Text
va = TextBox2.Text
vb = TextBox3.Text
cb = ca * va / vb
ListBox1.AddItem ("normalità acido ca = " & ca)
ListBox1.AddItem ("volume acido va = " & va)
ListBox1.AddItem ("volume base vb = " & vb)
ListBox1.AddItem ("normalità base calcolata cb = " & cb)
ListBox1.AddItem (h)
End Sub

Private Sub CommandButton6_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
End Sub

vedi neutralizza1.ppt