PDA

View Full Version : جدا کردن یک بایت کم ارزش از متغیر LONG


سپهر-111
شنبه 06 اسفند 1390, 21:43 عصر
سلام دوستان



چطور میشه از یه متغیر long یک بایت کم ارزش ازش جدا کرد

مثلا : HEX = 00 00 F0 37

چطور میشه یک بایت اخر اون جدا کرد (37)

و در یک متغیراز نوع BYTE گذاشت؟




ممنون میشم اگه راهنمایی کنید
ASedJavad
شنبه 06 اسفند 1390, 22:14 عصر
سلام
Private Function Long2byte(a As Long) As Byte
Dim x As String
x = Right$(Hex(a), 2)
Long2byte = CByte("&H" & x)
End Function
سپهر-111
یک شنبه 07 اسفند 1390, 00:29 صبح
سلام
Private Function Long2byte(a As Long) As Byte
Dim x As String
x = Right$(Hex(a), 2)
Long2byte = CByte("&H" & x)
End Function





سلام
خیلی ممنون کارم راه افتاد
میشه لطفا در مورد این دو خط دستور برام توضیح بدی؟
x = Right$(Hex(a), 2)
Long2byte = CByte("&H" & x)

باتشکر از شما دوست عزیز
ASedJavad
یک شنبه 07 اسفند 1390, 00:56 صبح
تابع hex یه رشته از مبنای 16 عدد رو میده
تابع right تعداد کاراکتر مورد نیازمون رو از سمت راست یک رشته برمیگردونه
و تابع cbyte متغیر درونش رو (که در اینجا یک رشته شامل یک عدد در مبنای 16 هست) تبدیل به نوع بایت میکنه