جدا سازی اعداد؟

[saeed bagherani]

با سلام خدمت تمامی دوستان

جهت نمایش در 7 سگمنت نیاز به جدا سازی اعداد بصورت زیر دارم
مثلا عدد 1234 رو به یکان 4 -- دهگان 3 -- صدگان 2 و هزارگان 1 هر کدوم درون یه متغیر بریزه

البته با این توضیح که برنامه رو مثل آب خوردن نوشتم ولی توی تقسیم اعداد بزرگتر از 231 به مشکل می خوره و بجای اون عدد 1231 نمایش می ده که چند روزی ه درگیر درست کردنش هستم ولی هنوز موفق نشدم

اگه از دوستان تجربه ای در این زمینه دارن ممنون می شم راهنمایی کنن

به قسمت از برنامه توجه کنید

If Pva >= 0 And Pva <= 9999 Then
Val_Dig8 = Pva / 1000
If Val_Dig8 = 0 Then
DG8 = Lookup(14 , Dta )
Else
DG8 = Lookup(Val_Dig8 , Dta )
End If
'---------------
Sl = Pva Mod 1000
Val_dig7 = Sl / 100

If Val_Dig7 = 0 And Val_Dig8 = 0 Then
DG7 = Lookup(14 , Dta )
Else
DG7 = Lookup(Val_Dig7 , Dta )
End If
'---------------
Sl = Sl Mod 100
Val_Dig6 = Sl / 10
DG6 = Lookup(Val_Dig6 , Dta )
'---------------
Val_Dig5 = Sl Mod 10
DG5 = Lookup(Val_Dig5 , Dta )
End If
DG6 = DG6 + 128 ' FOR PLUS DOT

[reza13731]

پاسخ : جدا سازی اعداد؟

عجیبه نباید اینجوری شه

[مهدی کارگر]

پاسخ : جدا سازی اعداد؟

سلام
متغیرهات رو از نوع اینتیجر تعریف کردی؟

[aliila]

پاسخ : جدا سازی اعداد؟

بایک حلقه while خیلی راحت در میاد و محدودیت رقم هم نداری مثلا عددی به طول 50 رقم رو میتونی اعدادش رو جدا کنی
چون بسکام ندارم الگوریتمشو برات مینویسم

. داخل حلقه خارج قسمت مرحله قبل را دوباره به 10 تقسیم میکنی و باقی مانده رو در مکان آخر آرایه مینویسی
حلقه رو تا جایی که خارج قسمت جدید بزرگتر از 10 است ادامه میدی .

[jafar2000]

پاسخ : جدا سازی اعداد؟

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

Dim A As Word
Dim Sa As String * 6
Dim E(6) As Byte
Dim B As Byte
Dim C As Byte
Dim D As Byte


Sa = Str(a)
B = Len(sa)
For C = 1 To B
E(c) = Mid(sa , C , 1)
Next C

ارایه e همون یکان دهگان و غیره هستن
a عدد اصلس هست که باید نمایش داده بشه

[saeed bagherani]

پاسخ : جدا سازی اعداد؟

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

Dim A As Word
Dim Sa As String * 6
Dim E(6) As Byte
Dim B As Byte
Dim C As Byte
Dim D As Byte


Sa = Str(a)
B = Len(sa)
For C = 1 To B
E(c) = Mid(sa , C , 1)
Next C

ارایه e همون یکان دهگان و غیره هستن
a عدد اصلس هست که باید نمایش داده بشه

ممنون
ولی اولین کاری که کردم این بود و سرعت میکرو رو خیلی می گرفت بنابراین اون رو بیخیال شدم

[saeed bagherani]

پاسخ : جدا سازی اعداد؟

بایک حلقه while خیلی راحت در میاد و محدودیت رقم هم نداری مثلا عددی به طول 50 رقم رو میتونی اعدادش رو جدا کنی
چون بسکام ندارم الگوریتمشو برات مینویسم

. داخل حلقه خارج قسمت مرحله قبل را دوباره به 10 تقسیم میکنی و باقی مانده رو در مکان آخر آرایه مینویسی
حلقه رو تا جایی که خارج قسمت جدید بزرگتر از 10 است ادامه میدی .

مرسی
روش خوبیه
با بیسکام باید از دستور mOD یعنی باقیمانده تقسیم استفاده کنی
ممنون از وقتی که گذاشتید

[saeed bagherani]

پاسخ : جدا سازی اعداد؟

سلام
متغیرهات رو از نوع اینتیجر تعریف کردی؟

نه همگی از نوع LONG هستن