تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب كود ضرورى
#1
السلام عليكم

رجاء ... اريد كود عمل برنامج حساب الجمل للاحرف  , واكون شاكر لكم .
الرد }}}
تم الشكر بواسطة:
#2
و عليكم السلام و رحمة الله و بركاته

اذا كان المطلوب معرفة عدد الأحرف في نص استخدم Len

كود :
MsgBox Len("YourText")
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#3
(17-06-20, 12:45 AM)Mohamad Anan كتب : و عليكم السلام و رحمة الله و بركاته

اذا كان المطلوب معرفة عدد الأحرف في نص استخدم Len

كود :
MsgBox Len("YourText")

اخى محمد لك جزيل الشكر على الرد والتفاعل , لكنى اقصد قيم الحروف على سبيل المثال اكتب فى تيكست احمد فيخرج فى تكست اخر قيم الحروف ا= 1  , ح = 8 , م = 40 , د = 4  فاحصل على ناتج تلك القيم مجموعة 53 فى التكست الاخر .
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#4
اذا كنت تقصد مجموع قيم الأحرف في جدول ASCII

كود :
Private Sub Form_Load()
   Dim I As Integer
   Dim L As Integer
   Dim S As String
   Dim SS As String
   Dim A As Integer
   Dim T As Integer
   
   S = "احمد"
   L = Len(S)
   For I = 1 To L
       SS = Mid(S, I, 1)
       A = Asc(SS)
       T = T + A
   Next
       MsgBox T
End Sub
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#5
وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , وهذا أيضا كود آخر :

PHP كود :
Dim Total As Long
Dim I 
As Long

For 1 To Len(Text1.Text)
 
   
    Select 
Case Mid$(Text1.TextI1)
 
      
           
Case "ا"Total Total 1
           
Case "ح"Total Total 8
           
Case "م"Total Total 40
           
Case "د"Total Total 4
           
    End Select
    
Next

Text2
.Text Total 
-  بالتوفيق .
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}
تم الشكر بواسطة:
#6
(17-06-20, 04:01 AM)Mohamad Anan كتب : اذا كنت تقصد مجموع قيم الأحرف في جدول ASCII

كود :
Private Sub Form_Load()
   Dim I As Integer
   Dim L As Integer
   Dim S As String
   Dim SS As String
   Dim A As Integer
   Dim T As Integer
   
   S = "احمد"
   L = Len(S)
   For I = 1 To L
       SS = Mid(S, I, 1)
       A = Asc(SS)
       T = T + A
   Next
       MsgBox T
End Sub

اخى العزيز لك جزيل الشكر وأدعو الله أن يزيدك علما .

(17-06-20, 08:00 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , وهذا أيضا كود آخر :

PHP كود :
Dim Total As Long
Dim I 
As Long

For 1 To Len(Text1.Text)
 
   
    Select 
Case Mid$(Text1.TextI1)
 
      
           
Case "ا"Total Total 1
           
Case "ح"Total Total 8
           
Case "م"Total Total 40
           
Case "د"Total Total 4
           
    End Select
    
Next

Text2
.Text Total 
-  بالتوفيق .

شكرا اخى احمد بارك الله فيك .
الرد }}}
تم الشكر بواسطة:


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


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