Visual BASIC


 

Progrmazione dell'equazione di 2^ grado

 

Installare Visual Basic 2008 gratuito dal seguente sito del Microsoft:

 

Visual Basic 2008

http://www.microsoft.com/it-it/download/details.aspx?id=20682

Clicca qui per scaricare il programma

A) Preparazione Penello del lavoro

-          Avviare Visual Basic 2008.

-          Cliccare su “Create: Project”.

-          Assegnare un nome ad esempio: Equa_2 e salvare.

-          Cliccare sul Form1, andare a destra sulla Proprietà --> Text, cambiare nome Form1 in “Equazione secondo grado”, cliccare su BackColor, scegliere un colore desiderato e dal menu File cliccare su Save All.

 

B) Inserimento dei TextBox, Label e Bottoni

 

Dal menu laterale sinistro cliccare su TextBox ed inserire 5 TextBox come si vede nella figura con dimensioni desiderati (dove vengono visualizzati i dati del A, B, C, X1 e X2 che i relativi nomi in ordine saranno A.Text, B.Text, C.Text, X1.Text, X2.Text).        

-          Dal menu laterale sinistro cliccare su Button ed inserire 3 bottoni per X1, X2 e Reset

-          Dal menu laterale sinistro cliccare su Label ed inserire 3 Label posizionando sui primi 3 TextBox per A, B, C

-          Cliccare sui label1,2,3,4,5 e dal menu proprietà cambiare i nomi in X^2, X^1, X^0 per (A, B, C) e X1, X2.

-          Cliccare sul TextBox1, TextBox2, TextBox3, TextBox4 TextBox5 ed assegnare in ordine A, B, C, X1, X2 cliccando su “Name” dal menu proprietà.

-          Cliccare su Button1 e Button2 e nominare in Calcolo e Reset dal proprietà

 C) Programmazione

 Ora bisogna dare le istruzioni per i bottoni. Il risultato del bottone X1 deve essere visualizzato sul TextBox X1 perciò dobbiamo nominare “X1.Text” e Bottone X2 sul TextBox X2 e nominiamo X2.Text” e bottone Reset agisce sui tutti TextBox.

 -          Cliccare sul Button Calcolo ed inserire tra la riga “Private Sub ….” ed “End Sub “ la riga

        X1.Text = ((-B.Text) + Math.Sqrt((B.Text ^ 2) - 4 * A.Text * C.Text)) / (2 * A.Text)

        X2.Text = ((-B.Text) - Math.Sqrt((B.Text ^ 2) - 4 * A.Text * C.Text)) / (2 * A.Text)

 Che dovrebbe essere visualizzato come segue:

 Public Class Form1

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        X1.Text = ((-B.Text) + Math.Sqrt((B.Text ^ 2) - 4 * A.Text * C.Text)) / (2 * A.Text)

        X2.Text = ((-B.Text) - Math.Sqrt((B.Text ^ 2) - 4 * A.Text * C.Text)) / (2 * A.Text)

    End Sub

End Class

-          - Cliccare sul Button Reset ed inserire tra la riga “Private Sub ….” ed “End Sub “ le righe

A.Text = ""

B.Text = ""

C.Text = ""

X1.Text = ""

       X2.Text = ""

 Che dovrebbe essere visualizzato come segue:

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        A.Text = ""

        B.Text = ""

        C.Text = ""

        X1.Text = ""

        X2.Text = ""

 

    End Sub

End Class

 

Prima di avviare il programma bisogna salvare.

Con F5 o cliccare sulla freccia Run ed avviare il programma.

 

Per vedere gli errore basta cliccare nella parte inferiore sinistra.

 End

 

 

Home                                                                                                                            Indice