08-02-16, 02:52 AM
(آخر تعديل لهذه المشاركة : 08-02-16, 03:00 AM {2} بواسطة Fantastico.)
هذه دالة تقوم بحساب القيمة العددية للنصوص (حساب الجمّل)
يمكنك وضعها في حدث تغيير النص للتكست بوكس وارجاع القيمة العددية لليبل
يمكنك وضعها في حدث تغيير النص للتكست بوكس وارجاع القيمة العددية لليبل
PHP كود :
Function ABGD(ByVal str As String) As Integer
Dim sum As Integer = 0
Dim chrVal() As Integer = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000}
Dim Letters(27) As String
For i = 0 To 27
Letters(i) = ("ابجدهوزحطيكلمنسعفصقرشتثخذضظغ").Substring(i, 1)
Next
For i = 0 To str.Length - 1
Dim n As Integer = 0
If str.Substring(i, 1) = "ء" _
Or str.Substring(i, 1) = "ؤ" _
Or str.Substring(i, 1) = "ئ" _
Or str.Substring(i, 1) = "أ" _
Or str.Substring(i, 1) = "إ" Then
n = 1
ElseIf str.Substring(i, 1) = "آ" Then
n = 2
ElseIf str.Substring(i, 1) = "ة" Then
n = 5
ElseIf str.Substring(i, 1) = "ى" Then
n = 10
Else
For j = 0 To 27
If str.Substring(i, 1) = Letters(j) Then
n = chrVal(j)
Exit For
End If
Next
End If
sum += n
Next
Return sum
End Function

