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
با این کتابخانه می توانید در پروژه برنامه نویسی .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