Una semplice calcolatrice in VB 6

Applicazioni desktop con Visual Basic 6
Impara a creare applicazioni gestionali col Visual Basic

Scritto da Luca Ruggiero nella sezione Visual Basic

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
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:
lblRisultato.Caption = CInt(txtNum1.Text) * CInt(txtNum2.Text)
------------------------------------------^

I più cliccati della sezione Visual Basic

:: Guida a Visual Basic 6 (177.800)

:: Una rubrica in VB e Ms Access (98.452)

:: Richiamare una form da un'altra form in Visual Basic (25.004)

:: Interazione tra Visual Basic ed MS Excel (22.438)

:: Leggere un file Xml col DOM in VB 6 (22.121)

:: Inviare email con CDO in Visual Basic 6 (21.549)

:: Un visualizzatore di immagini in VB 6 (14.546)

:: Un semplice sistema di Login in VB 6 (12.881)

:: Scrivere un file MS Word in VB6 (12.597)

:: Creazione e cancellazione di un file di testo con Visual Basic (12.306)

IN EVIDENZA
DOWNLOAD