concentraph2

esercitazione con visual basic su powerpoint per soluzione di problemi
relativi al calcolo del pH e pOH in soluzioni con acid, basi deboli
e soluzioni tampone ,acida,basica
si devono inserire dati da elaborare:concentrazioni, costanti acida, basica
viene fornito il risultato


Rem nessuna dichiarazione di variabili
Rem esercitazione con interazione favoltativa e controllo risposta
Rem ricerca pH e pOH acidi e basi deboli e soluzioni tampone
Rem se errata viene indicato valore calcolato esatto


Private Sub CommandButton1_Click()
Rem problemi per calcolo di pH , pOH soluzioni tampone acido
ListBox1.AddItem ("indicare concentrazione acido debole ca")
ListBox1.AddItem ("indicare concentrazione sale cs")
ListBox1.AddItem ("indicare costante acido debole ka")
ListBox1.AddItem ("")
ListBox1.AddItem ("calcolare pH, pOH")
Label1.Caption = "indicare concentrazione acido ca"
Label2.Caption = "indicare concentrazione sale cs"
Label3.Caption = "indicare costante acido ka"
Label4.Caption = "calcolare pH"
Label5.Caption = "calcolare pOH"
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 tampone acido
ca = TextBox1.Text
cs = TextBox2.Text
ka = TextBox3.Text
H = ka * ca / cs
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 CommandButton3_Click()
Rem problemi per calcolo di pH , pOH soluzioni tampone basico
ListBox1.AddItem ("indicare concentrazione base debole cb")
ListBox1.AddItem ("indicare concentrazione sale cs")
ListBox1.AddItem ("indicare costante base debole kb")
ListBox1.AddItem ("")
ListBox1.AddItem ("calcolare pH, pOH")
Label1.Caption = "indicare concentrazione base cb"
Label2.Caption = "indicare concentrazione sale cs"
Label3.Caption = "indicare costante acido kb"
Label4.Caption = "calcolare pH"
Label5.Caption = "calcolare pOH"
Label6 = ""
ListBox1.AddItem ("-----------------------------")
ListBox1.AddItem ("-----------------------------------")
End Sub

Private Sub CommandButton4_Click()
Rem calcolo pH, pOH soluzione tampone basica
cb = TextBox1.Text
cs = TextBox2.Text
kb = TextBox3.Text
OH = kb * cb / cs
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 CommandButton5_Click()

Rem problemi per calcolo di pH , pOH soluzioni normali basi deboli
ListBox1.AddItem ("indicare molaritÓ della base")
ListBox1.AddItem ("indicare valenza della base")
ListBox1.AddItem ("indicare costante della base")
ListBox1.AddItem ("calcolare pH, pOH")
Label1.Caption = "indicare molaritÓ della base mb"
Label2.Caption = "indicare valenza della base"
Label3.Caption = ("indicare costante della base")
Label4.Caption = "calcolare pOH "
Label5.Caption = "calcolare pH"
Label5.Caption = ""
Label6.Caption = ""
ListBox1.AddItem ("-----------------------------------")
End Sub

Private Sub CommandButton6_Click()
Rem calcolo pH, pOH soluzione normale base debole
mb = TextBox1.Text
va = TextBox2.Text
K = TextBox3.Text
pOH = TextBox4.Text
pH = TextBox5.Text
nb = mb * va
OH = Sqr(K * nb)
pOH = -Log(OH) / Log(10)
pH = 14 - pOH
ListBox1.AddItem ("molaritÓ = " & mb)
ListBox1.AddItem ("normalitÓ della base =" & nb)
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 CommandButton7_Click()
Rem problemi per calcolo di pH , pOH soluzioni normali acide
ListBox1.AddItem ("indicare molaritÓ dell'acido")
ListBox1.AddItem ("indicare valenza dell'acido")
ListBox1.AddItem ("indicare costante dell'acido")
ListBox1.AddItem ("calcolare pH, pOH")
Label1.Caption = "indicare molaritÓ dell'acido ma"
Label2.Caption = "indicare valenza dell'acido"
Label3.Caption = "indicare costante dell'acido "
Label4.Caption = "calcolare pOH"
Label5.Caption = "calcolare pH"
Label6.Caption = ""
ListBox1.AddItem ("-----------------------------------")
End Sub

Private Sub CommandButton8_Click()
Rem calcolo pH, pOH soluzione normale acudo debole
ma = (TextBox1.Text)
va = (TextBox2.Text)
K = TextBox3.Text
pOH = TextBox4.Text
pH = TextBox5.Text
na = (ma * va)
H = Sqr(K * na)
pH = -Log(H) / Log(10)
pOH = 14 - pH
ListBox1.AddItem ("molaritÓ dell'acido = " & ma)
ListBox1.AddItem ("normalitÓ dell'acido =" & na)
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 concentraph2.ppt