بسکام+تبدیل عددها..

[zarifehk]

با سلام
کسی میتونه یه راهنمایی در مورد تبدیل عدد به من بکنه ؟من میخام عدد های از 0 تا 65535 رو به 0 تا 100 تبدیل کنم.نمیدونم مشکل کجاست اما شاید توی تعریف متغیرها مشکل دارم مثلا نمایش اعشاری تو بسکام با word یا با long یا با ......
لطفا راهنمایی بنمایید
:cry2: :cry2:

[narek]

پاسخ : بسکام+تبدیل عددها..

دقیقا متوجه منظورتان نشدم
اگر میخواهید متغیر اعشاری تعریف کنید باید به این صورت عمل کنید
dim i as single

[zarifehk]

پاسخ : بسکام+تبدیل عددها..

دقیقا متوجه منظورتان نشدم
اگر میخواهید متغیر اعشاری تعریف کنید باید به این صورت عمل کنید
dim i as single

اونو فهمیدم که باید single تعریف کنم اما حالا مشکلم اینه که مثلا عدد655.35 را به صورت 655.349906....نشون میده از طرفی نمیتونم از fusing استفاده کنم چون میخوام محاسبات روی این عدد های اعشاری انجام بدم.یعنی میخوام قسمت low و highاون رو جدا کنم....حسابی گیج شده ام.........

[mojtaba_led]

پاسخ : بسکام+تبدیل عددها..

با سلام
دوست عزیز اگه میشه دقیقتر بگید که میخواهید چیکار کنید منظورتون از این که اینجا گفتین چیه ؟

با سلام
کسی میتونه یه راهنمایی در مورد تبدیل عدد به من بکنه ؟من میخام عدد های از 0 تا 65535 رو به 0 تا 100 تبدیل کنم.نمیدونم مشکل کجاست اما شاید توی تعریف متغیرها مشکل دارم مثلا نمایش اعشاری تو بسکام با word یا با long یا با ......
لطفا راهنمایی بنمایید
:cry2: :cry2:

می خواهید اعداد رو از 0 تا 65536 اسکیل کنید روی 0 تا 100 ؟

[zarifehk]

پاسخ : بسکام+تبدیل عددها..

با سلام
دوست عزیز اگه میشه دقیقتر بگید که میخواهید چیکار کنید منظورتون از این که اینجا گفتین چیه ؟

می خواهید اعداد رو از 0 تا 65536 اسکیل کنید روی 0 تا 100 ؟

بله میخام همین کارو بکنم اما....................

[Navid_Micro]

پاسخ : بسکام+تبدیل عددها..

مرحله اول :
65535 / 100 = 655.35
مرحله دوم :
Dim numb as word
Dim numb1 as single
Dim numb2 as integer
numb1=numb/655.35
numb2=int(Numb1)
print numb2
عدد بدست آمده بین 0 تا 100