تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
Change text to numbers
#1
تحية طيبه

احتاج مساعدة في تحويل النص الى ارقام
قمت باستخدام دالة CDbl()
و دالة Val()
و كذلك CDbl(Val())and
و كلها يعطيني خطا في نوع
الرد }}}}
تم الشكر بواسطة:
#2
ضع المثال لمعرفة الخطأ
شـــايـفـــك

الرد }}}}
تم الشكر بواسطة:
#3
تفضل هذا الكود
PHP كود :
Private Sub Command4_Click()
Dim INNSSS As Integer
Dim I1
I2I3 As Integer
Dim C
(9) As Integer
Dim DDD 
As Single
Dim AAANSS 
As Single
Dim NSS 
As Single
Dim MMSG1
MMSG2MMSG3MMSG4MMSG5 As String
Dim MSG
MSG1MSG2MSG3 As String
 
Cls
MMSG1 
""MMSG2 ""MMSG3 ""MSG ""MSG1 ""MSG2 ""
For 1 To 9
C
(I) = 0
Next I

NN 
Len(Text1.Text)
Print 
"عدد الأرقام="NN
Rem
"text تعنى عدد الحروف أو الأرقام الموجود داخل هذا ال Len(Text1.Text)"
If Not IsNumeric(Text1.TextThen Exit Sub
For 1 To NN
    C
(I) = Val(Mid(Text1.TextNN 11))
    Print 
IC(I)
Next I
Print
Print
 
 
For 
0 To 2
Rem
"لاحظ أن ال 0 للأرقام العادية وال 1 للآلاف وال 2 للملايين"
 
I1 J
 
If I1 NN Then C(I1) = 0C(I2) = 0C(I3) = 0MMSG1 ""MMSG2 ""MMSG3 "": GoTo 100
 
If C(I1) = 0 Then MMSG1 ""
 
If C(I1) = 1 Then MMSG1 " وواحد"
 
If C(I1) = 2 Then MMSG1 " واثنين"
 
If C(I1) = 3 Then MMSG1 " وثلاثة"
 
If C(I1) = 4 Then MMSG1 " وأربعة"
 
If C(I1) = 5 Then MMSG1 " وخمسة"
 
If C(I1) = 6 Then MMSG1 " وستة"
 
If C(I1) = 7 Then MMSG1 " وسبعة"
 
If C(I1) = 8 Then MMSG1 " وثمانية"
 
If C(I1) = 9 Then MMSG1 " وتسعة"
 
 
I2 J
 
If I2 NN Then C(I2) = 0C(I3) = 0MMSG2 ""MMSG3 "": GoTo 100
 
If C(I2) = 0 Then MMSG2 ""
If C(I2) = 1 Then
  MMSG2 
"عشر"
  
If C(I1) = 0 Then MMSG2 " وعشرة"
  
If C(I1) = 1 Then MMSG1 " وأحد"
  
If C(I1) = 2 Then MMSG1 " واثنا"
End If
Rem"تم استبدال جملة(If C(I2)= 1)  بالجمل الستةالسابقة لاصلاح ال10و ال11,12"
 
If C(I2) = 2 Then MMSG2 " وعشرين"
 
If C(I2) = 3 Then MMSG2 " وثلاثين"
 
If C(I2) = 4 Then MMSG2 " وأربعين"
 
If C(I2) = 5 Then MMSG2 " وخمسين"
 
If C(I2) = 6 Then MMSG2 " وستين"
 
If C(I2) = 7 Then MMSG2 " وسبعين"
 
If C(I2) = 8 Then MMSG2 " وثمانين"
 
If C(I2) = 9 Then MMSG2 " وتسعين"
 
 
I3 J
 
If I3 NN Then C(I3) = 0MMSG3 "": GoTo 100
 
If C(I3) = 0 Then MMSG3 ""
 
If C(I3) = 1 Then MMSG3 " ومائة"
 
If C(I3) = 2 Then MMSG3 " ومئتين"
 
If C(I3) = 3 Then MMSG3 " وثلاثمائة"
 
If C(I3) = 4 Then MMSG3 " وأربعمائة"
 
If C(I3) = 5 Then MMSG3 " وخمسمائة"
 
If C(I3) = 6 Then MMSG3 " وستمائة"
 
If C(I3) = 7 Then MMSG3 " وسبعمائة"
 
If C(I3) = 8 Then MMSG3 " وثمانمائة"
 
If C(I3) = 9 Then MMSG3 " وتسعمائة"
 

100 If C(I1) = And C(I2) = And C(I3) = 0 Then GoTo 200
Rem
"تم اضافة الجملة السابقة من أجل أى رقم يحتوى على ملايين بدون آلاف(مثلآ 56000978) "
    
If And C(I2) = And C(I3) = And (C(I1) = Or C(I1) = 2Then MMSG1 " و"
Rem"تم اضافة الجملة السابقة من أجل ال 1000 وال2000 وال1000000 وال2000000"
    
MSG1 = (MMSG3) + (MMSG1) + (MMSG2)
    If 
1 Then MSG2 " ألف"
    
If And C(I2) = And C(I3) = And C(I1) = 1 Then MSG2 "ألف"
    
If And C(I2) = And C(I3) = And C(I1) = 2 Then MSG2 "ألفان"
    
If And C(I2) = And C(I3) = And C(I1) > 2 Then MSG2 " آلاف"
Rem"تم اضافة الجملتين قبل السابقة والشرط الأخير فى الجملةالسابقة من أجل الألف الواحدة والألفين"
    
If And C(I1) = And C(I2) = And C(I3) = 0 Then MSG2 " آلاف"
    
Rem"الجملة السابقة تعنى عشرة آلاف"
    
If 2 Then MSG2 " مليون"
    
If And C(I2) = And C(I3) = And C(I1) = 1 Then MSG2 "مليون"
    
If And C(I2) = And C(I3) = And C(I1) = 2 Then MSG2 "مليونان"
    
If And C(I2) = And C(I3) = And C(I1) > 2 Then MSG2 " ملايين"
Rem"تم اضافة الجملتين قبل السابقة والشرط الأخير فى الجملةالسابقة من أجل  المليون الواحدة والمليونين"
    
If And C(I1) = And C(I2) = And C(I3) = 0 Then MSG2 " ملايين"
    
Rem"الجملة السابقة تعنى عشرة ملايين"
  
MSG = (MSG1) + (MSG2) + (MSG)
200  If And NN <= 3 Then GoTo 300
     
If And NN <= 6 Then GoTo 300
Next J
      
300 MSG 
Right(MSGLen(MSG) - 2)
Rem"تم اضافة الجملةالسابقة من أجل حذف حرف الواو من بدايةالكلام(حرف الواو والفراغ السابق له)"
    
MMSG5 "      الرقم هو"
      
MsgBox((MSG), vbOKOnly, (MMSG5))
End Sub 
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم

- الطلب غير واضح ! .
الرد }}}}
تم الشكر بواسطة:
#5
لم يرد صاحب السؤال حتى الآن
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف يمكن إضافة البيانات من text الى MSFlexGrid1 مباشرة ؟؟ softmail8 3 432 08-07-16, 07:25 PM
آخر رد: أحمد خلاف
  [كود] كود إدارج بيانات text عند الضغط على زر Enter Hell Cell 1 377 28-01-15, 02:42 PM
آخر رد: Amir_alzubidy
  كود مايكتب ب text يعرض في الفورم الثاني ب text samiZ7007 4 880 12-08-13, 06:57 PM
آخر رد: samiZ7007
  كيف اجعل text يخذ خاصية MaskEdBox ؟؟ softmail8 6 801 31-07-13, 12:54 PM
آخر رد: softmail8
  كيف اعمل text.SetFocus اخر النص ابو بدران 5 635 21-07-13, 09:30 PM
آخر رد: ابو بدران
  كيف يمكن انشي الى text ضل عن طريق البرمجة ؟ softmail8 3 443 20-06-13, 01:51 PM
آخر رد: softmail8
  كود تمدد text في اثناء الكتابة wolf1120 4 633 04-06-13, 12:36 AM
آخر رد: wolf1120
  سؤال : كيف أدخل فاصلة الألوف على text داخل التقرير mh66 5 818 20-05-13, 11:23 AM
آخر رد: mh66
  ممكن كود منع كتابة ارقام في text imatawen 6 1,495 18-05-13, 07:54 AM
آخر رد: abbr999
  مساعده بسيطه وضع الرقم السري الخاص بالشبكه داخل text abood1995 1 388 23-04-13, 06:47 PM
آخر رد: abood1995

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


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