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 concentrazioni
Rem dati per trovare concentrazione % in peso C%p
Rem grammi soluto / grammi soluzione (soluto+solvente)necessari
ListBox1.AddItem ("indicare grammi di soluto e di solvente presenti")
ListBox1.AddItem ("in soluzione di concentrazione % in peso da indicare ")
ListBox1.AddItem ("confronta risposta data con quella attesa")
Label1.Caption = "concentrazione C% in peso desiderata ?"
Label2.Caption = "grammi soluto gsoluto"
Label3.Caption = "grammi solvente gsolvente"
Label4.Caption = ""
End Sub
Private Sub CommandButton2_Click()
Rem calcolo delle quantità di soluto e solvente
concentrazione = (TextBox1.Text)
gsoluto = TextBox2.Text
gsolvente = TextBox3.Text
ListBox1.AddItem ("soluto= " & concentrazione & " solvente = " & (100 - concentrazione))
ListBox1.AddItem ("-----------------------")
End Sub
Private Sub CommandButton3_Click()
Rem dati per trovare gsoluto e gsolvente nota C%p e grammi soluzione
ListBox1.AddItem ("concentrazione % in peso da assegnare")
ListBox1.AddItem ("massa in grammi di soluzione da assegnare ")
ListBox1.AddItem ("indicare grammi soluto e solvente necessari ")
Label1.Caption = "indica la C % in peso nota "
Label2.Caption = "indica grammi di soluzione nota"
Label3.Caption = "calcola grammi soluto presenti="
Label4.Caption = "calcola grammi solvente presenti ="
ListBox1.AddItem ("-----------------------------------")
End Sub
Private Sub CommandButton4_Click()
rem calcolo
concentrazione = TextBox1.Text
soluzione = (TextBox2.Text)
gsoluto = (TextBox3.Text)
gsolvente = (TextBox4.Text)
soluto = (concentrazione * soluzione / 100)
solvente = (soluzione - soluto)
ListBox1.AddItem ("soluto presente = " & soluto)
ListBox1.AddItem ("solvente presente = " & solvente)
End Sub
Private Sub CommandButton5_Click()
ListBox1.AddItem ("concentrazione % in volume da assegnare")
ListBox1.AddItem ("volume in cc di soluzione da assegnare ")
ListBox1.AddItem ("indicare cc soluto e solvente necessari ")
Label1.Caption = "indica la C % in volume nota "
Label2.Caption = "indica cc di soluzione nota"
Label3.Caption = "calcola cc soluto presenti="
Label4.Caption = "calcola cc solvente presenti ="
ListBox1.AddItem ("-----------------------------------")
End Sub
Private Sub CommandButton6_Click()
Rem calcolo per trovare gsoluto e gsolvente nota C%v e volume soluzione
concentrazione = TextBox1.Text
soluzione = (TextBox2.Text)
gsoluto = (TextBox3.Text)
gsolvente = (TextBox4.Text)
soluto = (concentrazione * soluzione / 100)
solvente = (soluzione - soluto)
ListBox1.AddItem ("cc soluto presente = " & soluto)
ListBox1.AddItem ("cc solvente presente = " & solvente)
End Sub
Private Sub CommandButton7_Click()
Rem dati per frazione molare note le moli
ListBox1.AddItem ("inserire numero di moli di tre componenti la soluzione")
ListBox1.AddItem ("visualizza frazioni molari x1,x2,x3")
Label1.Caption = "moli componente x1 ="
Label2.Caption = "moli componente x2 ="
Label3.Caption = "moli componente x3 ="
Label4 = ""
End Sub
Private Sub CommandButton8_Click()
Rem calcolo frazione molare
molix1 = Val(TextBox1.Text)
molix2 = Val(TextBox2.Text)
molix3 = Val(TextBox3.Text)
totali = molix1 + molix2 + molix3
x1 = molix1 / totali
x2 = molix2 / totali
x3 = molix3 / totali
somma = x1 + x2 + x3
ListBox1.AddItem ("somma totale moli = " & totali)
ListBox1.AddItem ("frazione molare x1 = " & x1)
ListBox1.AddItem ("frazione molare x2 = " & x2)
ListBox1.AddItem ("frazione molare x3 = " & x3)
ListBox1.AddItem ("somma frazioni = " & somma)
ListBox1.AddItem ("--------------------------")
End Sub
Private Sub CommandButton9_Click()
Rem dati per frazione molare noti grammi e pesi molecolari
ListBox1.AddItem ("inserire grammi dei componenti soluzione ")
ListBox1.AddItem ("inserire pesi molecolari p1, p2")
ListBox1.AddItem ("visualizza frazioni molari x1,x2")
Label1.Caption = ("grammi componente gx1 =")
Label2.Caption = ("grammi componente gx2 =")
Label3.Caption = ("peso molecolare componente p1 =")
Label4.Caption = ("peso molecolare componente p2")
ListBox1.AddItem ("----------------------------")
End Sub
Private Sub CommandButton10_Click()
Rem calcolo frazione molare noti i grammi e pesi molecolari
gx1 = Val(TextBox1.Text)
gx2 = Val(TextBox2.Text)
p1 = Val(TextBox3.Text)
p2 = Val(TextBox4.Text)
molix1 = gx1 / p1
molix2 = gx2 / p2
totali = molix1 + molix2
x1 = molix1 / totali
x2 = molix2 / totali
somma = x1 + x2
ListBox1.AddItem ("moli componente 1 =" & molix1)
ListBox1.AddItem ("moli componente 2 =" & molix2)
ListBox1.AddItem ("somma totale moli = " & totali)
ListBox1.AddItem ("frazione molare x1 = " & x1)
ListBox1.AddItem ("frazione molare x2 = " & x2)
ListBox1.AddItem ("somma frazioni = " & somma)
ListBox1.AddItem ("--------------------------")
End Sub
Private Sub CommandButton13_Click()
Rem dati per trovare molarità,molalità ,nota C%p e densità
ListBox1.AddItem ("trovare la molarità di una soluzione")
ListBox1.AddItem ("trovare la molalità di una soluzione")
ListBox1.AddItem ("di concentrazione in peso nota")
ListBox1.AddItem ("e densità soluzione nota")
ListBox1.AddItem ("inserire cocentrazione cs in peso")
ListBox1.AddItem ("inserire peso molecolare soluto ps")
ListBox1.AddItem ("inserire densità soluzione ds ")
Label1.Caption = ("concentrazione cs%p =")
Label2.Caption = ("peso molecolare pm=")
Label3.Caption = ("densità soluzione =")
Label4 = ""
ListBox1.AddItem ("-----------------------")
End Sub
Private Sub CommandButton14_Click()
Rem calcolare molarità ,nota C%p e densità
cs = TextBox1.Text
ps = TextBox2.Text
ds = TextBox3.Text
grammis = cs
molis = grammis / ps
grammih = (100 - grammis)
molalità = molis * 1000 / grammih
ListBox1.AddItem ("calcolo molalità")
ListBox1.AddItem ("moli soluto " & molis & " in grammi di solvente " & grammih)
ListBox1.AddItem ("moli soluto in 1000 grammi acqua " & molalità)
ListBox1.AddItem ("grammi soluto =" & grammis)
ListBox1.AddItem ("grammi solvente =" & grammih)
ListBox1.AddItem ("molalità =" & molalità)
Rem calcolo della molarità
Rem calcolo volume di 100 grammi di soluzione
volume = 100 / ds
molarità = molis * 1000 / volume
ListBox1.AddItem ("calcolo molarità")
ListBox1.AddItem ("volume 100 grammi soluzione =" & volume)
ListBox1.AddItem ("molarità = " & molarità)
ListBox1.AddItem ("-------------------------")
End Sub
Private Sub CommandButton15_Click()
Label1 = ""
Label2 = ""
Label3 = ""
Label4 = ""
End Sub
