EXT SUB PARA TERMINAR UM PROCEDIMENTO
Listagem 6.4
Formulário:
Name= frm6_4
Caption = LISTAGEM 6.4
Botão:
Name= cmdCalc
Caption = CLICK - LISTAGEM 6.4
LBL :
Name: lblBonus
Caption = Vazio
Private Sub cmdCac_Click()
1 If (txtSales.Text < 5000#) Then
E o código Abaixo :
2 Exit Sub [ô]Termina o Procedimento
3 Else
[ô]Se o Bônus for de pelo menos 5000.00
[ô]Executa a próxima instrução que
[ô]Exibe o bônus como uma porcentagem
[ô]Das vendas
4 lblBonus.Caption = txtSales.Txt * 0.05 [ô]<<[Ô]erro[Ô] Method or Data Member Not find (txt)
5 End If
End Sub
Formulário:
Name= frm6_4
Caption = LISTAGEM 6.4
Botão:
Name= cmdCalc
Caption = CLICK - LISTAGEM 6.4
LBL :
Name: lblBonus
Caption = Vazio
Private Sub cmdCac_Click()
1 If (txtSales.Text < 5000#) Then
E o código Abaixo :
2 Exit Sub [ô]Termina o Procedimento
3 Else
[ô]Se o Bônus for de pelo menos 5000.00
[ô]Executa a próxima instrução que
[ô]Exibe o bônus como uma porcentagem
[ô]Das vendas
4 lblBonus.Caption = txtSales.Txt * 0.05 [ô]<<[Ô]erro[Ô] Method or Data Member Not find (txt)
5 End If
End Sub
Nao entendi muito bem, posta o codigo todo da rotina do botao.
O erro esta dando na hora do calculo ou em exit sub ??
flw's
O erro esta dando na hora do calculo ou em exit sub ??
flw's
Na realidade, o ideal seria você explicar o que está acontecendo e o que gostaria que acontecesse.
Amigo, Pelos tópicos que você tem colocado aqui, é preocupante o seu estágio de aprendizagem. Suas dúvidas são referentes a lógicas simples e você está acompanhando a explicação de algum livro ou apostila e não consegue resolver. Existem apostilas mais detalhadas que esta que você está usando. Outra coisa é que aparentemente sua apostila fica faltando dados.
Vou tentar explicar este tópico.
1 - Crie um form e altere as seguites propriedades:
Name: Frm6_4
Caption: Listagem 6.4
2 - Adicione um Butão com as propriedades:
Name: CmdCalc - Observe que você colocou Cmdcac
Caption: CLICK - LISTAGEM 6.4
3 - Adicione uma Label com as propriedades:
Name: lblBonus
Caption = Vazio
4 - Pelo Código, Adicione uma Textbox com as propriedades
Name: TxtSales
Text: 0 - Pois se não tiver um valor aqui, vai dá um erro
5 - O codigo verifica se o valor da txtSales é menor que 5000. Se for menor, sai da sub e não executa nenhu código abaixo. Se não, multiplica seu valor por (0,05) que é 5%.
6 - Na linha 4 tem um erro e o correto seria assim:
Para testar o código, coloque um valor maior que 5000 na txtSales e vai multiplicar o resultado por (0,05) e exibir na label. Coloque um valor menor que 5000 e não vai acontecer nada.
Vou tentar explicar este tópico.
1 - Crie um form e altere as seguites propriedades:
Name: Frm6_4
Caption: Listagem 6.4
2 - Adicione um Butão com as propriedades:
Name: CmdCalc - Observe que você colocou Cmdcac
Caption: CLICK - LISTAGEM 6.4
3 - Adicione uma Label com as propriedades:
Name: lblBonus
Caption = Vazio
4 - Pelo Código, Adicione uma Textbox com as propriedades
Name: TxtSales
Text: 0 - Pois se não tiver um valor aqui, vai dá um erro
5 - O codigo verifica se o valor da txtSales é menor que 5000. Se for menor, sai da sub e não executa nenhu código abaixo. Se não, multiplica seu valor por (0,05) que é 5%.
6 - Na linha 4 tem um erro e o correto seria assim:
4 lblBonus.Caption = txtSales.Text * 0.05
[ô]E txtSales.Text e não TxtSales.Txt. Alem de que não tinha informado se incluiu este controle antesPara testar o código, coloque um valor maior que 5000 na txtSales e vai multiplicar o resultado por (0,05) e exibir na label. Coloque um valor menor que 5000 e não vai acontecer nada.
Valeu irmão
Citação:MANCKENNA escreveu:
Valeu irmão
Se o problema foi resolvido, favor ENCERRAR o tópico.
Tópico encerrado , respostas não são mais permitidas