molarex
esercitazione con visual basic su powerpoint per soluzione di problemi
con concentrazioni molari:inserire dati richiesti come indicato
calcolo molarità in funzione di normalità, C% p:p , C% p:v
calcolo numero di moli e di grammi

Private Sub CommandButton10_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
End Sub

Private Sub CommandButton11_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
ListBox1.Clear
End Sub

Private Sub CommandButton12_Click()
Label14.Visible = False
End Sub

Private Sub CommandButton13_Click()
Label1 = ""
Label2 = ""
Label3 = ""
Label4 = ""
Label5 = ""
Label6 = ""
Label7 = ""
Label8 = ""
Label9 = ""
Label10 = ""
Label11 = ""
Label12 = ""
Label13 = ""

End Sub

Private Sub CommandButton14_Click()
Label15.Visible = True
End Sub

Private Sub CommandButton15_Click()
Label15.Visible = False
End Sub

Private Sub CommandButton2_Click()
rem calcolo molarità
Const linea = "---------------"
grammi = TextBox1.Text
volume = TextBox2.Text
pesom = TextBox3.Text
moli = grammi / pesom
molare = moli / volume
ListBox1.AddItem ("grammi soluto = " & grammi)
ListBox1.AddItem ("volume soluzione = " & volume)
ListBox1.AddItem ("peso molecolare soluto =" & pesom)
ListBox1.AddItem (dati)
ListBox1.AddItem ("moli soluto = " & moli)
ListBox1.AddItem ("molarità = " & molare)
ListBox1.AddItem (linea)
End Sub

Private Sub CommandButton3_Click()
rem calcolo molarità
Const linea = "---------------"
normale = TextBox1.Text
valenza = TextBox2.Text
molare = normale / valenza
ListBox1.AddItem ("normalità = " & normale)
ListBox1.AddItem ("valenza = " & valenza)
ListBox1.AddItem (dati)
ListBox1.AddItem ("molarità = " & molare)
ListBox1.AddItem (linea)

End Sub

Private Sub CommandButton4_Click()
rem calcolo moli soluto
Const linea = "---------------"
molare = TextBox1.Text
volume = TextBox2.Text
moli = molare * volume
ListBox1.AddItem ("molarità = " & molare)
ListBox1.AddItem ("volume soluzione = " & volume)
ListBox1.AddItem (dati)
ListBox1.AddItem ("moli soluto = " & moli)
ListBox1.AddItem (linea)

End Sub

Private Sub CommandButton5_Click()
rem calcolo grammi soluto
Const linea = "---------------"
Const dati = "*******************"
molare = TextBox1.Text
volume = TextBox2.Text
pesom = TextBox3.Text
moli = molare * volume
grammi = moli * pesom
ListBox1.AddItem ("molarità = " & molare)
ListBox1.AddItem ("volume soluzione = " & volume)
ListBox1.AddItem ("peso molecolare = " & pesom)
ListBox1.AddItem (dati)
ListBox1.AddItem ("moli soluto = " & moli)
ListBox1.AddItem ("grammi soluto = " & grammi)
ListBox1.AddItem (linea)
End Sub

Private Sub CommandButton6_Click()
rem calcolo molarità
Const linea = "---------------"
moli = TextBox1.Text
volume = TextBox2.Text
molare = moli / volume
ListBox1.AddItem ("moli soluto = " & moli)
ListBox1.AddItem ("volume soluzione = " & volume)
ListBox1.AddItem (dati)
ListBox1.AddItem ("molarità = " & molare)
ListBox1.AddItem (linea)
End Sub

Private Sub CommandButton7_Click()
rem calcolo molarità
Const linea = "---------------"
percentuale = TextBox1.Text
pesom = TextBox2.Text
glitro = percentuale * 10
moli = glitro / pesom
molare = moli / 1
ListBox1.AddItem ("percentuale C% p:v = " & percentuale)
ListBox1.AddItem ("peso molecolare = " & pesom)
ListBox1.AddItem (dati)
ListBox1.AddItem ("grammi per litro = " & glitro)
ListBox1.AddItem ("moli = " & moli)
ListBox1.AddItem ("molarità = " & molare)
ListBox1.AddItem (linea)
End Sub

Private Sub CommandButton8_Click()
rem calcolo molarità
Const linea = "---------------"
Const dati = "*******************"
percentuale = TextBox1.Text
densita = TextBox2.Text
pesom = TextBox3.Text
percentopv = percentuale * densita 'percentuale p:v
grammi = percentopv * 10 'grammi in 1 litro
moli = grammi / pesom
molare = moli / 1
ListBox1.AddItem ("percentuale C% p:p = " & percentuale)
ListBox1.AddItem ("densità = " & densita)
ListBox1.AddItem ("peso molecolare = " & pesom)
ListBox1.AddItem (dati)
ListBox1.AddItem ("percentuale C% p:v = " & percentopv)
ListBox1.AddItem ("grammi in 1 litro = " & grammi)
ListBox1.AddItem ("moli in 1 litro =" & moli)
ListBox1.AddItem ("molarità = " & molare)
ListBox1.AddItem (linea)
End Sub

Private Sub CommandButton9_Click()
Label14.Visible = True
End Sub

Private Sub Label10_Click()
Label1.Caption = "molarita M"
Label2.Caption = "litri soluzione"
Label3 = ""
Label4 = ""
Label5 = ""
Label6 = ""
End Sub

Private Sub Label11_Click()
Label1.Caption = "molarità"
Label2.Caption = "litri soluzione"
Label3 = "peso molecolare"
Label4 = ""
Label5 = ""
Label6 = ""

End Sub

Private Sub Label12_Click()
Label1.Caption = "percentuale C% p:v"
Label2.Caption = "peso molecolare"
Label3 = ""
Label4 = ""
Label5 = ""
Label6 = ""
End Sub

Private Sub Label13_Click()
Label1.Caption = "percentuale C% p:p es.37"
Label2.Caption = "densità es.1,7"
Label3 = "peso molecolare"
Label4 = ""
Label5 = ""
Label6 = ""
End Sub

Private Sub Label7_Click()
Label1.Caption = "moli soluto"
Label2.Caption = "litri soluzione"
Label3 = ""
Label4 = ""
Label5 = ""
Label6 = ""

End Sub

Private Sub Label8_Click()
Label1.Caption = "grammisoluto"
Label2.Caption = "litri soluzione"
Label3 = "peso molecolare soluto"
Label4 = ""
Label5 = ""
Label6 = ""
End Sub

Private Sub Label9_Click()
Label1.Caption = "normalità"
Label2.Caption = "valenza"
Label3 = ""
Label4 = ""
Label5 = ""
Label6 = ""
End Sub

vedi molarex.ppt