Função Par Ou Impar

[Guest Guest]

Existe no VB esta função ou tem como criar ela

Por favor preciso dela alguém sabe como fazer de forma simples ??

[ramon]

é bem simples mesmo cara

Veja o codigo abaixo

If (numero And 1) = 0 Then
  MsgBox "Será par"
Else
  MsgBox "Será Impar"
End If

[Graymalkin]

é bem simples mesmo cara

Veja o codigo abaixo

If (numero And 1) = 0 Then
  MsgBox "Será par"
Else
  MsgBox "Será Impar"
End If

Não, o correto seria:

if numero mod 2 = 0 then
  msgbox "Par!"
else
  msgbox "Ímpar!"
endif

Qualquer "número and 1" vai ser diferente de 0.

Abraços,

Graymalkin

[ramon]

é bem simples mesmo cara

Veja o codigo abaixo

If (numero And 1) = 0 Then
  MsgBox "Será par"
Else
  MsgBox "Será Impar"
End If

Não, o correto seria:

if numero mod 2 = 0 then
  msgbox "Par!"
else
  msgbox "Ímpar!"
endif

Qualquer "número and 1" vai ser diferente de 0.

Abraços,

Graymalkin

Ambos os casos funcionam perfeitamente a minha é so usar a logica binaria

então me transforme um numero par e um numero impar em binario e me diga qual sera final"0" ou qual sera "1" e vamos ver se eu não tenho razão!

[Graymalkin]

Ops, está certo. Eu tinha pensado em termos booleanos e não bitwised. Desculpa ae,

Abraços,

Graymalkin

[kaioingo]

Olá, gostaria de entender melhor a expressão:

numero And 1) = 0

Qual o papel do "and 1". Compreendo que o resultado binário dos pares é sempre 0, mas qual a função do "and 1"?

 

Desculpem-me, sou estudante iniciante, por isso meu interesse.