COMPARE DADOS UTILIZANDO IF

MANCKENNA 15/08/2009 22:13:07
#319944
Pessoal me ajudem a colocar os objetos nestes códigos abaixo:
Obs: Não é abuso mas preciso realmente de um pontapé inicial se não for possível colocar a imagém e/ou enviar o frm [Ô]zipado[Ô] me informém os nomes dos objetos .....grato..

Listagem 6.1 [Ô] Compare Dados Utilizando IF[Ô]

____________________Código______________________________________________________________


If (curSales>curSalesGoal) Then

[ô]O vendedor alcança os objetivos

curSalaryBonus = 1000,00

lblSalesNot.Caption = [Ô]You Beat the goal![Ô]

lblSalesNote.BackColor = Red

lblSalesNote.FontBold = True

End If

[ô]O restante do código do programa continua aqui
TECLA 15/08/2009 23:02:29
#319949
Pelo código, o único controle que há na rotina é um LABEL com o NAME igual a lblSalesNote.
O resto, são variáveis do tipo CURRENCY.

Dim curSales As Currency, curSalesGoal As Currency
MANCKENNA 16/08/2009 13:12:09
#319967
Citação:

TECLA escreveu:
Pelo código, o único controle que há na rotina é um LABEL com o NAME igual a lblSalesNote.
O resto, são variáveis do tipo CURRENCY.

Dim curSales As Currency, curSalesGoal As Currency





Private Sub cmd1SalesGoal_Click()

[ô]Criei um formulário :

[ô]Nome: cmdform1
[ô]Caption : form 1

[ô]criei um Label

[ô]Nome: lblSalesNote
[ô]Caption : deixei em branco

[ô]Criei Um Botão :

[ô]Name: cmd1SalesGoal
[ô]Caption : Sales Goal


[ô]E o Código ficou Assim:

If (curSales > curSalesGoal) Then

[ô]O vendedor alcança os objetivos

curSalaryBonus = 1000#

lblSalesNot.Caption = [Ô]You Beat the goal![Ô]

lblSalesNote.BackColor = Red

lblSalesNote.FontBold = True

Dim curSales As Currency, curSalesGoal As Currency [ô] <<<está dando erro duplicate declaration in corrent scope

End If

[ô]O restante do código do programa continua aqui

End Sub

Private Sub lblSalesNote_Click()

End Sub
TECLA 16/08/2009 14:46:09
#319973
Alguns pontos importantes que percebo que ainda não compreendeu.

PADRONIZAÇÃO
Um dos padrões que se adota no contexto da programação, é a PADRONIZAÇÃO para o NOME DOS CONTROLES. Ou seja, os nomes dos formulários costumam ser PRECEDIDOS pelas letras frm.

Exemplo:
frmCliente
frmUsuario
frmLogin


Os botões costumam ser PRECEDIDOS por btn ou cmd.

Exemplo:
cmdIncluir
cmdSair
btnGravar
btnSalvar


Veja o artigo abaixo escrito por Macoratti.
http://www.macoratti.net/vbapp_ok.htm

Outra coisa, a dica que postei acima você não atentou, por isso seu código ainda continua não funcional.
MANCKENNA 16/08/2009 19:01:50
#319985
Desculpe pelo nome do frm (eu digitei errado) , mas acontece que estou na dúvida pois você me disse ai acima que o único controle é um lable mas eu vejo também um botão pois se não existir eu realmente não sei como funciona o programa, quanto a sua informação para inserir o código (Dim curSales As Currency, curSalesGoal As Currency) , é para ser inserido no botão ?

Obs: Desculpe me parece ser algo absolutamente simples.....mas....ainda não consegui entender


Pois agora ficou desta forma:

[ô]Criei um formulário :

[ô]Nome:frmGoal

[ô]Caption : Goal!!!

[ô]criei um Label

[ô]Nome: lblSalesNote

[ô]Caption : deixei em branco

[ô]Criei Um Botão :

[ô]Name: cmdClik

[ô]Caption : Goal


[ô]E o Código ficou Assim:

Private Sub cmdClick_Click()

If (curSales > curSalesGoal) Then

[ô]O Vendedor Alcança o Objetivo

curSalaryBonus = 1000#

lblSalesNote.Caption = [Ô]You beat the goal![Ô]

lblSalesNote.BackColor = Red

lblSalesNote.FontBold = True

Dim curSales As Currency, curSalesGoal As Currency [ô]<<< Esse código [ô]fica aqui mesmo ? pois está dando erro [Ô]Duplicate Declaration in [ô]current scop[Ô]


End If

End Sub
TECLA 16/08/2009 19:40:54
#319987
Posta o projeto (*.ZIP) aqui.
MANCKENNA 17/08/2009 10:01:12
#320024
OK
Tópico encerrado , respostas não são mais permitidas
Voltar