concentraph3

esercitazione con visual basic su powerpoint per soluzione di problemi
di calcolo di pH e pOH con soluzioni saline che presentano idrolisi acida, basica
si devono inserire le concentrazioni del sale e le costanti dell'acido e della base

Rem nessuna dichiarazione di variabili
Rem esercitazione con interazione favoltativa e controllo risposta
Rem ricerca pH e pOH in soluzione saline con idrolisi basica e acida
Rem se errata viene indicato valore calcolato esatto


Private Sub CommandButton1_Click()
Rem problemi per calcolo di pH , pOH soluzioni con idrolisi basica
Rem sale formato da acido debole e base forte CH3COONa
ListBox1.AddItem ("indicare concentrazione sale cs")
ListBox1.AddItem ("indicare costante dissociazione acido ka")
ListBox1.AddItem ("calcolare pH, pOH")
Label1.Caption = "indicare concentrazione sale cs"
Label2.Caption = "indicare costante acido ka"
Label3.Caption = "calcolare pH"
Label4.Caption = "calcolare pOH"
Label5 = ""
Label6 = ""
ListBox1.AddItem ("-----------------------------")
End Sub

Private Sub CommandButton16_Click()
Label8.Visible = True
End Sub

Private Sub CommandButton17_Click()
Label8.Visible = False
End Sub

Private Sub CommandButton2_Click()
Rem calcolo pH, pOH soluzione con idrolisi basica
kw = 0.0000000000001
cs = TextBox1.Text
ka = TextBox2.Text
OH = Sqr((kw * cs) / ka)
pOH = -(Log(OH) / Log(10))
pH = 14 - pOH
ListBox1.AddItem ("concentrazione OH- = " & OH)
ListBox1.AddItem ("pOH = " & pOH)
ListBox1.AddItem ("pH = " & pH)
ListBox1.AddItem (" pH + pOH = " & pH + pOH)
ListBox1.AddItem ("-----------------------")
End Sub

Private Sub CommandButton3_Click()
Rem problemi per calcolo di pH , pOH soluzioni con idrolisi acida
Rem sale formato da acido forte e base debole NH4Cl
ListBox1.AddItem ("indicare concentrazione sale cs")
ListBox1.AddItem ("indicare costante dissociazione base kb")
ListBox1.AddItem ("calcolare pH, pOH")
Label1.Caption = "indicare concentrazione sale cs"
Label2.Caption = "indicare costante base kb"
Label3.Caption = "calcolare pH"
Label4.Caption = "calcolare pOH"
Label5 = ""
Label6 = ""
ListBox1.AddItem ("-----------------------------------")
End Sub

Private Sub CommandButton4_Click()
Rem calcolo pH, pOH soluzione con isdrolisi acida
kw = 0.0000000000001
cs = TextBox1.Text
kb = TextBox2.Text
H = Sqr((kw * cs) / kb)
pH = -(Log(H) / Log(10))
pOH = 14 - pH
ListBox1.AddItem ("concentrazione H+ = " & H)
ListBox1.AddItem ("pOH = " & pOH)
ListBox1.AddItem ("pH = " & pH)
ListBox1.AddItem (" pH + pOH = " & pH + pOH)
ListBox1.AddItem ("-----------------------")
End Sub


Private Sub ListBox2_Click()

ListBox2.AddItem (" ")
ListBox2.AddItem (" ")
ListBox2.AddItem (" ")
ListBox2.AddItem (" ")
ListBox2.AddItem (" ")

End Sub

Private Sub CommandButton11_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
End Sub

Private Sub CommandButton12_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
Label1 = ""
Label2 = ""
Label3 = ""
Label4 = ""
Label5 = ""
Label6 = ""
ListBox1.Clear
End Sub

Private Sub CommandButton15_Click()
Label1 = ""
Label2 = ""
Label3 = ""
Label4 = ""
Label5 = ""
Label6 = ""
End Sub

Private Sub CommandButton18_Click()
Label7.Visible = True
End Sub

Private Sub CommandButton19_Click()
Label7.Visible = False
End Sub

vedi concentraph3.ppt