concentraph1

esercitazione con visual basic su power point per soluzone di problemi
di calcolo di pH , pOH di soluzioni.
richiesti in inserimento da tastiera dati da elaborare:volume, molarità,valenza,
peso molecolare,grammi:si esegue il calcolo per ricavare pH e pOH
(facoltativo inserire la risposta richiesta:può servire eventualmente per
confrontarla con quella fornita dal programma )

Rem nessuna dichiarazione di variabili
Rem esercitazione con interazione favoltativa e controllo risposta
Rem se errata viene indicato valore calcolato esatto


Private Sub CommandButton1_Click()
Rem problemi per calcolo di pH , pOH soluzioni
ListBox1.AddItem ("indicare volume soluzione")
ListBox1.AddItem ("indicare grammi soluto")
ListBox1.AddItem ("indicare peso molecolare soluto")
ListBox1.AddItem ("indicare valenza soluto")
ListBox1.AddItem ("calcolare pH, pOH")
Label1.Caption = "indicare volume v"
Label2.Caption = "indicare grammi g"
Label3.Caption = "indicare peso molecolare p"
Label4.Caption = "indicare valenza va"
Label5.Caption = "calcolare pH"
Label6.Caption = "calcolare pOH"
ListBox1.AddItem ("-----------------------------")
End Sub

Private Sub CommandButton2_Click()
Rem calcolo pH, pOH soluzione
v = TextBox1.Text
g = TextBox2.Text
p = TextBox3.Text
va = TextBox4.Text
moli = g / p
cb = Val(va) * Val(moli) / v
pOH = -Log(cb) / Log(10)
pH = 14 - pOH
ListBox1.AddItem ("moli soluto =" & moli)
ListBox1.AddItem ("concentrazione normale = " & cb)
ListBox1.AddItem ("pOH = " & pOH)
ListBox1.AddItem ("pH = " & pH)
ListBox1.AddItem (" pH + pOH = " & pH + pOH)
ListBox1.AddItem ("-----------------------")
End Sub

Private Sub CommandButton3_Click()
Rem dati per trovare pH , pOH
Rem problemi per calcolo di pH , pOH soluzioni
ListBox1.AddItem ("indicare volume soluzione")
ListBox1.AddItem ("indicare grammi soluto")
ListBox1.AddItem ("indicare peso molecolare soluto")
ListBox1.AddItem ("indicare valenza soluto")
ListBox1.AddItem ("calcolare pH, pOH")
Label1.Caption = "indicare volume v"
Label2.Caption = "indicare grammi g"
Label3.Caption = "indicare peso molecolare p"
Label4.Caption = "indicare valenza va"
Label5.Caption = "calcolare pH"
Label6.Caption = "calcolare pOH"
ListBox1.AddItem ("-----------------------------------")
End Sub

Private Sub CommandButton4_Click()
Rem calcolo pH, pOH soluzione
v = TextBox1.Text
g = TextBox2.Text
p = TextBox3.Text
va = TextBox4.Text
moli = g / p
ca = (va) * (moli) / v
pH = -Log(ca) / Log(10)
pOH = 14 - pH
ListBox1.AddItem ("moli soluto =" & moli)
ListBox1.AddItem ("concentrazione normale = " & ca)
ListBox1.AddItem ("pOH = " & pOH)
ListBox1.AddItem ("pH = " & pH)
ListBox1.AddItem (" pH + pOH = " & pH + pOH)
ListBox1.AddItem ("-----------------------")
ListBox1.AddItem ("-------------------------------")
End Sub

Private Sub CommandButton5_Click()

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

Private Sub CommandButton6_Click()
Rem calcolo pH, pOH soluzione normale
mb = TextBox1.Text
va = TextBox2.Text
pOH = TextBox3.Text
pH = TextBox4.Text
nb = mb * va
pOH = -Log(nb) / Log(10)
pH = 14 - pOH
ListBox1.AddItem ("normalità della base =" & nb)
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
ListBox1.AddItem ("indicare molarità dell'acido")
ListBox1.AddItem ("indicare valenza dell'acido")
ListBox1.AddItem ("calcolare pH, pOH")
Label1.Caption = "indicare molarità dell'acido ma"
Label2.Caption = "indicare valenza dell'acido"
Label3.Caption = "calcolare pOH "
Label4.Caption = "calcolare pH"
Label5.Caption = ""
Label6.Caption = ""
ListBox1.AddItem ("-----------------------------------")
End Sub

Private Sub CommandButton8_Click()
Rem calcolo pH, pOH soluzione normale
ma = (TextBox1.Text)
va = (TextBox2.Text)
pOH = TextBox3.Text
pH = TextBox4.Text
na = (ma * va)
pH = -Log(na) / Log(10)
pOH = 14 - pH
ListBox1.AddItem ("normalità dell'acido =" & na)
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 CommandButton16_Click()
esempio.Visible = True
End Sub

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

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

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

vedi concentraph1.ppt