[vb_net]

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

PHP كود :

' هنا سوف ناخد التكست بوكس كمصدر لارقام التي نريد
        Dim text As String = TextBox1.Text

        ' هنا متغير سوف ياخد لنا من تكيت بوكس 4 ارقام من اليمين
        Dim str As String = Microsoft.VisualBasic.Right(text, 4)

        ' هنا متغير الدي سنخزن فيه القمية التي اخدنا من التكست مضروبة في 2
        Dim int As String = str * 2

        ' هنا متغير سنخزن فيه القيمة التي ضربناها في 2 واضفنا 2998
        Dim int1 As String = int + 2998

        ' هنا متغير سوف نخزن في اربعة ارقام اخدنها من اليمين من ناتج عملية التي قبلها
        Dim int2 As String = Microsoft.VisualBasic.Left(int1, 4)

        ' هنا رسالة تضهر لنا الخارج
        MsgBox(int2)