Even Odd numbers Can I?

[Rogue5099]

I am wanting to run a IniWirte every even or odd number but in a never ending loop (hince Until -1). Somthing like this:

While 1

Do

$a = $a + 1

_Func1()

_Func2()

???If $a = ODDNUMBER Then???

IniWrite(.....)

???If $a = EVENNUMBER Then???

IniWrite(.....)

_Func3()

_Func4()

Sleep(2000)

Until $a = -1

WEnd

All help is apperciated!!!

[GEOSoft]

If Mod($a, 2) = 0 Then ;; The number is even

[AdmiralAlkex]

If IsInt($a/2) Then...

[Rogue5099]

Mod in AutoIt Help! That gives great example thank you for helping!!!!

[GEOSoft]

If IsInt($a/2) Then...

If IsInt(10/2) Then ?????????

Edit: Oooops. Forget this one.

Edited July 12, 2008 by GEOSoft

[martin]

If IsInt(10/2) Then ?????????

Sorry about this GEOSoft but I couldn't resist it.

$AdmiralAlkex = 0
$Geosoft = 0
For $n = 1 To 100
    $a = IsInt($n / 2)
    $b = Mod($n, 2) = 0
    If $a <> $b Then
        $Geosoft += 1
    Else
        $AdmiralAlkex += 1
    EndIf

Next

MsgBox(0, "Scores", "AdmiralAlkex has " & $AdmiralAlkex & "%" &@CRLF & "Geosoft has " & $Geosoft & "%")

Edited July 12, 2008 by martin

[GEOSoft]

@martin. Your example is flawed. So was my 10/2 example by the way.

$AdmiralAlkex = 0
$Geosoft = 0
For $n = 1 To 100
    If Mod($n, 2) = 0 Then $Geosoft += 1
    If IsInt($n/2) Then $AdmiralAlkex += 1
Next

MsgBox(0, "Scores", "AdmiralAlkex has " & $AdmiralAlkex & "%" &@CRLF & "Geosoft has " & $Geosoft & "%")

Edited July 12, 2008 by GEOSoft

[andybiochem]

heh

$number = 122

If Not BitAND($number,1) Then MsgBox(0,"","even number")

muttley

[GEOSoft]

heh

$number = 122

If Not BitAND($number,1) Then MsgBox(0,"","even number")

muttley

That works too. So far the OP has 3 methods.

[monoceres]

Another solution:

$number=10
If Int($number/2)=$number/2 Then MsgBox(0,"Info",$number&" is even")

[AdmiralAlkex]

If IsInt(10/2) Then ?????????

Edit: Oooops. Forget this one.

lol @ GEOSoft muttley

Another solution:

$number=10
If Int($number/2)=$number/2 Then MsgBox(0,"Info",$number&" is even")

What is it with swedes and integers?

[martin]

@martin. Your example is flawed. So was my 10/2 example by the way.

$AdmiralAlkex = 0
$Geosoft = 0
For $n = 1 To 100
    If Mod($n, 2) = 0 Then $Geosoft += 1
    If IsInt($n/2) Then $AdmiralAlkex += 1
Next

MsgBox(0, "Scores", "AdmiralAlkex has " & $AdmiralAlkex & "%" &@CRLF & "Geosoft has " & $Geosoft & "%")

Yes that's true, 100% each would be correct! No offence intended.

[GEOSoft]

Yes that's true, 100% each would be correct! No offence intended.

When do I take offence? Actually, when do I pay attention? muttley

[system24]

; just to check if $number is not 0
If $number > 0 Then
    If Mod($number, 2) = 1 Then
    ; number is odd
    Else
    ; number is even
    EndIf
EndIf

[martin]

; just to check if $number is not 0
If $number > 0 Then
    If Mod($number, 2) = 1 Then
    ; number is odd
    Else
    ; number is even
    EndIf
EndIf

No need for that because 0 is an even number and the previous tests would show that.

An integer n is called *even* if there exists an integer m such that n = 2m, and odd if n+1 is even.

Since 0 = 2 * 0 and there is no integer m where 2*m = 0 + 1 then it is even.