Come creare una calcolatrice in VB.NET

Per imparare bene un linguaggio di programmazione è importante prendere dimestichezza con i vari comandi, funzioni e metodi che lo stesso ci mette a disposizione. Nel tempo ho scoperto che il miglior modo per prendere confidenza con un linguaggio di programmazione è quello di fare molta pratica con progetti reali e funzionali, destinati ad un vero utilizzo pratico.

A questo proposito, trovo che la calcolatrice sia uno dei migliori elementi da programmare, poiché in base al livello di complessità che si desidera raggiungere, ci permette di imparare e approfondire molto un linguaggio.

In questo articolo cercherò di spiegare come creare una calcolatrice molto semplice, che permetta di eseguire semplici istruzioni di addizione, sottrazione, moltiplicazione e divisione, curando i vari dettagli e rendendola realmente utilizzabile.

Nella seguente guida programmeremo il tutto in un Windows form VB.NET. Se non conosci questo linguaggio ti consiglio di seguire qualche guida dedicata. (qui la documentazione ufficiale Microsoft)

Programmare una calcolatrice in VB.NET

Una calcolatrice di base consente di effettuare calcoli matematici semplici. Altri calcolatori permettono di eseguire complessi calcoli ed espressioni matematiche di vario livello. Qui mi concentrerò nella realizzazione di una calcolatrice semplice, poiché il mio scopo è quello di avvicinare i meno esperti al linguaggio Visual Basic .NET.

Per iniziare a programmare è necessario avere installato Visual Studio sul proprio computer.

Creare un progetto

Prima di tutto, iniziamo con il creare un nuovo progetto in Visual Studio. Il progetto dovrà essere su modello “App Windows Forms (.NET Framework)” con l’ultima versione Framework disponibile.

Salva il progetto in una cartella dedicata o in quella predefinita dal sistema.

Al termine dovresti essere in grado di vedere un Windows Form vuoto. Ora è il momento di creare gli elementi che compongono a calcolatrice.

Creazione della struttura della calcolatrice

Una calcolatrice base è composta da 15/16 pulsanti tra numeri e simboli. Il nostro compito ora è replicare l’estetica del dispositivo aggiungendo i vari tasti e un area di testo (buttons + textbox).

Ridimensiona il form e trascina gli elementi dalla “Casella degli strumenti” all’interno del form, come nell’immagine seguente.

Modifica le seguenti proprietà sugli elementi presenti:

• Name – il nome identificativo dell’elemento. Es. “Uno” o “BtnUno” per il tasto 1
• (Opzionale) FlatStyle – Lo stile grafico di visualizzazione per i pulsanti
• (Opzionale) TabIndex – L’indice di tabulazione degli elementi
• (Opzionale) TextAlign = Right (su Textbox)
• (Opzionale) FormBorderStyle = FixedSingle (sul Form) – Impedisce il ridimensionamento
• (Opzionale) AcceptButton (sul Form) – Impostare il nome del pulsante “uguale”

Programmazione degli elementi

Ora non ci resta che programmare il codice VB per i tasti presenti nel form.

• Per i numeri e i simboli (escluso “uguale” e il tasto “Canc”/”C”) faremo in modo che al click, compaia il valore corrispondente all’interno dell’area di testo (che chiameremo “AreaRisultato“).
• Il tasto “C” servirà a cancellare il contenuto dell’area di testo.
• Il tasto “Uguale” lancerà la funzione calcola() per la valutazione dell’espressione.

Qui il codice VB:

Public Class Form1

    'pulsanti numerici e simboli'
    Private Sub number_Click(sender As Object, e As EventArgs) Handles uno.Click, due.Click, tre.Click,
quattro.Click, cinque.Click, sei.Click,
sette.Click, otto.Click, nove.Click, zero.Click,
piu.Click, meno.Click, per.Click, diviso.Click, virgola.click

        Dim pulsanteCorrente = DirectCast(sender, Button)
        AreaRisultato.Text += pulsanteCorrente.Text
    End Sub

    'tasto uguale'
    Private Sub uguale_Click(sender As Object, e As EventArgs) Handles uguale.Click
        calcola()
    End Sub

    'funzione calcola'
    Function calcola()
        Dim dt As New DataTable
        Dim espressione = Replace(AreaRisultato.Text, ",", ".")
        Try
            AreaRisultato.Text = Convert.ToDecimal(dt.Compute(espressione, ""))
        Catch ex As Exception
            MsgBox("Errore calcolo. " + ex.Message)
        End Try
    End Function

    'cancella area di testo'
    Private Sub CE_Click(sender As Object, e As EventArgs) Handles Canc.Click
        AreaRisultato.Text = ""
    End Sub
End Class

Se hai impostato correttamente gli elementi, la calcolatrice dovrebbe già funzionare.

Come puoi vedere bastano poche righe di codice VB per far funzionare una calcolatrice che permetta di eseguire calcoli matematici semplici.

Con questo metodo oltretutto potrai integrare altri pulsanti senza sforzo e rendere più pratico e utile il tuo programma.

Articoli recenti:

• Upgrade Scheda Rete. Sostituzione della Realtek RTL8822CE
• Da jQuery a JavaScript Puro: Sfruttare il Potenziale Nativo del Web
• Come Risolvere i Problemi di Connessione Bluetooth al PC
• Guida alla Cybersecurity: Come proteggerti da minacce informatiche
• Come Aggiungere un Dizionario su App Kindle