DEBUG CODIGO
Bom dia.
Senhores,
Estou tendo problema com um código que criei para caucular percentuais de bonificação. As escalas todas funcionam, exceto a ultima, que seria de 0,45%. Segue Código abaixo.
Layout
Textbox1
Textbox2
Textbox10
Button1
Public Class Form1
Dim rec1 As Single [ô]cria uma variável single
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Val(TextBox1.Text) >= 1 And Val(TextBox2.Text) >= 1 Then [ô]Se o valor do textbox1 e o valor do textbox2 forem maior do que 1,
rec1 = Val((TextBox2.Text) * 100) / Val(TextBox1.Text) [ô]define o valor de rec1 para a porcentagem certa
TextBox3.Text = rec1 [ô]define o texto do textbox3 para rec1 ( porcentagem certa)
If rec1 < 95 Then
TextBox10.Text = [Ô]0,00%[Ô]
Else
If rec1 >= 95.0 And rec1 <= 99.9 Then [ô] E assim vai...
TextBox10.Text = [Ô]0,02%[Ô]
Else
If rec1 >= 100 And rec1 <= 105 Then
TextBox10.Text = [Ô]0,05%[Ô]
Else
If rec1 > 105 And rec1 <= 110 Then
TextBox10.Text = [Ô]0,08%[Ô]
Else
If rec1 > 110 And rec1 <= 115 Then
TextBox10.Text = [Ô]0,12%[Ô]
Else
If rec1 > 115 And rec1 <= 120 Then
TextBox10.Text = [Ô]0,18%[Ô]
Else
If rec1 > 120 And rec1 <= 125 Then
TextBox10.Text = [Ô]0,26%[Ô]
Else
If rec1 > 125 And rec1 <= 130 Then
TextBox10.Text = [Ô]0,35%[Ô]
If rec1 > 130 Then
TextBox10.Text = [Ô]0,45%[Ô]
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
[ô]TextBox8.Text = Val(TextBox6.Text) - Val(TextBox5.Text) [ô]define as outras metas
[ô]TextBox9.Text = Val(TextBox4.Text) - Val(TextBox7.Text)
End Sub
End Class
Senhores,
Estou tendo problema com um código que criei para caucular percentuais de bonificação. As escalas todas funcionam, exceto a ultima, que seria de 0,45%. Segue Código abaixo.
Layout
Textbox1
Textbox2
Textbox10
Button1
Public Class Form1
Dim rec1 As Single [ô]cria uma variável single
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Val(TextBox1.Text) >= 1 And Val(TextBox2.Text) >= 1 Then [ô]Se o valor do textbox1 e o valor do textbox2 forem maior do que 1,
rec1 = Val((TextBox2.Text) * 100) / Val(TextBox1.Text) [ô]define o valor de rec1 para a porcentagem certa
TextBox3.Text = rec1 [ô]define o texto do textbox3 para rec1 ( porcentagem certa)
If rec1 < 95 Then
TextBox10.Text = [Ô]0,00%[Ô]
Else
If rec1 >= 95.0 And rec1 <= 99.9 Then [ô] E assim vai...
TextBox10.Text = [Ô]0,02%[Ô]
Else
If rec1 >= 100 And rec1 <= 105 Then
TextBox10.Text = [Ô]0,05%[Ô]
Else
If rec1 > 105 And rec1 <= 110 Then
TextBox10.Text = [Ô]0,08%[Ô]
Else
If rec1 > 110 And rec1 <= 115 Then
TextBox10.Text = [Ô]0,12%[Ô]
Else
If rec1 > 115 And rec1 <= 120 Then
TextBox10.Text = [Ô]0,18%[Ô]
Else
If rec1 > 120 And rec1 <= 125 Then
TextBox10.Text = [Ô]0,26%[Ô]
Else
If rec1 > 125 And rec1 <= 130 Then
TextBox10.Text = [Ô]0,35%[Ô]
If rec1 > 130 Then
TextBox10.Text = [Ô]0,45%[Ô]
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
[ô]TextBox8.Text = Val(TextBox6.Text) - Val(TextBox5.Text) [ô]define as outras metas
[ô]TextBox9.Text = Val(TextBox4.Text) - Val(TextBox7.Text)
End Sub
End Class
Voce esqueceu um ELSE
If rec1 > 125 And rec1 <= 130 Then
TextBox10.Text = [Ô]0,35%[Ô]
[txt-color=#e80000]ELSE[/txt-color]
If rec1 > 130 Then
TextBox10.Text = [Ô]0,45%[Ô]
If rec1 > 125 And rec1 <= 130 Then
TextBox10.Text = [Ô]0,35%[Ô]
[txt-color=#e80000]ELSE[/txt-color]
If rec1 > 130 Then
TextBox10.Text = [Ô]0,45%[Ô]
Arrumou?
Lucas,
Bixo, não sei como agradecer. Me matei ontem nessa bosta de código e não achava a solução. As vezes quando temos um problema e demoramos a achar a solução ficamos cegos e aà é que não vemos mesmo.
Muito obrigado. A sua sugestão resolveu o meu problema. Um forte abraço.
Bixo, não sei como agradecer. Me matei ontem nessa bosta de código e não achava a solução. As vezes quando temos um problema e demoramos a achar a solução ficamos cegos e aà é que não vemos mesmo.
Muito obrigado. A sua sugestão resolveu o meu problema. Um forte abraço.
Tópico encerrado , respostas não são mais permitidas