Stránka 1 z 1

Bascom...jen mala rada:)

Napsal: 23 črc 2010, 00:35
od 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.

Napsal: 23 črc 2010, 08:28
od procesor
Bascom s tým nemá nič (veľa) spoločné.
Bez trochy námahy to nepôjde.
(miesto funkcie xor udelá funkciu and :) )

Re: Bascom...jen mala rada:)

Napsal: 23 črc 2010, 08:34
od Andrea
radar0101 píše: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?

Napsal: 23 črc 2010, 08:41
od 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

Napsal: 23 črc 2010, 09:13
od radar0101
AB1 píše:&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

Napsal: 23 črc 2010, 12:26
od radar0101
tak dobry k tomu predtim...uz jsem to vyřesil MIDEM a je to lepsi:)
Každopádně moc dik:)

Napsal: 23 črc 2010, 12:42
od 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

Napsal: 23 črc 2010, 14:41
od radar0101
AB1 píše:
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