[Tutorial] Descobrir se é par ou impar (Visual Basic 6.0)

Olá,

Hoje venho postar a vocês um tutorial de como fazer um programa que descobre se o número que você digitar é par um impar.

1. Objetos e Propriedades
2. Código
3. Tópicos de Ajuda

1. Objetos e Propriedades
1) Form(Tela)
Vá na janela de Objetos, crie um TextBox, duas Labels e um CommandButton. Vai ficar mais ou menos assim.


2) Propriedades
Clique no Form1, em Caption coloque "Par ou Impar".
Agora clique na Label2, em Caption coloque vazio, e em Name coloque "Resultado" sem aspas.
Agora clique na Label1, em Caption coloque "Escreva um Número" sem aspas.
Agora clique no TextBox, em Name coloque "NumDigit" sem aspas e em Text coloque vazio
Por ultimo clique no CommandButton, em Name coloque "Checar" sem aspas e em Caption "Clique aqui para....." sem aspas e no Default coloque como True, isso fará ao clicar no enter chamara o botão
Ficará mais ou menos assim


2. Código
1) Obter Números na TextBox NumDigit
Para obter números você precisa digitar isto no código, clique duas vezes no NumDigit e digite isto
"If NumDigit.Text = "" Then ' Checa se o Numdigit.Text está vazio
Exit Sub ' Sai do Código
End If ' Termina o If", e abaixo isto "NumDigit.Text = Val(NumDigit.Text)", isto fará com que o programa remova qualquer caractere que não seja número no Nundigit.Text ao ser digitado e transformará em 0. Ficará assim.

Código:


Private Sub NumDigit_Change()

    If NumDigit.Text = "" Then ' Checa se o Numdigit.Text está vazio, pois por causa do código abaixo nunca estaria vazio
        Exit Sub ' Sai do Código
    End If ' Termina o If

    NumDigit.Text = Val(NumDigit.Text)

End Sub


2) Se o NumDigit.Text estiver vazio ao clicar no Checar ele sai do código
Para fazer com que ao clicar no botão, se o NumDigit estiver vazio ele sai do código, clique duas vezes no Checar, e depois digite isto
"If NumDigit.Text = "" Then ' Checa se o Numdigit.Text está vazio, pois por causa do código abaixo nunca estaria vazio
Exit Sub ' Sai do Código
End If ' Termina o If". Ficará mais ou menos assim.

Código:


Private Sub Checar_Click()

    If NumDigit.Text = "" Then ' Checa se o Numdigit.Text está vazio, pois por causa do código abaixo nunca estaria vazio
        Exit Sub ' Sai do Código
    End If ' Termina o If

End Sub


3) Como descobrir se o NumDigit.Text é Par ou Impar
Digite isto no Checar.
"If (NumDigit.Text / 2) = Int(NumDigit.Text / 2) Then ' Checa se o número dividido por 2 da fração ou inteiro, se der inteiro é True se não é False
Resultado.Caption = "O número " & NumDigit.Text & " é Par." ' Diz que o número é par
Else ' Se for False o If vem pra ca
Resultado.Caption = "O número " & NumDigit.Text & " é Impar." ' Diz que o número é impar
End If ' Termina o If. Então ficaria assim o código todo.

Código:


Private Sub Checar_Click()

    If NumDigit.Text = "" Then ' Checa se o Numdigit.Text está vazio, pois por causa do código abaixo nunca estaria vazio
        Exit Sub ' Sai do Código
    End If ' Termina o If
   
    If (NumDigit.Text / 2) = Int(NumDigit.Text / 2) Then ' Checa se o número dividido por 2 da fração ou inteiro, se der inteiro é True se não é False
        Resultado.Caption = "O número " & NumDigit.Text & " é Par." ' Diz que o número é par
    Else ' Se for False o If vem pra ca
        Resultado.Caption = "O número " & NumDigit.Text & " é Impar." ' Diz que o número é impar
    End If ' Termina o If

End Sub


3. Tópicos de Ajuda
1) [Tutorial] If, Elseif e Else (Visual Basic 6.0)
2) [Tutorial] Caixa de Mensagem (Visual Basic 6.0)
3) Download Visual Basic 6.0

Caso tenha alguma dúvida poste aqui que te responderei o mais rapido possivel.

Créditos:
Paulo(Sanz) por fazer o Tutorial.

Abraços!

cade o butao de agradecimento??

Bem legal Sanz !