prodotto di polinomi con VBA

prodotto di due binomi di primo grado
prodotto di due trinomi di secondo grado
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/francescovise/vbacodice/binomio.htm
http://digilander.libero.it/francescovise/vbacodice/binomio.xls
http://digilander.libero.it/francescovise/vbacodice/binomiox.xls
http://digilander.libero.it/francescovise/vbacodice/trinomio.htm
http://digilander.libero.it/francescovise/vbacodice/trinomio.xls

Private Sub
CommandButton1_Click()

Rem prodotto due binomi primo grado
Cells(1, 1) = "a1"
Cells(2, 1) = "b1"
Cells(3, 1) = "a2"
Cells(4, 1) = "b2"
Cells(5, 1) = "m"
Cells(6, 1) = "n"
Cells(7, 1) = "p"
a1 = Cells(1, 2)
b1 = Cells(2, 2)
a2 = Cells(3, 2)
b2 = Cells(4, 2)
m = Cells(1, 2) * Cells(3, 2)
n = Cells(1, 2) * Cells(4, 2) + Cells(2, 2) * Cells(3, 2)
p = Cells(2, 2) * Cells(4, 2)
Cells(5, 2) = m
Cells(6, 2) = n
Cells(7, 2) = p
Rem stampare segno + se coefficiente positivo
Rem se negativo viene stampato automaticamnte
If Cells(6, 2) > 0 Then
sn = "+"
Else
sn = ""
End If
If Cells(7, 2) > 0 Then
sp = "+"
Else
sp = ""
End If
Cells(8, 4) = sn
Cells(8, 5) = sp
Cells(10, 1) = "prodotto di due binomi di primo grado"
Cells(11, 1) = " (a1x + b1) * (a2x + b2) = mx^2 +nx + p
"
Cells(14, 1) = "inserire i coefficienti nelle celle
indicate"
Cells(15, 1) = "risultato trinomio 2° "
Cells(16, 1) = Cells(5, 2) & " x^2 " & Cells(8,
4) & Cells(6, 2) & " x " & Cells(8, 5)
& Cells(7, 2)
End Sub

Private Sub
CommandButton2_Click()

For riga = 1 To 17
For colonna = 1 To 7
Cells(riga, colonna) = ""
Next colonna
Next riga
End Sub

codice per trinomio

Private Sub
CommandButton1_Click()

Dim a1, a2, b1, b2, c1, c2 As Integer
Dim s3, s2, s1, sx As String
Rem prodotto di due trinomi di secondo grado completi
Cells(1, 4) =
"inserire i coefficienti"
Cells(1, 1) = "a1"
Cells(2, 1) = "b1"
Cells(3, 1) = "c1"
Cells(4, 1) = "a2"
Cells(5, 1) = "b2"
Cells(6, 1) = "c2"

a1 = Cells(1, 2)
b1 = Cells(2, 2)
c1 = Cells(3, 2)
a2 = Cells(4, 2)
b2 = Cells(5, 2)
c2 = Cells(6, 2)

Cells(9, 1) = "x^4"
Cells(9, 2) = "x^3"
Cells(9, 3) = "x^2"
Cells(9, 4) = "x^1"
Cells(9, 5) = "x^0"
Cells(10, 1) = a1 * a2
Cells(10, 2) = a1 * b2
Cells(10, 3) = a1 * c2
Cells(11, 2) = b1 * a2
Cells(11, 3) = b1 * b2
Cells(11, 4) = b1 * c2
Cells(12, 3) = c1 * a2
Cells(12, 4) = c1 * b2
Cells(12, 5) = c1 * c2
Cells(13, 1) = "riduzione termini simili"
Cells(14, 1) = Cells(10, 1)
Cells(14, 2) = Cells(10, 2) + Cells(11, 2)
Cells(14, 3) = Cells(10, 3) + Cells(11, 3) + Cells(12, 3)
Cells(14, 4) = Cells(11, 4) + Cells(12, 4)
Cells(14, 5) = Cells(12, 5)
Cells(16, 1) = "risultato"

If Cells(14, 2) > 0 Then
s3 = "+"
Else
s3 = ""
End If

If Cells(14, 3) > 0 Then
s2 = "+"
Else
s2 = ""
End If

If Cells(14, 4) > 0 Then
s1 = "+"
Else
s1 = ""
End If

If Cells(14, 5) > 0 Then
sx = "+"
Else
sx = ""
End If
Rem non mi funziona il segno + !!!
Cells(18, 1) = (Cells(10, 1) & " x^4")
Cells(18, 2) = (s3 & Cells(14, 2) & " x^3")
Cells(18, 3) = (s2 & Cells(14, 3) & " x^2")
Cells(18, 4) = (s1 & Cells(14, 4) & " x")
Cells(18, 5) = (sx & Cells(14, 5))

End Sub

Private Sub
CommandButton2_Click()

For riga = 1 To 18
For colonna = 1 To 6
Cells(riga, colonna) = ""
Next colonna
Next riga
End Sub




Informazioni su fumarino

interessato ad argomenti scientifici, ambienti naturali, parchi e monti
Questa voce è stata pubblicata in informatica. Contrassegna il permalink.

Lascia un commento

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...