29-05-22, 10:25 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
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