Controllo Numeri

di
karl93
il
5 risposte
K
karl93
Pochi posts
Iscritto da
nov, 2011
Messaggi:
5

Controllo Numeri

Buon pomeriggio,
ho un problema sul controllo dei numeri. Calcolando dei valori in questo modo:
Private Sub Command1_Click()
 
totale = Val(Text1.Text)
totale = 0
Label1.Caption = ""
 
Do
N = InputBox("Quanti valori vuoi caricare?" & vbCrLf & _
"(Inserire un valore minore di 10)", "richiesta numero dati")
Loop While N > 10
 
For i = 1 To N
Valore(i) = InputBox("Inserisci Valore", "Inserimento Dati")
Next i
 
 
For i = 1 To N
totale = totale + Valore(i)
Next i
 
Text1.Text = totale
 
End Sub
In pratica se il risultato è ad esempio:

10227,133

Vorrei che nella nella Text1 visualizzi il totale come scritto sopra...quindi:
Text1.Text = totale
Invece nella Text2 visualizzi solo: "10227". Cioè devo eliminare i numeri dopo la virgola.
Come posso fare?

5 Risposte

  • K
    karl93
    Pochi posts
    Iscritto da
    nov, 2011
    Messaggi:
    5

    Re: Controllo Numeri

    Nessun aiuto???
  • DarkEvilSoul
    DarkEvilSoul
    Pochi posts
    Iscritto da
    lug, 2011
    Messaggi:
    14

    Re: Controllo Numeri

    Ciao,
    potresti usare la funzione FIX
    
Text2.Text = Fix(totale)
    dovrebbe fare quello che desideri.
  • K
    karl93
    Pochi posts
    Iscritto da
    nov, 2011
    Messaggi:
    5

    Re: Controllo Numeri

    Si. Grazie.


    Ora in pratica devo calcolare questo...ecco come scritto nell'esempio dell'esercizio:


    a)10227,133
    b)7,133
    c)2,133

    TextBox2.Text= 2,133

    a)10221,133
    b)1,133
    c)1,133

    TextBox2.Text=1,133


    Cosa devo fare?
  • K
    karl93
    Pochi posts
    Iscritto da
    nov, 2011
    Messaggi:
    5

    Re: Controllo Numeri

    In pratica l'approssimazione...nn so se mi sn spiegato bn...ma si calcola in quel modo?
  • K
    karl93
    Pochi posts
    Iscritto da
    nov, 2011
    Messaggi:
    5

    Re: Controllo Numeri

    Allora questo devo ottenere:

    Input: 103,13

    1°Output: 
    Text1.Text=Fix(numero)
    2° Output: 
    Dim quoz As Double
Dim modulo As Double

modulo = 10

quoz = Fix(numero / modulo)
numero = quoz * modulo
Text2.Text = numero
    3° Output:

    Text3.Text= 3,13 - Non riesco a risolvere

    4° Output:

    1)Se il numero inserito(103,13) allora in Text4.Text= 100 e Text3.Text=3,13
    2)Se il numero inserito(105,88) allora in Text4.Text=105 e Text3.Text=0,88 oppure
    Se il numero inserito(107,33) allora in Text4.Text=105 e Text3.Text=2,33.


    Questa parte finale non riesco a risolvere!!!
Devi accedere o registrarti per scrivere nel forum
5 risposte