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 هست) تبدیل به نوع بایت میکنه
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.