سلام دوستان من يه برنامه ميخام كه وقتي يه عدد دريافت ميكنه اون رو به حروف نمايش بده البته توي vb.net
شايد به نظر مسخره :blush: ميياد ولي جالبه تا شش رقم ساپورت كنه ممنون
سلام دوستان من يه برنامه ميخام كه وقتي يه عدد دريافت ميكنه اون رو به حروف نمايش بده البته توي vb.net
شايد به نظر مسخره :blush: ميياد ولي جالبه تا شش رقم ساپورت كنه ممنون
به فارسی یا انگلیسی یا یه زبون دیگه!!!؟
خوشم میاد با VB.Net کار میکنی
سلام دوست عزیز بايد به زبون فارسي باشه يعني خروجي برنامه فارسي باشهنقل قول:
نوشته شده توسط vibaampr
در :biggrin: ضمن شما لطف داري عزيز
دمت گرم بابا چرا دیگه جواب ندادی vibaampr
دوست عزیز حرف شما مسخره اصلا نیست.
من حدود5الی6 عدد گزاشتم یه سرچ کن پیدا می شود. تا 999.999.999.999.999هم پشتیبانی می کند.
اگر می خواهید که تا 6 رقم ساپرت کنه با این بنویسید بهتره الکی زیاد برنامه نویسی نکنید.
if text1.text="2" then
text1.text="to"
end if
این دستور خوبه نه دیگه بخواهید تا 999999999999 پیش بری برای چنین دستوری باید در انجمن برنامه نویسی دنبال سورسی که گزاشتم بگردی.
دوست عزیز من برای اینکار یک ماژول نوشتم.اگه هنوزم دنبالشی به من یه میل بزن برات بفرستم
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام دوست عزیز خوش آمدید
دوست عزیز شما آپلود کنین و بگزارید فکر کنم بهتر باشد ممنون
تا چند دقیقه دیگه یکی می گزارم
ممنون
تكنيك جان اين لينكي كه دادي دانلود نميشه اگه ميشه اصلاحش كن
دوست عزیز
برخلاف فرمایش شما، من تونستم این فایل رو بگیرم و براتون در آدرس زیر آپلود کردم:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
ممنونم كه زحمت كشيدين دانلود شد از شما و همچنين تكنيك عزيز تشكر ميكنمنقل قول:
نوشته شده توسط bithiah
دوست عزی امیدوارم مورد قبولتان واقع شده باشد اگر خواستین یک سری کاملتر بگزارم
ممنون
تكنيك جان نيكيو پرسش سري كاملشو لطف كن بي زحمت ممنوم :biggrin:نقل قول:
نوشته شده توسط تکنیک برتر
تكنيك جان ما بي صبرانه منتظر سري كامليم
این یک نمونه دوست عزیز
ممنونکد:Option Explicit
Private Const hezar = " هزار"
Private Const melun = " ميليون"
Private Const melyard = " ميليارد"
Private Const va = " و "
Public Function heji_adad(ByVal adad As Double) As String
Dim hooroof As String
Dim SS As Integer 'sadgan
Dim hh As Integer 'hezargan
Dim mm As Integer 'melungan
Dim yy As Integer 'melyardgan
Dim STRadad As String
Dim LENadad As Integer
STRadad = Str(Val(Str(adad)))
LENadad = Len(STRadad)
Select Case adad
Case Is = 0
hooroof = "صفر"
Case 1 To 999
hooroof = Adad_Heji(adad)
Case 1000 To 999999
If (adad Mod 1000 = 0) Then hooroof = Adad_Heji(Int(adad / 1000)) + hezar
If (adad Mod 1000 <> 0) Then hooroof = Adad_Heji(Int(adad / 1000)) + hezar + va + (Adad_Heji(adad Mod 1000))
Case 1000000 To 999999999
SS = Val(Right$(STRadad, 3))
hh = Val(Mid$(STRadad, LENadad - 5, 3))
mm = Val(Left$(STRadad, LENadad - 6))
If (SS = 0 And hh = 0) Then hooroof = Adad_Heji(mm) + melun
If (SS = 0 And hh <> 0) Then hooroof = Adad_Heji(mm) + melun + va + Adad_Heji(hh) + hezar
If (SS <> 0 And hh = 0) Then hooroof = Adad_Heji(mm) + melun + va + Adad_Heji(SS)
If (SS <> 0 And hh <> 0) Then hooroof = Adad_Heji(mm) + melun + va + Adad_Heji(hh) + hezar + va + Adad_Heji(SS)
Case 1000000000 To 999999999999#
SS = Val(Right$(STRadad, 3))
hh = Val(Mid$(STRadad, LENadad - 5, 3))
mm = Val(Mid$(STRadad, LENadad - 8, 3))
yy = Val(Left$(STRadad, LENadad - 9))
If (SS = 0 And hh = 0 And mm = 0) Then hooroof = Adad_Heji(yy) + melyard
If (SS = 0 And hh = 0 And mm <> 0) Then hooroof = Adad_Heji(yy) + melyard + va + Adad_Heji(mm) + melun
If (SS = 0 And hh <> 0 And mm <> 0) Then hooroof = Adad_Heji(yy) + melyard + va + Adad_Heji(mm) + melun + va + Adad_Heji(hh) + hezar
If (SS <> 0 And hh <> 0 And mm <> 0) Then hooroof = Adad_Heji(yy) + melyard + va + Adad_Heji(mm) + melun + va + Adad_Heji(hh) + hezar + va + Adad_Heji(SS)
Case Is > 999999999999#
hooroof = "عدد وارد شده بزرگتر از 999999999999 است"
End Select
heji_adad = hooroof
End Function
Private Function Adad_Heji(ByVal adad As Integer) As String
Dim yekan As Byte
Dim dahgan As Byte
Dim sadgan As Byte
Dim behooroof As String
Dim heji(19) As String
Dim heji_dahgan(9) As String
Dim heji_sadgan(9) As String
'-------------------------------
heji(1) = "يک": heji(2) = "دو": heji(3) = "سه": heji(4) = "چهار": heji(5) = "پنج"
heji(6) = "شش": heji(7) = "هفت": heji(8) = "هشت": heji(9) = "نه": heji(10) = "ده"
heji(11) = "يازده": heji(12) = "دوازده": heji(13) = "سيزده": heji(14) = "چهارده": heji(15) = "پانزده"
heji(16) = "شانزده": heji(17) = "هفده": heji(18) = "هيجده": heji(19) = "نوزده"
'-------------------------------
heji_dahgan(1) = "ده"
heji_dahgan(2) = "بيست"
heji_dahgan(3) = "سي": heji_dahgan(4) = "چهل": heji_dahgan(5) = "پنجاه"
heji_dahgan(6) = "شصت": heji_dahgan(7) = "هفتاد": heji_dahgan(8) = "هشتاد"
heji_dahgan(9) = "نود"
'-------------------------------
heji_sadgan(1) = "يكصد": heji_sadgan(2) = "دويست": heji_sadgan(3) = "سيصد"
heji_sadgan(4) = "چهارصد": heji_sadgan(5) = "پانصد": heji_sadgan(6) = "ششصد"
heji_sadgan(7) = "هفتصد": heji_sadgan(8) = "هشتصد": heji_sadgan(9) = "نهصد"
'-------------------------------
yekan = adad Mod 10
dahgan = adad Mod 100
sadgan = Int(adad / 100)
'-------------------------------
If dahgan < 20 Then
If (sadgan = 0) Then behooroof = heji(dahgan)
If (sadgan <> 0) Then behooroof = heji_sadgan(sadgan) + va + heji(dahgan)
If (yekan = 0 And dahgan = 0) Then behooroof = heji_sadgan(sadgan)
Else
dahgan = (adad Mod 100) - yekan
If (sadgan = 0 And yekan = 0) Then behooroof = heji_dahgan(dahgan / 10)
If (sadgan = 0 And yekan <> 0) Then behooroof = heji_dahgan(dahgan / 10) + va + heji(yekan)
If (sadgan <> 0 And yekan = 0) Then behooroof = heji_sadgan(sadgan) + va + heji_dahgan(dahgan / 10)
If (sadgan <> 0 And yekan <> 0) Then behooroof = heji_sadgan(sadgan) + va + heji_dahgan(dahgan / 10) + va + heji(yekan)
End If
Adad_Heji = behooroof
End Function
با این کد کار می کنه
Text1.text = heji_adad(156489)
این بعدی بگری یک سری کامل قبلا گزاشتم ممنون
کد:Option Explicit
Private Const dahom = "دهم"
Private Const sadom = "صدم"
Private Function Meghdar(Addad)
Dim ziredah(9) As String
Dim dahtabist(19) As String
Dim dahi(9) As String
Dim Dot, Ashar, Yekan, Dahgan
ziredah(1) = "يك": ziredah(2) = "دو": ziredah(3) = "سه": ziredah(4) = "چهار": ziredah(5) = "پنج"
ziredah(6) = "شش": ziredah(7) = "هفت": ziredah(8) = "هشت": ziredah(9) = "نه"
dahtabist(11) = "يازده": dahtabist(12) = "دوازده": dahtabist(13) = "سيزده": dahtabist(14) = "چهارده": dahtabist(15) = "پانزده"
dahtabist(16) = "شانزده": dahtabist(17) = "هفده": dahtabist(18) = "هيجده": dahtabist(19) = "نوزده"
dahi(2) = "بيست": dahi(3) = "سي": dahi(4) = "چهل": dahi(5) = "پنجاه"
dahi(6) = "شصت": dahi(7) = "هفتاد": dahi(8) = "هشتاد": dahi(9) = "نود"
Dot = InStr(1, Addad, ".", vbTextCompare)
If Dot <> 0 Then
Ashar = Mid(Addad, Dot + 1, 2)
Select Case Len(Ashar)
Case Is = 2
If Mid(Ashar, 1, 1) = 0 And Mid(Ashar, 2, 2) <> 0 Then Meghdar = ziredah(Mid(Ashar, 2, 2)) & " " & sadom
If Ashar Mod 10 = 0 And Mid(Ashar, 2, 2) = 0 Then Meghdar = ziredah(Mid(Ashar, 1, 1)) & " " & dahom
If Ashar Mod 10 <> 0 And Mid(Ashar, 1, 1) <> 0 Then Meghdar = dahi(Mid(Ashar, 1, 1)) & " &aelig; " & ziredah(Mid(Ashar, 2, 2)) & " " & sadom
If Mid(Ashar, 1, 1) = 0 And Mid(Ashar, 2, 2) = 0 Then Meghdar = "بدون اعشار"
If Ashar > 10 And Ashar < 20 Then Meghdar = dahtabist(Ashar) & " " & sadom
Case Is = 1
If Mid(Ashar, 1, 1) = 0 Then Meghdar = "بدون اعشار"
If Mid(Ashar, 1, 1) <> 0 Then Meghdar = ziredah(Mid(Ashar, 1, 1)) & " " & dahom
Case Is = 0
Meghdar = "بدون اعشار"
End Select
Else
Meghdar = "بدون اعشار"
End If
End Function
تكنيك جان دوت گرم خيلي باحالي
تكنيك جان دمت گرم خيلي باحالي
قابلی نداشت عزیزم
ممنون
با سلام
من يه تازه واردم با يه عالمه سوال اميدوارم باعث كسالت شما دوست عزيز نشوم و جواب سوالاتمو دريافت كنم .
من با سمي كالن در كد هاي بالا مشكل دارم چون با اجراي كدها در وي بي اونها رو ارور ميگيره . چه بايد بكنم ؟
راستش من يه ماژول تبديل عدد به حروف مي خوام براي نمرات يه كارنامه كه مميز داره . 3 تا ماژول دارم اما جواب نمي ده البته ماژول هايي دارم كه جواب مي ده ولي بدون مميز تعريف شده و به درد من نمي خوره . مي شه لطف كنين كمكم كنين .
If Ashar Mod 10 <> 0 And Mid(Ashar, 1, 1) <> 0 Then Meghdar = dahi(Mid(Ashar, 1, 1)) & " &aelig; " & ziredah(Mid(Ashar, 2, 2)) & " " & sadom
يكي لطف كنه بگه اين" سمي كالن " ; " توي اين كد چيه ؟ چرا error ميده ؟ lt چيه ؟ كه معرفي نشده ؟
ممنون ميشم
این به خاطر اینه که توی سایت گذاشتند (مربوط به تگ های اچ تی ام ال )هستشنقل قول:
نوشته شده توسط Mahsa Hatefi
این مشکل رو بر طرف کردم و گذاشتمش تویه یه ماژول که اونو می تونید از اینجا دانلود کنید
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
و اگه نشد
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
دوست مهربان واقعا تشكر مي كنم
اون مشكل رفع شد ولي يه مشكل ديگه پيش اومده و اون اينه كه عدد را گرد مي كنه . مثلا 75/15 رو "شانزده" مي دهد . چه كنم ؟
سرور گرامي Mohseni12345 مشكلم با يه ماژول ديگه حل شد تشكر مي كنم