تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] الكود المناسب بلفة الدوت نت
#1
Rainbow 
بسم الله الرحمن الرحيم


السلام عليكم ورحمة الله وبركاتة

عندي كود مكتوب بلغة الاكسيس فيها التاكس بوكس الاول والتاكس بوكس الثاني اريد عنما ادخل الرقم في التاكس بوكس الاول المكون من 9 ارقام يتحول في التاكس بوكس الثاني الرقم السري المكون من اربعة ارقام , حسب الكود الموجود في الصورة اريد تحويل وترجمة هذاء الكود او الصيغة الى لغة الدوت نت هل ممكن احد يقول لي بالكود الخاص بالعملية , وهل الكود في الاكسيس يختلف عن كود بلغة الدوت نت وشكراً احبائي الكرام .

وهذاء هو الكود في الاكسيس

Private Sub Text0_AfterUpdate()

If Left(Val(Text0.Value), 2) = "71" Then
If Len(Text0.Value) = 9 Then
Text2.Value = Left(Val((Right(Text0.Value, 4) * 2) + 2998), 4)
End If
Else
MsgBox ".ÊÃßÏ ãä ÇáÑÞã ÇáãÏÎá "
Text0.Value = ""
End If
Exit Sub
End Sub

Private Sub Text0_Change()
Text2.Value = ""
End Sub
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد
تم الشكر بواسطة:
#2
كود :
If Microsoft.VisualBasic.Left(Val(Me.TextBox1.Text), 2) = 71 Then
            If Len(Me.TextBox1.Text) = 9 Then
                Dim txtval As String = Val(Microsoft.VisualBasic.Right(Me.TextBox1.Text, 4) * 2) + 2998
                Me.TextBox2.Text = Microsoft.VisualBasic.Left(txtval, 4)

            End If
        End If
الرد
تم الشكر بواسطة: محمد مسافر
#3
الف الف شكر
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد تحويل هذا الكود للسى شارب لو سمحتم ابو روضة 2 100 17-03-19, 10:21 AM
آخر رد: ابو روضة
  مساعده شباب اريد تعديل الكود يشتغل عليDataGridView بدل ListView -اين المحترفين Fransesco 5 172 25-02-19, 10:49 AM
آخر رد: elgokr
  [VB.NET] مساعده في تصحيح الكود dubai.eig 4 144 20-02-19, 05:48 PM
آخر رد: elgokr
  [VB.NET] استفسار :- هل صحيح كتابه الكود بهذه الطريقه dubai.eig 8 241 14-02-19, 06:52 PM
آخر رد: ابراهيم ايبو
  مطلوب معاينة المثال والمساعدة في تعديل الكود وفقكم الله فراس الغزي 8 294 29-01-19, 10:43 PM
آخر رد: فراس الغزي
  [VB.NET] محتاج التعديل على الكود dubai.eig 1 192 17-01-19, 09:50 AM
آخر رد: dubai.eig
  [VB.NET] برجاء المساعدة فى هذا الكود medhat_fouad 0 118 16-01-19, 02:10 PM
آخر رد: medhat_fouad
  استخدام ال ProgressBar مع هذا الكود ابو روضة 5 257 15-01-19, 04:26 PM
آخر رد: حريف برمجة
  ما الخطاء فى هذا الكود جمع قيمة حقل بشرط new_programer 5 289 30-12-18, 03:53 AM
آخر رد: a.wagdi
  [VB.NET] تعديل بسيط في الكود :) مجهول 5 276 17-12-18, 08:18 PM
آخر رد: elgokr

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


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