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:
- 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
Controllo che i valori immessi nelle Text Box siano esclusivamente numerici; in caso affermativo eseguo la somma, avendo cura di convertire i valori immessi nelle Text Box stesse in numerico, altrimenti verrebbero trattati come stringhe.
Per eseguire le altre operazioni è sufficiente copiare tre volte il codice appena proposto e modificare solo l'operatore matematico. Ad esempio, per eseguire un prodotto è sufficiente modificare questa riga di codice:
- Codice:
-
lblRisultato.Caption = CInt(txtNum1.Text) * CInt(txtNum2.Text)
------------------------------------------^
Fonte:lukeonweb