PDA

View Full Version : خبر: دانلود کتابخانه تبدیل عدد به حروف فارسی برای استفاده در پروژه های برنامه نویسی .Net Framework Window



ROSTAM2
دوشنبه 17 مهر 1402, 15:25 عصر
آموزش نحوه فعالسازی و استفاده از کتابخانه نبدیل عدد به حروف

با این کتابخانه می توانید در پروژه برنامه نویسی .Net Framework اعداد را به حروف تبدیل کنید



https://vbloverprogrammer.blogsky.com/1402/07/17/post-71 (https://vbloverprogrammer.blogsky.com/1402/07/17/post-71/%d8%af%d8%a7%d9%86%d9%84%d9%88%d8%af-%da%a9%d8%aa%d8%a7%d8%a8%d8%ae%d8%a7%d9%86%d9%87-%d8%aa%d8%a8%d8%af%db%8c%d9%84-%d8%b9%d8%af%d8%af-%d8%a8%d9%87-%d8%ad%d8%b1%d9%88%d9%81-%d9%81%d8%a7%d8%b1%d8%b3%db%8c-%d8%a8%d8%b1%d8%a7%db%8c-%d8%a7%d8%b3%d8%aa%d9%81%d8%a7%d8%af%d9%87-%d8%af%d8%b1-%d9%be%d8%b1%d9%88%da%98%d9%87-%d9%87%d8%a7%db%8c-%d8%a8%d8%b1%d9%86%d8%a7%d9%85%d9%87-%d9%86%d9%88%db%8c%d8%b3%db%8c-Net-Framework-Windows-Forms)


155002 (https://vbloverprogrammer.blogsky.com/1402/07/17/post-71/%d8%af%d8%a7%d9%86%d9%84%d9%88%d8%af-%da%a9%d8%aa%d8%a7%d8%a8%d8%ae%d8%a7%d9%86%d9%87-%d8%aa%d8%a8%d8%af%db%8c%d9%84-%d8%b9%d8%af%d8%af-%d8%a8%d9%87-%d8%ad%d8%b1%d9%88%d9%81-%d9%81%d8%a7%d8%b1%d8%b3%db%8c-%d8%a8%d8%b1%d8%a7%db%8c-%d8%a7%d8%b3%d8%aa%d9%81%d8%a7%d8%af%d9%87-%d8%af%d8%b1-%d9%be%d8%b1%d9%88%da%98%d9%87-%d9%87%d8%a7%db%8c-%d8%a8%d8%b1%d9%86%d8%a7%d9%85%d9%87-%d9%86%d9%88%db%8c%d8%b3%db%8c-Net-Framework-Windows-Forms)


Imports NumbersToWords.NumbertoWords


Public Class Form1
Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
Try
Me.Label1.Text = GetWords(CULng(Me.TextBox1.Text))
Catch ex As Exception


End Try


End Sub
Dim Started As Boolean = False
Dim Cancel As Boolean = False
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If Started = False Then
Me.Button1.Text = "Stop Printing ...."
Cancel = False
Started = True
Else
Me.Button1.Text = "Start Printing ...."
Cancel = True
GoTo Start
End If
Debug.Print(">> Begin.")
Start:
For i = NumericUpDown1.Value To NumericUpDown2.Value
If Cancel = True Then GoTo Skip
Debug.Print(">> {0}: {1}", i, GetWords(i))
Threading.Thread.Sleep(500)
Application.DoEvents()
Next
Debug.Print(">> End.")
Skip:
Started = False
Me.Button1.Text = "Start Printing ...."
End Sub
End Class

mazoolagh
سه شنبه 18 مهر 1402, 11:27 صبح
سلام و روز خوش

آیا اعداد اعشاری رو هم پشتیبانی میکنه؟

ROSTAM2
سه شنبه 18 مهر 1402, 12:34 عصر
سلام و روز خوش

1- لینک اشکال داره:

http://xn--%20%20%20%20%20%20%20%20%20%20%20%20%20%20-014cdapddajdmegkt3egy0oub2cbndaxd2jeemdi3jkz82bnvd p9qpa5lkk7dftr2ajdjn8a7at834cm0cf4bnyg0ag2aob.net% 20framework%20windows%20forms/

2- آیا اعداد اعشاری رو هم پشتیبانی میکنه؟

سلام.

ممنون.
لینک درست شد.
هنوز نه! فعلا از از اعداد صحیح پشتیبانی می کنه.

https://eitaa.com/vbprogramming/237

ROSTAM2
چهارشنبه 19 مهر 1402, 08:09 صبح
بروز رسانی شد و حالا اعداد رو در قسمت صحیح عدد تا 28 رقم و قسمت اعشار رو هم تا 28 رقم پشتیبانی می کنه....

https://vbloverprogrammer.blogsky.com/1402/07/17/post-71/ (https://vbloverprogrammer.blogsky.com/1402/07/17/post-71/%d8%af%d8%a7%d9%86%d9%84%d9%88%d8%af-%da%a9%d8%aa%d8%a7%d8%a8%d8%ae%d8%a7%d9%86%d9%87-%d8%aa%d8%a8%d8%af%db%8c%d9%84-%d8%b9%d8%af%d8%af-%d8%a8%d9%87-%d8%ad%d8%b1%d9%88%d9%81-%d9%81%d8%a7%d8%b1%d8%b3%db%8c-%d8%a8%d8%b1%d8%a7%db%8c-%d8%a7%d8%b3%d8%aa%d9%81%d8%a7%d8%af%d9%87-%d8%af%d8%b1-%d9%be%d8%b1%d9%88%da%98%d9%87-%d9%87%d8%a7%db%8c-%d8%a8%d8%b1%d9%86%d8%a7%d9%85%d9%87-%d9%86%d9%88%db%8c%d8%b3%db%8c-Net-Framework-Windows-Forms)

155008 (https://vbloverprogrammer.blogsky.com/1402/07/17/post-71/%d8%af%d8%a7%d9%86%d9%84%d9%88%d8%af-%da%a9%d8%aa%d8%a7%d8%a8%d8%ae%d8%a7%d9%86%d9%87-%d8%aa%d8%a8%d8%af%db%8c%d9%84-%d8%b9%d8%af%d8%af-%d8%a8%d9%87-%d8%ad%d8%b1%d9%88%d9%81-%d9%81%d8%a7%d8%b1%d8%b3%db%8c-%d8%a8%d8%b1%d8%a7%db%8c-%d8%a7%d8%b3%d8%aa%d9%81%d8%a7%d8%af%d9%87-%d8%af%d8%b1-%d9%be%d8%b1%d9%88%da%98%d9%87-%d9%87%d8%a7%db%8c-%d8%a8%d8%b1%d9%86%d8%a7%d9%85%d9%87-%d9%86%d9%88%db%8c%d8%b3%db%8c-Net-Framework-Windows-Forms)


https://eitaa.com/vbprogramming/242