XProfan

Def cRB(1) Create(RadioButton,&(1),,0,0,20,20)
Def cST(1) Create(Text,%Hwnd,,&(1),20,20,20)
Declare Gl_ST&[8],Gl_RBT&[8],Gl_ZW$
Clear Gl_ST&[],Gl_RBT&[]

Proc cStuBt

    Parameters cStuBt_X&,cStuBt_Nr&
    Gl_ST&[cStuBt_Nr&]  = cST(cStuBt_X&)
    Gl_RBT&[cStuBt_Nr&] = cRB(Gl_ST&[cStuBt_Nr&])

EndProc

Proc BinView

    Parameters BV_BinIn$

    WhileLoop 0,7,1

        SetCheck Gl_RBT&[&Loop],Val(Mid$(BV_BinIn$,(&Loop + 1),1))

    EndWhile

EndProc

Cls

WhileLoop 1,8,1

    cStuBt((&Loop * 20),(&Loop - 1))
    SetCheck Gl_RBT&[(&Loop - 1)],0

EndWhile

Binärzähler (0-255)

WhileLoop 0,255,1

    Gl_ZW$ = Bin$(&Loop)
    Case (Len(Gl_ZW$) < 8): Gl_ZW$ = (MkStr$(Chr$(48),(8 - Len(Gl_ZW$))) + Gl_ZW$)
    BinView(Gl_ZW$)
    Sleep 100

EndWhile

WaitInput
Fin