concentra3

soluzione problemi di concentrazione e diluizione con correzione risposta

Rem nessuna dichiarazione di variabili
Rem esercitazione con interazione e controllo risposta
Rem se errata viene indicato valore calcolato esatto
Private Sub CommandButton11_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
End Sub

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

Private Sub CommandButton1_Click()
Rem problemi per calcolo di concentrazioni con diluizione
Rem dati per calcolo diluizione
ListBox1.AddItem ("mescolare due soluzioni di volume e M note")
ListBox1.AddItem ("indicare volume in cc. soluzione v1 , v2")
ListBox1.AddItem ("indicare molarità della soluzione M1, M2")
ListBox1.AddItem ("calcolare la molarità della soluzione ottenuta")
Label1.Caption = "indicare molarità M1"
Label2.Caption = "indicare molarità M2"
Label3.Caption = "indicare volume cc v1"
Label4.Caption = "indicare volume cc v2"
Label8.Caption = "calcolare nuova molarità Mt"

End Sub



Private Sub CommandButton2_Click()
Rem calcolo della nuova molarità dopo mescolamento
M1 = TextBox1.Text
M2 = TextBox2.Text
v1 = TextBox3.Text
v2 = TextBox4.Text
Mt = TextBox5.Text
volume = Val(v1) + Val(v2)
moli1 = v1 * M1 / 1000
moli2 = v2 * M2 / 1000
molit = moli1 + moli2
molarità = molit * 1000 / volume
If Val(Mt) <> Val(molarità) Then
ListBox1.AddItem ("errato :era =" & molarità)
End If
ListBox1.AddItem ("moli1 = " & moli1)
ListBox1.AddItem ("moli2 = " & moli2)
ListBox1.AddItem ("moli totali = " & molit)
ListBox1.AddItem ("volume totale = " & volume)
ListBox1.AddItem ("molarità risultante= " & molarità)
ListBox1.AddItem ("-----------------------")
End Sub

Private Sub CommandButton3_Click()
Rem dati per trovare molarità dopo diluizione
ListBox1.AddItem ("calcolare la nuova molarità Mx di una soluzione")
ListBox1.AddItem ("dopo avere aggiunto un volume noto di acqua")
ListBox1.AddItem ("indicare volume soluzione iniziale in cc v1")
ListBox1.AddItem ("indicare molarità iniziale M1 ")
ListBox1.AddItem ("indicare volume acqua aggiunta in cc vh ")
Label1.Caption = ("volume in cc iniziale v1 ")
Label2.Caption = ("molarità iniziale M1 ")
Label3.Caption = ("volume in cc di acqua vh ")
Label4.Caption = ("molarità nuova soluzione Mx ")
Label8 = ""
ListBox1.AddItem ("-----------------------------------")
End Sub

Private Sub CommandButton4_Click()
Rem calcolo molarità dopo diluizione

v1 = TextBox1.Text
M1 = TextBox2.Text
vh = TextBox3.Text
mx = TextBox4.Text
molit = M1 * v1 / 1000
volumet = Val(v1) + Val(vh)
molarità = molit * 1000 / volumet
If Val(mx) <> Val(molarità) Then
ListBox1.AddItem ("errato:era= " & molarità)
End If
ListBox1.AddItem ("moli totali costanti = " & molit)
ListBox1.AddItem ("volume totale soluzione = " & volumet)
ListBox1.AddItem ("molarità risultante = " & molarità)
ListBox1.AddItem ("-------------------------------")
End Sub

Private Sub CommandButton5_Click()
Rem dati per calcolare volume diluente per ottenere nuova Molarità
ListBox1.AddItem ("calcolare il volume in cc di acqua da aggiungere")
ListBox1.AddItem ("a un volume noto di soluzione di nota molarità ")
ListBox1.AddItem ("per ottenere una nuova molarità ")
ListBox1.AddItem ("indicare volume iniziale soluzione in cc v1 ")
ListBox1.AddItem ("indicare molarità iniziale M1")
ListBox1.AddItem ("indicare molarità dopo diluizione M2")
ListBox1.AddItem ("calcolare volume acqua in cc da aggiungere vh")
ListBox1.AddItem ("confrontare risposta con calcolo esatto")
Label1.Caption = "indicare volume iniziale soluzione in cc v1 "
Label2.Caption = "indicare molarità iniziale M1"
Label3.Caption = "indicare molarità dopo diluizione M2"
Label4.Caption = "calcolare volume acqua in cc da aggiungere vh"
Label8 = ""
ListBox1.AddItem ("-----------------------------------")
End Sub

Private Sub CommandButton6_Click()
Rem calcolo per trovare volume acqua per diluizione
v1 = TextBox1.Text
M1 = TextBox2.Text
M2 = TextBox3.Text
vh = TextBox4.Text
v2 = M1 * v1 / M2
volume = v2 - v1
If Val(vh) <> Val(volume) Then
MsgBox ("errato:era " & volume)
End If
ListBox1.AddItem ("volume totale dopo diluizione=" & v2)
ListBox1.AddItem ("volume da aggiungere = " & volume)
ListBox1.AddItem ("-----------------------------------")
End Sub


Private Sub CommandButton15_Click()
Label1 = ""
Label2 = ""
Label3 = ""
Label4 = ""
Label8 = ""
End Sub

vedi concentra3.ppt