[Tutorial] If, Elseif e Else (Visual Basic 6.0)

Olá,

Venho postar meu segundo tutorial aqui, pretendo explicar tudo o máximo possivel, caso tenha alguma dúvida pergunte no tópico.

1. O que é If, Elseif e Else
2. Operações básicas do Visual Basic
3. Como eu quando utilizar

1. O que é If, Elseif e Else:
1) If é um comando em Vb que checa se alguma coisa é verdadeira, então acontece algo. Vou mostrar um exemplo.

Código:


If 1+1=2 then 'Checa se 1+1=2 então, se não for sai do if
MsgBox "1 mais 1 da 2" 'Manda uma caixa de mensagem dizendo "1 mais 1 da 2"
end if 'Termina o If


2) O Elseif é um comando em Vb que precisa estar dentro de um if, então
se o if for falso passa para este comando que checa se alguma coisa
virou realidade, ou não virou, então acontece algo. Vou mostrar um
exemplo

Código:


If 1+1=2 then 'Checa se 1+1=2 então, se não for sai do if

MsgBox "1 mais 1 da 2" 'Manda uma caixa de mensagem dizendo "1 mais 1 da 2"

elseif 1+1=3 then 'Caso contrário se 1+1=3 então

MsgBox "1 mais 1 da 3 e não 2" 'Manda uma caixa de mensagem dizendo "1 mais 1 da 3 e não 2"

end if 'Termina o If


3) O Else é um comando em Vb que precisa estar dentro de um if então se o if for falso passa para este comando. Vou mostrar um exemplo

Código:



If 1+1=2 then 'Checa se 1+1=2 então, se não for sai do if


MsgBox "1 mais 1 da 2" 'Manda uma caixa de mensagem dizendo "1 mais 1 da 2"


elseif 1+1=3 then 'Caso contrário se 1+1=3 então


MsgBox "1 mais 1 da 3 e não 2" 'Manda uma caixa de mensagem dizendo "1 mais 1 da 3 e não 2"
else


MsgBox "1 mais 1 não da 2, nem 3" 'Manda uma caixa de mensagem dizendo "1 mais 1 não da 2, nem 3"


end if 'Termina o If



2. Operações básicas do Visual Basic
1) Operações Matemáticas
+ = Soma Valores
- = Subtrai Valores
* = Multiplica Valores
/ = Divide Valores
\ = Divide Valores, mas obtem a resposta em inteiro
^ = Eleva algum valor a uma potência
MOD = Determina o resto de uma divisão

2) Tipos de Dados
Boolean = Valor Booleano (True ou False)
Byte = Números Inteiros de 0 a 255
Integer = Números Inteiros
Long = Números Inteiros, mas suporta muito mais número que o Integer
String = Texto

3) Checar coisas
= = Checa se dois valores são iguais, suporta todos os tipos de dado
<> = Checa se dois valores são diferentes, suporta todos os tipos de dados
< = Checa se um valor é menor que outro, só suporta números
> = Checa se um valor é maior que outro, só suporta números
<= = Checa se um valor é menor ou igual a outro, só suporta números
>= = Checa se um valor é maior ou igual a outro, só suporta números

4) Operações Lógicas do Visual Basic
And = Se 1+1=2 é verdadeiro e 2+2=4 é verdadeiro(True), caso contrário é falso(False)
Or = Se 1+1=2 é verdadeiro ou 2+2=5 é verdadeiro(True), pois um dos dois é verdadeiro(True) caso contrário é falso(False)
Not = Faz mesmo que o <>, checa se o valor não é verdadeiro(True), então a resposta é verdadeiro(True)

3. Como eu quando utilizar
1) If pode ser utilizado em um programa contendo uma TextBox(Objeto Campo de Texto VB) então ao clicar em um CommandButton(Objeto Botão VB) ele checa-rá se o TextBox é igual a "Teste" ou a "Testando", se for manda uma mensagem "Parabéns Você Acertou a Senha."

2) Para descobrir se o TextBox é igual a "Teste" ou a "Testando" use o If, Elseif e o Else, como eu mostrarei.

Código:


If Text1.Text="Teste" Then 'Checa se Text1.Text, o texto da caixa de texto é "Teste", se for segue o código se não passa pro próximo comando.
MsgBox "Parabéns Você Acertou a Senha."
elseif Text1.Text="Testando" then 'Checa se Text1.Text é "Testando" se for segue se não passa pro próximo comando
MsgBox "Parabéns Você Acertou a Senha."
else 'Se o Text1.Text não for "Teste" nem "Testando", vem para cá.
MsgBox "Desculpe, Mas Você Digitou uma Senha Incorreta"
end if 'Termina o If


Ou se quiser facilitar sua vida apenas faça isso

Código:


If Text1.Text="Teste" Or Text1.Text="Testando" Then 'Checa se Text1.Text, o texto da caixa de
texto é "Teste" ou "Testando, se for segue o código se não passa pro próximo comando.
MsgBox "Parabéns Você Acertou a Senha."
else 'Se o Text1.Text não for "Teste" nem "Testando", vem para cá.
MsgBox "Desculpe, Mas Você Digitou uma Senha Incorreta"
end if 'Termina o If


Créditos:

Paulo(Sanz) Por fazer o Tutorial

Qualquer duvida poste que estarei resolvendo.

Abraços!

Conseguii !!