Oppure

Loading
31/12/09 15:26
blastgraphic
ho creato un nuovo programma che è una calcolatrice
fa anche la percentuale e quindi vorrei fare l'iva se clicco il pulsante + e lo sconto se clicco il pulsante -

per l'iva mi deve sommare il primo text box per il terzo che è il risultato
per lo sconto mi deve sottrarre il primo text box per il terzo

chi mi può aiutare??

vi posto il codice della percentuale

Private Sub cmdpercentuale_Click()
If IsNumeric(txtNum1.Text) = False Or IsNumeric(txtNum2.Text) = False Then
MsgBox "Inserire valori numerici", vbCritical, "ERRORE"
txtNum1.Text = ""
txtNum2.Text = ""
txt3.Text = ""
txtNum1.SetFocus
Else
txt3.Text = CInt(txtNum1.Text) * CInt(txtNum2.Text) / CInt(100)
End If
End Sub:k::D


Edit: Scrivi titoli più significativi
Ultima modifica effettuata da GrG 31/12/09 15:55
aaa
31/12/09 15:58
Louis
Ciao,
Facciamo il caso che devi calcolare l'IVA (20%): farai base imponibile per 1,20 che é il risultato che deve apparire in txt3.Text. In considerazione che devi calcolare almeno due decimali devi utilizzare la Funzione CDbl che rende numeri Double e poi usare la funzione Format per ottenere un risultato con due decimali, come segue:
Private Sub cmdpercentuale_Click()
    If IsNumeric(txtNum1.Text) = False Or IsNumeric(txtNum2.Text) = False Then
            MsgBox "Inserire valori numerici", vbCritical, "ERRORE"
            txtNum1.Text = ""
            txtNum2.Text = ""
            txt3.Text = ""
            txtNum1.SetFocus
        Else
            txt3.Text = Format(CDbl(txtNum1.Text) * CDbl(1 + (txtNum2.Text / 100)), "#,##0.00")
        End If
End Sub


Questo é un calcolo sopra cento (montante), nel caso invece dello sconto al posto di CDbl(1 + (txtNum2.Text / 100) dovrai utilizzare CDbl(1 - (txtNum2.Text / 100)).
Naturalmente in txtNum2.Text inserirai 20 (ad esempio nel caso IVA).
Spero che sia utile.
:k:

Ultima modifica effettuata da Louis 31/12/09 16:00
aaa
31/12/09 16:00
GrG
Non capisco dove sia il problema...

Postato originariamente da blastgraphic:
per l'iva mi deve sommare il primo text box per il terzo che è il risultato

TxtTerzo.text = TxtTerzo.text + txtPrimo.text

Postato originariamente da blastgraphic:
per lo sconto mi deve sottrarre il primo text box per il terzo


TxtTerzo.text = TxtTerzo.text - txtSecondo.text

I nomi delle textbox ora non li ricordo bene, quindi li ho usati di fantasia...

P.S. Non c'è bisogno di mandarmi un e-mail, tanto prima o poi sarei passato sul forum e ti avrei risposto.
aaa
31/12/09 16:01
blastgraphic
scusami amico grazie
Ultima modifica effettuata da blastgraphic 31/12/09 16:02
aaa
31/12/09 16:15
blastgraphic
grazie a voi sto finendo il mio primo programma
fra qualche giorno lo posto!!
Ultima modifica effettuata da blastgraphic 01/01/10 11:21
aaa