Ir para o conteúdo
Sat_Zapper

[VB.NET 2005] - apresentação de calculo

Mensagens Recomendadas

Sat_Zapper    0
Sat_Zapper

Boas!

Já há mt tempo que deixei isto da programação e do vb, agora por uma questão de trabalho e para arranjar uma aplicação para "desenrascar" uns calculos, resolvi pegar nisto outra vez.. A ferrugem é muita e então pedia aos nossos ilustres se me podiam ajudar.

Então é assim, tenho 3 textbox onde coloco 3 valores, numa outra textbox irá surgir o resultado desse calculo. A minha duvida é quando eu alterasse o valor de uma textbox (seja ela a text1 text 2 ou text3) o resultado na text4 variasse. Neste caso quando coloco o ultimo valor na text3 ela "dá ordem" para apresentar o resultado do calculo na text4. O que eu queria era quando alterasse uma delas o resultado do calculo se apresentasse de uma forma "dinâmica", tipo como acontece no excel. É possivel?

Antecipadamente grato.

Abraço

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Gooden    0
Gooden

icaro.... tas um cadito errado :D value n e a msm coisa k text...

se keres adicionar os textos da textbox aconcelhote a fazeres o seguinte:

textbox4.text=txt1.text+txt2.text+txt3.text

mas aconcelhote a fazer um verificar se e apenas numero pk em caso de n ser vai dar erros suponho ;P

edit:

aki vai a funçao de verificar se e apenas numero :D

Function IsJustNumber(ByVal strInput As String) As Boolean
        Dim j As Integer
        For j = 0 To strInput.Length() - 1 Step j + 1
            If Not Char.IsDigit(strInput.Chars(j)) Then
                If Not Char.ToString(strInput.Chars(j)) = "." Or Not Char.ToString(strInput.Chars(j)) = "," Then
                    Return False
                End If
            End If
        Next
        Return True
    End Function

exemplo como usar:

if isjustnumber(textbox1.text)=true andisjustnumber(textbox2.text)=true andisjustnumber(textbox3.text)=true then
     textbox4.text=textbox1.text+textbox2.text+textbox3.text
else
    Msgbox("apenas numeros premitidos")
end if 

Espero ter ajudado todo mundo :D

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Sat_Zapper    0
Sat_Zapper

Boas!

A malta tenta sempre ajudar! Obrigado pelas dicas, como estou a fazer isto aos bocados, assim que puder implementar, direi alguma coisa! Bem hajam!

Abraços

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Gooden    0
Gooden

sat_zapper conforme as regras do forum mete o titulo do teu topico da seguinte maneira:

[VB.NET 2005] - apresentação de calculo

e kuando ficar resolvido:

[RESOLVIDO] [VB.NET 2005] - apresentação de calculo

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Tiago Salgado    2
Tiago Salgado

A forma mais simples de fazeres isso é a meu ver a seguinte:

Private Sub somar(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus, TextBox2.LostFocus
        Try
            If IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text) Then
                TextBox3.Text = CDbl(TextBox1.Text) + CDbl(TextBox2.Text)
            End If
        Catch ex As Exception
            ' trata a excepção
        End Try
    End Sub

Isto permite-te que sempre que sais das textboxs que vao ter os valores que queres somar, ele te actualize a textbox com o total.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Tiago Salgado    2
Tiago Salgado

Aceita o caracter que tens definido para ser o separador decimal. Isso depente das tuas definições. Podes variar isso definindo uma cultura na propria aplicação.

Explora o System.Globalization

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade