regola della croce

esercitazione con visual basic su powerpoint per problemi di
diluizione e mescolamento di soluzioni della stessa sostanza:
inserire concentrazioni diluita, concentrata,internedia, volume diluita
si calcola rapporto volumi delle due soluzioni ,da usare per ottenere
soluzione a concentrazione intermedia assegnata

Private Sub CommandButton1_Click()
Rem regola della croce e concentrazione intermedia tra
Rem due concentrazione della stessa sostanza,espresse con uguale unità
Rem concentrazione delle soluzioni della stessa sostanza ca,cb,cx
rem esempio con dati codificati
ca = 2 ' molare
cb = 8 ' molare
cx = 4 ' molare da ottenere
va = cb - cx 'valore per proporzione
vb = cx - ca 'valore per proporzione
vab = va / vb 'rapporto tra i due valori
ListBox1.AddItem ("descrizione regola della croce")
ListBox1.AddItem ("si dispone di 10 litri di soluzione ca 2M ")
ListBox1.AddItem ("e si desidera ottenere una soluzione cx 4M ")
ListBox1.AddItem ("calcolare il volume di soluzione cb 8M da aggiungere")
ListBox1.AddItem ("al volume precedente per ottenere la soluzione cx 4M")
ListBox1.AddItem ("----------------------------------------------------")
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
va1 = 10
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 ("----------------------------")
End Sub

Private Sub CommandButton2_Click()
ListBox1.Clear
End Sub


Private Sub CommandButton3_Click()
rem inserimento dati da tastiera
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
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 ("----------------------------------------------------")
ca = TextBox1.Text
cb = TextBox2.Text
cx = TextBox3.Text
va1 = TextBox4.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 ("----------------------------")
End Sub

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

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

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

Private Sub CommandButton7_Click()
Image2.Visible = True
End Sub

Private Sub CommandButton8_Click()
Image2.Visible = False
End Sub

vedi regolacroce.ppt