منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تحويل كود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تحويل كود (/showthread.php?tid=44777)

تحويل كود - نهى علي - 14-01-23

السلام عليكم

الاخوة الاعزاء
كيف يتم تحويل كود فيجوال 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 


RE: تحويل كود - asmarsou - 14-01-23

(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 


RE: تحويل كود - نهى علي - 14-01-23

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

asmarsou