normalex

esercitazione con visual basic su powerpoint per soluzione di problemi
con concentrazione normale:
calcolo della normalità in funzione di equivalenti,molarità,volume,c% p:v
calcolo degli equivalenti, grammi presenti in soluzione

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

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

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

Private Sub CommandButton13_Click()
Label16.Visible = True
End Sub

Private Sub CommandButton14_Click()
Label16.Visible = False
End Sub

Private Sub CommandButton2_Click()
rem calcolo normalità
Const linea = "---------------"
grammi = TextBox1.Text
volume = TextBox2.Text
pesom = TextBox3.Text
valenza = TextBox4.Text
gequivalente = pesom / valenza
equivalenti = grammi / gequivalente
normale = equivalenti / volume
ListBox1.AddItem ("grammi soluto = " & grammi)
ListBox1.AddItem ("volume soluzione = " & volume)
ListBox1.AddItem ("peso molecolare soluto =" & pesom)
ListBox1.AddItem ("valenza= " & valenza)
ListBox1.AddItem (dati)
ListBox1.AddItem ("grammoequivalente = " & gequivalente)
ListBox1.AddItem ("equivalenti soluto = " & equivalenti)
ListBox1.AddItem ("normalità = " & normale)
ListBox1.AddItem (linea)
End Sub

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

End Sub

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

End Sub

Private Sub CommandButton5_Click()
rem calcolo grammi
Const linea = "---------------"
Const dati = "*******************"
normale = TextBox1.Text
volume = TextBox2.Text
pesom = TextBox3.Text
valenza = TextBox4.Text
equivalenti = normale * volume
gequivalente = pesom / valenza
grammi = equivalenti * gequivalente
ListBox1.AddItem ("normalità = " & normale)
ListBox1.AddItem ("volume soluzione = " & volume)
ListBox1.AddItem ("peso molecolare = " & pesom)
ListBox1.AddItem ("valenza = " & valenza)
ListBox1.AddItem (dati)
ListBox1.AddItem ("equivalenti = " & equivalenti)
ListBox1.AddItem ("grammoequivalente = " & gequivalente)
ListBox1.AddItem ("grammi soluto = " & grammi)
ListBox1.AddItem (linea)
End Sub

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

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



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

Private Sub Label10_Click()
Label1.Caption = "normalità N"
Label2.Caption = "litri soluzione"
Label3 = ""
Label4 = ""
Label5 = ""
Label6 = ""
End Sub

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

End Sub

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


Private Sub Label7_Click()
Label1.Caption = "equivalenti 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 = "valenza"
Label5 = ""
Label6 = ""
End Sub

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

vedi normalex.ppt