concentra1

soluzione di problemi su concentrazioni di soluzioni :molarità, normalità, molalità
calcolo di quantità di soluto ,in moli, in equivalenti, in grammi, presente in quantità
note (volumi, massa solvente) di soluzione , solvente, in funzione del peso molecolare noto,
della valenza, della concentrazione

per ogni tipo di problema si creano due pulsanti e si assegna il codice:
primo pulsante:(p1)visualizzza informazioni su dati da inserire
secondo pulsante:(p2)inserimento dati ,esegue calcoli richiesti ,visualizza

nota:dichiarazione delle variabili utilizzate nelle diverse subroutine

Public M As Double 'molarità
Public N As Double 'normalità
Public M1 As Double 'molarità1
Public N1 As Double 'normalità1
Public molale As Double 'molalità
Public g As Double 'massa in grammi
Public p As Double 'peso molecolare
Public v As Double 'volume in litri
Public q As Double 'equivalente
Public va As Integer 'valenza
Public va1 As Integer 'valenza1
Public s As Double 'massa di solvente in Kg
Public moli As Double 'moli di soluto
Public equivalenti As Double 'equivalenti di soluto


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

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

Private Sub CommandButton1_Click()
Rem problemi per calcolo di molarità,normalità, molalità
Rem dati per trovare molarità
Label1.Caption = "volume in litri v"
Label2.Caption = "massa in grammi g"
Label3.Caption = "peso molecolare p"
Label4.Caption = ""
End Sub

Private Sub CommandButton2_Click()
Rem calcolo della molarità
v = TextBox1.Text
g = TextBox2.Text
p = TextBox3.Text
M = g / (p * v)
ListBox1.AddItem ("molarità = " & M)
End Sub

Private Sub CommandButton3_Click()
Rem dati per trovare normalità
Label1.Caption = "volume in litri v "
Label2.Caption = "massa in grammi g"
Label3.Caption = "peso molecolare p"
Label4.Caption = "valenza va"
End Sub

Private Sub CommandButton4_Click()
Rem calcolo della mormalità
v = TextBox1.Text
g = TextBox2.Text
p = TextBox3.Text
va = TextBox4.Text
q = p / va
N = g / (q * v)
ListBox1.AddItem ("normalità = " & N)
End Sub

Private Sub CommandButton5_Click()
Rem dati per trovare la molalità
Label1.Caption = "solvente in kg s "
Label2.Caption = "massa in grammi g"
Label3.Caption = "peso molecolare p "
Label4.Caption = ""
End Sub

Private Sub CommandButton6_Click()
Rem calcolo della molalità
s = TextBox1.Text
g = TextBox2.Text
p = TextBox3.Text
molale = g / (p * s)
ListBox1.AddItem ("molalità = " & molale)
End Sub

Private Sub CommandButton7_Click()
Rem calcolo quantità di soluto presente in soluzioni molari, normali
Rem dati per trovare soluto da molarità
Label1.Caption = "volume in litri v"
Label2.Caption = "molarità M"
Label3.Caption = "peso molecolare p"
Label4.Caption = ""
End Sub

Private Sub CommandButton8_Click()
Rem calcolo della massa da molarità
v = TextBox1.Text
M = TextBox2.Text
p = TextBox3.Text
moli = M * v 'calcolo soluto in moli
g = moli * p 'calcolo soluto in grammi
ListBox1.AddItem ("massa soluto in grammi= " & g)
ListBox1.AddItem ("massa soluto in moli= " & moli)
End Sub

Private Sub CommandButton9_Click()
Rem dati per trovare massa soluto da normalità
Label1.Caption = "volume in litri v"
Label2.Caption = "normalità N"
Label3.Caption = "peso molecolare p"
Label4.Caption = "valenza va"
End Sub

Private Sub CommandButton10_Click()
Rem calcolo della massa di soluto da normalità
v = TextBox1.Text
N = TextBox2.Text
p = TextBox3.Text
va = TextBox4.Text
equivalenti = N * v 'calcolo soluto in equivalenti
q = p / va 'calcolo valore grammo equivalente
g = equivalenti * q 'calcolo grammi di soluto
ListBox1.AddItem ("massa soluto in equivalenti = " & equivalenti)
ListBox1.AddItem ("massa soluto in grammi = " & g)
End Sub

Private Sub CommandButton13_Click()
Rem dati per trovare molarità da normalità e viceversa
Label1.Caption = "normalità N"
Label2.Caption = "valenza va"
Label3.Caption = "molarità M1"
Label4.Caption = "valenza va1"
End Sub

Private Sub CommandButton14_Click()
Rem calcolo per trovare molarità da normalità e viceversa
N = TextBox1.Text
va = TextBox2.Text
M1 = TextBox3.Text
va1 = TextBox4.Text
M = N / va
N1 = M1 * va1
ListBox1.AddItem ("molarità = " & M)
ListBox1.AddItem ("normalità = " & N1)
End Sub

vedi concentra1.ppt