Una semplice calcolatrice in VB 6

Autore: Luca Ruggiero | Tell a Friend Corso Visual Basic 6 Impara a creare applicazioni gestionali col Visual Basic! Corso VB.NET Impara a creare applicazioni desktop con Microsoft .NET! Corso VBA Impara a gestire documenti MS Office col linguaggio VBA!

In questo Articolo impareremo a realizzare una semplice calcolatrice in Visual Basic, analizzando questioni legate alle funzioni di controllo, di conversione dei dati e matematiche.

Si crei un nuovo progetto e si inserisca una nuova form a cui assegneremo il nome frmCalcolatrice; si inseriscano nella form due Text Box (a cui assegnare i nomi txtNum1 e txtNum2) e quattro pulsanti, uno per l'addizione (cmdAddizione), uno per la sottrazione (cmdSottrazione), uno per la moltiplicazione (cmdMoltiplicazione) ed uno per la divisione (cmdDivisione).

Di seguito l'immagine che descrive come potrebbe apparire la form finale:



Facendo doppio click sul pulsante destinato ad eseguire la somma, inserire il seguente codice:

Private Sub cmdAddizione_Click()
    If IsNumeric(txtNum1.Text) = False Or IsNumeric(txtNum2.Text) = False Then
        MsgBox "Inserire valori numerici", vbCritical, "ERRORE"
        txtNum1.Text = ""
        txtNum2.Text = ""
        lblRisultato.Caption = ""
        txtNum1.SetFocus
    Else
        lblRisultato.Caption = CInt(txtNum1.Text) + CInt(txtNum2.Text)
    End If
End Sub

lblRisultato.Caption = CInt(txtNum1.Text) * CInt(txtNum2.Text)
------------------------------------------^