منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طلب كود ضرورى - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم مكتبة أكواد vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=33)
+---- الموضوع : طلب كود ضرورى (/showthread.php?tid=35253)

طلب كود ضرورى - سعيد حامد - 17-06-20

السلام عليكم

رجاء ... اريد كود عمل برنامج حساب الجمل للاحرف  , واكون شاكر لكم .

RE: طلب كود ضرورى - Mohamad Anan - 17-06-20

و عليكم السلام و رحمة الله و بركاته

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

كود :
MsgBox Len("YourText")


RE: طلب كود ضرورى - سعيد حامد - 17-06-20

(17-06-20, 12:45 AM)Mohamad Anan كتب : و عليكم السلام و رحمة الله و بركاته

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

كود :
MsgBox Len("YourText")

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

RE: طلب كود ضرورى - Mohamad Anan - 17-06-20

اذا كنت تقصد مجموع قيم الأحرف في جدول 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


RE: طلب كود ضرورى - Ahmed_Mansoor - 17-06-20

وعليكم السلام ورحمة الله وبركاته

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

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

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

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

RE: طلب كود ضرورى - سعيد حامد - 17-06-20

(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 I = 1 To Len(Text1.Text)
    
    Select Case Mid$(Text1.Text, I, 1)
       
           Case "ا": Total = Total + 1
           Case "ح": Total = Total + 8
           Case "م": Total = Total + 40
           Case "د": Total = Total + 4
           
    End Select
    
Next

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

شكرا اخى احمد بارك الله فيك .