[saidhamed]

ارجوا من الاخوة تحويل هذا الكود الى كود بالجافا بارك الله فيكم.

Dim  Total As Integer
Dim I As  Integer

 

For I = 1 To Len(TextBox1.Text)
    
    Select Case Mid$(TextBox1.Text, I, 1)
         Case "ء" : Total = Total + 1
                Case "ا" : Total = Total + 1
                Case "أ" : Total = Total + 1
                Case "آ" : Total = Total + 1
                Case "ب" : Total = Total + 2
                Case "ج" : Total = Total + 3
                Case "د" : Total = Total + 4
                Case "ه" : Total = Total + 5
               Case "ة" : Total = Total + 5

    End Select

    Next

    TextBox2.Text = Total

[سيما]

(29-05-22, 10:25 PM)saidhamed كتب : ارجوا من الاخوة تحويل هذا الكود الى كود بالجافا بارك الله فيكم.

Dim  Total As Integer
Dim I As  Integer

 

For I = 1 To Len(TextBox1.Text)
    
    Select Case Mid$(TextBox1.Text, I, 1)
         Case "ء" : Total = Total + 1
                Case "ا" : Total = Total + 1
                Case "أ" : Total = Total + 1
                Case "آ" : Total = Total + 1
                Case "ب" : Total = Total + 2
                Case "ج" : Total = Total + 3
                Case "د" : Total = Total + 4
                Case "ه" : Total = Total + 5
               Case "ة" : Total = Total + 5

    End Select

    Next

    TextBox2.Text = Total

السلام عليكم
سوف احول لك الكود وقم بتغيير التيكست بوكس للاداة التي تريد استخدامها
وعندما يعمل الكود لديك ارفعه مرة اخى حتى اختصر لك الكود

PHP كود :

int Total;
int I;
for (I = 1; (I <= TextBox1.Text.Length); I++) {
    switch (TextBox1.Text.Substring((I - 1), 1)) {
        case "ء":
            Total = (Total + 1);
            break;
        case "ا":
            Total = (Total + 1);
            break;
        case "أ":
            Total = (Total + 1);
            break;
        case "آ" : Total = Total + ":
            break;
        case "ب":
            Total = (Total + 2);
            break;
        case "ج":
            Total = (Total + 3);
            break;
        case "د":
            Total = (Total + 4);
            break;
        case "ه":
            Total = (Total + 5);
            break;
        case "ة":
            Total = (Total + 5);
            break;
    }
}

TextBox2.Text = Total; 


[fouadhdfouad]

كود :

public class Main {
   public static void main(String[] args) {
       int total = 0;
       String text = "your text"; // يجب استبدال "your text" بالنص الذي ترغب في حساب إجمالي قيمته

       for (int i = 0; i < text.length(); i++) {
           char c = text.charAt(i);

           switch (c) {
               case 'ء':
               case 'ا':
               case 'أ':
               case 'آ':
                   total += 1;
                   break;
               case 'ب':
                   total += 2;
                   break;
               case 'ج':
                   total += 3;
                   break;
               case 'د':
                   total += 4;
                   break;
               case 'ه':
               case 'ة':
                   total += 5;
                   break;
           }
       }

       System.out.println(total); // يتم طباعة القيمة الإجمالية
   }
}