Test košček bajt v QBasic 4,5

[Sputnik]

Ive 'been težaven za doseganje tega za nekaj dni, v bistvu, jaz sploh ne vem zakaj se mučim in prosi za pomoč, ker sem samo ne bo končal projekt vseeno, ampak mogoče bo to ena izšlo.

Moram test malo bajt v QBasic, tako da vem, ali ne dodati posebno vrednost ali ne (nastaviti bit), tako da jaz ne dobim nepričakovane rezultate, je za vzporedni nadzor pristanišča register.

Hvala
Sputnik

<img src="http://www.edaboard.com/images/smiles/icon_idea.gif" alt="Idea" border="0" />

 

[C-Man]

To bi moralo delo:

če bajt in nato xxx

xxx je lahko katera koli položaju, kot bit 1 2 4 8 16 za en košček ...

s spoštovanjem

 

[Sputnik]

Ravno sem hotel zbrisati mojo temo kot sem pravkar pogruntal, to je, kako sem storil to:

Code:

CLSINPUT "Enter pristanišče naslov:" pristaniščebyte = INP (pristanišče)

vrednost = 128Za i = 0 TO 7

Locate (11 - (i 1)), 1: PRINT i

Locate 1, 1: PRINT "Bit | Kraj vrednost | Vrednost Bit"

Locate i 3, 10: PRINT vrednost

IF byte> = vrednost, nato

bit (i) = 1

bajt = bajt - vrednost

Elseif byte <vrednost, nato

bit (i) = 0

END IF

Locate i 3, 24: PRINT bit (i)

vrednost = vrednost / 2

NEXT i