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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة Java (http://vb4arb.com/vb/forumdisplay.php?fid=17)
+---- قسم : قسم اسئلة Java (http://vb4arb.com/vb/forumdisplay.php?fid=22)
+---- الموضوع : تحويل كود الى جافا (/showthread.php?tid=41579)

تحويل كود الى جافا - saidhamed - 29-05-22

ارجوا من الاخوة تحويل هذا الكود الى كود بالجافا بارك الله فيكم.
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


RE: تحويل كود الى جافا - سيما - 06-03-23

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


RE: تحويل كود الى جافا - fouadhdfouad - 06-06-23

كود :
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); // يتم طباعة القيمة الإجمالية
   }
}