[asmarsou]

(25-05-22, 10:05 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
                Case "و" : Total = Total + 6
        
    End Select
    Next
    TextBox2.Text = Total

 
      

و عليكم السلام و رحمة الله و بركاته
اليك بهذا الرايط لنحويل الاكواد من و الى عدة لغات برمجية
https://www.carlosag.net/tools/codetranslator/