جدا کردن قسمت صحیح و اعشاری یک عدد در بسکام.. چگونه؟؟؟

[narek]

سلام
سوال معلومه دیگه :icon_razz:
چطور میشه مثلا یه عدد اعشاری مثل 12.567 را قسمت صحیح و اعشاری رو از هم جدا کنم و تو 2 متغییر بریزم یکیش بشه 12 اون یکی 0.567
اگه اشتباه نکنم باید واسه این کار دستوری وجود داشته باشه ممنون میشم اگر کمکم کنید
من که کتاب علی کاهه رو خوردم چیزی توش پیدا نکردم :angry: :angry: :angry: :angry: :angry:

[baby_1]

پاسخ : جدا کردن قسمت صحیح و اعشاری یک عدد در بسکام.. چگونه؟؟؟

کد

dim a as byte
dim b as string *10
dim c as string *10
dim d as byte
dim number as single
b=str(number)
a=instr(b,".&quot
a=a-1
c=mid(b,1,a)
a=a+1
d=len(b)
d=d-a
b=mid(b,a,d)

lcd c
lcd b

که باید به متغییر number عدد خودتونو بدین

[milad_arm]

پاسخ : جدا کردن قسمت صحیح و اعشاری یک عدد در بسکام.. چگونه؟؟؟

var = INT( source ) صحیح

var = FRAC( single )اعشاری

1234.567 1234 is the integer part, .567 is the fraction
:nice: :applause:

[narek]

پاسخ : جدا کردن قسمت صحیح و اعشاری یک عدد در بسکام.. چگونه؟؟؟

var = INT( source ) صحیح

var = FRAC( single )اعشاری

1234.567 1234 is the integer part, .567 is the fraction
:nice: :applause:

دقیقا دنبال همین دستور بودم
مرسی