Fa جدا کردن اعداد

ehsan_axe · Aug 19, 2011

سلام ...
چطوری میشه یه عدد رو بگی که تا سه رقمش رو نمایش بده؟

m javad · Aug 19, 2011

بیشتر توضیح بدید، یعنی چی که یه عدد رو بگیم که تا سه رقمش رو نمایش بده؟

the_king · Aug 20, 2011

ehsan_axe گفت:
سلام ...
چطوری میشه یه عدد رو بگی که تا سه رقمش رو نمایش بده؟

سه رقم سمت چپ :

کد:

n = 123456
s$ = CHAR(n)
s$ = StrCopy(s$, 1, 3)
Message("s$","")

سه رقم سمت راست :

کد:

s$ = CHAR(n)
i = LEN(s$) - 2
s$ = StrCopy(s$, i, 3)
Message("s$","")

ehsan_axe · Aug 20, 2011

سلام علی جان ، بابت راهنماییت خیلی ممنون... اما تو برنامه من مشکل داره ...
بیشتر در مورد برنامه توضیح میدم : من سایز یه سری فایل رو توسط پلاگین میکروب فایل بدست میارم ...
اما مشکل اینجاست که سایز فایلها رو طولانی نمایش میده مثلا 5.2mb رو به صورت 5.22222222222 نمایش میده
من میخوام که سایز من به صورت 5.2mb نمایش داده بشه...

the_king · Aug 20, 2011

ehsan_axe گفت:
سلام علی جان ، بابت راهنماییت خیلی ممنون... اما تو برنامه من مشکل داره ...
بیشتر در مورد برنامه توضیح میدم : من سایز یه سری فایل رو توسط پلاگین میکروب فایل بدست میارم ...
اما مشکل اینجاست که سایز فایلها رو طولانی نمایش میده مثلا 5.2mb رو به صورت 5.22222222222 نمایش میده
من میخوام که سایز من به صورت 5.2mb نمایش داده بشه...

عدد رو به تعداد رقم های بعد از اعشار دلخواه تون در 10 ضرب کنید :

کد:

n = n * 10

و بعد ازش INT بگیرید تا بقیه رقم های اعشاری تشریف شون رو ببرند :

کد:

n = INT(n)

حالا با تقسیم کردن n به همون 10 هایی که بهشون ضرب کرده بودید، نقطه اعشاری رو سر جایش برگردانید :

کد:

n = n / 10

و نتیجه رو همونطور که هست نشون بدید :

کد:

s$ = CHAR(n)
Message("s$","")

مثال کامل با دو رقم بعد از اعشار :

کد:

n = 1.234567
n = INT(n * 100) / 100
s$ = CHAR(n)
Message("s$","")

ehsan_axe · Aug 20, 2011

علی جان باز هم نمیشه ... این کپی کدیه که من استفاده کردم :
مقداری که نمایش میده صفره

nevercom · Aug 20, 2011

خروجی تابع Get_File_Size در این پلاگین یک متغیر رشته ای هست، که شما به اشتباه در PluginGet از یک متغیر عددی استفاده کردید
کد صحیح به این شکل هست، از تابع VAL برای تبدیل متغیر رشته ای به مقدار عددی استفاده شده:

کد:

set$=Item$+[color=#800000]'|MB'[/color] 
[color=#000090][b]PluginSet[/b][/color]("MFilesAndFolders","set$") 
[color=#000090][b]PluginRun[/b][/color]("MFilesAndFolders","Get_File_Size") 
[color=#000090][b]PluginGet[/b][/color]("MFilesAndFolders","n$") 
n = [color=#000090][b]VAL[/b][/color](n$) 
n = [color=#000090][b]INT[/b][/color](n * [color=#ff0000]100[/color]) / [color=#ff0000]100[/color] 
s$ = [color=#000090][b]CHAR[/b][/color](n) 
[color=#000090][b]DisplayValue[/b][/color]("File Size","s$")