تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] طلب كود
#1
مطلوب كود يجمع قبم  الاحرف في مربع نص ووضع الناتج في مربع نص آخر أو في ليبل ( علي فرض اننا اعطينا كل حرف ابجدي قيمة حسابية معينة أ =1  , ب = 2  مثلا ) فالمطلوب كود يقوم بجمع قيم حرف التكست المدخل في مربع النص ثم عرضه بأي وسيلة -  وشكرا جزيلا
الرد }}}
تم الشكر بواسطة:
#2
هذه دالة تقوم بحساب القيمة العددية للنصوص (حساب الجمّل)
يمكنك وضعها في حدث تغيير النص للتكست بوكس وارجاع القيمة العددية لليبل


PHP كود :
Function ABGD(ByVal str As String) As Integer

        Dim sum 
As Integer 0
        Dim chrVal
() As Integer = {1234567891020304050607080901002003004005006007008009001000}
        
Dim Letters(27) As String
        
For 0 To 27
            Letters
(i) = ("ابجدهوزحطيكلمنسعفصقرشتثخذضظغ").Substring(i1)
        
Next

        
For 0 To str.Length 1
            Dim n 
As Integer 0

            
If str.Substring(i1) = "ء" _
                
Or str.Substring(i1) = "ؤ" _
                
Or str.Substring(i1) = "ئ" _
                
Or str.Substring(i1) = "أ" _
                
Or str.Substring(i1) = "إ" Then

                n 
1
            
ElseIf str.Substring(i1) = "آ" Then
                n 
2
            
ElseIf str.Substring(i1) = "ة" Then
                n 
5
            
ElseIf str.Substring(i1) = "ى" Then
                n 
10
            
Else
                For 
0 To 27
                    
If str.Substring(i1) = Letters(jThen
                        n 
chrVal(j)
                        Exit For
                    
End If
                
Next

            End 
If
            
sum += n
        Next

        
Return sum
    End 
Function 
الرد }}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم