Sinfo2012.2
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Lógica em VisualBasic for Aplication & Excel

Ir para baixo

Lógica em VisualBasic for Aplication & Excel Empty Lógica em VisualBasic for Aplication & Excel

Mensagem  Admin Sáb Out 06, 2012 7:27 pm

Dedicado ao meu Colega Deivison

clown {Porque?)
geek {porque o Excel está em quase todas as empresas que já trabalhei e na grande maioria das que vocês vão trabalhar.)
clown { e o que vc vai fazer nessa primeira onda?)
geek {vamos começar criando um form que recebe dois valores e indica qual é o maior)
clown {é...parece bom)

geek {se você não tiver a guia de desenvolvedores habilitada faça isso seguindo esse caminho: Arquivo / Opções / personalizar faixa de opções /(no lado direito marque a opção Desenvolvedor). OK e lá está ela.
geek {para abrir o VBFA(visualBasic for Aplication) vá na guia desenvolvedor e clique no botão que o corresponde)
geek o Layout se assemelha com o office 2003 e é abaixo do Menu Arquivo que vc verá dois botões e num deles um simbolo para expandir onde vc vai selecionar UserForm)
clown {HUM..... APARECEU UMA CAIXA DE FERRAMENTAS FLUTUANT E EU CONSIGO MUDAR O LUGAR DELA.)
geek {isso aew amarelo, clique sobre o item Caixa de Texto dessa caixa de ferramenta e clique no form. veja que no canto esquerdo vc tem uma caixa de propriedades do objeto, no campo nome altere para Txt1 repita o processo e ponha o nome da segunda caixa Txt2)
geek {acrescente:
um botao de comando e altere seu nome para CmdCalc;
um rótulo com nome de LblMsg[nas propriedades deste apague o texto que está em Caption]Wink
clown {ficou tão feio, vou organizar para ficar melhor)
geek {
Código:
Private Sub CmdCal_Click()
'declarando variaveis'
Dim v1, v2 As Integer
'Dando o valor das caixas de texto as váriaveis'

v1 = Txt1.Value
v2 = Txt2.Value

'Teste condicional'
If (v1 > v2) Then
'atribuindo o Caption que vc apagou pelo texto e unindo com '&' a váriável v1
LblMsg.Caption = "o maior é o " & v1
Else
'atribuindo o Caption que vc apagou pelo texto e unindo com '&' a váriável v2
LblMsg.Caption = "o maior é o " & v2
End If


End Sub
)



clown affraid {legal mlk, ficou joinha)

geek {
Caption é o conteudo de um objeto;
Value é o valor de algo;
_Click() é o evento (evento é quando vc quer que seu comando aconteça, por exemplo quero qeu execute esse comando quando clicar no botão)
entre Private Sub e End Sub são respectivamente o inico e fim do nosso projeto

)
Admin
Admin
Admin

Mensagens : 18
Postagens : 41
Data de inscrição : 19/08/2012
Idade : 37
Localização : Alagoinhas Bahia

https://sinfo2012-2.forumeiros.com

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos