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