percento2

esercitazione con visual basic su powerpoint per calcolo dei
grammi dei diversi componenti presenti in un composto chimico:
inserire pesi atomici, numeri di atomi presenti nel composto:
inserire massa totale del composto da esaminare
viene fornita la massa in grammi dei diversi elementi presenti:
composti binari e ternari

Private Sub CommandButton1_Click()
Rem calcolo massa di elementi presente in composto
Rem binario o ternario di nota formula
Rem inserire pesi atomici e numero di atomi per elemento
Rem composto binario
peso1 = 1
atomo1 = 2
totale1 = peso1 * atomo1
peso2 = 16
atomo2 = 1
totale2 = peso2 * atomo2
pesototale = totale1 + totale2
massa = 180 'massa in grammi del composto
p1 = totale1 * massa / pesototale
p2 = totale2 * massa / pesototale
ListBox1.AddItem ("massa totale esaminata=" & massa)
ListBox1.AddItem ("peso totale primo = " & totale1)
ListBox1.AddItem ("peso totale secondo = " & totale2)
ListBox1.AddItem ("peso composto = " & pesototale)
ListBox1.AddItem ("massa primo = " & p1)
ListBox1.AddItem ("massa secondo = " & p2)
ListBox1.AddItem ("somma masse = " & p1 + p2)
ListBox1.AddItem ("----------------------------")
End Sub

Private Sub CommandButton2_Click()
Rem composto binario
peso1 = Val(TextBox1.Text)
atomo1 = Val(TextBox2.Text)
totale1 = peso1 * atomo1
peso2 = Val(TextBox3.Text)
atomo2 = Val(TextBox4.Text)
totale2 = peso2 * atomo2
pesototale = totale1 + totale2
massa = Val(TextBox7.Text)
p1 = totale1 * massa / pesototale
p2 = totale2 * massa / pesototale
ListBox1.AddItem ("massa totale esaminata=" & massa)
ListBox1.AddItem ("peso totale primo = " & totale1)
ListBox1.AddItem ("peso totale secondo = " & totale2)
ListBox1.AddItem ("peso composto = " & pesototale)
ListBox1.AddItem ("massa primo = " & p1)
ListBox1.AddItem ("massa secondo = " & p2)
ListBox1.AddItem ("somma masse = " & p1 + p2)
ListBox1.AddItem ("--------------------------------")
End Sub

Private Sub CommandButton3_Click()
Rem composto ternario
peso1 = Val(TextBox1.Text)
atomo1 = Val(TextBox2.Text)
totale1 = peso1 * atomo1
peso2 = Val(TextBox3.Text)
atomo2 = Val(TextBox4.Text)
totale2 = peso2 * atomo2
peso3 = Val(TextBox5.Text)
atomo3 = Val(TextBox6.Text)
totale3 = peso3 * atomo3
pesototale = totale1 + totale2 + totale3
massa = Val(TextBox7.Text)
p1 = totale1 * massa / pesototale
p2 = totale2 * massa / pesototale
p3 = totale3 * massa / pesototale
ListBox1.AddItem ("massa totale esaminata=" & massa)
ListBox1.AddItem ("peso totale primo = " & totale1)
ListBox1.AddItem ("peso totale secondo = " & totale2)
ListBox1.AddItem ("peso totale terzo = " & totale3)
ListBox1.AddItem ("peso composto = " & pesototale)
ListBox1.AddItem ("massa primo = " & p1)
ListBox1.AddItem ("massa secondo = " & p2)
ListBox1.AddItem ("massa terzo = " & p3)
ListBox1.AddItem ("somma masse = " & p1 + p2 + p3)
ListBox1.AddItem ("--------------------------------")
End Sub

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

Private Sub CommandButton5_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton6_Click()
Label3.Visible = True
End Sub

Private Sub CommandButton7_Click()
Label3.Visible = False
End Sub

vedi percento2.ppt