sperimentare

esercitazione didattica dimostrativa del prodotto
di monomio per polinomio con Excel e con VBA su Excel
per codici e attivazione vedi link

descrizione per copiare e incollare codice VBA da inserire
nel foglio di Excel,
http://digilander.libero.it/francescovise/vbacodice/vbaspiegafoto.htm
http://digilander.libero.it/francescovise/vbacodice/spiega1.htm
http://digilander.libero.it/francescovise/vbacodice/prove.htm

http://digilander.libero.it/saggin2009/recente/prodotto1.htm
http://digilander.libero.it/saggin2009/recente/prodotto1.xls
http://digilander.libero.it/saggin2009/recente/monomio.xls
http://digilander.libero.it/saggin2009/recente/prodotto2.htm
http://digilander.libero.it/saggin2009/recente/prodotto2.xls

codice per prodotto1

Private Sub CommandButton1_Click()
Rem prodotto di monomio per polinomio
Rem valori prefissati a scopo didattico dimostrativo
Cells(13, 1) = "prodotto tra monomio e trinomio"
Cells(14, 1) = "prodotto del monomio moltiplicatore per monomi trinomio"
m1 = "5 a * b"
m2 = "6 a^2 * b"
m3 = "7 a * b^2"
cm1 = Val(m1)
cm2 = Val(m2)
cm3 = Val(m3)
sm1 = "a * b"
sm2 = "a^2 * b"
sm3 = "a * b^2"
p = "10 * a"
sp = "a"
cp = Val(p)
p1 = cp * cm1
p2 = cp * cm2
p3 = cp * cm3
sp1 = " a^2 * b"
sp2 = " a^3 * b"
sp3 = " a^2 * b^2"
Cells(1, 1) = "monomi da moltiplicare"
Cells(2, 1) = m1
Cells(3, 1) = m2
Cells(4, 1) = m3
Cells(6, 1) = p
Cells(5, 1) = "monomio moltiplicatore"
Cells(7, 1) = "risultato prodotto tra monomi"
Cells(8, 1) = p1 & sp1
Cells(9, 1) = p2 & sp2
Cells(10, 1) = p3 & sp3
End Sub

Private Sub CommandButton2_Click()
For riga = 1 To 12
Cells(riga, 1) = ""
Next riga
End Sub

Private Sub CommandButton3_Click()
Rem prodotto di monomio per polinomio
Rem valori prefissati a scopo didattico dimostrativo
m1 = "-5 a * b"
m2 = "6 a^2 * b"
m3 = "7 a * b^2"
cm1 = Val(m1)
cm2 = Val(m2)
cm3 = Val(m3)
sm1 = "a * b"
sm2 = "a^2 * b"
sm3 = "a * b^2"
p = "-10 * a * c"
sp = "a"
cp = Val(p)
p1 = cp * cm1
p2 = cp * cm2
p3 = cp * cm3
sp1 = " a^2 * b * c"
sp2 = " a^3 * b * c"
sp3 = " a^2 * b^2 * c"
Cells(1, 1) = "monomi da moltiplicare"
Cells(2, 1) = m1
Cells(3, 1) = m2
Cells(4, 1) = m3
Cells(6, 1) = p
Cells(5, 1) = "monomio moltiplicatore"
Cells(7, 1) = "risultato prodotto tra monomi"
Cells(8, 1) = p1 & sp1
Cells(9, 1) = p2 & sp2
Cells(10, 1) = p3 & sp3
End Sub

codice per prodotto2

Private Sub CommandButton1_Click()
Cells(1, 1) = "inserire coefficienti dei monomi del polinomio e del monomio moltiplicatore"
Cells(2, 1) = "inserire sigla comune ai monomi simili"
m1 = TextBox1
m2 = TextBox2
m3 = TextBox3
mp = TextBox4
sx = TextBox5
spx = sx & "^2"
cm1 = Val(m1)
cm2 = Val(m2)
cm3 = Val(m3)
cmp = Val(mp)
p1 = cmp * cm1
p2 = cmp * cm2
p3 = cmp * cm3
Cells(11, 1) = m1 & sx
Cells(12, 1) = m2 & sx
Cells(13, 1) = m3 & sx
Cells(14, 1) = mp & sx

Cells(11, 3) = p1 & spx
Cells(12, 3) = p2 & spx
Cells(13, 3) = p3 & spx
Cells(1.6) = sm1
End Sub

Private Sub CommandButton2_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
For riga = 11 To 14
For colonna = 1 To 4
Cells(riga, colonna) = ""
Next colonna
Next riga
End Sub