Sign in to follow this  
Followers 0
CodyBarrett

Another Binary Converter

1 post in this topic

alright... far as i know.. this is BUG PROOF!

i was teaching my buddy how to do binary calcs.. and she was like.. my brain hurts.. so then i said "BRB" and came back on MSN like half an hour later and gave her this... COMPILED mind you... i have it uploaded on 4shared...

anyway... i made WORDSCRAMMBLER but that had a few bugs.. and instead of editing it.. i just remade the binary part.. yes im sure manadar will protest and say that this isn't the PROPER way to calculate it on the computer.. but heh.. its the easyer one

#include <GUICONSTANTS.AU3>
#include <WINDOWSCONSTANTS.AU3>
#include <STATICCONSTANTS.AU3>
#include <EDITCONSTANTS.AU3>
#include <MISC.AU3>
Opt ('GUIoneventmode', 1)
$Status = 0
$GUI = GUICreate ('Binary Converter', 300, 400, -1, -1, -2138570616)
GUISetBkColor (0x0, $GUI)
$lTitleBar = GUICtrlCreateLabel ('Binary Converter', 20, 0, 280, 20, $SS_CENTER)
GUICtrlSetBkColor (-1, 0x2E2E2E)
GUICtrlSetFont (-1, 10, 400, '', 'Fixedsys')
GUICtrlSetColor (-1, 0xFFFFA2)
GUICtrlSetOnEvent (-1, '_Win_Move_')
$lb_Exit = GUICtrlCreateLabel ('', 0, 0, 20, 20)
GUICtrlSetBkColor (-1, 0x2E2E2E)
GUICtrlSetState (-1, $GUI_DISABLE)
$lExit = GUICtrlCreateLabel ('x', 1, 1, 18, 18, $SS_CENTER)
GUICtrlSetBkColor (-1, 0x2E2E2E)
GUICtrlSetFont (-1, 10, 400, '', 'Fixedsys')
GUICtrlSetColor (-1, 0xFFFFA2)
GUICtrlSetOnEvent (-1, '_Exit_')
$lb_ToBinary = GUICtrlCreateLabel ('', 19, 39,262,22)
GUICtrlSetState (-1, $GUI_DISABLE)
$lToBinary = GUICtrlCreateLabel ('Convert To Binary', 20, 40, 260, 20, $SS_CENTER)
GUICtrlSetBkColor (-1, 0x2E2E2E)
GUICtrlSetFont (-1, 10, 400, '', 'Fixedsys')
GUICtrlSetColor (-1, 0xFFFFA2)
GUICtrlSetOnEvent (-1, '_Convert_To_')
$lb_FromBinary = GUICtrlCreateLabel ('', 19, 69,262,22)
GUICtrlSetState (-1, $GUI_DISABLE)
$lFromBinary = GUICtrlCreateLabel ('Convert From Binary', 20, 70, 260, 20, $SS_CENTER)
GUICtrlSetBkColor (-1, 0x2E2E2E)
GUICtrlSetFont (-1, 10, 400, '', 'Fixedsys')
GUICtrlSetColor (-1, 0xFFFFA2)
GUICtrlSetOnEvent (-1, '_Convert_From_')
$iInput = GUICtrlCreateEdit ('', 20, 100, 260, 280, 2101248)
GUICtrlSetBkColor (-1, 0x2E2E2E)
GUICtrlSetFont (-1, '', 400, '', 'Fixedsys')
GUICtrlSetColor (-1, 0xFFFFA2)
GUISetOnEvent ($GUI_EVENT_CLOSE, '_Exit_', $GUI)
GUISetState ()
While 1
    $Ggci = GUIGetCursorInfo ($GUI)
    If $Ggci[4] = $lExit Then
        GUICtrlSetBkColor ($lb_Exit, 0xFFFFA2)
        GUICtrlSetBkColor ($lb_ToBinary, 0x2E2E2E)
        GUICtrlSetBkColor ($lb_FromBinary, 0x2E2E2E)
    ElseIf $Ggci[4] = $lToBinary Then
        GUICtrlSetBkColor ($lb_ToBinary, 0xFFFFA2)
        GUICtrlSetBkColor ($lb_FromBinary, 0x2E2E2E)
        GUICtrlSetBkColor ($lb_Exit, 0x2E2E2E)
    ElseIf $Ggci[4] = $lFromBinary Then
        GUICtrlSetBkColor ($lb_ToBinary, 0x2E2E2E)
        GUICtrlSetBkColor ($lb_FromBinary, 0xFFFFA2)
        GUICtrlSetBkColor ($lb_Exit, 0x2E2E2E)
    Else
        GUICtrlSetBkColor ($lb_ToBinary, 0x2E2E2E)
        GUICtrlSetBkColor ($lb_FromBinary, 0x2E2E2E)
        GUICtrlSetBkColor ($lb_Exit, 0x2E2E2E)
    EndIf
    Sleep (100)
WEnd
Func _Convert_To_ ()
    If $Status = 1 Then Return
    $s = StringSplit (GUICtrlRead ($iInput), '')
    GUICtrlSetData ($iInput, '')
    For $i = 1 To UBound ($s) - 1
        $Asc = Asc($s[$i]) 
        $oBin = ''
        For $iii=7 To 0 Step -1
            If $Asc >= 2 ^$iii Then
                $Asc -= 2  ^$iii
                $oBin &= 1
            Else
                $oBin &= 0
            EndIf
        Next
        GUICtrlSetData ($iInput , GUICtrlRead ($iInput) & ' ' & $oBin)
    Next
    GUICtrlSetData ($iInput, StringTrimLeft (GUICtrlRead ($iInput), 1))
    $s = ''
    $Asc = ''
    $i = ''
    $iii = ''
    $oBin = ''
    $Status = 1
EndFunc

Func _Convert_From_ ()
    If $Status = 0 Then Return
    $Asc = ''
    $s = GUICtrlRead ($iInput)
    GUICtrlSetData ($iInput, '')
    $s = StringSplit ($s, ' ')
    For $i = 1  To UBound ($s) - 1
        $Asc = 0 
        For $iii = 0 To 7
            If StringMid ($s[$i], 8 - $iii, 1) = 1 Then $Asc += 2 ^ $iii 
        Next
        $l = Chr ($Asc) 
        GUICtrlSetData ($iInput,GUICtrlRead ($iInput) & $l)
        $l = ''
    Next
    $l = ''
    $Asc = ''
    $Status = 0
EndFunc

Func _Win_Move_ ()
    $MouseXY = MouseGetPos ()
    $WinXY = WinGetPos ($GUI)
    $xOff = $MouseXY[0] - $WinXY[0]
    $yOFF = $MouseXY[1] - $WinXY[1]
    While _IsPressed ('01')
        WinMove ($GUI, '',MouseGetPos (0) - $xOff ,MouseGetPos (1) - $yOFF)
        Sleep (10)
    WEnd
EndFunc

Func _Exit_ ()
    Exit
EndFunc

Ok.. ONE bug...... :) Copy & Pasting into it doesn't always work

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0