آموزش نحوه فعالسازی و استفاده از کتابخانه نبدیل عدد به حروف
با این کتابخانه می توانید در پروژه برنامه نویسی .Net Framework اعداد را به حروف تبدیل کنید
Annotation 2023-10-09 120947.jpg
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