stechiometria

calcoli stechiometrici in reazioni con tre sostanze:due reagenti e un prodotto di reazione
calcolare grammi di secondo reagente e di prodotto conoscendo grammi usati per primo reagente
calcolare grammi dei reagenti necessari per ottenere grammi di prodotto indicati
inserire pesi molecolari, coefficienti stechiometrici interi,massa di un reagente o massa del prodotto
esempio con dati prefissati e passaggio a procedure
esempio con dati da inserire da tastiera

Private Sub calcola(r1 As Integer, r2 As Integer, p1 As Integer, mr1 As Integer, mr2 As Integer, mp1 As Integer, m As Integer)
Rem calcoli stechiometrici con tre composti
Rem due reattivi e un prodotto
pr1 = r1 * mr1 'peso stechiometrico
pr2 = r2 * mr2
pp1 = p1 * mp1
massar1 = m
massar2 = pr2 * massar1 / pr1
massax = pp1 * massar1 / pr1
ListBox1.AddItem ("calcolare massa di prodotto ottenuta con massa reattivo1 nota ")
ListBox1.AddItem ("valori stechiometrixi")
ListBox1.AddItem ("reattivo1 = " & pr1)
ListBox1.AddItem ("reattivo2 = " & pr2)
ListBox1.AddItem ("prodotto1 = " & pp1)
ListBox1.AddItem ("-----------------------")
ListBox1.AddItem ("valori da usare")
ListBox1.AddItem ("massar1 che reagisce = " & massar1)
ListBox1.AddItem ("massar2 che reagisce = " & massar2)
ListBox1.AddItem ("massa2 prodotta = " & massax)
ListBox1.AddItem ("-------------------")
End Sub

Private Sub CommandButton1_Click()
rem calcolo di prodotto con richiamo a procedure con dati prefissati
ListBox1.AddItem ("CaO + CO2 >>> CaCO3 ")
Call calcola(36, 48, 80, 1, 1, 1, 72)
MsgBox ("clicca per altro esempio")
ListBox1.AddItem ("2H2 + 02 >>> 2 H2O ")
Call calcola(2, 32, 18, 2, 1, 2, 8)
End Sub

Private Sub CommandButton2_Click()
Rem noto reagente calcolare altro reagente e prodotto
rem con dati da inserire
r1 = Val(TextBox1.Text)
mr1 = Val(TextBox2.Text)
pr1 = r1 * mr1
r2 = Val(TextBox3.Text)
mr2 = Val(TextBox4.Text)
pr2 = r2 * mr2
p1 = Val(TextBox5.Text)
mp1 = Val(TextBox6.Text)
pp1 = p1 * mp1
massar1 = Val(TextBox7.Text)
massar2 = pr2 * massar1 / pr1
massax = pp1 * massar1 / pr1
ListBox1.AddItem ("calcolare massa di prodotto ottenuta con massa reattivo1 nota ")
ListBox1.AddItem (reazione)
ListBox1.AddItem ("valori stechiometrixi")
ListBox1.AddItem ("reattivo1 = " & pr1)
ListBox1.AddItem ("reattivo2 = " & pr2)
ListBox1.AddItem ("prodotto1 = " & pp1)
ListBox1.AddItem ("-----------------------")
ListBox1.AddItem ("valori da usare")
ListBox1.AddItem ("massar1 che reagisce = " & massar1)
ListBox1.AddItem ("massar2 che reagisce = " & massar2)
ListBox1.AddItem ("massa2 prodotta = " & massax)
ListBox1.AddItem ("-------------------")
End Sub



Private Sub CommandButton3_Click()
Label2.Visible = True
End Sub

Private Sub CommandButton4_Click()
Label2.Visible = False
End Sub

Private Sub CommandButton5_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton6_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""


End Sub

Private Sub CommandButton7_Click()
Rem noto prodotto calcolare reagenti
rem con dati da inserire
r1 = Val(TextBox1.Text)
mr1 = Val(TextBox2.Text)
pr1 = r1 * mr1
r2 = Val(TextBox3.Text)
mr2 = Val(TextBox4.Text)
pr2 = r2 * mr2
p1 = Val(TextBox5.Text)
mp1 = Val(TextBox6.Text)
pp1 = p1 * mp1
massap1 = Val(TextBox7.Text)
massar1 = massap1 * pr1 / pp1
massar2 = massap1 * pr2 / pp1
reazione = mr1 & "r1 + " & mr2 & " r2 = " & mp1 & " p1"
ListBox1.AddItem ("calcolare massa di reagenti necessari per ottenere massa prodotto 1 ")
ListBox1.AddItem (reazione)
ListBox1.AddItem ("valori stechiometrixi")
ListBox1.AddItem ("reattivo1 = " & pr1)
ListBox1.AddItem ("reattivo2 = " & pr2)
ListBox1.AddItem ("prodotto1 = " & pp1)
ListBox1.AddItem ("-----------------------")
ListBox1.AddItem ("valori da usare")
ListBox1.AddItem ("massap1 prodotta = " & massap1)
ListBox1.AddItem ("massar1 che reagisce = " & massar1)
ListBox1.AddItem ("massar2 che reagisce = " & massar2)
ListBox1.AddItem ("-------------------")
End Sub

vedi stechio3.ppt