تبدیل عدد به حروف

[hamedrokhian]

سلام- من یک مشکل کوچک دارم ، یک تسکت باکس دارم که مبلغ را وارد می کند و می خواهم ووقتی کاربر دکمه ثبت را زد عدد به صورت حروف در یک لیبل نوشته شود . مثال : 2300000
جواب : دو میلیون سیسصد هزار ریال - کمکم کنید:متفکر::ناراحت::متفکر:

[dataking]

سلام
دوست خوبم ببین کارت راه می افته
البته بد نبود سرچ می کردی :لبخندساده:
منبع :یادم نیست .

[hamedrokhian]

ممنون - تا این جا کارم راه افتاد . دو تکست باکس دیگه هم گذاشتم که تکست باکس دوم مقدار عدد را از تکست باکس اول کم می کنه و در تکست باکس سوم میزاره ، ولی در تسکت باکس دوم قبل از نوشتن عدد یک علامت منفی میزاره و وقتی می خواهم تکست باکس سوم اعداد شو به حروف تبدیل کنم هیچ عملی انجام نمیده مشکلش چیه ؟ راستی تکست باکس اول جمع مقادیری که در دیتا گرید هست رو نمایش میده. ممنون اگه کمکم کنین:بوس::لبخندساده:

[dataking]

لطفا کد هات را به دقت بررسی کن اگه نشد کد ها را بذار تا هم من هم دوستان یه نگاه بکنن من vb 6 ندارم کد بزاری بهتره

[hamedrokhian]

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

Dim jam, i As Integer
For i = 1 To Adodc1.Recordset.RecordCount
jam = jam + Val(DataGrid1.Columns(9).Text)
Adodc1.Recordset.MoveNext
Next
text1.text = jam
Adodc1.Recordset.MoveFirst
مقادیر دیتا گرید را جمع می کند

If text2.Text = "" Then
text3.Text = text1.Text
Else
text3.Text = val(text2.Text) - val.text1.Text)
text.Text = Horoof(text3.Text)

text همان تکستی که مقادیر عدد را به حروف تبدیل می کند

[dataking]

من که مشکل خاصی نمی بینم ببین یک کد جای دیگر برنامه محتویات text2 را به حرنحوی دست کاری نمی کنه
سورس را بزار

[hamedrokhian]

من مطمئنم تو جمع و تفریق اعداد مشکل پیدا کرده راه دیگه داره که اعداد رو کم کنه ، چون وقتی اعداد رو جمع می کنم مشکلی نداره ولی وقتی کم می کنم یک علامت منفی کنارش میذاره شاید راه دیگه ای برای کم کردن صحیح اعداد باشه مثل برنامه ماشین حساب:متفکر:

[dataking]

می تونی خط آخر کد محتویات تکست را برابر صفر قراربدی.

[hamedrokhian]

من منظورتون رو نفهمیدم میشه بیشتر توضیح بدین؟

[dataking]

اون تکسی که منفی می شه را برابر صفر قرار بده یعنی بگو textx.text= 0
به نظر من دیگه بهش فکر نکن بزار بعد از استراحت و نهار

[hamedrokhian]

باشه - امتحان می کنم اگه مشکلم حل نشد بعد از ظهر نتیجه اش رو می گم ، ممنون از کمکتون

[hamedrokhian]

سلام. مشکلم هنوز حل نشد کسی نمی تونه کمکم کنه کار فروی دارم:گریه::گریه:

[dataking]

سلام
سورست را بده تا اگه بتونم اصلاحش کنم اگه مهمه همون قسمت را که مشکل داری بده