تقييم الموضوع :
  • 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
الف الف شكر
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل الكود التالي صحيح لاستعادة قاعدة بيانات أكسس Hazem1 3 21 منذ 10 ساعة مضت
آخر رد: elgokr
  كيف اجعل هذا الكود يعمل على فريم ورك 4 ابو روضة 6 106 أمس, 11:19 PM
آخر رد: ابو روضة
  أيُهما أفضل : ربط قاعدة البيانات باستخدام الأدوات أو ربطها باستخدام الكود ؟ Hazem1 10 207 أمس, 10:54 AM
آخر رد: elgokr
  [سؤال] مشكلة في الكود في كيفية البحث داخل الداتا جريد من خلال صندوق نصي ؟ dametucorazon 3 143 23-09-18, 11:27 AM
آخر رد: elgokr
  [VB.NET] اظهار رسالة في الكود الحفظ Mahamed112 1 65 10-09-18, 12:26 PM
آخر رد: boudyonline
  التعديل على الكود dasktop 3 118 09-09-18, 06:57 AM
آخر رد: elgokr
  [VB.NET] محتاج تعديل بسيط على الكود dubai.eig 5 161 17-08-18, 03:01 AM
آخر رد: elgokr
  [VB.NET] تعديل علي الكود دموع الوطن 10 304 08-08-18, 09:19 AM
آخر رد: elgokr
  [VB.NET] تحويل كود الفجوال بيسيك 6 الى الدوت نت (كود التنقل بين مصفوفة تكست بوكس) larbihamri 6 167 05-08-18, 07:26 PM
آخر رد: larbihamri
  [سؤال] تنفيذ الكود اللى عليه Checked ابو روضة 11 373 10-07-18, 06:06 PM
آخر رد: elgokr

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


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