Bascom...jen mala rada:)

[radar0101]

Zdravim.
Můžete mě nekdo vysvetlit co dela toto..například:

Kód: Vybrat vše

B = A(1) Xor &H17
B = A + &H17

a misto xor AND udela co?
Normální připady použiti and or atd..chapu, to je jasny.
Ale tenhle zápis nevím přesně jak funguje.
Moc dik za rady.

[procesor]

Bascom s tým nemá nič (veľa) spoločné.
Bez trochy námahy to nepôjde.
(miesto funkcie xor udelá funkciu and )

[Andrea]

Normální připady použiti and or atd..chapu, to je jasny.

Já teda nevím, co je to normální, ale co ti na tom zápisu přijde nenormálního?

[AB1]

&h17 = &b10111
B = A(1) xor &b00010111

V B bude hodnota A(1) s invertovanými bity 0,1,2,4.

Příklad:
X = &b11111111
X xor &b00010111 = &b11101000

[radar0101]

&h17 = &b10111
B = A(1) xor &b00010111

V B bude hodnota A(1) s invertovanými bity 0,1,2,4.

Příklad:
X = &b11111111
X xor &b00010111 = &b11101000

Supr moc dik AB1:) Takhle me to uplne stacilo napsat.
Ale ale mam pro tebe jeste jednu otazecku AB1.

Kód: Vybrat vše

Dim Vstup As Byte
Dim A As String * 8
Dim B(8) As Byte At A Overlay
Dim X As Byte

Vstup = &B10101010

Do

A = Bin(vstup)

For X = 1 To 8
If B(x) = 48 Then B(x) = 0
If B(x) = 49 Then B(x) = 1
Next

Print B(1) ; B(2) ; B(3) ; B(4) ; B(5) ; B(6) ; B(7) ; B(8)

Loop
End

Potřebuju dostat z bynarni hodnoty jednotlivý bity zvlast. Ja to dělam takhle.
Není na to nějaky jednodušší řešení:)
Dííky

[radar0101]

tak dobry k tomu predtim...uz jsem to vyřesil MIDEM a je to lepsi:)
Každopádně moc dik:)

[AB1]

Potřebuju dostat z bynarni hodnoty jednotlivý bity zvlast

Není jednodušší toto?

Kód: Vybrat vše

dim vstup as byte
dim x as bit

x = vstup.0  //bit0
x = vstup.1  //bit1
x = vstup.2  //bit2
atd

[radar0101]

Potřebuju dostat z bynarni hodnoty jednotlivý bity zvlast

Není jednodušší toto?

Kód: Vybrat vše

dim vstup as byte
dim x as bit

x = vstup.0  //bit0
x = vstup.1  //bit1
x = vstup.2  //bit2
atd

OOOOOO panecku paradaaa:)Supr moc dik.....zas az takhle jednoduše že to jde, to jsem necekal:D
DIK