regolacroce2

Rem regola della croce e concentrazione intermedia tra
Rem due concentrazione della stessa sostanza
Rem una può essere ca=0 problema di diluizione con solvente puro
Rem concentrazione delle soluzioni della stessa sostanza ca,cb,cx
Rem calcolare volumi delle due soluzioni per ottenere un determinato
Rem volume della soluzione intermedia
Rem prima calcolo il rapporto tra le due soluzioni
Rem dopo applico la proporzione per calcolare le quantità di soluzioni
Rem necessarie per avere una quantità assegnata di soluzione intermedia

Private Sub CommandButton2_Click()
ListBox1.Clear
End Sub


Private Sub CommandButton3_Click()
Rem regola della croce e concentrazione intermedia tra
Rem due concentrazione della stessa sostanza
Rem una può essere ca=0 problema di diluizione con solvente puro
Rem concentrazione delle soluzioni della stessa sostanza ca,cb,cx
Rem calcolare volumi delle due soluzioni per ottenere un determinato
Rem volume della soluzione intermedia
Rem prima calcolo il rapporto tra le due soluzioni
Rem dopo applico la proporzione per calcolare le quantità di soluzioni
Rem necessarie per avere una quantità assegnata di soluzione intermedia
ListBox1.AddItem ("descrizione regola della croce")
ListBox1.AddItem ("si richiede concentrazione di soluzione diluita ca ")
ListBox1.AddItem ("si richiede concentrazione di soluzione concentrata cb ")
ListBox1.AddItem ("si richiede concentrazione intermedia cx")
ListBox1.AddItem ("si richiede volume soluzione diluita va")
ListBox1.AddItem ("si richiede volume soluzione da ottenere vx")
ListBox1.AddItem ("----------------------------------------------------")
TextBox1.SetFocus
ca = TextBox1.Text
cb = TextBox2.Text
cx = TextBox3.Text
va1 = TextBox4.Text
vx = TextBox5.Text
va = cb - cx 'valore per proporzione
vb = cx - ca 'valore per proporzione
vab = va / vb 'rapporto tra i due valori

ListBox1.AddItem ("molarità di a = " & ca)
ListBox1.AddItem ("molarità di b = " & cb)
ListBox1.AddItem ("molarità di x = " & cx)
ListBox1.AddItem ("valore per proporzione " & va)
ListBox1.AddItem ("valore per proporzione " & vb)
ListBox1.AddItem ("rapporto va/vb = " & vab)
Rem assegnare volume a soluzione diluita in litri

Rem calcolo del volume della soluzione concentrata secondo il rapporto
Rem dei valori calcolati sopra va : vb = va1 : vb1
vb1 = vb * va1 / va
vt = va1 + vb1 'volume finale della soluzione
ma1 = ca * va1 'moli presenti in ma1
mb1 = cb * vb1 'moli presenti in mb1
mtotali = ma1 + mb1 'moli totali presenti nel volume finale
ListBox1.AddItem ("volume diluita = " & va1)
ListBox1.AddItem ("volume concentrata = " & vb1)
ListBox1.AddItem ("volume finale = " & vt)
Rem calcolo molarità soluzione finale
concentrazione = mtotali / vt
ListBox1.AddItem ("concentrazione finale = " & concentrazione)
ListBox1.AddItem ("risulta uguale a quella desiderata " & cx)
ListBox1.AddItem ("----------------------------")
Rem calcolo volume diluito per ottenere volume soluzione
vd1 = va1 * vx / vt
Rem calcolo volume concentrata per ottenere volume soluzione
vc1 = vb1 * vx / vt
ListBox1.AddItem (" volume diluita = " & vd1)
ListBox1.AddItem (" volume concentrata = " & vc1)
ListBox1.AddItem ("volume totale soluzione = " & Val(vd1) + Val(vc1))
ListBox1.AddItem ("---------------------------------")
End Sub

Private Sub CommandButton4_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
End Sub

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


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

vedi regolacroce2.ppt