25-05-22, 10:05 PM
السلام عليكم
اطلب من الاخوة الكرام تحويل هذا الكود الى جافا لمن له دراية وخبرة فى الجافا بارك الله فيكم.
اطلب من الاخوة الكرام تحويل هذا الكود الى جافا لمن له دراية وخبرة فى الجافا بارك الله فيكم.
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
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