You are here:Home-Vostri Lavori-Calcolatore – Come realizzare Calcolatrice-Rispondi a: Calcolatore – Come realizzare Calcolatrice
Rispondi a: Calcolatore – Come realizzare Calcolatrice2018-01-13T10:02:29+01:00

Home Forum Vostri Lavori Calcolatore – Come realizzare Calcolatrice Rispondi a: Calcolatore – Come realizzare Calcolatrice

BySalvBySalv
Amministratore del forum
    Post totali: 771

    Ciao Luigi allora bisogna un poco stravolgere le cose, la prima cosa dichiariamo la variabile “totale as Double” in quanto può contenere anche la virgola.

    Poi nei CommandButton delle operazioni dichiariamo una variabile “d”, ed invece di usare “Evaluate” usiamo un “Select Case” in modo che faccia le operazioni con i segni operazionali.

    la variabile “d” serve per la formattazione del TextBox2, cioè inserire la virgola se ci sono decimali.

    d = Format(Val(TextBox2), "#,##0.00")

    come potrai notare i segni sono invertiti, cioè la virgola si usa per la separazione delle migliaia ed il punto per i decimali.

    quindi la routine per le operazioni diventa con il “Select Case”

    Private Sub cmb_diviso_Click()
    Dim d
    TextBox1.Text = TextBox1.Text & " / "
    d = Format(Val(TextBox2), "#,##0.00")
    If tt = False Then
    totale = CDbl(d)
    segno = "/"
    TextBox2 = ""
    tt = True
    Else
    Select Case segno
    Case "/": totale = totale / CDbl(d)
    Case "-": totale = totale - CDbl(d)
    Case "*": totale = totale * CDbl(d)
    Case "+": totale = totale + CDbl(d)
    End Select
    segno = "/"
    TextBox2 = ""
    End If
    End Sub

    Con il Case controlla quale segno operazionale si trova in “segno” e fa la relativa operazione.
    Logico che anche il segno = cambia

    Private Sub cmb_uguale_Click()
    Dim d
    d = Format(Val(TextBox2), "#,##0.00")
    Select Case segno
    Case "/": totale = totale / CDbl(d)
    Case "-": totale = totale - CDbl(d)
    Case "*": totale = totale * CDbl(d)
    Case "+": totale = totale + CDbl(d)
    End Select
    TextBox2 = totale
    TextBox1 = ""
    tt = False
    End Sub

    A questo punto riesci a terminare con queste indicazioni, altrimenti inserisco il file completo funzionante.

    Ciao By Sal  :bye:

     

     

    Ciao By Sal (8-)
    se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie