| |
|
|
Michael Dell | KompilierenMarkierenSeparierenDef 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
End
|
|
|
| Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 19.06.2008 ▲ |
|
|
|
|
Jac de Lad | Auf was per Ideen du wieder kommst. |
|
|
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE) Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 19.06.2008 ▲ |
|
|
|
|
Michael Dell | Für den Testmodus in einem Elektronik- CAD Programm kann mans brauchen. |
|
|
| Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 20.06.2008 ▲ |
|
|
|