برعکس کردن متغیر

[فروم باز]

با سلام من یه متغیر دارم مثلا 00000101 بخوام تو بسکام برعکسش کنم که این طوری بشه : 10100000 باید چی کار کنم؟
یا مثل این : 00000001 تبدیل بشه به 10000000

با تشکر.

[t3r!p3000]

مهندس خوب اول بریز تو متغیر دیگه و بعدش بیت 7 رو برابر بیت صفر قرار بده و بیت 6 رو برابر بیت 1 و .... !!!

[فروم باز]

این رو میدونم ولی تابعی برای این کار وجود نداره؟

با تشکر.

[ilgar]

خواسته شما نه یه موضوع علمی و نه ریاضی و نه پرکاربرد هست لذا تابع آماده فکر نمیکنم داشته باشه اماهر موقع خواستین این عملو انجامش بدین کافیه تابع زیرو یکبار فراخوانی کنید

کد:

Sub mirror:
Do

Incr counter
Select case byte:

Case is>128:
A=1
byte= byte -128

Case is>64:
B=2
byte = byte -64

Case is>32:
C=4
byte = byte -32

Case is>16:
d=8
byte = byte -16

Case is>8:
E=16
byte = byte -8

Case is>4:
F=32
byte = byte -4

Case is>2:
G=64
byte = byte -2

Case is>0:
h=128


End select
Loop until counter = 8

A=a + b + c + d + e + f +g + h
Counter =0

End sub

[t3r!p3000]

چقدر تابع بزرگی شد ایلگار جوون !

کد php:

Dim B As Byte , C As Byte

C = B

B = &B00000111

B.0 = C.7 : B.1 = C.6 : B.2 = C.5 : B.3 = C.4
B.4 = C.3 : B.5 = C.2 : B.6 = C.1 : B.7 = C.0 


[ilgar]

درسته
راستش همشو کپی پیست کردم و اصلاً احساس نکردم که برنامه بزرگ شد

چون تو پست قبلی گفته بودن اون روش بیتی رو میدونن راستش اصلاًروش فکر نکردم

[iman-63]

تو کدویژن که مطمئنم کتابخونه داره، اما یادم نمیاد که چی بود !!!

[1nafar]

از دستور toggle استفاده کنید

[ilgar]

دستور تاگل تک بیتیه و باز میشه همون دستکاریه بیت به بیت