sintesi
vedi variante ridotta sintesi2.htm

esempi di soluzione grafica di disequazioni di 2°
si fornisce la disequazione
si calcola vertice e asse
si assegnano valori con ciclo for-next
si crea grafico con derive e si modifica con paint
si confrontano valori numerici con valori letti sul grafico
si individua ove la disequazione viene o meno soddisfatta
(talvolta i valori numerici e grafici risultano un poco discordanti
perchè nel ciclo for-next si usa un modulo costante = 1 (non decimale..)
Si tratta comunque di una esercitazione a livello didattico per studiare
visual basic su powerpoint( non tanto per studiare le disequazioni)

Private Sub CommandButton1_Click()
h = TextBox1.Text
Select Case h
Case 1
ListBox1.AddItem ("x^2-5x+4 >0")
ListBox1.AddItem ("positiva per x <1 e x >4")
Image1.Visible = True
Call calcola(1, -5, 4)
Case 2
ListBox1.AddItem ("x^2-2x-8 <0")
ListBox1.AddItem ("negativa per x > -2 e x < 4 ")
Image2.Visible = True
Call calcola(1, -2, -8)
Case 3
ListBox1.AddItem ("4x^2-4x+1 >0")
ListBox1.AddItem ("sempre positiva, eccetto ove si annulla")
Image3.Visible = True
Call calcola(4, -4, 1)
Case 4
ListBox1.AddItem ("x^2-2x+1 <0")
ListBox1.AddItem ("impossibile:mai negativa")
Image4.Visible = True
Call calcola(1, -2, 1)
Case 5
ListBox1.AddItem ("x^2-4x+5 >0")
ListBox1.AddItem ("sempre vera:infinite soluzioni")
Image5.Visible = True
Call calcola(1, -4, 5)
Case 6
ListBox1.AddItem ("2x^2-3x+2 <0")
ListBox1.AddItem ("mai negativa:impossibile")
Image6.Visible = True
Call calcola(2, -3, 2)
Case 7
ListBox1.AddItem ("-2x^2 + 8x -4 >0")
ListBox1.AddItem ("positiva entro limiti indicati")
Image7.Visible = True
Call calcola(-2, 8, -4)
Case 8
ListBox1.AddItem ("-x^2 + 2x +2 <0")
ListBox1.AddItem ("negativa estenamente a limiti indicati")
Image8.Visible = True
Call calcola(-1, 2, 2)
Case 9
ListBox1.AddItem ("-4x^2 + 12x -9 >0")
ListBox1.AddItem ("impossibile, mai positiva")
Image9.Visible = True
Call calcola(-4, 12, -9)
Case 10
ListBox1.AddItem ("-x^2 + 4x -4 <0")
ListBox1.AddItem ("sempre negativa, eccetto ove si annulla")
Image10.Visible = True
Call calcola(-1, 4, -4)
Case 11
ListBox1.AddItem ("-x^2 + 2x -3 >0")
ListBox1.AddItem ("impossibile,sempre negativa")
Image11.Visible = True
Call calcola(-1, 2, -3)
Case 12
ListBox1.AddItem ("-2x^2 -12x -22 <0")
ListBox1.AddItem ("sempre negativa:infinite soluzioni")
Image12.Visible = True
Call calcola(-2, -12, -22)
End Select


End Sub

Private Sub CommandButton2_Click()
ListBox1.Clear
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Image12.Visible = False

End Sub

Private Sub calcola(a, b, c)
v1 = (-b / (2 * a))
v2 = ((4 * a * c - b ^ 2) / (4 * a))
asse = (-b / (2 * a))
ListBox1.AddItem (v1 & " , " & v2)
ListBox1.AddItem ("asse = " & asse)
For k = -5 To 5
x = k
ListBox1.AddItem ("x = " & x & " ... y = " & a * x ^ 2 + b * x + c)
Next k
ListBox1.AddItem ("---------------------------")
End Sub


Private Sub CommandButton3_Click()
TextBox1 = ""
End Sub

Private Sub CommandButton4_Click()
Rem selezionare funzione da attivare
ListBox2.AddItem ("inserire numero da 1 a 12 ")
ListBox2.AddItem ("poi cliccare pulsante attivare")
ListBox2.AddItem ("------------------------")
ListBox2.AddItem ("x^2-5x+4 >0..........a>0 D>0 ....1")
ListBox2.AddItem ("x^2-2x-8 <0..........a>0 D>0 ....2")
ListBox2.AddItem ("4x^2-4x+1 >0.........a>0 D=0 ....3")
ListBox2.AddItem ("x^2-2x+1 <0..........a>0 D=0 ....4")
ListBox2.AddItem ("x^2-4x+5 >0..........a>0 D<0 ....5")
ListBox2.AddItem ("2x^2-3x+2 <0.........a>0 D<0 ....6")
ListBox2.AddItem ("-2x^2 + 8x -4 >0.....a<0 D>0 ....7")
ListBox2.AddItem ("-x^2 + 2x +2 <0......a<0 D>0 ....8")
ListBox2.AddItem ("-4x^2 + 12x -9 >0....a<0 D=0 ....9")
ListBox2.AddItem ("-x^2 + 4x -4 <0......a<0 D=0 ...10")
ListBox2.AddItem ("-x^2 + 2x -3 >0......a<0 D<0 ...11")
ListBox2.AddItem ("-2x^2 -12x -22 <0....a<0 D<0 ...12")
End Sub

vedi sintesi.ppt