[سيما]

(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;