Percentuali e dato nella textbox

di
lillos
il
1 risposte
L
lillos
Pochi posts
Iscritto da
mag, 2008
Messaggi:
23

Percentuali e dato nella textbox

1° problema
textbox3 contiene un valore chiamato y , la textbox5 contiene un valore x dai due nella textbox6 faro vedere la percentuale 

    Private Sub percentuale()
        Dim val1 As Integer = 0
        Dim val2 As Integer = 0

        Integer.TryParse(TextBox3.Text, val1)
        Integer.TryParse(TextBox5.Text, val2)

        TextBox6.Text = (val1 / val2) * 100
    End Sub
simulando con excel :
val1 = 74000
val2= 12400
avro' una percentuale del 16,8 %

con la formula che ho fatto viene un numero errato tipo 596,774193548387
dove ho sbagliato e perche' con excel la formula funziona?


2° problema
la textbox187.text del form1 raccoglie un dato che e' lasomma di varie textbox ,poi la somma della textbox187 viene inviata nel form3 nella textbox5 .
il codice fatto e: 
 Form3.TextBox5.Text = TextBox187.Text
lanciando il programma metto i valori nelle textbox e il totaleviene visualizzato nella textbox187.
poi apro il form3 e vedo il valore della text187 esattamente nella text5 e fin li nessun problema.
il fatto e che se ritorno nel form1 senza toccare niente e riclicco subito nel form3 il dato della form187
non e piu' visualizzato nel tex5 perche'.

1 Risposte

  • L
    lillos
    Pochi posts
    Iscritto da
    mag, 2008
    Messaggi:
    23

    Re: Percentuali e dato nella textbox

    Trovato dove sbagliavo
    1°punto
    avevo invertito le textbox
    codice nuovo funzionante 
    'codice per la percentuale dello scarto
    Private Sub percentuale()
        Dim val1 As Integer = 0
        Dim val2 As Integer = 0

        Integer.TryParse(TextBox3.Text, val1)
        Integer.TryParse(TextBox5.Text, val2)

        TextBox6.Text = val2 / val1 * 100
    End Sub

    essendi il valore val 2 piu' grande non poteva fare il conteggio giusti dato che io avevo fatto cosi': 
    Private Sub percentuale()
        Dim val1 As Integer = 0
        Dim val2 As Integer = 0

        Integer.TryParse(TextBox3.Text, val1)
        Integer.TryParse(TextBox5.Text, val2)

        TextBox6.Text = (val1 / val2) * 100
    End Sub

    2°
    il valore nella textbox187 veniva mandata solo alla prima esecuzione perche gli arrivano dei numeri e attiva il codice che invia il tutto al form 3 text5.
    una volta tornati al form1 e ritornando subito al form3 la text5 e vuota perche' nessuno a inviato il comando. ho fatto cosi per risolvere il tutto
    nel tasto dove clicco per andare al form3 ho messo questo comando
     Private Sub MenuItem33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem33.Click
        Me.Hide()
          Form3.Show()
             Form3.TextBox5.Text = TextBox187.Text
    End Sub
    cosi ogni volta che vado al form3 do il comando a mandare il dato al tex5.
    sto imparando qualcosa finalmente
Devi accedere o registrarti per scrivere nel forum
1 risposte