Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Problema con dei calcoli
Forum - Visual Basic 6 - Problema con dei calcoli

Avatar
blastgraphic (Normal User)
Newbie


Messaggi: 10
Iscritto: 31/12/2009

Segnala al moderatore
Postato alle 16:26
Giovedì, 31/12/2009
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 il 31/12/2009 alle 16:55
PM Quote
Avatar
Louis (Normal User)
Pro


Messaggi: 150
Iscritto: 22/04/2008

Segnala al moderatore
Postato alle 16:58
Giovedì, 31/12/2009
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:
Codice sorgente - presumibilmente VB.NET

  1. Private Sub cmdpercentuale_Click()
  2.     If IsNumeric(txtNum1.Text) = False Or IsNumeric(txtNum2.Text) = False Then
  3.             MsgBox "Inserire valori numerici", vbCritical, "ERRORE"
  4.             txtNum1.Text = ""
  5.             txtNum2.Text = ""
  6.             txt3.Text = ""
  7.             txtNum1.SetFocus
  8.         Else
  9.             txt3.Text = Format(CDbl(txtNum1.Text) * CDbl(1 + (txtNum2.Text / 100)), "#,##0.00")
  10.         End If
  11. 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 il 31/12/2009 alle 17:00
PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 17:00
Giovedì, 31/12/2009
Non capisco dove sia il problema...

Testo quotato

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

Testo quotato

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.

PM Quote
Avatar
blastgraphic (Normal User)
Newbie


Messaggi: 10
Iscritto: 31/12/2009

Segnala al moderatore
Postato alle 17:01
Giovedì, 31/12/2009
scusami amico grazie

Ultima modifica effettuata da blastgraphic il 31/12/2009 alle 17:02
PM Quote
Avatar
blastgraphic (Normal User)
Newbie


Messaggi: 10
Iscritto: 31/12/2009

Segnala al moderatore
Postato alle 17:15
Giovedì, 31/12/2009
grazie a voi sto finendo il mio primo programma
fra qualche giorno lo posto!!

Ultima modifica effettuata da blastgraphic il 01/01/2010 alle 12:21
PM Quote