تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تحويل كود الى جافا
#1
ارجوا من الاخوة تحويل هذا الكود الى كود بالجافا بارك الله فيكم.
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
الرد }}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم