Afficheur 1 octet

' afficheur binaire 1 octet
' Marc - Juillet 2024
' Ecrit en langage Panoramic 0.9.29.i9

creerInterfaceGraphique()

' le paramètre de la SUB est la valeur décimale à représenter graphiquement
octet_1(5)
pause 1000

octet_1(255)
pause 1000

octet_1(164)
pause 1000

octet_1(18)
end
' ------------------------------------------------------------------------------
sub octet_1(n%)
    dim_local i%, bit%, octet$
    
    ' décoder décimal en binaire
    octet$ = ""
    while n% > 0
        if frac(n% / 2) = 0
            octet$ = "0" + octet$
        else
            octet$ = "1" + octet$
        end_if
        n% = int(n% / 2)
    end_while

    while len(octet$) < 8
        octet$ = "0" + octet$
    end_while

    ' afficher la représentation de la valeur binaire
    for bit% = 0 to 7
        if mid$(octet$,bit%+1,1) = "1"
            color 501+bit%,0,240,0
        else
            color 501+bit%,240,240,240        
        end_if
    next bit%
end_sub
' ------------------------------------------------------------------------------
sub creerInterfaceGraphique()
    dim_local n%, x%
    panel 1
    width 1,320
    height 1,40
    top 1,20
    left 1,20
    font_size 1,14
    command_target_is 1

    for n% = 1 to 8
        panel 500 + n%
        width n%+500,40
        height n%+500,40
        left n%+500,x%
        x% = x% + 40
        caption n%+500,8 - n%
    next n%
end_sub