Eliminare numeri dopo la virgola

di il
4 risposte

Eliminare numeri dopo la virgola

Problemino nel codice sottostante io faccio la media del valore di 31 textbox inserendo il risultato nella textbox188. e fin li nessun problema.
il fatto e che io vorrei che il risultato deve avere solo un numero dopo la virgola. e non riesco
con due textbox e semplice ma con 31?
ecco il codice

Codice:
Private Sub sommamedia()
Try
Dim ahyp As Integer = Integer.Parse(TextBox4.Text)
Me.TextBox188.Text = (ahyp)

Dim bhyp As Integer = Integer.Parse(TextBox10.Text)
Me.TextBox188.Text = (ahyp + bhyp) / 2

Dim chyp As Integer = Integer.Parse(TextBox16.Text)
Me.TextBox188.Text = (ahyp + bhyp + chyp) / 3

Dim dhyp As String = Integer.Parse(TextBox22.Text)
Me.TextBox188.Text = (ahyp + bhyp + chyp + dhyp) / 4

Dim eehyp As String = Integer.Parse(TextBox28.Text)
Me.TextBox188.Text = (ahyp + bhyp + chyp + dhyp + eehyp) / 5

Dim fhyp As String = Integer.Parse(TextBox34.Text)
Me.TextBox188.Text = (ahyp + bhyp + chyp + dhyp + eehyp + fhyp) / 6

Dim ghyp As String = Integer.Parse(TextBox40.Text)
Me.TextBox188.Text = (ahyp + bhyp + chyp + dhyp + eehyp + fhyp + ghyp) / 7

Dim hhyp As String = Integer.Parse(TextBox46.Text)
Me.TextBox188.Text = (ahyp + bhyp + chyp + dhyp + eehyp + fhyp + ghyp + hhyp) / 8

Dim ihyp As String = Integer.Parse(TextBox52.Text)
Me.TextBox188.Text = (ahyp + bhyp + chyp + dhyp + eehyp + fhyp + ghyp + hhyp + ihyp) / 9

Dim lhyp As String = Integer.Parse(TextBox58.Text)
Me.TextBox188.Text = (ahyp + bhyp + chyp + dhyp + eehyp + fhyp + ghyp + hhyp + ihyp + lhyp) / 10

Dim mhyp As String = Integer.Parse(TextBox64.Text)
Me.TextBox188.Text = (ahyp + bhyp + chyp + dhyp + eehyp + fhyp + ghyp + hhyp + ihyp + lhyp + mhyp) / 11

Dim nhyp As String = Integer.Parse(TextBox70.Text)
Me.TextBox188.Text = (ahyp + bhyp + chyp + dhyp + eehyp + fhyp + ghyp + hhyp + ihyp + lhyp + mhyp + nhyp) / 12


Dim ohyp As String = Integer.Parse(TextBox76.Text)
Me.TextBox188.Text = (ahyp + bhyp + chyp + dhyp + eehyp + fhyp + ghyp + hhyp + ihyp + lhyp + mhyp + nhyp + ohyp) / 13


Dim phyp As String = Integer.Parse(TextBox82.Text)
Me.TextBox188.Text = (ahyp + bhyp + chyp + dhyp + eehyp + fhyp + ghyp + hhyp + ihyp + lhyp + mhyp + nhyp + ohyp + phyp) / 14


Dim qhyp As String = Integer.Parse(TextBox88.Text)
Me.TextBox188.Text = (ahyp + bhyp + chyp + dhyp + eehyp + fhyp + ghyp + hhyp + ihyp + lhyp + mhyp + nhyp + ohyp + phyp + qhyp) / 15


Dim rhyp As String = Integer.Parse(TextBox94.Text)
Me.TextBox188.Text = (ahyp + bhyp + chyp + dhyp + eehyp + fhyp + ghyp + hhyp + ihyp + lhyp + mhyp + nhyp + ohyp + phyp + qhyp + rhyp) / 16


Dim shyp As String = Integer.Parse(TextBox100.Text)
Me.TextBox188.Text = (ahyp + bhyp + chyp + dhyp + eehyp + fhyp + ghyp + hhyp + ihyp + lhyp + mhyp + nhyp + ohyp + phyp + qhyp + rhyp + shyp) / 17


Dim thyp As String = Integer.Parse(TextBox106.Text)
Me.TextBox188.Text = (ahyp + bhyp + chyp + dhyp + eehyp + fhyp + ghyp + hhyp + ihyp + lhyp + mhyp + nhyp + ohyp + phyp + qhyp + rhyp + shyp + thyp) / 18


Dim uhyp As String = Integer.Parse(TextBox112.Text)
Me.TextBox188.Text = (ahyp + bhyp + chyp + dhyp + eehyp + fhyp + ghyp + hhyp + ihyp + lhyp + mhyp + nhyp + ohyp + phyp + qhyp + rhyp + shyp + thyp + uhyp) / 19


Dim vhyp As String = Integer.Parse(TextBox118.Text)
Me.TextBox188.Text = (ahyp + bhyp + chyp + dhyp + eehyp + fhyp + ghyp + hhyp + ihyp + lhyp + mhyp + nhyp + ohyp + phyp + qhyp + rhyp + shyp + thyp + uhyp + vhyp) / 20

Dim zhyp As String = Integer.Parse(TextBox124.Text)
Me.TextBox188.Text = (ahyp + bhyp + chyp + dhyp + eehyp + fhyp + ghyp + hhyp + ihyp + lhyp + mhyp + nhyp + ohyp + phyp + qhyp + rhyp + shyp + thyp + uhyp + vhyp + zhyp) / 21

