Even of Oneven

Status
Niet open voor verdere reacties.

xX Da Master Xx

Gebruiker
Lid geworden
15 feb 2008
Berichten
31
Ik heb nu een klein programmatje gemaakt dat na gaat of het ingevoerde getal even of oneven is. Met wat hulp op het internet (een oude post op dit forum) ben ik deze code tegen gekomen:
Code:
Private Sub cmdOK_Click()
Dim Getal As Integer
Getal = txtGetal

If (Getal And 1) Then
   MsgBox "Getal Is oneven"
Else
   MsgBox "Getal Is even"
End If

End Sub

Nu begrijp ik niet wat deze code doet:
Code:
If (Getal And 1) Then
De rest begrijp ik wel.

Thx
 
Hier is een link met meer informatie.

In het kort:
101 = 5
001 = 1
-----and
001 = 1

In wezen vermenigvuldig je binair de waarden in dezelfde kolom.
1x0=0
0x0=0
1x1=1

enjoy!
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan