La difficoltà nel realizzare questo progetto non è ne molto alta e ne bassa, ma se seguirete questa guida passo passo sarà più semplice di bere un bicchiere d’acqua.
Iniziamo avviando Visual Basic, iniziamo un nuovo progetto e inseriamo i seguenti oggetti:
- 16 Button
- 2 TextBox
- 1 Label
Posizioniamo i componenti appena aggiunti nel form nel modo che segue:
Adesso bisogna rinominare e ridimensionare alcune cose. Il Button1 lo rinomineremo “1”, il Button2 “2” e così via fino ad arrivare al Button9;
Il Button10 va rinominato “0”, il Button11 “+”, il Button12 “-“, il Button13 “x”, il Button14 “/”, il Button15 “=” e il Button16 “C”
La label1 la rinominiamo “Foglio di calcolo” e la TextBox2 la allarghiamo cliccando sulla freccetta in alto a destra di quest’ultima e spuntando la voce Multi Line.
Adesso dobbiamo andare ad impostare il valore ReadOnly della TextBox1 su True così che in quella TextBox si può solo leggere e scrivere i numeri e le operazione tramite i Button. Adesso bisogna fare doppio click sul form e inserire il codice che segue nel foglio che si apre:
Public Class Form1 Dim risultato As Integer = 0 Dim operazione As String Private Sub calcolo() If operazione = "+" Then risultato = risultato + Val(TextBox1.Text) ElseIf operazione = "-" Then risultato = risultato - Val(TextBox1.Text) ElseIf operazione = "*" Then risultato = risultato * Val(TextBox1.Text) ElseIf operazione = "/" Then risultato = risultato / Val(TextBox1.Text) Else risultato = Val(TextBox1.Text) End If TextBox1.Text = "" End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = TextBox1.Text & "1" End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text = TextBox1.Text & "2" End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click TextBox1.Text = TextBox1.Text & "3" End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click TextBox1.Text = TextBox1.Text & "4" End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click TextBox1.Text = TextBox1.Text & "5" End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click TextBox1.Text = TextBox1.Text & "6" End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click TextBox1.Text = TextBox1.Text & "7" End Sub Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click TextBox1.Text = TextBox1.Text & "8" End Sub Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click TextBox1.Text = TextBox1.Text & "9" End Sub Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click TextBox1.Text = TextBox1.Text & "0" End Sub Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click calcolo() operazione = "+" End Sub Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click calcolo() operazione = "-" End Sub Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click calcolo() operazione = "*" End Sub Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click calcolo() operazione = "/" End Sub Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click calcolo() TextBox1.Text = risultato operazione = "" End Sub Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click TextBox1.Text = "" End Sub End Class
A questo punto basta cliccare sul tatso di Debug e vedremo la nostra calcolatrice perfetta e funzionante.
Ci vediamo alla prossima, ciao.