VB³ÌÐòÖÐʵÏÖ×Ö½ÚÒÆλ²Ù×÷ VB³ÌÐòÖÐʵÏÖ×Ö½ÚÒÆλ²Ù×÷ °´Î»×óÒÆ ÓÒÒÆ

ÔÚÀûÓÃVBϵͳ¿ª·¢Êý¾Ý²É¼¯»ò¹¤Òµ¿ØÖÆÈí¼þ£¬»ò¶ÔÎļþ½øÐеͼ¶²Ù×÷ʱ£¬³£ÐèÒª¶Ô×Ö½Ú½øÐÐÒÆλ²Ù×÷£¬µ«VBϵͳÖÐûÓÐÌṩ×Ö½ÚÒÆλ²Ù×÷µÄÖ¸ÁîºÍº¯Êý£¬Ö»ÌṩÁËAnd£¨Ó룩¡¢Or£¨»ò£©¡¢Xor£¨Òì»ò£©¡¢Equ£¨Í¬»ò£©¡¢Not£¨·Ç£©µÈ¼¸¸öÂß¼­ÔËËãÖ¸Áî¡£±ÊÕßÔÚÓÃVBϵͳ¿ª·¢¹¤Òµ¿ØÖÆÈí¼þµÄ¹ý³ÌÖУ¬¾ÍÓöµ½ÁËÕâ¸öÎÊÌ⣬ÓÚÊÇÀûÓÃVBÖÐÒÑÓеÄÂß¼­ÔËËãÖ¸ÁģÄâ»ã±àÓïÑÔµÄ×Ö½ÚÒÆλָÁ±àÖÆÁËÆ߸ö×Ö½ÚÒÆλº¯Êý£ºÂß¼­×óÒÆ¡¢Âß¼­ÓÒÒÆ¡¢ËãÊõÓÒÒÆ¡¢Ñ­»·×óÒÆ¡¢Ñ­»·ÓÒÒÆ¡¢½øλѭ»·×óÒƺͽøλѭ»·ÓÒÒÆ¡£


ÔÚ»ã±àÓïÑÔÖ¸ÁîÖУ¬Âß¼­×óÒƵŦÄÜÏ൱ÓÚ³Ë2, Âß¼­ÓÒÒƵŦÄÜÏ൱ÓÚ³ý2£¬ÀûÓÃÕâ¸öÌØÐÔ£¬ÔÚVB³ÌÐòÖÐÓóË2ºÍ³ý2·½·¨ÊµÏÖλµÄ×óÒƺÍÓÒÒÆ£¬È»ºóÔÙÓÃAnd£¨Ó룩ºÍOr£¨»ò£©Âß¼­ÔËËãÖ¸ÁÅжÏÒÆλ¹ý³ÌÖÐÊÇ·ñÓнøλ·¢Éú£¬½«½øÐбêÖ¾ÖÃλ¡£ 


³ÌÐòÇåµ¥

CFÊǽøλ±êÖ¾£¬²ÉÓÃBooleanÀàÐÍÂß¼­±äÁ¿£¬Èç¹ûCFΪTrue±íʾÓнøλ£¬ÎªFalseÔò±íʾÎÞ½øλ¡£


[code]
Public CF As Boolean   '½øλ±êÖ¾



'1.Âß¼­×óÒÆ



Public Function SHL(OPR As Byte, n As Integer) As Byte

Dim BD As Byte

Dim I As Integer

BD = OPR

For i = 1 To n - 1

BD = (BD And &H7F) * 2 '½«D7λÆÁ±Î×óÒÆ£¬·ÀÖ¹×Ö½ÚÒç³ö

Next i

CF = BD And &H80 'ÅжÏD7λÊÇ·ñ½øλ

SHL = (BD And &H7F) * 2

End Function



'2.Âß¼­ÓÒÒÆ



Public Function SHR(OPR As Byte, n As Integer) As Byte

Dim BD As Byte

Dim I As Integer

BD = OPR

For i = 1 To n - 1

BD = BD \ 2 'ÓÒÒÆ

Next i

CF = BD And 1 'ÅжÏD0λÊÇ·ñ½øλ

SHR = BD \ 2

End Function



'3.ËãÊõÓÒÒÆ



Public Function SAR(OPR As Byte, n As Integer) As Byte

Dim BD As Byte

Dim I As Integer

Dim Fg1 As Byte

BD = OPR

Fg1 = BD And &H80

For i = 1 To n - 1

BD = BD \ 2 'ÓÒÒÆ

Next i

CF = BD And 1 'ÅжÏD0λÊÇ·ñ½øλ

BD = BD \ 2 'ÓÒÒÆ

SAR = BD Or Fg1

End Function



'4.Ñ­»·×óÒÆ



Public Function ROL(OPR As Byte, n As Integer) As Byte

Dim BD As Byte

Dim I As Integer

Dim Fg1 As Byte

BD = OPR

For i = 1 To n

Fg1 = (BD And &H80) \ 128 'ÅжÏD7λÊÇ·ñ½øλ

BD = ((BD And &H7F) * 2) Or Fg1 '´ø½øλ×óÒÆ

Next i

CF = Fg1

ROL = BD

End Function



'5.Ñ­»·ÓÒÒÆ



Public Function ROR(OPR As Byte, n As Integer) As Byte

Dim BD As Byte

Dim I As Integer

Dim Fg1 As Byte

Dim Fg2 As Byte

BD = OPR

For i = 1 To n

Fg1 = (BD And 1) * 128 'ÅжÏD0λÊÇ·ñ½øλ

BD = (BD \ 2) Or Fg1 '´ø½øλÓÒÒÆ

Next i

CF = Fg1

ROR = BD

End Function



'6.½øλѭ»·×óÒÆ



Public Function RCL(OPR As Byte, n As Integer) As Byte

Dim BD As Byte

Dim I As Integer

Dim Fg1 As Byte

Dim Fg2 As Byte

BD = OPR

Fg2 = CF And 1

For i = 1 To n

Fg1 = (BD And &H80) \ 128 'ÅжÏD7λÊÇ·ñ½øλ

BD = ((BD And &H7F) * 2) Or Fg2 '´ø½øλ×óÒÆ

Fg2 = Fg1

Next i

CF = Fg1

RCL = BD

End Function



'7.½øλѭ»·ÓÒÒÆ



Public Function RCR(OPR As Byte, n As Integer) As Byte

Dim BD As Byte

Dim I As Integer

Dim Fg1 As Byte

Dim Fg2 As Byte

BD = OPR

Fg2 = CF And 128

For i = 1 To n

Fg1 = (BD And 1) * 128 'ÅжÏD0λÊÇ·ñ½øλ

BD = (BD \ 2) Or Fg2 '´ø½øλÓÒÒÆ

Fg2 = Fg1

Next i

CF = Fg1

RCR = BD

End Function
[/code]


½áÊøÓï

ÒÔÉÏÆ߸ö×Ö½ÚÒÆλ²Ù×÷º¯ÊýµÄ¹¦ÄܺÍÓ÷¨Í¬ºê»ã±àÓïÑÔµÄÒÆλ²Ù×÷Ö¸Áî»ù±¾Ïàͬ£¬²»¹ýÖ»¶Ôµ¥×Ö½Ú½øÐвÙ×÷£¬µ«ÉÏÊö³ÌÐòÉԼӸĶ¯ºó£¬¾Í¿É¶ÔË«×Ö½ÚIntegerÀàÐͺÍËÄ×Ö½ÚLongÀàÐͽøÐÐÒÆλ²Ù×÷¡£