[نهى علي]

السلام عليكم

الاخوة الاعزاء
كيف يتم تحويل كود فيجوال 6 هذا الى كود فيجوال 2019

PHP كود :

Private Sub Command1_Click()
ch = Array("a", "b", "c", "d")
num = Array(11011, 20002, 32143, 412124)
For i = 1 To Len(Text2)
    x = Mid$(Text2.Text, i, 1)
    
    For j = 0 To 3
        If x = ch(j) Then
            Text1.Text = Val(Text1.Text) + Val(num(j))
        End If
    Next
Next
End Sub 


[asmarsou]

(14-01-23, 09:07 PM)نهى علي كتب : السلام عليكم

الاخوة الاعزاء
كيف يتم تحويل كود فيجوال 6 هذا الى كود فيجوال 2019

PHP كود :

Private Sub Command1_Click()
ch = Array("a", "b", "c", "d")
num = Array(11011, 20002, 32143, 412124)
For i = 1 To Len(Text2)
    x = Mid$(Text2.Text, i, 1)
    
    For j = 0 To 3
        If x = ch(j) Then
            Text1.Text = Val(Text1.Text) + Val(num(j))
        End If
    Next
Next
End Sub 


و عليكم السلام و رحمة الله وبركاته
اولا شكرا على هذا الطرح اذ منذ يومين كنت احاول في نفس الفكرة تقريبا ولما استعصى الامر تركته جانبا
وهذا الكود بعد التعديل و التجريب

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBox1.Text = ""
        Dim ch As String() = New String() {"a", "b", "c", "d"}
        Dim num As String() = New String() {11011, 20002, 32143, 412124}
        For i = 1 To TextBox2.TextLength
            Dim x = Mid$(TextBox2.Text, i, 1)

            For j = 0 To 3
                If x = ch(j) Then
                    TextBox1.Text = Val(TextBox1.Text) + Val(num(j))
                End If
            Next
        Next
    End Sub 


[نهى علي]

شكرا لك اخي العزيز

asmarsou