| |
| |
|
Michael
W. | dans XProfan peux on aussi avec Bitfeldern travailler.
qui einfachsten Operationen sommes ici:
KompilierenMarqueSéparationDeclare DasBitfeld&[250000]' 8.000.000 Bits
Proc Bitfield.Get
Parameters BF&[], ix&
Return if(TestBit( BF&[ix& \ 32], ix& mod 32) <> 0, 1, 0)
EndProc
Proc Bitfield.GetInv'liefert das invertierte Bit, ohne etwas zu ändern
Parameters BF&[], ix&
Return if(TestBit( BF&[ix& \ 32], ix& mod 32) <> 0, 0, 1)
EndProc
Proc Bitfield.Set'kann Bit setzen (=1) oder löschen (=0)
Parameters BF&[], ix&, BitWert%
BF&[ ix& \ 32] = SetBit( BF&[ix& \ 32], ix& mod 32, BitWert% )
Return Bitfield.Get( BF&[], ix& )
EndProc
Proc Bitfield.Toggle
Parameters BF&[], ix&
'--- 'folgender 2-Zeiler ist kürzer, aber Index wird 3x neu errechnet
'na gut, ist jetzt ein 1-Zeiler mit 2 Berechnungen
'--- Return Bitfield.Set(BF&[],ix&,Bitfield.GetInv(BF&[],ix&))
Declare AI&, BI%, NewBit%
AI& = ix& \ 32' Array-Index
BI% = ix& mod 32' Bit-Index
NewBit% = if(TestBit(BF&[AI&],BI%)<>0,0,1)
BF&[AI&] = SetBit(BF&[AI&],BI&,NewBit%)
Return NewBit%
ENDPROC
Es peut mais aussi plusieurs Bits avec AND/OU/XOR bearbeitet volonté ou bien ganze Bitstreams (braucht on z.B. chez Verschlüsselungen ou bien Komprimierern). |
|
| |
| System: Windows 8/10, XProfan X4
Programmieren, das spannendste Detektivspiel der Welt. | 20.01.2015 ▲ |
|
| |
|
|
 | alors statt:
si(Test peu(BF&[AI&],BI%)<>0,0,1)
peux Du doch simple:
Test peu(BF&[AI&],BI%)=0
écrivons usw. ou bien statt:
si(Test peu( BF&[ix& \ 32], ix& mod 32) <> 0, 1, 0)
simple:
Test peu( BF&[ix& \ 32], ix& mod 32)<>0 |
|
| |
| |
| |
|
|
Michael
W. | oui, wenn's doch dans qui Aider eindeutiger gestanden hätte.
chez Test peu(x,1,1) hätte je 2 erwartet
chez Test peu(x,2,1) hätte je 4 erwartet usw
car ce sont oui qui wirklichen Bitwerte.
maintenant sais je es par ausprobieren... |
|
| |
| XProfan X3System: Windows 8/10, XProfan X4 Programmieren, das spannendste Detektivspiel der Welt. | 20.01.2015 ▲ |
|
| |
|
|
| | non, chez den vorgeschlagenen Changements écoutes es aucun rôle quoi dans qui Aider steht. |
|
| |
| |
| |
|
|
Michael
W. | | oui, la hâte droite. Den Test juste comme Ergebnislieferant nutzen. ca ist mais pas so sans équivoque pour alle erkennbar. et es sollte oui comme kleine Débutant-Starthilfe dienen... |
|
| |
| XProfan X3System: Windows 8/10, XProfan X4 Programmieren, das spannendste Detektivspiel der Welt. | 21.01.2015 ▲ |
|
| |
|
(873)
Deutsch
English
Français
Español
Italia