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
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.
Ultima modifica effettuata da Louis 31/12/09 16:00
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