percento1
esercitazione con visual basic su powerpoint
soluzione problemi di calcolo di percentuali elementi
presenti in composti binari o ternari
inserire pesi atomici elementi e numero atomi presenti

Private Sub CommandButton1_Click()
Rem calcoli su percentuali componenti un 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
p1 = totale1 * 100 / pesototale
p2 = totale2 * 100 / pesototale
ListBox1.AddItem ("peso totale primo = " & totale1)
ListBox1.AddItem ("peso totale secondo = " & totale2)
ListBox1.AddItem ("peso composto = " & pesototale)
ListBox1.AddItem ("percentuale primo = " & p1)
ListBox1.AddItem ("percentuale secondo = " & p2)
ListBox1.AddItem ("somma percentuali = " & 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
p1 = totale1 * 100 / pesototale
p2 = totale2 * 100 / pesototale
ListBox1.AddItem ("peso totale primo = " & totale1)
ListBox1.AddItem ("peso totale secondo = " & totale2)
ListBox1.AddItem ("peso composto = " & pesototale)
ListBox1.AddItem ("percentuale primo = " & p1)
ListBox1.AddItem ("percentuale secondo = " & p2)
ListBox1.AddItem ("somma percentuali = " & 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
p1 = totale1 * 100 / pesototale
p2 = totale2 * 100 / pesototale
p3 = totale3 * 100 / pesototale
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 ("percentuale primo = " & p1)
ListBox1.AddItem ("percentuale secondo = " & p2)
ListBox1.AddItem ("percentuale terzo = " & p3)
ListBox1.AddItem ("somma percentuali = " & 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 percento1.ppt