ARRENDONDAMENTO DE VALOR EM TEXTBOX

MFSYSTEMS 05/12/2011 16:17:29
#390642
Boa tarde galera, como faço pra usar a função de arrendondamento no visual Basic 2008 ?
Exemplo: Na textbox1 tenho o valor 4,842 e gostaria que ele arrendondasse para 4,8. Como faço?

Obrigado.
SAMUKA 05/12/2011 16:33:20
#390644 Resposta escolhida
Vc precisa utilizar o método ROUND

imports System.Math

Round(valor, numerodeDecimais)

valor precisa ser um Decimal ou um double. numeroDeDecimais precisar ser do tipo int.
MFSYSTEMS 07/12/2011 16:11:37
#390793
Então achei que tivesse entendido amigo, mas não entendi bem, como faço pra usar este comando? é que nunca trabalhei com ele, não faço ideia.
Tenho isso:
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox1.Text = ((Val(TextBox7.Text) - Val(TextBox8.Text)) * (0.3) + Val(TextBox8.Text))
TextBox2.Text = ((Val(TextBox7.Text) - Val(TextBox8.Text)) * (0.2) + Val(TextBox8.Text))

Como exemplo o valor da textbox2.text daria por exemplo 2.8 teria que arrendodar pra 3 e texbox1.text teria que arrendondar pra 0,5 sendo que o mesmo daria sem arredondamento 0,6.

Não entendi como fazer. Se puder me ajudar ficarei muito grato. Obrigado.
SAMUKA 07/12/2011 17:54:20
#390800 

        Dim v1 As Single
        Dim v2 As Single
        Dim v3 As Single

        v1 = CSng(TextBox1.Text)
        v2 = CSng(TextBox2.Text)

        v3 = Math.Round(v1 * v2, 2)

        TextBox3.Text = v3.ToString()


O problema que você está usando a método VAL que retorna um inteiro!!
Tópico encerrado , respostas não são mais permitidas
Voltar