PORCENTAGEM DE DOIS CAMPOS

WATAME 24/09/2012 12:35:29
#410342
E aí pessoal, tudo blz?
Sou novo aqui no vbmania e trazendo uma dificuldade.
Estou precisando calcular a porcentagem de comissão de um TextBox. Utilizo esse código:

Dim c1 As Double
Dim c2 As Double

c1 = Double.Parse(Me.Valor_do_ContratoTextBox.Text) [txt-color=#e80000][ô]O erro está aqui [Ô]Seqüência de entrada não estava em um formato incorreto.[Ô][/txt-color]
c2 = Double.Parse(Me.Comissional__TextBox.Text)
Me.ComissaoTextBox.Text = (c1 * c2)
[ô]Na caixa valor_do_Contrato uso o seguinte:

Private Sub Valor_do_ContratoTextBox_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Valor_do_ContratoTextBox.Leave
If Valor_do_ContratoTextBox.Text = String.Empty Then
Valor_do_ContratoTextBox.Text = 0
End If
Valor_do_ContratoTextBox.Text = FormatCurrency(Valor_do_ContratoTextBox.Text, 2, TriState.True, TriState.True, TriState.True).Replace([Ô]R$[Ô], [Ô][Ô]).Trim
End Sub

Se puderem me ajudar a resolver sou-lhes desde já, muito grato.
FEDERHEN 24/09/2012 12:42:17
#410345
isto daí é NET e está postado com classificação errada...
VELDRAME 24/09/2012 12:50:16
#410349
Independente do software use a matemática.
Faça
Valor1 / 100 * valor2
Ou faça:
valor1 * (valor2/100)

Valor1 = Valor principal
Valor2 = a porcentagem a ser aplicada.
WATAME 24/09/2012 13:35:42
#410353
Veldrame, grato pela atenção. Mas dê outra olhada em meu codigo e vai ver que o problema não é o cálculo em si. Está na conversão.
O que eu quero:
c1 = 12.000,00 * c2 = 0,4%
Me.ComissaoTextBox.Text = R$???
Entende?
Obrigado.
WATAME 24/09/2012 17:36:25
#410382
E aí, ninguem pessoal ?
DAMASCENO.CESAR 24/09/2012 17:41:31
#410386
Voce está pegando os valores dos text box certos?
testei seu codigo e aqui funfou blz, verifica os valores se sao das text box corretas, text box vazia deu esse erro
ALTAIR148 24/09/2012 17:45:57
#410388 Resposta escolhida
Fiz dessa forma aqui e não me retornou nenhum erro.

 Dim c1 As Double
        Dim c2 As Double
        c1 = Double.Parse([Ô]12.000,00[Ô]) [ô]O erro está aqui [Ô]Seqüência de entrada não estava em um formato incorreto.[Ô]
        c2 = Double.Parse([Ô]0,4[Ô])
        MsgBox(c1 * c2)


Você não estaria passando nenhum valor alfanumérico não?
WATAME 25/09/2012 10:05:30
#410425
Amigos, por favor testem esse codigo multiplicado pelo valor que for digitado em uma outra text.box:
Acho que é ele que não esta batendo.
[txt-color=#007100][ô]O campo só aceita numeros[/txt-color]
Private Sub Valor_do_ContratoTextBox_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Valor_do_ContratoTextBox.Leave
If Valor_do_ContratoTextBox.Text = String.Empty Then
Valor_do_ContratoTextBox.Text = 0
End If
[txt-color=#007100][ô] O campo fica no formato moeda[/txt-color]
Valor_do_ContratoTextBox.Text = FormatCurrency(Valor_do_ContratoTextBox.Text, 2, TriState.True, TriState.True, TriState.True).Replace([Ô]R$[Ô], [Ô][Ô]).Trim
End Sub

No textbox ComissionalTextBox dever ter qual código para dar certo a operação?
Desde já obrigado pela atenção
ALTAIR148 25/09/2012 10:38:52
#410433
Amigo, estou achando meio complicado, não estamos entendendo bem o que está acontecendo ai. Vamos fazer o seguinte, precisamos de um print da tela, e identificação dos campos nela, assim dá para compreender melhor.
JONATHANSTECKER 25/09/2012 11:00:27
#410437
Tenta assim...
Private Sub Valor_do_ContratoTextBox_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Valor_do_ContratoTextBox.Leave 
    If Valor_do_ContratoTextBox.Text.Trim = String.Empty Then
        Valor_do_ContratoTextBox.Text = 0
    End If 
    Valor_do_ContratoTextBox.Text = Valor_do_ContratoTextBox.Text.Replace([Ô]R$[Ô], String.Empty).Trim 
End Sub
WATAME 25/09/2012 12:50:17
#410445

JONATHANSTECKER, assim eu fico sem meus pontos e virgulas.
Obrigado pela atenção amigo.
Página 1 de 2 [15 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar