My own Binary() Function

[Pickpocketz88]

expandcollapse popup

Func _Binary($Int)
    ;Uncomment To Only Accept Integers
    #cs
    If IsInt($Int) = 0 Then
        Return 0
    EndIf
    #ce

    If $Int < 0 Then ;Negative Numbers Will Break The Function
        Return 0000
    EndIf

    Local $Integer = $Int
    Dim $Bin[1] = [Mod($Integer, 2)]
    Local $Counter = 1

    Do
        $Integer = Floor($Integer / 2)
        _ArrayAdd($Bin, Mod($Integer, 2))
    Until $Integer = 0

    _ArrayReverse($Bin) ;Reverses The Array Because As Is, The Product Is Backwards

    ;A Loop To Remove Any Preceding 0's or Add 0's To Keep At Least Four Digits
    Select
        Case $Int <= 1
            $Integer = "00" & _ArrayToString($Bin, "")
        Case $Int = 2 Or $Int = 3
            $Integer = "0" & _ArrayToString($Bin, "")
        Case $Int >= 8
            $Integer = StringTrimLeft(_ArrayToString($Bin, ""), 1)
        Case Else
            $Integer = _ArrayToString($Bin, "")
    EndSelect
    ;You Can Comment It Out Without Anything Else Having A Problem

    Return $Integer
EndFunc

I made this because I was writing something that I could use to play with Bitwise Operations and using Binary() by itself wasn't helping.

It's very basic and will only take positive integers because that's all I needed but I'm sure with a little tweaking you could make it fit with negative and float types.

It returns a string essentially but doesn't pose a problem when just changing numbers into binary digits.

Example: If you were to do _Binary(5) you would get "0101" and _Binary(8) would return "1000"

Between this last sentence and here I've changed this about a half dozen times to refine it a bit because without it checking if your number is < 0 it would break if a negative number was inserted and it wouldn't even have a problem if you put in Float Values, Regular or Special Characters but that negative value will do the trick lol.

Anyway, I hope someone finds some use of this and thank you for reading!

-Pick

Edited October 21, 2021 by Pickpocketz88
Added Comment For User Info

[jchd]

Make your life simple!

Local $n = 53
Local $sBin = _UintToString($n, 2)
ConsoleWrite($n & " evaluates as binary " & $sBin & @LF)

Func _UintToString($i, $base)
    Return DllCall("msvcrt.dll", "wstr:cdecl", "_ui64tow", "uint64", $i, "wstr", "", "int", $base)[0]
EndFunc   ;==>_UintToString

You can plug any value to $n and see what it yields.

[Werty]

Return DllCall("msvcrt.dll", "wstr:cdecl", "_ui64tow", "uint64", $i, "wstr", "", "int", $base)[0]

lol, nice, I had no idea you could do it that way, with the array thingie at the end, I usually....

$v = DllCall($dll)

Return $v[4]

I'm off to shortening a bunch of scripts, thanks

[jchd]

It's OK as long as you're sure enough that tyhe DllCall will always succeed, else grab the dustpan fast.