Dim khyp As String = Integer.Parse(TextBox130.Text)
Me.TextBox188.Text = (ahyp + bhyp + chyp + dhyp + eehyp + fhyp + ghyp + hhyp + ihyp + lhyp + mhyp + nhyp + ohyp + phyp + qhyp + rhyp + shyp + thyp + uhyp + vhyp + zhyp + khyp) / 22

Dim xhyp As String = Integer.Parse(TextBox136.Text)
Me.TextBox188.Text = (ahyp + bhyp + chyp + dhyp + eehyp + fhyp + ghyp + hhyp + ihyp + lhyp + mhyp + nhyp + ohyp + phyp + qhyp + rhyp + shyp + thyp + uhyp + vhyp + zhyp + khyp + xhyp) / 23

Dim jhyp As String = Integer.Parse(TextBox142.Text)
Me.TextBox188.Text = (ahyp + bhyp + chyp + dhyp + eehyp + fhyp + ghyp + hhyp + ihyp + lhyp + mhyp + nhyp + ohyp + phyp + qhyp + rhyp + shyp + thyp + uhyp + vhyp + zhyp + khyp + xhyp + jhyp) / 24

Dim aahyp As String = Integer.Parse(TextBox148.Text)
Me.TextBox188.Text = (ahyp + bhyp + chyp + dhyp + eehyp + fhyp + ghyp + hhyp + ihyp + lhyp + mhyp + nhyp + ohyp + phyp + qhyp + rhyp + shyp + thyp + uhyp + vhyp + zhyp + khyp + xhyp + jhyp + aahyp) / 25

Dim abhyp As String = Integer.Parse(TextBox154.Text)
Me.TextBox188.Text = (ahyp + bhyp + chyp + dhyp + eehyp + fhyp + ghyp + hhyp + ihyp + lhyp + mhyp + nhyp + ohyp + phyp + qhyp + rhyp + shyp + thyp + uhyp + vhyp + zhyp + khyp + xhyp + jhyp + aahyp + abhyp) / 26

Dim achyp As String = Integer.Parse(TextBox160.Text)
Me.TextBox188.Text = (ahyp + bhyp + chyp + dhyp + eehyp + fhyp + ghyp + hhyp + ihyp + lhyp + mhyp + nhyp + ohyp + phyp + qhyp + rhyp + shyp + thyp + uhyp + vhyp + zhyp + khyp + xhyp + jhyp + aahyp + abhyp + achyp) / 27

Dim adhyp As String = Integer.Parse(TextBox166.Text)
Me.TextBox188.Text = (ahyp + bhyp + chyp + dhyp + eehyp + fhyp + ghyp + hhyp + ihyp + lhyp + mhyp + nhyp + ohyp + phyp + qhyp + rhyp + shyp + thyp + uhyp + vhyp + zhyp + khyp + xhyp + jhyp + aahyp + abhyp + achyp + adhyp) / 28

Dim aehyp As String = Integer.Parse(TextBox172.Text)
Me.TextBox188.Text = (ahyp + bhyp + chyp + dhyp + eehyp + fhyp + ghyp + hhyp + ihyp + lhyp + mhyp + nhyp + ohyp + phyp + qhyp + rhyp + shyp + thyp + uhyp + vhyp + zhyp + khyp + xhyp + jhyp + aahyp + abhyp + achyp + adhyp + aehyp) / 29

Dim afhyp As String = Integer.Parse(TextBox178.Text)
Me.TextBox188.Text = (ahyp + bhyp + chyp + dhyp + eehyp + fhyp + ghyp + hhyp + ihyp + lhyp + mhyp + nhyp + ohyp + phyp + qhyp + rhyp + shyp + thyp + uhyp + vhyp + zhyp + khyp + xhyp + jhyp + aahyp + abhyp + achyp + adhyp + aehyp + afhyp) / 30

Dim aghyp As String = Integer.Parse(TextBox184.Text)
Me.TextBox188.Text = (ahyp + bhyp + chyp + dhyp + eehyp + fhyp + ghyp + hhyp + ihyp + lhyp + mhyp + nhyp + ohyp + phyp + qhyp + rhyp + shyp + thyp + uhyp + vhyp + zhyp + khyp + xhyp + jhyp + aahyp + abhyp + achyp + adhyp + aehyp + afhyp + aghyp) / 31



Catch
End Try

End Sub


come devo fare?

4 Risposte

  • Re: Eliminare numeri dopo la virgola

    Ciao,
    hai provato con un casting forzato o con un format del numero - stringa ?
  • Re: Eliminare numeri dopo la virgola

    Purtroppo e da poco che studio vb.net e non saprei proprio come usare "casting forzato o con un format del numero - stringa ?"
    mi spiegheresti come si fa ho un esempio
    grazie
  • Re: Eliminare numeri dopo la virgola

    Io farei così

    dim risultato as integer
    risultato=text1.text+text2.text................text31.text
    risultato=risultato/31
    txttotale.text=risultato

    in pratica se fai una variabile integer in cui fai i conti invece di usare la textbox nel momento in cui fai la divisione il sistema arrotonda in automatico

    poi prendi il valore e lo metti nella tectbox del totale
  • Re: Eliminare numeri dopo la virgola

    Innanzitutto penso che se vuoi sola cifra dopo la virgola il risultato deve stare in un float
    non in un integer;

    Comunque prova ad usare la funzione round
    Math.Round(3.44, 1) ti da 3.4.
    Math.Round(3.45, 1) ti da 3.4.
    Math.Round(3.46, 1) ti da 3.5.

    "Math.Round" ha molti overloadings che ti possono sicuramente servire.
Devi accedere o registrarti per scrivere nel forum
4 risposte